如何在ggplot2分面折线图中设置数据因子排序？

核心问题分析 #

你的代码存在两个关键问题：

• C列转成因子后默认按字符顺序排序（即1,10,5,6），不符合数值逻辑的1,5,6,10；
• 折线图未指定group=B，导致ggplot无法识别同一B组内的点需要连接。

修正后的完整代码 #

data <- data.frame(
  A = c(0.05,0.10,0.05,0.10,0.05,0.10,0.05,0.10,0.05,0.10,0.05,0.10,0.05,0.10,0.05,0.10),
  B = c(1,1,3,3,1,1,3,3,1,1,3,3,1,1,3,3),
  C = c(1,1,1,1,5,5,5,5,6,6,6,6,10,10,10,10),
  D = c(1.3221625,1.3006163,1.3091457,1.2738161,1.2470091,
        1.1765646,1.1838100,1.0545490,1.2307647,1.1513869,
        1.1569168,1.0097403,1.1758619,1.068641,1.0578440,
        0.8668918)
)

# 1. 将C转换为按数值排序的有序因子
data$C <- factor(data$C, levels = c(1,5,6,10), ordered = TRUE)

# 2. 绘制分面折线图，指定group=B确保折线按B分组连接
library(ggplot2)
ggplot(data, aes(x = C, y = D, colour = factor(B), group = factor(B))) +
  geom_point(shape = 1, size = 2) +  # 放大点更清晰
  geom_line(linewidth = 0.8) +
  facet_wrap(~A, ncol = 2, nrow = 2) +
  # 优化美观性：添加标签、调整图例、主题
  labs(
    x = "C值",
    y = "D值",
    colour = "B分组",
    title = "按A分面的B组折线对比图"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 14, face = "bold"),
    axis.title = element_text(size = 12),
    legend.title = element_text(size = 11),
    strip.text = element_text(size = 11, face = "bold")
  )

关键调整说明 #

• 因子排序：通过factor(data$C, levels = c(1,5,6,10), ordered = TRUE)手动指定C的因子水平顺序，确保x轴按数值逻辑排列；
• 折线分组：在aes中添加group = factor(B)，让ggplot明确同一B组内的点需要用折线连接；
• 美观优化：使用theme_minimal()简化主题，添加清晰的标题、坐标轴标签，调整文字大小和样式，提升图表可读性。

内容的提问来源于stack exchange，提问作者吳海濱