В ggplot2 скоординированный_флип и свободные весы не работают вместе

Вот некоторые примеры данных для гипотетического мета-анализа эффективности мероприятий по пропаганде спорта, для которых я хотел бы создать лесной участок:

example.df = data.frame(Author = c("McAuliffe et al.", "Palen et al.", "Manning et al.", "Richters et al.", "Grello et al.","Mpofu et al.", "Kuo & St Lawrence", "Langstrom & Hanson", "Ompad et al.", "Abdullah et al.","Yan", "Peltzer & Pengpid", "Lo & Wei", "Haggstrom-Nordin et al.", "Mwaba & Naidoo", "Hughes et al.","Lydie et al.", "Zimmer-Gembeck et al.", "Babalola", "Garos et al.", "Pinkerton et al."),
                    Sport = c("Basketball", "Basketball", "Baseball", "Dance", "Baseball", "Dance", "Wrestling","Wrestling", "Dance", "Baseball", "Wrestling", "Dance", "Swimming", "Swimming","Basketball", "Basketball", "Basketball", "Basketball", "Basketball", "Swimming", "Wrestling"),
                    Gender = c("Male", "Female", "Male", "Male", "Female", "Male", "Male", "Male", "Male", "Female","Female", "Male", "Female", "Female", "Female", "Male", "Female", "Female", "Female", "Male", "Female"),
                    d = c(-0.12, 0.53, 0.11, 0.02, 0.32, 0.04, 0.03,0.04,0.26, 0.76, 1.11, 0.34, 0.77, 1.19, 0.59, 0.15, 0.30, 0.81, 0.12, 0.11, 1.01),
                    d_SE = c(.10, .04, .06, .01, .11, .08, .08, .04, .05, .05, .14, .07, .05, .08, .19, .16, .07, .16, .06, .18, .15))

Во фрейме данных содержатся имена авторов, вид спорта, мужской или женский образец, размер эффекта для вмешательства и стандартная ошибка размера эффекта. Я надеюсь создать точечную форму, отображающую форму пола и особенности этого вида спорта. После следующих примеров в "поваренной книге" Чанга иэтот связанный запросЯ придумал следующий код, который отвечает большинству моих потребностей форматирования:

p<-ggplot(example.df, aes(x=Author, y=d, ymin=d-1.96*d_SE, ymax=d+1.96*d_SE,shape=Gender))+ 
geom_pointrange() + 
coord_flip()+
scale_y_continuous(limits=c(-2,2),breaks=c(-2,-1.5,-1,-0.5,0,.5,1,1.5,2))+
geom_hline(yintercept=0, color="grey60",linetype="dashed")+
theme_bw()+
theme(panel.grid.major.x=element_blank(),panel.grid.minor.x=element_blank(),panel.grid.major.y=element_line(color="grey60",linetype="dashed"))+
facet_grid(Sport ~ ., scales="free_y")
p

Моя проблема, однако, заключается в том, что для получающихся графиков для каждого фасета (ниже) каждый автор во всем фрейме данных нанесен на ось Y (технически ось X, но оси перевернуты). Вместо этого я хочу, чтобы только авторы с данными, относящимися к данному фасету, были нанесены на связанную с автором ось этого фасета, поэтому у каждого фасета должен быть свой список авторов на этой оси.

Я думалscales="free_y"компонентfacet_grid слой будет обеспечивать уникальную ось автора для каждого аспекта (я также пыталсяscales="free_x"с учетом перевернутых осей), но это не имеет ожидаемого эффекта.

Кто-нибудь знает, каким образом я мог бы обеспечить, чтобы имена авторов, отображаемые на оси каждого фасета, были связаны с данными этого фасета?