r - 如何手动向ggplot添加图例？ -R

Question

这个问题已经有答案了:

Missing legend with ggplot2 and geom_line (1 个回答)

已关闭 9 年前。

我有以下情节:

我用来生成此图的代码是:

ggplot(df, aes(x = instance, y = total_hits))+
geom_point(size = 1)+
geom_line()+
geom_line(aes(x=df$instance, y = line1), colour="red")+
geom_vline(xintercept=805) +
geom_line(aes(x=df$instance, y = line2), colour="blue")+
geom_line(aes(x=df$instance, y = line3), colour="purple") 

我想向该图添加图例，以标记每一行。但是，由于我手动添加了每一行，因此我不确定如何添加图例。有什么提示/建议吗？

• 我无法共享我正在使用的数据，因此我只是在寻找一种手动添加图例的通用方法。

Answer 1

ggplot真的只喜欢为具有美学映射的事物绘制图例。如果您为颜色设置“代码名称”，则可以在该属性的手动比例中定义它们。例如

ggplot(df, aes(x = instance, y = total_hits)) +
  geom_point(size = 1) + 
  geom_line()+
  geom_line(aes(x=instance, y = line1, colour="myline1")) +
  geom_vline(xintercept=805) + 
  geom_line(aes(x=instance, y = line2, colour="myline2"))+
  geom_line(aes(x=instance, y = line3, colour="myline3")) +
  scale_colour_manual(name="Line Color",
      values=c(myline1="red", myline2="blue", myline3="purple"))

应该可以工作(未经测试，因为您根本没有提供任何数据)。每当您提出问题时，出于礼貌，请添加 reproducible example因此回答者不必自己完成所有测试工作。