R小tip（六）ggplot2拼图

这次我们简单介绍先ggplot2的拼图方法，推荐patchwork这个包，语法简单，好用，接下来我们通过个例子来向大家讲述：

library(ggplot2)
library(patchwork)
p1 <- ggplot(mpg) + 
  geom_point(aes(hwy, displ))
p2 <- ggplot(mpg) + 
  geom_bar(aes(manufacturer, fill = stat(count))) + 
  coord_flip()
#直接用加好就可以
p1 + p2

其中加是横着拼图
那么竖着拼图用除号

p1 / p2

(p1 | p2) /
  p3

其中 （ | ）代表p1，p2在上面，p3在下面

layout <- '
ABB
CCD
'
p1 + p2 + p3 + p4 + plot_layout(design = layout)

其中我们只有四幅图，用四个字母即可，A,B,C,D；像BB,CC代表的这幅图宽一些，写成两行是上下堆积的意思

我们也可以加图例

patchwork <- (p4 | p2) /
  p1
patchwork + plot_annotation(tag_levels = 'A')

修改图例：

patchwork + plot_layout(guides = 'collect')

参考：https://mp.weixin.qq.com/s/p7LLLvzR5LPgHhuRGhYQBQ