如何避免ggplot2中不同分组的数据点被错误连接？

问题出在geom_line的group=1参数上——它强制把所有年份的数据点归为同一组，导致不同年份的点被错误连接。要让每个年份的点单独连线，只需把group改成按年份分组即可。

基础修正代码 #

直接修改geom_line的group参数为as.factor(AN)：

library(ggplot2)
library(dplyr)
library(readxl)
library(ggpmisc)
library("RColorBrewer")

ggplot(df, aes(MOIJOUR,VPD)) + 
  geom_point(aes(shape=as.factor(AN),color=as.factor(AN)))+ 
  # 把group改为按年份分组，取消group=1
  geom_line(aes(color=as.factor(AN), group=as.factor(AN))) + 
  scale_color_manual(values = c("#E41A1C","#377EB8"))+
  theme(axis.text.x = element_text(vjust=0.5, angle=75, colour = "black"))

优化版本（更规范） #

提前将年份转为因子，同时把日期字符串转为真正的日期类型，避免x轴按字符串排序的逻辑问题：

library(ggplot2)
library(dplyr)
library(readxl)
library(ggpmisc)
library("RColorBrewer")

# 数据预处理：转年份为因子，转日期为标准日期格式
df_clean <- df %>%
  mutate(
    AN = as.factor(AN),
    # 拼接年份与日期，转为可识别的日期类型
    date = as.Date(paste(AN, MOIJOUR, sep = "-"), format = "%Y-%m/%d")
  )

ggplot(df_clean, aes(date, VPD)) + 
  geom_point(aes(shape=AN, color=AN))+ 
  # 因color已按AN分组，ggplot会自动按年份单独连线，可省略group参数
  geom_line(aes(color=AN)) + 
  scale_color_manual(values = c("#E41A1C","#377EB8"))+
  # 自定义x轴日期显示格式
  scale_x_date(date_labels = "%m/%d") +
  theme(axis.text.x = element_text(vjust=0.5, angle=75, colour = "black"))

这个优化版本不仅解决了连线错误，还让x轴按真实日期顺序排列，图表逻辑更严谨。

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