当前位置: 首页> 教育> 幼教 > R包:‘patchwork合并多个R图的包‘

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

时间:2025/7/10 17:38:39来源:https://blog.csdn.net/H20230717/article/details/140271735 浏览次数:0次

介绍

patchwork是基于gglot2的拼图包,它使得基于ggplot2的图形更容易拼接在同一个图层。

安装

因为作者仅仅在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() 

总结

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

参考

  1. patchwork
  2. patchwork拼图
关键字:R包:‘patchwork合并多个R图的包‘

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com

责任编辑: