如何在R中绘制X轴正确排序的组合geom_line图？

问题说明 #

使用ctrans和cvhec两个数据框绘制组合折线图时，X轴的月份被识别为因子/文本类型，导致排序按字符顺序（如1,10,11...2,20）排列，不符合数值排序的预期。

解决方案 #

步骤1：修正月份列的类型 #

优先将因子型的month列转换为数值型，这是最直接解决排序问题的方法：

# 转换ctrans的month列
ctrans$month <- as.numeric(as.character(ctrans$month))
# 转换cvhec的month列
cvhec$month <- as.numeric(as.character(cvhec$month))

如果需要保留month为因子类型，可重新指定因子水平的顺序：

# 为ctrans设置正确的因子水平顺序
ctrans$month <- factor(ctrans$month, levels = as.character(1:max(as.numeric(ctrans$month))))
# 为cvhec设置正确的因子水平顺序
cvhec$month <- factor(cvhec$month, levels = as.character(1:max(as.numeric(cvhec$month))))

步骤2：优化绘图代码 #

修正月份类型后，无需在aes中重复使用reorder，简化后的绘图代码如下：

library(ggplot2)

ggplot() +
  # 绘制ctrans的折线与误差棒
  geom_line(data = ctrans, aes(x = month, y = mean, group = 1), color = "blue") +
  geom_errorbar(data = ctrans, aes(x = month, ymin = mean - sd, ymax = mean + sd), colour = "green") +
  # 绘制cvhec的折线与误差棒
  geom_line(data = cvhec, aes(x = month, y = mean, group = 1), color = "red") +
  geom_errorbar(data = cvhec, aes(x = month, ymin = mean - sd, ymax = mean + sd), colour = "green") +
  xlab('Month') +
  ylab('Score')

原代码问题分析 #

原代码中reorder(month, sort(as.numeric(month)))的用法错误：reorder的第二个参数需要是与原向量长度一致的数值变量，而sort(as.numeric(month))返回的是排序后的向量，与原month的索引不匹配，因此无法正确排序。直接修正月份列的类型是更可靠的方案。

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