如何用patchwork为R基础绘图的子图组合添加统一标签？

当你使用patchwork组合R基础绘图时，如果直接用wrap_elements()打包基础图后再组合，plot_annotation(tag_levels)会给每个单独的基础图添加标签，而非给整个组合块（每组两个子图）加统一标签。无需将子图导出再导入，通过嵌套patchwork组合即可优雅解决这个问题：

步骤1：加载所需包并定义基础图生成函数 #

library(ggplot2)
library(patchwork)
library(gridGraphics)

# 封装基础图生成逻辑，简化重复代码
make_base_plot <- function(x, y) {
  wrap_elements(~plot(x, y, main = paste("基础图", x, y)))
}

步骤2：组合单组基础图并禁用内部标签 #

将每组的两个基础图组合为一个独立的patchwork子块，同时关闭子块内部的标签生成，避免顶层标签渗透到单个基础图：

# 纵向组合两个基础图为一组，禁用内部标签
plot_group <- make_base_plot(1, 1) + make_base_plot(2, 2) +
  plot_layout(ncol = 1) +  # 子图纵向排列，可根据需求改为nrow=1横向排列
  plot_annotation(tag_levels = NULL)  # 关闭子块内部的标签

步骤3：组合所有子块并添加统一组标签 #

将多个子块按布局组合，此时plot_annotation()的标签会作用于每个子块整体，实现每组两个子图共享一个标签：

# 定义整体布局：两行两列
layout_design <- "AB
                  CD"

# 组合四个子块并添加大写字母标签
final_plot <- wrap_plots(
  A = plot_group,
  B = plot_group,
  C = plot_group,
  D = plot_group
) +
  plot_layout(design = layout_design) +
  plot_annotation(tag_levels = "A")  # 为每个子块（组）添加统一标签

步骤4：保存最终图形 #

svg('group_labeled_plot.svg')
print(final_plot)
dev.off()

关键原理说明 #

• 嵌套组合：将每组基础图封装为独立的patchwork对象，让顶层的标签系统识别这些对象为单个面板，而非遍历内部的基础图。
• 标签层级控制：通过plot_annotation(tag_levels = NULL)禁用子块内部的标签生成，确保只有顶层标签生效。

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