如何在ggplot2的facet_grid中按指定顺序显示自定义分面标签？

你可以通过两种无需手动硬编码标签的方式实现需求，完全适配大规模数据集：

方法1：重新设置School因子的水平顺序 #

ggplot的分面顺序由因子的水平顺序决定，我们可以先根据Order列的排序重新定义School的因子水平，之后直接用School分面即可：

# 加载dplyr（如果未加载）
library(dplyr)

# 提取Order与School的唯一对应关系，并按Order排序
school_levels <- dat2 %>%
  distinct(Order, School) %>%
  arrange(Order) %>%
  pull(School)

# 重新设置School列的因子水平
dat2$School <- factor(dat2$School, levels = school_levels)

# 绘制分面图
p <- ggplot(dat2, aes(x = reorder(Year, Order2), Rate)) + 
  geom_bar(stat = "identity", width = 0.5)
p + facet_grid(. ~ School)

这样分面会按照Order列的顺序（School2 → School1 → School3）排列，同时显示学校名称作为标签，完美匹配你的需求。

方法2：使用labeller自定义分面标签 #

如果你不想修改原始数据的School列，可以在facet_grid中通过labeller参数，将Order的数值映射为对应的学校名称：

# 创建Order到School的标签映射
label_mapping <- dat2 %>%
  distinct(Order, School) %>%
  arrange(Order) %>%
  tibble::deframe()  # 将两列转换为命名向量（Order为名称，School为值）

# 绘制分面图，自定义标签
p <- ggplot(dat2, aes(x = reorder(Year, Order2), Rate)) + 
  geom_bar(stat = "identity", width = 0.5)
p + facet_grid(. ~ Order, labeller = labeller(Order = label_mapping))

这个方法会保留Order列的分面顺序，同时把数值标签替换为对应的学校名称，同样不需要硬编码。

为什么这两种方法有效？ #

你的数据中每个Order值对应唯一的School，所以我们可以安全提取两者的映射关系。无论是修改因子水平还是使用自定义标签函数，都能基于这个映射实现“顺序按Order，标签显示School”的效果，完全适配大规模数据集。

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