使用ggplot添加图例失败，scale_color_manual不生效求助

我来帮你搞定这个图例不显示的问题！核心原因其实很简单：你现在是直接给线条设置固定颜色（比如sapply(1/16, hsv, 0.7, 0.7)），而没有把颜色**映射到ggplot的美学属性（aes）**里——只有当颜色是通过aes()关联到某个变量时，ggplot才会自动生成图例。

我分步骤给你修正代码，顺便帮你把数据和绘图逻辑理得更清晰：

第一步：先把数据处理正确 #

你提供的原始数据需要先整理成符合预期的结构，我先帮你把这部分代码补全：

# 读取原始数据并设置列名
myTable1 <- " 5 3 8 5 3 7 4.9 2 6 4.9 3 5 4.9 1 4 2.0 2 5"
Data <- read.table(text=myTable1, header = FALSE)
colnames(Data) <- c("Group","a1","a2")
my_dataframe <- Data

第二步：修正绘图代码（推荐方案：转成长格式数据） #

ggplot最适合处理长格式数据，我们先把宽格式的a1、a2转成一个分组变量，这样只需要一个图层就能处理所有线条，还能自动生成图例：

library(ggplot2)
library(tidyr)

# 把宽格式数据转成长格式
my_dataframe_long <- pivot_longer(
  my_dataframe, 
  cols = c(a1, a2),  # 要转换的列
  names_to = "Trial",  # 分组变量名
  values_to = "Value"  # 数值变量名
)

# 生成你想要的渐变颜色（对应a1和a2）
line_colors <- sapply(c(1/16, 2/16), hsv, 0.7, 0.7)
names(line_colors) <- c("a1", "a2")

# 绘图
ggplot(data = my_dataframe_long, aes(x = Group, y = Value)) +
  stat_summary(
    fun.y = mean, 
    geom = "line",
    aes(color = Trial, group = Trial)  # 把颜色和分组都映射到Trial变量
  ) +
  xlab("X-Axis") +
  ylab("Y-Axis") +
  scale_color_manual(
    name = 'Trials', 
    values = line_colors,  # 用你生成的渐变颜色
    labels = c('1','2')
  )

备选方案：不转格式，直接映射颜色 #

如果你不想转换数据格式，也可以在每个stat_summary的aes()里给颜色设置一个标识字符串，让ggplot把它当成变量来映射：

library(ggplot2)

# 生成对应颜色
color1 <- sapply(1/16, hsv, 0.7, 0.7)
color2 <- sapply(2/16, hsv, 0.7, 0.7)

ggplot(data=my_dataframe, aes(x=Group)) +
  stat_summary(
    fun.y = mean, 
    geom = "line", 
    aes(y=a1, color="1")  # 这里把color设为字符串"1"，作为映射标识
  ) +
  stat_summary(
    fun.y = mean, 
    geom = "line", 
    aes(y=a2, color="2")  # 同理设置为"2"
  ) +
  xlab("X-Axis") +
  ylab("Y-Axis") +
  scale_color_manual(
    name = 'Trials', 
    values = c("1" = color1, "2" = color2),  # 对应标识设置颜色
    labels = c('1','2')
  )

关键注意点 #

1. 不要在aes()里用my_dataframe$Group这种写法，直接写列名就行——ggplot会自动从你指定的data参数里读取数据，这种写法更规范，也能避免潜在错误。
2. 你之前用的show_guide=TRUE已经被弃用了，现在对应的参数是show.legend=TRUE，不过当你把颜色映射到变量后，图例默认就会显示，不需要手动设置。

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