R语言中调整ggplot多分面绘图的排列顺序问题

出现这个问题的核心原因是name列属于字符型变量，默认按字典序排序——字符排序中"X10"会排在"X2"前面（因为第二个字符"1"的ASCII码小于"2"）。要让分面按X₁、X₂…X₁₂的预期顺序排列，有两种实用方法：

方法1：将name转换为按数值排序的有序因子 #

提取name中的数字部分，转为数值型后以此为依据重新定义因子水平，让ggplot按数值顺序排列分面：

set.seed(123)
dat <- as.data.frame(matrix(rnorm(20 * 13, mean = 0, sd = 1), 20, 13))

colnames(dat) <- c("Y", paste0("X",1:12))

# 转换为长格式并调整name的因子顺序
data_def <- pivot_longer(dat, -Y) %>%
  # 提取X后的数字转为数值，按该值排序因子
  mutate(name = forcats::fct_reorder(name, as.numeric(stringr::str_remove(name, "X"))))

ggplot(data_def, aes(x = Y, y = value)) +
  stat_smooth(se = FALSE, color = "red", size = 0.5, method = "loess") +
  facet_wrap( ~ name, scales = "free_y", strip.position = "bottom") +
  theme_classic() +
  labs(x = NULL, y = "Y")

如果不想加载额外包，也可以手动处理：

data_def <- pivot_longer(dat, -Y)
# 提取数字并生成排序后的因子水平
num_order <- as.numeric(sub("X", "", data_def$name))
data_def$name <- factor(data_def$name, levels = unique(data_def$name[order(num_order)]))

方法2：创建带前导零的列名 #

在设置列名时用两位数字格式（X01、X02…X12），让字典序和数值顺序完全一致：

set.seed(123)
dat <- as.data.frame(matrix(rnorm(20 * 13, mean = 0, sd = 1), 20, 13))

# 用sprintf生成带前导零的列名
colnames(dat) <- c("Y", sprintf("X%02d", 1:12))

data_def <- pivot_longer(dat, -Y)

ggplot(data_def, aes(x = Y, y = value)) +
  stat_smooth(se = FALSE, color = "red", size = 0.5, method = "loess") +
  facet_wrap( ~ name, scales = "free_y", strip.position = "bottom") +
  theme_classic() +
  labs(x = NULL, y = "Y")

两种方法都能实现预期的分面排序，可根据实际需求选择。

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