如何为ggplot2的facet_wrap各分面手动设置y轴范围？

你的原代码存在问题：通过lapply添加多个coord_cartesian时，ggplot2只会应用最后一个坐标系统的设置，无法实现每个分面单独控制y轴范围。以下是两种可行的解决方案：

方法一：使用ggh4x包（推荐，代码简洁） #

ggh4x包提供了facetted_pos_scales函数，专门用于为每个分面设置独立的坐标轴参数：

library(ggplot2)
library(ggh4x)

# 示例数据
set.seed(123)
df <- data.frame(
  x = rep(1:10, 4),
  y = c(rnorm(10), rnorm(10, mean = 5), rnorm(10, mean = 10), rnorm(10, mean = 15)),
  facet = rep(letters[1:4], each = 10)
)

# 定义每个分面的y轴范围
facet_limits <- list(
  a = c(-2, 2),  # 分面a
  b = c(2, 8),   # 分面b
  c = c(8, 12),  # 分面c
  d = c(12, 18)  # 分面d
)

# 绘制带自定义y轴范围的分面图
ggplot(df, aes(x = x, y = y)) +
  geom_line() +
  facet_wrap(~facet, scales = "free_y") +
  facetted_pos_scales(
    y = lapply(names(facet_limits), function(facet_name) {
      scale_y_continuous(limits = facet_limits[[facet_name]])
    })
  )

方法二：使用patchwork拼接独立图（无额外分面包依赖） #

如果不想引入ggh4x，可以逐个绘制每个分面的图，再用patchwork拼接：

library(ggplot2)
library(patchwork)

set.seed(123)
df <- data.frame(
  x = rep(1:10, 4),
  y = c(rnorm(10), rnorm(10, mean = 5), rnorm(10, mean = 10), rnorm(10, mean = 15)),
  facet = rep(letters[1:4], each = 10)
)

facet_limits <- list(
  a = c(-2, 2),
  b = c(2, 8),
  c = c(8, 12),
  d = c(12, 18)
)

# 生成每个分面的独立图
plot_list <- lapply(names(facet_limits), function(facet_name) {
  # 筛选对应分面的数据
  sub_df <- df[df$facet == facet_name, ]
  ggplot(sub_df, aes(x = x, y = y)) +
    geom_line() +
    coord_cartesian(ylim = facet_limits[[facet_name]]) +
    labs(title = facet_name) +
    theme(plot.title = element_text(hjust = 0.5))
})

# 拼接所有分面图
wrap_plots(plot_list, nrow = 1)

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