如何为ggplot2添加关联列标签与线条颜色的图例？

你的问题核心在于没有将颜色映射到ggplot的美学（aes）系统中，手动设置color参数不会触发图例生成，而你用的scale_shape_discrete是针对形状映射的，和颜色无关，所以无效。以下是两种可行的解决方案：

方法1：转换为长格式数据（推荐） #

ggplot最适合处理长格式数据，先把你的宽表转成tidy格式，再统一映射颜色：

1. 先加载并转换数据（需要tidyr包，没安装的话先运行install.packages("tidyr")）：

library(tidyr)

# 将多列y值转换为长格式
plotting_long <- plotting %>%
  pivot_longer(
    cols = c(Ceff, C2D, C3D, Clim, K),  # 指定要转换的列
    names_to = "Capacitance",           # 列名存到这个新列
    values_to = "Value"                 # 对应的值存到这个新列
  )

2. 用转换后的数据绘图：

ggplot(plotting_long, aes(x = lfreq, y = Value, color = Capacitance)) +
  geom_line() +
  # 自定义各系列的颜色，和你原来的设置对应
  scale_color_manual(
    name = "Capacitance",
    values = c(
      "Ceff" = "black",
      "C2D" = "green",
      "C3D" = "blue",
      "Clim" = "red",
      "K" = "purple"
    )
  ) +
  ylim(c(0.00001, 0.0005)) +
  xlim(c(-1, 5)) +
  xlab("log(W)") +
  ylab("C (F/cm2)")

方法2：不转换数据，直接在aes中映射颜色 #

如果你不想修改数据结构，可以给每个geom_line的color添加美学映射，再手动指定颜色：

ggplot(plotting, aes(x = lfreq)) +
  geom_line(aes(y = Ceff, color = "Ceff")) +
  geom_line(aes(y = C2D, color = "C2D")) +
  geom_line(aes(y = C3D, color = "C3D")) +
  geom_line(aes(y = Clim, color = "Clim")) +
  geom_line(aes(y = K, color = "K")) +
  scale_color_manual(
    name = "Capacitance",
    values = c(
      "Ceff" = "black",
      "C2D" = "green",
      "C3D" = "blue",
      "Clim" = "red",
      "K" = "purple"
    )
  ) +
  ylim(c(0.00001, 0.0005)) +
  xlim(c(-1, 5)) +
  xlab("log(W)") +
  ylab("C (F/cm2)")

关键原理说明 #

• 只有当color被放在aes()内部时，ggplot才会将其视为需要生成图例的变量；
• 手动在geom_line()外设置color="green"属于硬编码，不会关联到图例系统；
• scale_color_manual用来指定自定义颜色与变量值的对应关系，同时可以修改图例名称。

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