Double facet_grid

tidyverse
#1

Hi, I would like to create a plot where the plots below are above each other. I used facet_grid to create them, can I use it again? If yes, how? Thank you very much!

image
image776×593 38 KB

image
image776×593 43.6 KB 

ggplot(pos8,aes(x=factor(EPG,levels=c("EPP","S&D","ECR","ALDE","GUE/NGL","Greens/EFA","EFFD","ENF")),y=value,color=EPG,weight=seats))+
  geom_jitter(position=position_jitter(width=0.2,height=0),alpha=0.8)+
  geom_boxplot(alpha=0,show.legend=FALSE,lwd=1)+
  scale_color_manual(limits=c("EPP","S&D","ECR","ALDE","GUE/NGL","Greens/EFA","EFDD","ENF"),
                     values=c("#fcdd22","#fc1414","#106da8","#ec008c","#c6262c","#44911d","#00abbc","black"))+
  guides(color=guide_legend(""))+
  theme(legend.position="bottom", 
        axis.text.y=element_blank(),
        axis.ticks=element_blank())+
  labs(x="",y="",title="Figure 2",subtitle="Left-right")+
  facet_grid(variable~.)+
  coord_flip()
#2

What does it mean for some plots to be above 'each other' ?

#3

I think you'd find the functionality you need in this package - https://github.com/thomasp85/patchwork

3 Likes
#8

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.

#5

Thank you! That is marvelous!

1 Like
#6

Do you know how to have just one legend? (They are not the same, but I could make one comprehensive).

image
image776×876 80.3 KB

#4

They would share x-axis and be in the one plot.

#7

I haven't used this package extensively, so I'm not sure if there is a way, but from what I know it'll only do one legend if legends are exactly the same.

One workaround could be creating extra plot with just legend that would print all of the parties in some way (with geom_text or something). You can then use patchwork to arrange it in whatever layout you need.

Edit: take a look in documentation here - https://patchwork.data-imaginist.com/articles/guides/assembly.html. I'm sure you could adapt one of the examples for what you are doing.