'patchwork:合并多个R图的包'

patchwork是基于gglot2的拼图包，它使得基于ggplot2的图形更容易拼接在同一个图层。更多知识分享请到 https://zouhua.top/。

安装

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

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

加载数据

使用R自带的mtcars数据，先使用ggplot2作图：

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()

+ 叠加图

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

- 子轨道

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

| 水平布局

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

/垂直布局

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

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

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

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

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

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 调节拼接细节

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

plot_spacer 添加空白

p1 + plot_spacer() + p2

plot_annotation 设置title，subtitles 和 captions

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

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()