如何为分面图的Y轴添加弹性缓冲（保留0起点）

问题背景 #

现有分面图实现了Y轴从0开始且自由缩放，但数据紧贴顶部。由于各分面数据尺度差异极大，固定的expand参数要么对小尺度分面无效，要么对大尺度分面过度留白，需要为Y轴添加弹性缓冲——即根据每个分面的自身数据最大值自动计算合适的顶部留白。

原代码示例 #

dat <- data.frame(date = c(1:5, 1:5),
                  type = rep(c("A", "B"), each = 5),
                  value = c(4500, 4800, 4600, 4900, 4700,
                            150, 151, 150, 140, 139)
)

library(ggplot2)

dat |>
  ggplot(aes(date, value, group = type)) +
  geom_line() +
  scale_y_continuous(limits = c(0, NA)) +
  facet_wrap(~type, scales = "free_y")

解决方案 #

方法1：相对比例扩展（最简单） #

直接通过expansion()设置相对比例缓冲，让每个分面根据自身Y轴范围自动计算顶部留白：

dat |>
  ggplot(aes(date, value, group = type)) +
  geom_line() +
  scale_y_continuous(
    limits = c(0, NA),
    # 底部无扩展，顶部添加当前Y轴范围5%的缓冲，比例可自行调整
    expand = expansion(mult = c(0, 0.05))
  ) +
  facet_wrap(~type, scales = "free_y")

• 原理：mult = c(0, 0.05)表示底部不添加相对扩展，顶部在原有Y轴最大值基础上增加5%的留白。
• 优势：无需额外包，自动适配所有分面的尺度差异，小尺度分面不会留白不足，大尺度分面也不会过度留白。

方法2：自定义分面Y轴上限（精准控制） #

如果需要更灵活的缓冲规则（比如同时设置固定最小值+相对比例），可以先预处理数据计算每个分面的Y轴上限，再用ggh4x包为每个分面单独配置轴参数：

1. 安装并加载依赖包：

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

2. 计算每个分面的自定义Y轴上限：

# 规则：最大值的5% 或 固定加10，取较大值（可根据需求修改）
y_limits <- dat |>
  dplyr::group_by(type) |>
  dplyr::summarise(
    y_max = max(value),
    y_upper = max(y_max * 1.05, y_max + 10)
  ) |>
  tibble::deframe() # 转为分面类型对应上限的向量

3. 绘制图表：

dat |>
  ggplot(aes(date, value, group = type)) +
  geom_line() +
  facet_wrap(~type, scales = "free_y") +
  facetted_pos_scales(
    y = list(
      type == "A" ~ scale_y_continuous(limits = c(0, y_limits["A"]), expand = c(0,0)),
      type == "B" ~ scale_y_continuous(limits = c(0, y_limits["B"]), expand = c(0,0))
    )
  )

方法3：使用ggforce增强分面 #

ggforce的facet_wrap2提供更灵活的分面控制，结合相对扩展参数也能实现弹性缓冲：

# install.packages("ggforce")
library(ggforce)

dat |>
  ggplot(aes(date, value, group = type)) +
  geom_line() +
  scale_y_continuous(limits = c(0, NA), expand = expansion(mult = c(0, 0.05))) +
  facet_wrap2(~type, scales = "free_y")

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