将图例添加到r中的geom_line()图形

时间:2016-11-27 20:57:08

标签: r ggplot2 data-visualization

我一直在努力为我的ggplot添加传奇,但失败了。我尝试了函数scale_colour_manual(),但图例没有出现。

ggplot()+
geom_line(data=Summary,aes(y=Y1,x= X),colour="darkblue",size=1 )+
geom_line(data=Summary,aes(y=Y2,x= X),colour="red",size=1  )

我的数据框“摘要”如下:

  X           Y1           Y2
139 1.465477e+16 7.173075e+15
277 1.044803e+16 9.275002e+15
415 1.059258e+16 8.562518e+15
553 1.033283e+16 8.268984e+15
691 9.548019e+15 1.022248e+16
830 1.008212e+16 8.641891e+15
968 9.822061e+15 9.315856e+15
1106 9.948143e+15 9.178694e+15
1244 1.013922e+16 8.825904e+15
1382 9.815094e+15 9.283662e+15

请告诉我如何在同一图表上对X绘制Y1,Y2,并在侧面添加图例。

3 个答案:

答案 0 :(得分:21)

ggplot需要aes来制作图例,在colour内移动aes(...)会自动构建图例。然后我们可以通过scale_color_discrete调整图例标签:

ggplot()+
    geom_line(data=Summary,aes(y=Y1,x= X,colour="darkblue"),size=1 )+
    geom_line(data=Summary,aes(y=Y2,x= X,colour="red"),size=1) +
    scale_color_discrete(name = "Y series", labels = c("Y2", "Y1"))

enter image description here

答案 1 :(得分:9)

如前所述,必须在美学内部指定颜色才能有传奇。然而,审美中的颜色实际上只是一个标签,然后传递到其他层。可以使用scale_color_manual设置自定义颜色,并可以使用labs修复图例标签。

ggplot(data=Summary)+
  geom_line(mapping=aes(y=Y1,x= X,color="Y1"),size=1 ) +
  geom_line(mapping=aes(y=Y2,x= X,color="Y2"),size=1) +
  scale_color_manual(values = c(
    'Y1' = 'darkblue',
    'Y2' = 'red')) +
  labs(color = 'Y series')

答案 2 :(得分:4)

提供更紧凑的答案,只使用一次geom电话:

ggplot2非常喜欢长数据(键值对)比宽(多列)更好。这需要您在使用tidyrreshape2这样的包绘制数据之前对其进行转换。通过这种方式,您可以在aes调用中设置一个表示颜色的变量,这将生成图例。

对于您的数据:

library(tidyr)
library(ggplot2)

plot_data <- gather(data, variable, value, -x)

ggplot(plot_data, aes(x = x, y = value, color = variable)) +
  geom_line() +
  scale_color_manual(values = c("firebrick", "dodgerblue")) 

然后,您可以通过scale_color系列帮助程序自定义图例。