在前面我们学习了基础绘图系统和 ggplot2 绘图系统的图形排版组合,具体可见下面推文。
1. 基础绘图系统组合图形排版 2. ggplot2绘图系统图形排版
今天我们继续来学习下 patchwork 包排版 ggplot2 图形。
看下 patchwork 包介绍:主要供 ggplot2 用户使用,无论组合图形多么复杂,确保 ggplot 图形对齐。
install.packages("patchwork")
install.packages("ggplot2")
library(patchwork)
library(ggplot2)
我们随便绘制四个 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
下面来看看有哪些自定义组合方式。
在排版组合图形前需要将一个个 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')
上面只是些简单的排版组合方式,有需要的可以深挖这个包。