如何在ggplot2的facet_grid中为每个箱线图面板设置独立Y轴范围？

API 探路者

2026-6-15

解决ggplot2分面后每个面板独立Y轴的问题

方案1：用ggh4x扩展包实现（推荐）

facet_grid默认的scales="free_y"是按行共享Y轴，而ggh4x的facet_grid2支持让每个面板单独拥有Y轴范围，同时保留你需要的行列结构（行=City，列=LU）。

操作步骤：

先装包并加载：

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

替换原有代码里的facet_grid为facet_grid2，加上independent = TRUE参数：
假设你原来的代码是这样：

ggplot(your_data, aes(x = 你的分组变量, y = 要展示的数值)) +
  geom_boxplot() +
  facet_grid(City ~ LU, scales = "free_y")

改成：

ggplot(your_data, aes(x = 你的分组变量, y = 要展示的数值)) +
  geom_boxplot() +
  facet_grid2(City ~ LU, scales = "free_y", independent = TRUE)

这样每个小面板的Y轴都会根据自身数据范围自动调整，不会再被同组的其他面板拖累。

方案2：手动拼接图表（不用额外包的备选）

如果不想装新包，可以用patchwork把每个单独生成的图表拼起来，同样能保持行列结构：

装包加载：

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

生成每个City-LU组合的单独图表，再拼接：

# 先拿到所有城市和土地类型的组合
all_combinations <- expand.grid(City = unique(your_data$City), LU = unique(your_data$LU))

# 循环生成每个组合的箱线图
plot_list <- mapply(function(city, lu) {
  sub_data <- your_data[your_data$City == city & your_data$LU == lu, ]
  ggplot(sub_data, aes(x = 你的分组变量, y = 要展示的数值)) +
    geom_boxplot() +
    labs(title = paste(city, lu, sep = " | ")) +
    theme(plot.title = element_text(size = 9))
}, all_combinations$City, all_combinations$LU, SIMPLIFY = FALSE)

# 按列数（土地类型的数量）拼接成网格
wrap_plots(plot_list, ncol = length(unique(your_data$LU)))

这个方法完全自主控制每个面板的Y轴，就是代码量稍大。