ggplot添加图例求助：scale_colour_manual无法生效

你的问题核心是没有把颜色映射到ggplot的美学属性（aes）里——直接用col参数设置颜色时，ggplot不会把这些颜色和数据分组关联，自然不会生成图例。下面是具体的解决步骤：

步骤1：把数据转换成长格式（tidy data） #

ggplot推荐用长格式数据绘图，先把你的宽格式数据转成三列：年份、区域、SST值。用tidyr::pivot_longer可以轻松实现：

library(tidyr)
# 转换数据格式
climate_df_long <- pivot_longer(climate_df_year, 
                                cols = -year,  # 保留year列，转换其他所有列
                                names_to = "region",  # 新增列：存储区域名称
                                values_to = "sst")  # 新增列：存储对应SST值
# 可选：去掉region名称里的_sst后缀，让图例显示更简洁
climate_df_long$region <- sub("_sst", "", climate_df_long$region)

转换后的数据示例：

year region   sst
1998 overall  20.3
1998 eastern  21.3
1998 western  19.0
1999 overall  20.6
1999 eastern  21.6
1999 western  19.2
2000 overall  20.4
2000 eastern  21.3
2000 western  19.1

步骤2：修正绘图代码 #

现在用长格式数据绘图，把colour和linetype映射到region字段，再用scale_*_manual指定你想要的颜色和线型：

library(ggplot2)
ggplot(climate_df_long, aes(x = year, y = sst, colour = region, linetype = region)) +
  geom_line(size = 0.6) +
  # 指定颜色：对应三个区域的颜色设置
  scale_colour_manual("",  # 图例标题为空
                      values = c(eastern = "red", overall = "black", western = "blue")) +
  # 指定线型：overall用实线，eastern和western用虚线
  scale_linetype_manual("",
                        values = c(eastern = 2, overall = 1, western = 2)) +
  labs(x = "Year", y = "SST (°C)") +
  theme(plot.title = element_text(hjust = 0.5, size = 12, face = 'bold'))

关键修改说明 #

• 把colour和linetype放在aes()里，让ggplot识别数据分组，自动生成对应图例
• 用长格式数据后，只需要调用一次geom_line，不用重复添加多条线
• scale_colour_manual用命名向量设置颜色，确保颜色和区域分组一一对应，避免顺序出错

这样修改后，就能显示你需要的图例：红色代表eastern、蓝色代表western、黑色代表overall，同时线型也符合你的需求。

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