如何为ggplot2分面图的每个子图单独设置X轴范围？

ggplot2原生的facet_wrap没法直接为每个分面单独指定轴范围，这里提供两种可行方案：

方案一：使用ggh4x包（推荐，更高效） #

ggh4x扩展包的facet_wrap2函数支持为每个分面单独设置轴范围，步骤如下：

1. 先安装并加载包：

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

2. 定义每个分面对应的X轴范围（列表名称要和分面变量cyl的水平完全匹配），再修改绘图代码：

library(ggplot2)

x_limits <- list(
  "4" = c(0, 40),
  "6" = c(10, 50),
  "8" = c(-5, 20)
)

ggplot(mtcars, aes(x=mpg, y=wt, color=as.factor(cyl))) + 
  geom_point(size=3) +  
  facet_wrap2(~cyl, xlim = x_limits)

方案二：手动拼接子图（无需额外包） #

如果不想安装新包，可以用patchwork包将单独绘制的子图拼接起来：

library(ggplot2)
library(patchwork)

# 分别绘制每个缸数的子图并设置X轴范围
p4 <- ggplot(subset(mtcars, cyl == 4), aes(x=mpg, y=wt, color=as.factor(cyl))) +
  geom_point(size=3) +
  xlim(0, 40) +
  facet_wrap(~cyl)

p6 <- ggplot(subset(mtcars, cyl == 6), aes(x=mpg, y=wt, color=as.factor(cyl))) +
  geom_point(size=3) +
  xlim(10, 50) +
  facet_wrap(~cyl)

p8 <- ggplot(subset(mtcars, cyl == 8), aes(x=mpg, y=wt, color=as.factor(cyl))) +
  geom_point(size=3) +
  xlim(-5, 20) +
  facet_wrap(~cyl)

# 拼接三个子图
p4 + p6 + p8

这种方法适合分面数量少的场景，分面较多时推荐用ggh4x更省心。

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