如何在ggplot中为垂直线添加图例？

Question

我正在尝试显示一个带有一些垂直线的折线图作为特定时间点的指示器，并用图例标记这些时间点。

根据 ggplot2 书第 6.4.4 节中的示例，我尝试了以下操作

huron<-data.frame(year=1875:1972,level=LakeHuron)

vertDf<-data.frame(years=c(1900,1925,1950),labels=c("A","B","C"))

pltWithLines<-ggplot(huron, aes (x=year,y=level)) +
                              geom_line() + 
                              geom_vline(aes(xintercept=years,color=labels),data=vertDf) + 
                              scale_color_manual("Sample Year",
                                      values=c("A"="blue","B"="red","C"="green"))

这会生成一个图表，其中垂直线的颜色正确，但根本没有图例。

这有什么问题？

Answer 1

你需要show_guide

ggplot(huron, aes (x=year,y=level)) +
  geom_line() + 
  geom_vline(aes(xintercept=years, color=labels),data=vertDf, show_guide=T) + 
  scale_color_manual("Sample Year",
                     values=c("A"="blue","B"="red","C"="green"))

如何在ggplot中为垂直线添加图例？

How to add legend for vertical lines in ggplot?

r

ggplot2

legend