使用patchwork创建子图的尺寸控制及代码优化

1. 用命名空间限定调用patchwork函数（避免包冲突） #

无需通过library(patchwork)加载包，直接用patchwork::前缀调用所有patchwork相关函数/运算符，彻底避免与其他包的函数、运算符冲突。即使加载了patchwork包，这种写法也能明确指定函数来源，减少歧义。

2. 控制子图尺寸 #

patchwork提供两种直观的尺寸控制方式，可按需选择：

方式1：运算符组合 + plot_layout #

通过patchwork的|（并列）、/（换行）运算符构建布局，再用plot_layout()指定行列的相对尺寸：

library(ggplot2)

# 定义子图（用ggplot2::前缀确保无冲突）
plot1 <- ggplot2::ggplot(data = mpg, aes(x = class, fill=drv)) +
  ggplot2::geom_bar(aes(y = ..count..)) + ggplot2::ggtitle("Plot1")
plot2 <- ggplot2::ggplot(data = mpg, aes(x = displ, y = hwy, color=class)) +
  ggplot2::geom_point()+ ggplot2::ggtitle("Plot2")
plot3 <- ggplot2::ggplot(data = mpg, aes(x = cty)) +
  ggplot2::geom_density()+ ggplot2::ggtitle("Plot3")
plot4 <- ggplot2::ggplot(data = mpg, aes(x = cty, y=drv, fill = fl)) +
  ggplot2::geom_col()+ ggplot2::ggtitle("Plot4")

# 构建布局并设置尺寸
final_plot <- patchwork::`/`(
  patchwork::`|`(plot3, plot4),
  patchwork::`+`(plot1, plot2)
) + patchwork::plot_layout(
  heights = c(1, 2, 2),  # 三行相对高度：第一行1份，第二、三行各2份
  widths = c(1, 1)       # 第一行两个子图的相对宽度，各占1份
)

print(final_plot)

方式2：wrap_plots + layout_matrix #

用wrap_plots()结合矩阵式布局定义，更直观地控制子图位置和尺寸：

library(ggplot2)

# 子图定义同上（省略重复代码）

final_plot2 <- patchwork::wrap_plots(
  plot3, plot4, plot1, plot2,
  ncol = 2,
  # 用矩阵指定布局：数字对应子图顺序，重复数字表示跨列/跨行
  layout_matrix = rbind(
    c(1, 2),  # 第一行：plot3、plot4并列
    c(3, 3),  # 第二行：plot1跨两列
    c(4, 4)   # 第三行：plot2跨两列
  ),
  heights = c(1, 2, 2),  # 三行相对高度比例
  widths = c(1, 1)       # 两列相对宽度比例
)

print(final_plot2)

参数说明 #

• heights：向量中数值的比例对应每行的高度占比，比如c(1,2,2)表示第一行高度是第二、三行的一半。
• widths：同理，控制每列的宽度占比。
• layout_matrix：通过矩阵索引明确子图位置，适合复杂布局的可视化定义。

内容的提问来源于stack exchange，提问作者ramen