如何为ggplot2分面图的每列添加独立Y轴标签？

要实现分面后每个子图使用不同的Y轴标签（比如给versicolor对应的子图设置log10(Sepal.Width)标签），最简洁的方法是使用ggh4x包的facet_wrap2函数，它支持为每个分面单独定义轴标签。以下是完整实现代码：

# 首次使用需安装ggh4x包
# install.packages("ggh4x")
library(ggh4x)
library(ggplot2)
library(dplyr)

data(iris)
# 对versicolor物种的Sepal.Width做log10变换
iris$Sepal.Width[iris$Species == "versicolor"] <- log10(iris$Sepal.Width[iris$Species == "versicolor"])

# 基础绘图
p <- iris %>% 
  ggplot(aes(x = Sepal.Length, y = Sepal.Width)) +
  theme_classic() +
  geom_point()

# 设置分面及自定义Y轴标签
p + facet_wrap2(~Species, scales = "free_y", 
                strip.y = strip_axis(
                  text_y = c(
                    "setosa" = "Sepal.Width",
                    "versicolor" = "log10(Sepal.Width)",
                    "virginica" = "Sepal.Width"
                  )
                ))

代码说明 #

• facet_wrap2是ggh4x对原生facet_wrap的扩展，支持更灵活的分面轴设置
• strip.y = strip_axis(text_y = ...)用于指定每个分面对应的Y轴标签，按物种名称一一对应即可
• scales = "free_y"保持每个分面的Y轴刻度独立，适配变换后的数据范围

如果不想依赖第三方包，也可以通过修改ggplot生成的gtable对象手动替换标签，但步骤繁琐且易出错，推荐使用上述ggh4x的方案。

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