ggplot手动修改图例标签失效求助（使用group而非fill）

你的问题核心是图例对应的美学映射不匹配：

• 你在geom_line和geom_point里用了aes(color=ID)，说明图例是由color美学控制的
• 但你调用的是scale_fill_discrete，这个函数仅负责修改fill美学的图例，自然不会生效，和group参数无关

修正后的代码 #

library(tibble)
library(ggplot2)

df <- tibble(
  any = c(1991,1991,1991,1992,1992,1992,1993,1993,1993),
  per = c(13,25,40,34,5,65,12,56,20),
  ID = c(1,2,3, 1,2,3,1,2,3)
)

labels <- c("Yellow", "Red", "Green")

ggplot(df, aes(x= any, y= per, group=ID)) + 
  geom_line(aes(color=ID)) +
  geom_point(aes(color=ID))+
  labs(title = "ID Colours",
       caption = "Font: Patilla",
       y = "Percentage", x= "Any") +
  # 替换为匹配color美学的scale_color_discrete
  scale_color_discrete(name= "Legend", labels=labels)

额外优化（可选） #

如果希望ID作为分类变量更规范，可先将其转换为因子，保证图例顺序稳定：

df$ID <- factor(df$ID)

ggplot(df, aes(x= any, y= per, group=ID)) + 
  geom_line(aes(color=ID)) +
  geom_point(aes(color=ID))+
  labs(title = "ID Colours",
       caption = "Font: Patilla",
       y = "Percentage", x= "Any") +
  scale_color_discrete(name= "Legend", labels=labels)

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