如何在ggplot2的facet_grid中修改特定分面的X轴范围？

要实现仅将cyl=4的分面X轴上限设为25，其余分面保持原有范围，可以借助ggh4x包的facetted_pos_scales()函数，它支持为不同分面单独设置坐标轴刻度。

步骤1：安装并加载所需包 #

如果还没安装ggh4x，先执行安装命令：

install.packages("ggh4x")

然后加载所有需要的包：

library(ggplot2)
library(dplyr)
library(ggh4x)

步骤2：修改绘图代码 #

在原有代码基础上，添加facetted_pos_scales()来指定目标分面的X轴范围：

mtcars <- mtcars %>%
  mutate(cyl = as.factor(cyl), 
         gear = as.factor(gear), 
         carb = as.factor(carb))

ggplot(mtcars, aes(x = mpg, color = carb, linetype = carb)) +
  stat_ecdf(geom = "step") +
  theme_minimal() +
  facet_grid(cyl ~ gear, scales = "free") +
  # 为cyl=4的所有gear分面设置X轴上限为25
  facetted_pos_scales(
    x = list(
      cyl == "4" ~ scale_x_continuous(limits = c(NA, 25)),
      # 其余分面保持默认刻度
      TRUE ~ scale_x_continuous()
    )
  )

代码说明 #

• facetted_pos_scales()的x参数接受一个列表，通过条件判断匹配目标分面：
  • cyl == "4" ~ scale_x_continuous(limits = c(NA, 25))：匹配所有cyl为4的分面，设置X轴上限为25（NA表示保留原有下限）
  • TRUE ~ scale_x_continuous()：匹配其余所有分面，使用默认的坐标轴范围

替代方案（无需额外包） #

如果不想安装新包，可以提前计算每个分面的X轴范围，再通过scale_x_continuous()结合分面变量的条件逻辑手动指定刻度，但这种方法需要额外处理数据，相对繁琐，推荐使用ggh4x的方案更高效。

内容的提问来源于stack exchange，提问作者Jeremy K.