我相信大家在看文章的时候都见过下面这样的图，这张图实际上是由5张子图经过排版而拼接起来的。
一般发文章的时候，编辑也会要求你将相关的图拼接在一起来说明同一个问题，不会让你单独放5张figure。传统的做法就是用AI(Adobe illustrator)或者PS(photoshop)来进行拼接了，如果大家有更好的工具欢迎下方留言。今天小编就给大家介绍一个R包patchwork，作图，拼图，排版一气呵成。下面我们举例说明
首先我们需要先安装这个R包
代码语言：javascript复制#安装patchwork这个包
install.packages("devtools")
library(devtools)
install_github("thomasp85/patchwork")接下来我们有R自带的mtcars这套数据来举例，先生成四张分别的图片
代码语言：javascript复制#加载ggplot2和patchwork包
library(ggplot2)
library(patchwork)
p1 <- ggplot(mtcars)
geom_point(aes(mpg, disp))
ggtitle('A')第一张图A, 为散点图
p2 <- ggplot(mtcars)
geom_boxplot(aes(gear, disp, group = gear))
ggtitle('B')第二张图B，为箱型图
p3 <- ggplot(mtcars)
geom_smooth(aes(hp, wt))
ggtitle('C')第三张图C，为拟合曲线
p4 <- ggplot(mtcars)
geom_bar(aes(gear))
facet_wrap(~cyl)
ggtitle('D')第四张图D，为柱形图
接下来我们来看看如何拼图和排版
1.全部水平排放， 的使用
代码语言：javascript复制p1 p2 p3 p4 plot_layout(nrow=1)
这里需要注意，如果想四张图都排在一排，这里一定要使用plot_layout(nrow=1)或者plot_layout(ncol=4)来指定行数是1或者列数是4。否则会得到如下的图
代码语言：javascript复制p1 p2 p3 p4原因是，在使用 的时候，如果什么都不指定，patchwork默认会尽量使最后的图片呈现为方形，是不是很方~~~
2. 全部垂直排布，/的使用
代码语言：javascript复制p1/p2/p3/p4
当然这里也可以使用 来实现全部垂直排布，只需要指定plot_layout(ncol=1)就可以了
代码语言：javascript复制p1 p2 p3 p4 plot_layout(ncol=1)是不是很方便
3. 第一行两张图，第二行一张图，—的使用
代码语言：javascript复制p1 p2-p3 plot_layout(ncol=1)会得到下面这张图
这里也可以通过下面的方法实现，条条大路通罗马
代码语言：javascript复制(p1 p2)/p34.第一行三张图，第二行一张图，|和/的使用
代码语言：javascript复制(p1|p2|p3)/p4
我试了下，好像|换成 也可以。可能是|看上去更容易理解一些吧！如果有小伙伴发现了其中的奥秘，欢迎留言讨论。
5. 第一行两张图，第二行两张图
这个其实前面讲过，直接用 就可以实现，接下来我们用/和|来实现
代码语言：javascript复制(p1|p2)/(p3|p4)
6.第一列三张图，第二列一张图
代码语言：javascript复制(p1/p2/p3)|p4
7.自由发挥
其实理解了这里的几个符号（ ，-，|，/）的用法之后，可以自由发挥，各种排列组合。
代码语言：javascript复制p1 (
p2 (
p3 p4 plot_layout(ncol=1)
)
) plot_layout(ncol=1)我们来理解一下代码。首先图C和图D合并成一列，再和图B并排成一行，然后再和图A合并成一列，就可以得到下面这张图啦！
8.空白占位图的使用
有时候排版的需要，我们需要留出一些空白来，patchwork里面就提供这样一个空白的占位图plot_spacer()
代码语言：javascript复制(plot_spacer() p1 plot_spacer())/ (p2 p3 p4)这里我们使用了plot_spacer()在第一行图A的左右两侧分别留出了两个空位。
今天的分享就先到这里，后面会再分几期分别给大家介绍图片宽度和高度的调节，以及一些更高级的排版方法，敬请期待！
