今天我们来学习下patchwork包排版ggplot2图形。
看下patchwork包介绍：主要供ggplot2用户使用，无论组合图形多么复杂，确保ggplot图形对齐。
1. 安装和加载包
install.packages("patchwork")
install.packages("ggplot2")
library(patchwork)
library(ggplot2)
2. 绘制图形
我们随便绘制四个ggplot2图形用来演示。
p1 <- ggplot(mtcars, aes(x=mpg, y=wt)) +
geom_point() +ggtitle('图1')
p2 <- ggplot(mtcars, aes(x=mpg, y=disp, group = gear)) +
geom_boxplot() + ggtitle('图2')
p3 <- ggplot(mtcars, aes(x=hp, y=wt, colour = mpg)) +
geom_point() + ggtitle('图3')
p4 <- ggplot(mtcars, aes(x=gear)) +
geom_bar() + ggtitle('图4') +
facet_wrap(~cyl)
p1 + p2 + p3 + p4
3. 组合图形
下面来看看有哪些自定义组合方式。
在排版组合图形前需要将一个个ggplot2图形传递给一个参数，比如说上面的p1，p2等，然后使用这些参数来排版组合图形。
首先可以使用简单的+号运算符来将图形排在一起。
p1 + p2
如上图所示，两个图形的边边角角是对齐的。
p1 + p2 + p3
默认情况下，排版将按方形排列，按行的顺序来填充图形。
p1 + p2 + p3 + p4
如果我们要更改排列的样式，也可以调整plot_layout()函数来修改。
比如我们要调整图形为3列，按行排序。
p1 + p2 + p3 + p4 +
plot_layout(ncol = 3, byrow = TRUE)
如果要调整为3行，则将ncol改为nrow；设置byrow=FALSE，则按列排序。
除了用+号运算来排版图形外，还可以使用/号来排版。
p1 / p2
p1 | (p2 / p3)
p1 | p2 | (p3 / p4)
还可以按ABCD的顺序添加图形标签。
p1 + p2 + p3 + p4 +
plot_annotation(tag_levels = 'A')
上面只是些简单的排版组合方式，有需要的可以深挖这个包。
参考资料
patchwork包帮助文件
