R语言使用facet_grid时如何保持轴变量原有顺序不重排

解决步骤 #

要实现需求，关键是通过因子化变量锁定两个关键顺序，再配合分面的自由轴设置：

1. 把车型名car转为因子，固定其水平为mtcars原始行名的顺序
2. 把gear转为因子，水平设置为car原始顺序中gear首次出现的序列（4、3、5）
3. 分面时启用自由y轴，确保每个分面只显示对应分组的车型，且顺序与原图一致

完整代码 #

library(ggplot2)
library(tibble)

# 预处理数据：保留原始顺序并设置因子
mtcars_fixed <- mtcars %>%
  # 将行名（车型）转为单独列
  rownames_to_column("car") %>%
  # 固定车型顺序为mtcars原始行名顺序
  mutate(
    car = factor(car, levels = rownames(mtcars)),
    # 提取车型原始顺序中gear首次出现的序列，作为分组顺序
    gear = factor(gear, levels = unique(mtcars$gear[match(car, rownames(mtcars))]))
  )

# 原始散点图p1（y轴为车型原始顺序）
p1 <- ggplot(mtcars_fixed, aes(x = mpg, y = car)) +
  geom_point()

# 符合需求的分面散点图p2
p2 <- ggplot(mtcars_fixed, aes(x = mpg, y = car)) +
  geom_point() +
  # 按gear分面，free_y确保每个分面只显示对应车型且保留原始顺序
  facet_grid(gear ~ ., scales = "free_y")

关键细节说明 #

• factor(car, levels = rownames(mtcars))：强制ggplot使用mtcars原始的车型顺序，不会自动按字母排序
• unique(mtcars$gear[match(car, rownames(mtcars))])：按原始车型顺序提取对应的gear值，去重后得到的序列就是车型首次出现的gear顺序（4、3、5），以此固定分面的排列顺序
• scales="free_y"：让每个分面的y轴仅包含当前gear组的车型，同时保留车型的原始排序，避免分面后所有车型被重新排列

内容的提问来源于stack exchange，提问作者Mohammad Tanvir Ahamed