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

Основываясь на примере в разделе 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"))

Это дает график с вертикальными линиями правильного цвета, но без легенды.

Что не так с этим?