如何使用ggplot2为同时含点和线的绘图添加图例？

ggplot2的图例触发规则非常明确：只有写在aes()内部、和数据列绑定的视觉属性映射，才会生成对应图例。当前代码把颜色写在aes()外部作为固定参数，相当于给每个几何图层硬编码了渲染颜色，ggplot无法识别这些颜色对应的分类标签，自然不会生成图例。
如果直接把color参数挪进aes()内部，大概率会出现渲染异常：

• 若写为aes(color="red")，ggplot会把"red"识别为一个常量分类值，所有元素会套用默认的映射配色，和你指定的红/蓝/绿/黑完全脱节
• 若写为aes(color=某数值列)，由于原数据是宽格式，每列存储独立的指标数值，会被识别为连续型颜色映射，根本生成不了目标分类图例

核心思路是将宽格式数据整理为长格式，把分散在四列的指标合并为统一的分类标签列，之后一次性调用几何图层、绑定映射关系，自动生成匹配点线样式的图例：

• 数据格式转换：将原有宽表的四个指标列合并为两列，一列存储分类名称（对应meantedneg、meantedpos、meanted、meantotal四个系列），一列存储对应的y轴数值，同时提前计算好反向的x轴坐标，避免重复写代码
• 映射绑定：在geom_point()和geom_line()的aes()内，将color属性映射到分类列，两个几何图层会自动共享同一套映射规则，生成点线颜色统一的合并图例
• 配色校准：手动绑定每个分类对应的颜色，和最初设定的红/蓝/绿/黑样式保持一致

# 加载依赖包（首次使用需先执行install.packages(c("ggplot2", "tidyr"))）
library(ggplot2)
library(tidyr)

# 原有模拟数据
meanted=rnorm(13)
meantotal=rnorm(13)
meantedneg=rnorm(13)
meantedpos=rnorm(13)
totaldf=data.frame(x=c(0:12),meanted,meantotal,meantedneg,meantedpos)

# 宽表转长表，提前处理反向x坐标
longdf <- totaldf |> 
  pivot_longer(
    cols = c(meantedneg, meantedpos, meanted, meantotal),
    names_to = "series",
    values_to = "y_value"
  ) |> 
  mutate(x = -x)

# 绘图
pic <- ggplot(longdf, aes(x = x, y = y_value, color = series)) +
  geom_point() +
  geom_line() +
  # 手动匹配原配色
  scale_color_manual(
    values = c(
      "meantedneg" = "red",
      "meantedpos" = "blue",
      "meanted" = "green",
      "meantotal" = "black"
    )
  )

print(pic)

如果不想转换数据格式，也可以在每个geom层的aes内显式指定对应系列名来触发图例，但代码冗余度极高，很容易出现点线颜色不匹配的问题，参考写法如下：

# 仅作逻辑参考，维护成本极高
pic=ggplot()+
  geom_point(data=totaldf,aes(x=-x,y=meantedneg, color="meantedneg"))+
  geom_point(data=totaldf,aes(x=-x,y=meantedpos, color="meantedpos"))+
  geom_point(data=totaldf,aes(x=-x,y=meanted, color="meanted"))+
  geom_point(data=totaldf,aes(x=-x,y=meantotal, color="meantotal"))+
  geom_line(data=totaldf,aes(x=-x,y=meantedneg, color="meantedneg"))+
  geom_line(data=totaldf,aes(x=-x,y=meantedpos, color="meantedpos"))+
  geom_line(data=totaldf,aes(x=-x,y=meanted, color="meanted"))+
  geom_line(data=totaldf,aes(x=-x,y=meantotal, color="meantotal"))+
  scale_color_manual(values = c("meantedneg"="red", "meantedpos"="blue", "meanted"="green", "meantotal"="black"))

这种写法虽然能生成图例，但每新增一个系列就要重复写两行geom配置，调整配色时需要逐处核对，远不如长表方案高效易维护。

注意：只要aes内的color映射绑定到同一个分类变量，无论叠加多少层geom_point/geom_line，图例都会自动合并，不需要手动调整图层顺序或拆分图例配置。

内容的提问来源于stack exchange，提问作者Osvaldo Assunção