如何在ggplot的facet_wrap设为free_y时增大默认y轴范围

问题背景 #

使用facet_wrap(scales = "free_y")绘制多子图时，标注文字因vjust=-2超出y轴范围，且无法调整vjust；单独绘制子图再拼接操作繁琐，需要统一或动态调整所有子图的y轴默认范围。

示例代码与数据：

library(tidyverse)
d <- tibble(
  var = c(rep(LETTERS[1:2], each = 4)),
  id = c(rep(1:4, 2)),
  mean = c(23, 24, 21, 22, 154, 153, 152, 151),
  sd = c(rep(c(2, 10), each = 4)),
  diff = c(rep(letters[1:4], 2))
)

ggplot(d, aes(id, mean)) +
  geom_point() +
  geom_errorbar(aes(ymin = mean - sd,
                    ymax = mean + sd)) +
  geom_text(aes(
    x = id,
    y = mean + sd,
    vjust = -2,
    label = diff
  )) +
  facet_wrap( ~ var, scales = "free_y")

方法1：用expand参数统一扩展轴空间 #

最简单的方式是给scale_y_continuous()加expand参数，按比例给y轴上下限添加空白，上侧多留空间容纳标注：

ggplot(d, aes(id, mean)) +
  geom_point() +
  geom_errorbar(aes(ymin = mean - sd, ymax = mean + sd)) +
  geom_text(aes(x = id, y = mean + sd, vjust = -2, label = diff)) +
  facet_wrap(~ var, scales = "free_y") +
  scale_y_continuous(expand = expansion(mult = c(0.1, 0.2)))

• expansion(mult = c(0.1, 0.2))：表示给y轴下限扩展10%空间，上限扩展20%，可根据实际标注位置调整比例。

方法2：动态计算每个子图的y轴范围 #

如果需要更精准匹配每个子图的内容，先提前计算每个分组的y轴上下限，再用空白点让ggplot自动适配范围：

# 先计算每个var分组的y轴上下限（在上限基础上加20%，下限减10%）
d_range <- d %>%
  group_by(var) %>%
  mutate(
    y_upper = max(mean + sd) * 1.2,
    y_lower = min(mean - sd) * 0.9
  ) %>%
  ungroup()

# 绘图时添加空白点扩展范围
ggplot(d, aes(id, mean)) +
  geom_point() +
  geom_errorbar(aes(ymin = mean - sd, ymax = mean + sd)) +
  geom_text(aes(x = id, y = mean + sd, vjust = -2, label = diff)) +
  geom_blank(data = d_range, aes(y = y_upper)) +
  geom_blank(data = d_range, aes(y = y_lower)) +
  facet_wrap(~ var, scales = "free_y")

这种方式会让每个子图的y轴范围刚好覆盖计算后的上下限，不会浪费空间。

方法3：修改已生成绘图的轴范围 #

如果已经画好了图，不想重新写代码，可以通过ggplot_build手动调整每个子图的y轴范围：

# 先生成原始绘图
p <- ggplot(d, aes(id, mean)) +
  geom_point() +
  geom_errorbar(aes(ymin = mean - sd, ymax = mean + sd)) +
  geom_text(aes(x = id, y = mean + sd, vjust = -2, label = diff)) +
  facet_wrap(~ var, scales = "free_y")

# 提取绘图参数并调整y轴范围
pb <- ggplot_build(p)
for (i in seq_along(pb$layout$panel_params)) {
  y_range <- pb$layout$panel_params[[i]]$y.range
  # 下限缩小10%，上限扩大20%
  pb$layout$panel_params[[i]]$y.range <- c(y_range[1] * 0.9, y_range[2] * 1.2)
}

# 重新生成绘图对象并展示
p_updated <- ggplot_gtable(pb)
plot(p_updated)

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