ggplot2 图形排版：patchwork 包简单入门

在前面我们学习了基础绘图系统和 ggplot2 绘图系统的图形排版组合，具体可见下面推文。

1. 基础绘图系统组合图形排版
2. ggplot2绘图系统图形排版

今天我们继续来学习下 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')

上面只是些简单的排版组合方式，有需要的可以深挖这个包。

参考资料

1. patchwork 包帮助文件

---

既往专辑

本文分享自微信公众号 - 生信科技爱好者（bioitee）。
如有侵权，请联系 support@oschina.cn 删除。
本文参与“ OSC源创计划 ”，欢迎正在阅读的你也加入，一起分享。