如何用patchwork为ggplot网格图添加全局X/Y轴标题？

先准备基础绘图（移除子图轴标题） #

首先确保所有子图都去掉自身的轴标题，避免和全局标题冲突：

library(ggplot2)
library(patchwork)
library(grid)

# 创建示例子图，移除默认轴标题
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_point() + theme(axis.title = element_blank())
p2 <- ggplot(mtcars, aes(mpg, hp)) + geom_point() + theme(axis.title = element_blank())
p3 <- ggplot(mtcars, aes(mpg, drat)) + geom_point() + theme(axis.title = element_blank())
p4 <- ggplot(mtcars, aes(mpg, wt)) + geom_point() + theme(axis.title = element_blank())

# 组合成2x2网格
plot_grid <- p1 + p2 + p3 + p4 + plot_layout(ncol = 2)

方法1：添加统一全局X/Y轴标题 #

通过wrap_elements()将轴标题转为独立的patchwork组件，再通过布局参数控制间距，解决X轴标题过远、Y轴标题不居中的问题：

# 创建垂直的全局Y轴标题
y_global <- wrap_elements(
  textGrob("全局Y轴标题", rot = 90, gp = gpar(fontsize = 12, fontface = "bold"))
) + theme_void()

# 创建全局X轴标题
x_global <- wrap_elements(
  textGrob("全局X轴标题", gp = gpar(fontsize = 12, fontface = "bold"))
) + theme_void()

# 组合布局：Y标题 + 网格图，下方追加X标题
(y_global + plot_grid) + x_global +
  plot_layout(
    ncol = 2, widths = c(1, 20),  # 控制Y标题与网格的宽度比例
    heights = c(20, 1)            # 控制网格与X标题的高度比例
  )

• 调整widths和heights的数值可以微调标题与网格的间距，数值差越大，标题越贴近网格。
• textGrob来自grid包，用于生成可旋转的文本对象，保证Y轴标题垂直显示。

方法2：为每列添加独立全局X轴标题 #

如果需要给每列单独设置X轴标题，同样用布局组合实现：

# 为每列创建X轴标题
x_col1 <- wrap_elements(textGrob("列1专属X标题")) + theme_void()
x_col2 <- wrap_elements(textGrob("列2专属X标题")) + theme_void()

# 组合每列的子图与对应X标题
col1 <- p1 / p3 / x_col1 + plot_layout(heights = c(4, 4, 1))
col2 <- p2 / p4 / x_col2 + plot_layout(heights = c(4, 4, 1))

# 组合Y标题与两列布局
y_global + col1 + col2 +
  plot_layout(ncol = 3, widths = c(1, 10, 10))

关键说明 #

• 必须先移除子图的轴标题（theme(axis.title = element_blank())），否则会出现重复标题。
• 用wrap_elements()+theme_void()将纯文本转为无背景的patchwork组件，避免额外留白干扰布局。
• 通过plot_layout()的widths/heights参数精准控制标题位置，这是解决标题间距问题的核心。

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