ggplot手动重排X轴因子水平 实现交错分组折线点着色

核心问题出在两个地方：一是ggplot对字符型的分类轴会默认按字母顺序排序，导致x轴变量顺序不符合预期；二是拆分两个数据集分别叠加图层的写法冗余，完全可以在单份长数据上完成所有映射。

推荐写法：单数据集实现（无需拆分） #

直接使用合并后的汇总表转换长格式，预处理时锁定因子顺序、拆分测试类型分组，一次性完成绘图逻辑：

library(ggplot2)
library(reshape2)
library(stringr)

# 数据预处理
plot_df <- melt(CON_FCCFCNC_summary) |>
  transform(
    # 严格按预期顺序设置因子水平，从根源锁定x轴排列顺序
    variable = factor(variable,
                      levels = c("FCC_Faces", "FCNC_Faces",
                                 "FCC_Objects", "FCNC_Objects",
                                 "FCC_Scenes", "FCNC_Scenes",
                                 "FCC_Words", "FCNC_Words")),
    # 提取测试类型作为分组/着色依据
    test_type = str_extract(variable, "^FCC|^FCNC")
  )

# 绘图
ggplot(plot_df, aes(x = variable, y = value)) +
  geom_line(aes(group = test_type, color = test_type), linewidth = 1) +
  geom_point(aes(color = test_type), size = 2.5) +
  # 可按需自定义颜色、坐标轴标签
  scale_color_brewer(palette = "Set1", name = "测试类型") +
  labs(x = "测试条件", y = "均值") +
  theme_minimal()

兼容旧写法的修正方案 #

如果要保留拆分数据集绘图的逻辑，不需要在单个图层里设置因子水平，直接通过scale_x_discrete()全局指定x轴顺序即可：

ggplot() +
  geom_line(data = melt(CON_FCC_summary),
            aes(x = variable, y = value, group = 1, color = "FCC")) +
  geom_point(data = melt(CON_FCC_summary),
             aes(x = variable, y = value, group = 1, color = "FCC")) +
  geom_line(data = melt(CON_FCNC_summary),
            aes(x = variable, y = value, group = 1, color = "FCNC")) +
  geom_point(data = melt(CON_FCNC_summary),
             aes(x = variable, y = value, group = 1, color = "FCNC")) +
  # 核心：全局锁定x轴分类顺序
  scale_x_discrete(limits = c("FCC_Faces", "FCNC_Faces",
                              "FCC_Objects", "FCNC_Objects",
                              "FCC_Scenes", "FCNC_Scenes",
                              "FCC_Words", "FCNC_Words")) +
  labs(color = "测试类型", x = "测试条件", y = "均值")

关键说明 #

• ggplot分类轴的排序完全由对应列的因子水平顺序决定，只要提前把x轴映射列转为因子、按预期顺序设置levels，就不会出现自动乱序的问题。
• 单数据集写法不需要重复写图层映射，代码更易维护，是优先推荐的实现方式。

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