这次我们简单介绍先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')
