如何在ggplot2的facet_wrap中移除无对应数据的x轴条目

这个问题我之前也碰到过！本质原因是你的displ_char变量（不管是字符型还是因子型）的类别是全局定义的，ggplot默认会把所有全局存在的类别都显示在每个分面的x轴上，哪怕该分面没有对应的数据。下面给你两种实用的解决思路，都能彻底移除这些无效的x轴条目：

方法1：数据预处理（推荐，更可控） #

通过按分面变量分组，将每个组的x轴变量转换为仅包含当前组存在类别的因子，再配合scales="free_x"参数，就能让每个分面只显示实际存在的x轴条目：

library(tidyverse)

# 预处理数据：按分面变量调整x轴因子水平
mpg_processed <- mpg %>%
  filter(displ > 3, trans %in% c("auto(l5)", "manual(m5)"), cty < 15) %>%
  mutate(
    displ = as.integer(displ),
    displ_char = case_when(
      displ == 3 ~ "a_three",
      displ == 4 ~ "b_four",
      displ == 5 ~ "c_five",
      displ == 6 ~ "d_six"
    )
  ) %>%
  group_by(trans) %>%
  # 仅保留当前分面存在的displ_char值作为因子水平
  mutate(displ_char = factor(displ_char, levels = unique(displ_char))) %>%
  ungroup()

# 绘图时开启自由x轴
ggplot(mpg_processed, aes(x = displ_char, y = cty)) +
  geom_boxplot() +
  facet_wrap(vars(trans), nrow = 1, scales = "free_x")

这样处理后，每个分面的displ_char会拥有独立的因子水平，只包含该分面实际存在的类别，scales="free_x"则会让每个分面的x轴自适应显示这些水平。

方法2：使用ggh4x包的增强分面功能 #

如果你不想修改原始数据的结构，可以使用ggh4x包提供的facet_wrap2函数，它对分面的轴控制更灵活，能自动过滤每个分面中不存在的x轴类别：

library(tidyverse)
library(ggh4x)

# 原数据处理（无需调整因子水平）
mpg_filtered <- mpg %>%
  filter(displ > 3, trans %in% c("auto(l5)", "manual(m5)"), cty < 15) %>%
  mutate(
    displ = as.integer(displ),
    displ_char = case_when(
      displ == 3 ~ "a_three",
      displ == 4 ~ "b_four",
      displ == 5 ~ "c_five",
      displ == 6 ~ "d_six"
    )
  )

# 使用增强分面实现自由x轴并自动移除空类别
ggplot(mpg_filtered, aes(x = displ_char, y = cty)) +
  geom_boxplot() +
  facet_wrap2(vars(trans), nrow = 1, scales = "free_x")

facet_wrap2的scales="free_x"会自动识别每个分面存在的类别，只显示有效的x轴条目，无需手动调整因子水平。

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