如何为ggplot2的facet_wrap子图添加独立Y轴标题？

ggplot2原生facet_wrap并未提供直接为每个分面添加独立Y轴标题的参数，但有两种简洁的实现方式，无需完全替换现有分面逻辑：

方法1：使用ggh4x扩展包的facet_wrap2 #

ggh4x是ggplot2的扩展工具包，其中facet_wrap2支持为每个分面单独显示Y轴及标题，完美匹配你的需求：

步骤与代码： #

1. 安装并加载ggh4x包（首次使用需安装）
2. 将原代码中的facet_wrap替换为facet_wrap2，添加axes = "y"参数开启每个子图的独立Y轴

# 安装依赖包（首次运行）
# install.packages("ggh4x")
library(ggh4x)
library(ggplot2)
library(here)

ggplot(data = df) + 
  aes(x = Name, y = L7, fill = ID) +
  geom_col(position = position_dodge()) + 
  # 替换为facet_wrap2，开启每个子图的独立Y轴
  facet_wrap2(~Peptide, scales = "free", axes = "y") +
  xlab("Compound") + 
  ylab("CV(%)") +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 90, hjust = 1, vjust = 1),
    strip.text.y = element_text(angle = 0, hjust = 1),
    panel.spacing.x = unit(1, "cm")
  ) +
  geom_hline(yintercept = 5, color = "green") +
  geom_hline(yintercept = 10, color = "orange") +
  geom_hline(yintercept = 15, color = "red") +
  labs(title = "L7", subtitle = "RR", y = "CV(%)")

ggsave(here("output", "IFCC_exp02.03_L7_final.png"))

如果需要让每个子图的Y轴标题包含对应Peptide名称（例如CV(%) - Peptide X），可通过labeller参数自定义：

facet_wrap2(
  ~Peptide, 
  scales = "free", 
  axes = "y",
  labeller = labeller(Peptide = function(x) paste0("CV(%) - ", x))
)

方法2：无依赖手动添加标题（原生ggplot2实现） #

若不想引入扩展包，可通过annotation_custom结合分面位置信息，手动为每个子图添加Y轴标题：

library(ggplot2)
library(grid)
library(here)

# 先绘制基础图表，隐藏全局Y轴标题
p <- ggplot(data = df) + 
  aes(x = Name, y = L7, fill = ID) +
  geom_col(position = position_dodge()) + 
  facet_wrap(~Peptide, scales = "free") +
  xlab("Compound") + 
  ylab("") + # 隐藏全局Y轴标题
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 90, hjust = 1, vjust = 1),
    strip.text.y = element_text(angle = 0, hjust = 1),
    panel.spacing.x = unit(1, "cm")
  ) +
  geom_hline(yintercept = 5, color = "green") +
  geom_hline(yintercept = 10, color = "orange") +
  geom_hline(yintercept = 15, color = "red") +
  labs(title = "L7", subtitle = "RR")

# 获取每个分面的坐标范围信息
facet_coords <- ggplot_build(p)$layout$panel_params
peptide_list <- unique(df$Peptide)

# 循环为每个子图添加Y轴标题
for (i in seq_along(peptide_list)) {
  # 计算标题的X轴位置（子图左侧外侧）
  x_pos <- facet_coords[[i]]$x$range[1] - 0.1 * diff(facet_coords[[i]]$x$range)
  # 计算标题的Y轴位置（子图Y轴中点）
  y_pos <- mean(facet_coords[[i]]$y$range)
  
  p <- p + annotation_custom(
    grob = textGrob("CV(%)", rot = 90, gp = gpar(fontsize = 10)),
    xmin = x_pos, xmax = x_pos,
    ymin = y_pos, ymax = y_pos
  )
}

# 输出图表
p
ggsave(here("output", "IFCC_exp02.03_L7_final.png"))

原生ggplot2限制的原因 #

ggplot2的分面设计核心是共享重复元素以保持图表简洁性，默认会将相同的轴标题合并显示，仅在边缘保留。这也是原生功能未支持独立分面轴标题的原因，借助扩展包或手动调整是当前最直接的解决方案。

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