ch versuche, ein Liniendiagramm mit einigen vertikalen Linien als Indikatoren für bestimmte Zeitpunkte anzuzeigen, und habe eine Legende, die diese Zeitpunkte beschrifte

Basierend auf dem Beispiel in Abschnitt 6.4.4 des Buches ggplot2 habe ich Folgendes versucht

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

Dies erzeugt ein Diagramm, bei dem die vertikalen Linien die richtige Farbe, aber überhaupt keine Legende haben.

Was ist daran falsch?