R | ggplot2拼图 —— patchwork
尘世中一个迷途小书僮关注
22019.11.23 13:53:08字数 813阅读 4,991
在Y叔公号（biobabble）看到cowplot乃旧爱，patchwork是新欢一文后，觉得甚是有趣，便动手复现了一下。
据patchwork的作者 Thomas Pedersen所介绍，他开发的初衷就是让ggplots的组合可以ridiculously simple！
The goal of patchwork is to make it ridiculously simple to combine separate ggplots into the same graphic. As such it tries to solve the same problem as gridExtra::grid.arrange() and cowplot::plot_grid but using an API that incites exploration and iteration.
我使用后的感觉也是如此， patchwork可读性高、操作简单、可操作性也高，真的太强了。下面简单介绍一下这个包吧
安装
由于这个包还没发布到CRAN上，所以直接用install.packages()是安装不了的，要使用以下方法安装
devtools::install_github("thomasp85/patchwork")
更新于 2020-12-29
patchwork 已经发布了有一段时间了，可以直接通过以下命令安装
install.packages('patchwork')
当然也可以继续用devtools::install_github("thomasp85/patchwork")的方法安装开发版本（不建议）
语法
patchwork使用的语法十分简单，就是用+就可以按行将图拼起来，而/是按列拼图，使用|分隔后可以同时使用两种方法拼图。
下面我们画几张图试试
p1<-ggplot(mtcars)+geom_point(aes(mpg,disp,colour=mpg,size=wt))+ggtitle('p1')
p2<-ggplot(mtcars)+geom_boxplot(aes(gear,disp,group=gear))+ggtitle('p2')
p3<-ggplot(mtcars)+geom_point(aes(hp,wt,colour=mpg,size=wt))+scale_colour_viridis_c()+ggtitle('p3')
p4<-ggplot(mtcars)+geom_smooth(aes(disp,qsec))+ggtitle('p4')
p5<-ggplot(mtcars)+geom_bar(aes(carb))+ggtitle('p5')
横拼
可以通过+或|实现，两者都是按row合并的
p1 + p2
p1 + p2
还可以通过plot_spacer()在图与图之间插入空白，实现ggplot的九宫格！
p1 + plot_spacer() + p2 + plot_spacer() + p3 + plot_spacer() + p4 + plot_spacer() + p5
Nine Palace Grid
竖拼
竖着拼也很简单，就是一个/就完事了，有点分式的意思
p2/p4
p2/p4
一起拼
如果想同时实现两种拼图的语法，用|即可完成了
(p2/p4)|p3
(p2/p4)|p3
方便的注释
patchwork还提供了一个plot_annotation的功能，可以允许我们在给拼起来的图加title的前提下，还能为每一个subplot加上一个tag，效果如下：
p1 + p2 + plot_annotation(title = "combine", tag_levels = "A")
这个功能在生成文章的figure的时候就很有用了
复杂的拼图
以上我们所做的都是在网格上一个个格子地拼图的，当然，patchwork也可以通过设定layout实现指定每个图所占的格子来拼，容许了更高的操作自由度
layout <- "BBBBAACC##CC"p4 + p2 + p3 + plot_layout(design = layout)
以上的#是空白，ABC就代表了输入中相应的图
控制legend
patchwork可以通过指定plot_layout(guide = 'collect')将legend都放到图的一侧
(p2 | (p1/p3)) + plot_layout(guides = 'collect')
有趣的是，尽管我们的mpglegend都是对mpg上色，但仅因为颜色映射的方法不一样，就分别列了出来。所以，这个guides = 'collect'不仅仅只是收集legend，它是在进行了legend的比较之后，才放出来的。
总而言之，patchwork是个十分方便且强大的ggplots拼图工具，而且尚在开发之中，意味着以后可能还会有更多更强大的功能出现，有需要的朋友就赶紧用起来吧！
参考：
1 cowplot乃旧爱，patchwork是新欢
2 https://www.rdocumentation.org/packages/patchwork/versions/0.0.1.9000