R ggplot2 geom_line按年月分组绘折线图效果异常求解

问题根因 #

• 测试用的示例数据中，每个year与month的组合仅对应1条观测值，此时仅在aes中映射color = as.character(month)，ggplot会自动按颜色变量完成分组，每个月的折线可以正常绘制。
• 自有数据（含补充的可复现样本）属于更高时间分辨率的数据（如日尺度、旬尺度气象数据），单个year对应同一个month存在多条观测记录。此时如果不显式指定分组规则，geom_line会按数据行的顺序依次连接同色的点，最终出现锯齿状乱连的异常输出。

修复代码 #

方法1：显式指定分组参数 #

直接在美学映射中增加group参数，明确告知ggplot按month字段拆分连线分组即可，不需要提前聚合数据：

library(tidyverse)

# 读取本地数据
df <- read.csv("你的数据文件路径.csv")

df %>% 
  ggplot(aes(
    x = year, 
    y = tmean, 
    color = as.factor(month), # 用因子型可保证图例月份按数字顺序排序
    group = month # 核心：显式指定分组变量
  )) +
  geom_line() +
  labs(
    title = "分月时间序列图",
    color = "月份",
    y = "平均气温"
  )

方法2：先聚合再绘图（更推荐用于年际趋势展示） #

如果你的目标是展示各月气温的年际变化趋势，建议先按年、月维度聚合计算月均值，再绘制折线，输出效果更整洁规范：

df %>%
  # 按年、月分组计算月平均气温，自动忽略缺失值
  group_by(year, month) %>%
  summarise(monthly_tmean = mean(tmean, na.rm = TRUE), .groups = "drop") %>%
  ggplot(aes(x = year, y = monthly_tmean, color = as.factor(month))) +
  geom_line() +
  labs(
    title = "分月年际平均气温变化趋势",
    color = "月份",
    y = "月平均气温"
  )

验证说明 #

使用补充的可复现样本测试，上述代码运行后可正确生成每个月份对应一条独立折线的效果，和其他软件输出的目标结果完全一致。

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