使用patchwork拼接多幅ggplot2图时如何添加全局总标题

• 原代码的标题只出现在最后一个子图上，本质是patchwork在解析加号连接的元素时，如果检测到是ggplot2的主题类参数，且没有明确指定为全局作用域，会默认把这类参数传递给拼接顺序里的最后一个“活动子图”，自然无法实现整图统一标题的效果。
• 出现这个问题的核心是没有使用patchwork专门针对整幅拼接图的元素设置接口，导致参数的作用域完全错位。

方法一：使用plot_annotation()设置整图全局元素 #

这是官方推荐的适配方式，可以在不改动原有拼接逻辑的前提下，为整个组合图设置主标题、副标题、脚注、全局分块标签等元素，不会出现参数错位到单个子图的问题。
示例代码：

library(ggplot2)
library(patchwork)

plot_1 <- ggplot() + aes(x = 1:10, y = 1:10) + geom_line()

# 生成纵向拼接图并设置全局元素
wrap_plots(plot_1, plot_1, plot_1, ncol = 1) +
  plot_annotation(
    title = "这是整幅拼接图的全局主标题",
    subtitle = "全局副标题，位于主标题正下方",
    caption = "全局图注，位于整图最底部"
  )

• 用这种方式设置的元素，位置、边距会自动适配整幅拼接图的整体画布，不会受单个子图的坐标轴、内部边距影响。

方法二：通过括号强制运算优先级，叠加原生ggplot语法 #

如果更习惯使用ggplot2原生的ggtitle()写法，可以将整个拼接生成的逻辑用括号包裹，强制先完成完整拼接对象的构建，再叠加主题类设置，让参数直接作用在整个拼图画布上，避免被传递到子图。
示例代码：

(wrap_plots(plot_1, plot_1, plot_1, ncol = 1)) +
  ggtitle("通过优先级强制设置的全局标题")

• 这种写法不需要引入额外的函数，只需要调整运算顺序就能实现效果，适合快速调试场景。

如果需要对全局标题的字体、对齐方式、颜色、边距做个性化调整，直接在整图对象后叠加theme()即可，不需要逐个修改每个子图的主题参数：

wrap_plots(plot_1, plot_1, plot_1, ncol = 1) +
  plot_annotation(title = "自定义样式的全局标题") +
  theme(
    plot.title = element_text(size = 18, hjust = 0.5, face = "bold", color = "#222222")
  )

提示：原代码中同时设置ncol = 1, nrow = 3属于冗余参数，当明确列数为1时，行数会根据实际子图数量自动匹配，不需要额外手动指定行数。

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