将图例添加到两个变量线图 - ggplot2 R.

Question

我有一个名为data的数据框，索引，均值和中位数作为变量。我用这段代码创建了图表。

ggplot(data, aes(x = index)) + 
  geom_line(aes(y = median), size = 1, colour="firebrick") + 
  geom_line(aes(y = mean), size = 1, colour = "dodgerblue4") + geom_point(size = 2, aes(y = median), colour = 'firebrick' ) +  
  geom_point(size = 2, aes(y = mean), colour = 'dodgerblue4' )

我想在此图表中为中位数和平均值添加图例。我只能找到单变量因子的图例。但是不能为两个变量做到这一点。

我正在尝试这个，

scale_colour_manual("", breaks = c("Median", "Mean"),values = c("firebrick", "dodgerblue4"))

但图中没有效果。有人可以帮我这么做吗？

由于