在ggplot2中为facet_wrap()子图设置不同刻度标签函数

我的需求和一个关于ggplot2分面自定义轴标签的类似问题相近，但核心区别是：我想为刻度标签（而非轴标签）使用{scales}包创建的不同标签函数。以下是可复现示例：

library(ggplot2)
library(scales)

# 定义两个标签格式化函数
mill <- number_format(scale = 1/1000000, suffix = " M")
thou <- number_format(scale = 1/1000, suffix = " k")

# 构建示例数据
df <- data.frame(cond = rep(c("A", "B", "C"), each = 5),
           x_unit = rep(1:5, 3),
           y_unit = round(c(rnorm(5, 5e6, 10000),
                      rnorm(5, 5e6, 10000),
                      rnorm(5, 5000, 1000))))

# 当前绘图代码
ggplot(df, aes(x = x_unit, y = y_unit)) +
  geom_line() +
  scale_y_continuous(labels = mill) +
  facet_wrap(~ cond, scales = "free_y")

我希望子图C使用thou标签函数，而非mill。我确定facet_wrap()的labeller参数解决不了这个问题，该怎么实现？

方法1：使用ggh4x包的facet_wrap2（推荐） #

ggh4x是ggplot2的扩展包，专门强化了分面的自定义能力，支持为不同分面指定独立的刻度标签函数。

先安装并加载包：

install.packages("ggh4x")
library(ggh4x)

修改绘图代码，通过scales参数的子选项指定分面对应的标签函数：

ggplot(df, aes(x = x_unit, y = y_unit)) +
  geom_line() +
  scale_y_continuous() +
  facet_wrap2(~ cond, scales = "free_y",
              scales = list(y = list(labels = c(A = mill, B = mill, C = thou))))

方法2：手动构建条件标签函数 #

可以写一个自定义函数，根据当前刻度值的范围自动匹配标签格式化规则：

# 自定义条件标签函数
conditional_label <- function(x) {
  if (max(x) > 1e6) {
    mill(x)
  } else {
    thou(x)
  }
}

ggplot(df, aes(x = x_unit, y = y_unit)) +
  geom_line() +
  scale_y_continuous(labels = conditional_label) +
  facet_wrap(~ cond, scales = "free_y")

如果需要严格按分面的cond值判断（而非数据范围），可以结合ggplot2的内部变量传递分组信息，但实现复杂度更高，不如ggh4x直接。

方法3：分图层绘制后拼接 #

分别绘制每个分面的图形，手动指定各自的刻度标签，最后用patchwork包拼接成整体：

install.packages("patchwork")
library(patchwork)

# 绘制子图A、B
p_a <- ggplot(subset(df, cond == "A"), aes(x = x_unit, y = y_unit)) +
  geom_line() +
  scale_y_continuous(labels = mill) +
  facet_wrap(~ cond)

p_b <- ggplot(subset(df, cond == "B"), aes(x = x_unit, y = y_unit)) +
  geom_line() +
  scale_y_continuous(labels = mill) +
  facet_wrap(~ cond)

# 绘制子图C
p_c <- ggplot(subset(df, cond == "C"), aes(x = x_unit, y = y_unit)) +
  geom_line() +
  scale_y_continuous(labels = thou) +
  facet_wrap(~ cond)

# 拼接布局
p_a + p_b + p_c + plot_layout(nrow = 1)

这种方法适合对单个分面需要高度自定义的场景，但代码冗余度较高。

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