如何在R语言中为patchwork组合的plots对象添加公共x轴标签

当你只有已生成的plots patchwork对象、无法修改单个子图时，可通过以下几种方法添加公共X轴标签mpg：

方法1：用底部标题模拟轴标签（最简单） #

借助plot_annotation添加底部标题，调整样式后使其适配公共轴标签的视觉效果：

library(ggplot2)
library(patchwork)

# 原始代码生成plots对象
p1 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p2 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p3 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
p4 <- ggplot(mtcars, aes(mpg,vs))+ geom_point()+xlab("")+ylab("")
plots <- wrap_plots(p1,p2,p3,p4)

# 添加公共X轴标签
plots + plot_annotation(caption = "mpg") & 
  theme(plot.caption = element_text(
    hjust = 0.5,  # 居中对齐
    size = 12,    # 设置字号
    margin = margin(t = 10)  # 增大与上方图的间距
  ))

方法2：拼接空图作为专用轴标签 #

创建仅包含X轴标签的空图，与原组合图垂直拼接，视觉上更贴近真实轴标签：

# 生成仅含X轴标签的空图
x_label_plot <- ggplot() +
  labs(x = "mpg") +
  theme(
    axis.title.x = element_text(size = 12),
    axis.text = element_blank(),  # 隐藏刻度文本
    axis.ticks = element_blank(), # 隐藏刻度线
    panel.background = element_blank(), # 隐藏面板背景
    plot.margin = margin(t = -10, b = 0, l = 0, r = 0) # 缩小与上方图的间距
  )

# 拼接原组合图和标签图
wrap_plots(plots, x_label_plot, ncol = 1, heights = c(9, 1))

方法3：底层grid操作精细控制 #

若需更精准的布局调整，可直接操作grid图形对象：

library(grid)
library(gtable)

# 将plots转换为grob对象
plots_grob <- ggplotGrob(plots)

# 创建X轴标签grob
xlab_grob <- textGrob(
  label = "mpg",
  y = unit(0.1, "npc"),
  gp = gpar(fontsize = 12)
)

# 为图形添加一行用于放置标签
plots_grob <- gtable_add_rows(plots_grob, unit(0.5, "lines"), pos = nrow(plots_grob))
# 将标签添加到新行，覆盖所有子图的X轴区域
plots_grob <- gtable_add_grob(plots_grob, xlab_grob, t = nrow(plots_grob), l = 2, r = ncol(plots_grob)-1)

# 绘制修改后的图形
grid.draw(plots_grob)

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