ggplot2中实现多个绘图在一张画布中组合
001、生成几个测试数据
library(ggplot2) library(dplyr) p1 <- ggplot(mpg) + geom_point(aes(x = displ, y = hwy)) + ggtitle("P1") ## 测试图p1 p2 <- ggplot(mpg) + geom_bar(aes(x = as.character(year), fill = drv), position = "dodge") + ggtitle("P2") ## 测试图p2 p3 <- ggplot(mpg) + geom_density(aes(x = hwy, fill = drv), colour = NA) + facet_grid(rows = vars(drv)) + ggtitle("P3") ## 测试图p3 p4 <- ggplot(mpg) + stat_summary(aes(x = drv, y = hwy, fill = drv), geom = "col", fun.data = mean_se) + stat_summary(aes(x = drv, y = hwy), geom = "errorbar", fun.data = mean_se, width = 0.5) + ggtitle("P4") ## 测试图p3
002、利用 patchwork 包进行图片组合
library(patchwork) ## 加载包
p1 + p2 ## p1 + p2组合
p1 + p4 ## p1 + p4组合
p4 + p1 ## p4 + p1组合
p1 + p2 + p3 ## p1 + p2 + p3 组合
p1 + p2 + p3 + p4 ## 四图组合
003、plot_layout(ncol = 1)选项控制列数
a、控制列数为1
p1 + p2 + p3 + plot_layout(ncol = 1) ## 列数为1
b、控制列数为2
p1 + p2 + p3 + plot_layout(ncol = 2) ## 控制列数为2
c、控制列数为3
p1 + p2 + p3 + plot_layout(ncol = 3) ## 控制列数为3
004、操作符\ 和 | 的使用
/表示垂直排列:
p1 / p2 ## 表示垂直排列
|表示水平排列:
p1 | p2 ## 水平排列
\和|组合使用:
p1 | p2/p3 ## 组合使用
\和|组合使用:
p1 / p2 | p4 ## 组合使用
\和|组合使用:
p1|(p2/(p3|p4)) ## 组合使用
005、复杂组合
layout <- " ## plot_layout设置复杂组合,1、2、3表示第几张图,#号表示空出 112 3#2 344 " p1 + p2 + p3 + p4 + plot_layout(design = layout) ## 绘图
绘图结果:
006、实现仅保留一个图例
p1 + p2 + p3 + plot_layout(ncol = 2, guides = "collect")##guides="collect"实现仅保留一个图例
007、将图例放在空余的地方
p1+p2+p3+guide_area()+plot_layout(ncol=2,guides="collect")## guide_area()函数实现
008、对子图进行修改
a、将p1和p2组合
p12 <- p1 + p2
p12
b、修改子图
p12[[2]] <- p12[[2]] + theme_light() ## 修改子图 p12
009、对所有子图进行修改
a、原图
p1 + p4 ## 直接组合
b、对所有子图进行修改
p1 + p4 & theme_light() ## 对所有子图进行修改
010、对所有子图进行修改,将y轴量程设为一致
a、直接组合
p1 + p4
b、同时对y轴的量程进行设置
p1 + p4 & scale_y_continuous(limits = c(0, 45)) ## 同时对组合图的y轴量程进行设置
011、增加注释
p34 <- p3 + p4 + plot_annotation( title = "A closer look at the effect of drive train in cars", #增加标题 caption = "Source: mpg dataset in ggplot2" #增加图片说明 ) p34
012、给图片添加编号
a、罗马数字编号
p123 <- p1 | (p2 / p3) ## 生成组合图 p123 + plot_annotation(tag_levels = "I") ## 使用罗马序号编号
b、小写字母编号
p123 <- p1 | (p2 / p3) ## 图片组合 p123 + plot_annotation(tag_levels = "a") ## 字母编号
c、大写字母编号
p123 <- p1 | (p2 / p3) p123 + plot_annotation(tag_levels = "A") ## 大写字母编号
来源:https://blog.csdn.net/weixin_45052363/article/details/124051895