R语言ggplot2绘制折线图group aesthetic报错与图例修改问题

报错修复 #

触发geom_path: Each group consists of only one observation. Do you need to adjust the group aesthetic?报错的核心原因：

• 代码未加载dplyr包，%>%管道符无法正常运行
• 数据中date列是字符串类型，ggplot默认将其识别为离散分类变量，无法自动识别同组的连续点位完成连线。

两种修复方案可选：

• 推荐方案：将date列转换为标准日期格式，让x轴成为符合业务逻辑的连续时间轴，ggplot可自动识别分组完成连线。
• 快速方案：在美学映射中明确指定group=measure，告诉ggplot按measure列拆分连线分组，无需修改数据类型。

图例修改 #

要将图例中的HI替换显示为Hires，直接在颜色标度层自定义标签映射即可，无需改动原始数据。

完整可运行代码（推荐方案） #

library(ggplot2)
library(dplyr)

measure <- c("HI","HI","HI","HI","HI","JO","JO","JO","JO","JO")
date <- c("2002-01","2002-02","2002-03","2002-04","2002-05","2002-01","2002-02","2002-03","2002-04","2002-05")
value <- c(100,105,95,145,110,25,35,82,75,90)

df <- data.frame(measure,date,value)

graph <- df %>% 
  mutate(date = as.Date(paste0(date, "-01"))) %>% # 转换为标准日期格式
  ggplot(aes(x = date, y = value, color = measure)) + 
  geom_line(linewidth = 1) +
  # 自定义图例标签
  scale_color_discrete(labels = c("HI" = "Hires", "JO" = "JO")) +
  theme(legend.position = "bottom", legend.title = element_blank())

print(graph)

快速修复版代码（不修改日期类型） #

library(ggplot2)
library(dplyr)

measure <- c("HI","HI","HI","HI","HI","JO","JO","JO","JO","JO")
date <- c("2002-01","2002-02","2002-03","2002-04","2002-05","2002-01","2002-02","2002-03","2002-04","2002-05")
value <- c(100,105,95,145,110,25,35,82,75,90)

df <- data.frame(measure,date,value)

graph <- df %>% 
  # 明确指定group分组
  ggplot(aes(x = date, y = value, color = measure, group = measure)) + 
  geom_line(linewidth = 1) +
  scale_color_discrete(labels = c("HI" = "Hires", "JO" = "JO")) +
  theme(legend.position = "bottom", legend.title = element_blank())

print(graph)

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