Как добавить легенду для вертикальных линий в ggplot?

Question

Я пытаюсь показать линейный график с некоторыми вертикальными линиями в качестве индикаторов конкретных временных точек и иметь легенду, обозначающую эти временные точки.

На примере в разделе 6.4.4 книги ggplot2, я попытался следующий

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"))