使用patchwork包组合多图时自动控制Y轴标题位置

当使用patchwork垂直拼接多个ggplot时，上方绘图的Y轴标签（如抗生素名称）长度变化会导致整体布局的左侧留白改变，进而让下方绘图的Y轴标题与Y轴的距离发生偏移，每次手动调整theme(axis.title.y)的margin非常繁琐。以下是两种无需手动调整的自动适配方案：

方案一：通过垂直对齐固定Y轴标题相对位置 #

利用patchwork的plot_layout(align = "v")让两个绘图的核心区域垂直对齐，再统一设置Y轴标题的固定边距，确保标题与Y轴的距离不受上方标签长度影响。

library(ggplot2)
library(patchwork)

# 构造示例数据
df_abx <- data.frame(
  Antibiotic = c("Penicillin", "UltraLongAntibioticName", "Ciprofloxacin"),
  Value = c(10, 20, 15)
)

df_group <- data.frame(
  Group = c("A", "B", "C"),
  Value = c(5, 12, 8)
)

# 上方绘图（无Y轴标题）
p_top <- ggplot(df_abx, aes(x = Value, y = Antibiotic)) +
  geom_col() +
  ylab("")

# 下方绘图
p_bottom <- ggplot(df_group, aes(x = Value, y = Group)) +
  geom_col() +
  ylab("Group")

# 设置固定Y轴标题边距的主题
fixed_y_theme <- theme(
  axis.title.y = element_text(margin = margin(r = 12)) # 右侧固定12pt边距，对应到Y轴的距离
)

# 应用主题并垂直对齐拼接
p_top + fixed_y_theme / p_bottom + fixed_y_theme + 
  plot_layout(align = "v")

方案二：固定上方绘图Y轴标签区域宽度 #

如果上方绘图需要保留Y轴标签，可通过gtable强制固定其Y轴标签列的宽度，让整体布局的左侧留白保持恒定，从而避免下方绘图的Y轴标题偏移。

library(ggplot2)
library(patchwork)
library(gtable)

# 沿用上方的示例数据和绘图
p_top <- ggplot(df_abx, aes(x = Value, y = Antibiotic)) +
  geom_col()

# 将上方绘图转为gtable并固定Y轴标签列宽度
gt_top <- ggplotGrob(p_top)
gt_top$widths[2] <- unit(2.5, "cm") # 固定为2.5厘米，可按需调整

# 拼接调整后的gtable与下方绘图
wrap_plots(gt_top, p_bottom, ncol = 1) +
  plot_layout(align = "v")

效果说明 #

两种方案均能实现：无论上方绘图的抗生素名称长度如何变化，下方绘图的Y轴标题与Y轴的距离始终保持固定，无需手动调整主题参数。

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