patchwork:合并多个R图的包

安装

因为作者仅仅在GitHub发布了patchwork,因此无法使用install.packages("patchwork")从CRAN处获取。为了获取该包,首先应该安装devtools包,其次在使用如下命令:

1
2
3
# install.packages("devtools")
library(devtools)
install_github("thomasp85/patchwork")

加载数据

使用R自带的mtcars数据,先使用ggplot2作图:

1
2
3
4
5
6
7
library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars, aes(x=mpg, y=disp))+ geom_point()
p2 <- ggplot(mtcars, aes(x=gear, y=disp, group = gear))+ geom_boxplot()
p3 <- ggplot(mtcars, aes(x=disp, y=qsec))+ geom_smooth()
p4 <- ggplot(mtcars, aes(x=carb))+ geom_bar()

+ 叠加图

1
2
p1 + p2 + p3 + p4
# (p1 + p2 + p3 + p4)+ plot_layout(ncol =1) # plot_layout 控制拼图水平布局

- 子轨道

1
2
3
# - 符号左右图形位于不同图层 
(p1 + p2 + p3) - p4 # (p1 + p2 + p3) 和p4分别占用两个相同大小的轨道
#(p1 + p2 + p3) - p4 + plot_layout(ncol=1) # 控制列数

| 水平布局

1
2
(p1 | p2 | p3 | p4) # 四个图分布在四个不同的图层
#(p1 + p2 + p3 + p4) # 四个图分布在同一个图层,且自动分成两列,每列2个图

/垂直布局

1
(p1 | p2)/(p3 | p4) # 括号内是水平布局,/则是垂直布局,和p1+p2+p3+p4类似

*& 同一操作应用所有图形

1
(p1 + (p2 + p3) + p4 + plot_layout(ncol = 1)) * theme_bw() # 只会应用到当前嵌套层 p1 p4

1
(p1 + (p2 + p3) + p4 + plot_layout(ncol = 1)) & theme_bw() # 所有图形

{} 或者 () 嵌套布局图形

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
p1 + {
p2 + {
p3 +
p4 +
plot_layout(ncol=1)
}
} +
plot_layout(ncol=1)


p1 + (
p2 + (
p3 + p4 + plot_layout(ncol=1)
)
) +
plot_layout(ncol=1)

plot_layout 调节拼接细节

1
p1 + p2 + plot_layout(ncol = 1, heights = c(2, 1))

plot_spacer 添加空白

1
p1 + plot_spacer() + p2

plot_annotation 设置title,subtitles 和 captions

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
patchwork <- (p1 + p2) / p3 # patchwork[[1]] = p1 + p2 图层1;patchwork[[1]] = p3
patchwork + plot_annotation(
title = 'The surprising truth about mtcars',
subtitle = 'These 3 plots will reveal yet-untold secrets about our beloved data-set',
caption = 'Disclaimer: None of these plots are insightful',
tag_levels = 'A' # 添加标签
) & theme(plot.tag = element_text(size = 8))

# 对图层1两子图编码 A1 和 A2
patchwork[[1]] <- patchwork[[1]] + plot_layout(tag_level = 'new')
patchwork + plot_annotation(tag_levels = c('A', '1'))

# 对图注进行编码 Fig.A.1: Fig.A.2: Fig.B:
patchwork + plot_annotation(tag_levels = c('A', '1'), tag_prefix = 'Fig. ',
tag_sep = '.', tag_suffix = ':')

控制legend

1
2
3
4
5
6
7
8
9
p1 <- ggplot(mtcars, aes(x=mpg, y=disp, colour = mpg, size = wt))+ 
geom_point()
p2 <- ggplot(mtcars %>% mutate(gear=factor(gear)), aes(x=gear, y=disp, group = gear, color = gear))+
geom_boxplot()
# 指定guides='collect',把legend都给集中在图的一侧
# guide_area() 图例单独放在一个格子
(p3 | (p1 / p2)) +
plot_layout(guides = 'collect') +
guide_area()

总结

cowplot包相比,patchwork包更适合基于ggplot2的产生的图形,它的布局更加简洁,语法简单

引用

  1. patchwork
  2. patchwork拼图

参考文章如引起任何侵权问题,可以与我联系,谢谢。


------------- The End Thanks for reading --------