如何为ggplot中facet_grid的每个分面行添加居中y轴标题

• 使用ggplot2的facet_grid绘制分面散点图时，需要将y轴标题显示在每一行分面的垂直居中位置
• 需适配任意行数的分面场景，避免手动添加空格这类适配性差的方案
• 仅可使用ggplot2原生功能，不得引入其他扩展包，适配R包开发场景

示例数据：

df <- data.frame(x= rnorm(100), y= rnorm(100),
                 group1= rep(0:1, 50), group2= rep(2:3, each= 50))

初始绘图代码：

library(ggplot2)
ggplot(df, aes(x, y)) +
  geom_point() +
  facet_grid(group1 ~ group2)

通过调整facet_grid的strip位置、labeller和主题样式实现，完全无需第三方依赖：

ggplot(df, aes(x, y)) +
  geom_point() +
  facet_grid(
    group1 ~ group2,
    switch = "y", # 将行分面的strip移动到绘图区左侧
    labeller = labeller(group1 = ~"y") # 所有行的strip统一替换为y轴标题文本
  ) +
  theme(
    axis.title.y = element_blank(), # 隐藏默认的全局y轴标题
    strip.placement = "outside", # 将strip放到轴线外侧，对齐默认轴标题位置
    strip.background.y = element_blank(), # 移除strip的默认背景
    strip.text.y.left = element_text(angle = 90, vjust = 0.5) # 调整文本角度与垂直居中，匹配默认y轴标题样式
  )

方案优势 #

• 完全基于ggplot2原生API，无任何额外依赖，适合用于R包开发
• 自动适配任意分面行数，无需根据分面数量修改参数
• y轴标题文本修改后自动保持居中，不存在手动调整空格导致的偏移问题
• 可通过修改strip.text.y.left的参数灵活调整标题大小、颜色、字体等样式，完全匹配绘图风格

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