如何在分面图（facet plots）中单独设置Y轴刻度范围

你需要让a、b、c三个组分的分面共用相同Y轴范围（0-200），而Total分面单独适配大数值的Y轴（0-500），用ggh4x包的facetted_pos_scales函数就能精准实现这个需求，比硬调数据方便多了。

具体步骤 #

1. 安装并加载所需包 #

install.packages("ggh4x") # 未安装过的话先执行这句
library(tidyverse)
library(ggh4x)

2. 准备数据（沿用你提供的原始代码） #

set.seed(123)
data <- tibble(
  Treatment = rep(c("Control", "Treatment"), each = 4),
  Year = rep(2021:2024, times = 2),
  a = runif(8, 100, 150),
  b = runif(8, 100, 150),
  c = runif(8, 100, 150),
) %>%
  mutate(Total = a + b + c) %>%
  pivot_longer(cols = -c(Year, Treatment), names_to = "Component", values_to = "Value")

3. 绘图并设置自定义Y轴 #

ggplot(data, aes(x = as.factor(Year), y = Value, group = Treatment)) +
  geom_line(aes(color = Treatment), size = 1) +
  geom_point(aes(color = Treatment, shape = Treatment), size = 3) +
  # 先开启free_y允许Y轴自由调整，为后续自定义分面轴做基础
  facet_wrap(~Component, ncol = 4, scales = "free_y") +
  # 关键：为指定分面单独设置Y轴范围
  facetted_pos_scales(
    y = list(
      # a/b/c三个分面统一使用0-200的Y轴
      Component %in% c("a", "b", "c") ~ scale_y_continuous(limits = c(0, 200)),
      # Total分面单独使用0-500的Y轴
      Component == "Total" ~ scale_y_continuous(limits = c(0, 500))
    )
  ) +
  scale_color_manual(values = c("Control" = "blue", "Treatment" = "red")) +
  theme_bw() # 可选，优化图表视觉风格

之前方法失效的原因 #

你之前尝试的scale_y_continuous加ifelse是给整个图表设置统一Y轴，无法针对单个分面生效；而scales="free_y"会让所有分面的Y轴自动适配自身数据范围，导致a/b/c的Y轴无法保持一致。facetted_pos_scales刚好填补了这个空白——可以精准给指定分面单独设置轴参数，同时让其他分面保持统一规则。

无额外包的替代方案（仅供参考） #

如果不想安装新包，可以通过缩放Total数据再修改轴标签实现，但操作相对繁琐：

data_scaled <- data %>%
  mutate(Value_scaled = ifelse(Component == "Total", Value/3, Value))

ggplot(data_scaled, aes(x = as.factor(Year), y = Value_scaled, group = Treatment)) +
  geom_line(aes(color = Treatment), size = 1) +
  geom_point(aes(color = Treatment, shape = Treatment), size = 3) +
  facet_wrap(~Component, ncol = 4, scales = "fixed") +
  scale_y_continuous(
    limits = c(0, 200),
    labels = function(x) {
      # 给Total分面的轴标签还原为原始数值
      if (current_facet()$Component == "Total") x*3 else x
    }
  ) +
  scale_color_manual(values = c("Control" = "blue", "Treatment" = "red")) +
  theme_bw()

该方法需要依赖较新版本的ggplot2（支持current_facet()函数），且轴标签处理容易出现误差，优先推荐ggh4x的解决方案。

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