Estou tentando mostrar um gráfico de linhas com algumas linhas verticais como indicadores de pontos de tempo específicos e ter uma legenda rotulando esses pontos de tempo.

Com base no exemplo da seção 6.4.4 do livro ggplot2, tentei o seguinte

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

Isso produz um gráfico com as linhas verticais com a cor correta, mas nenhuma legenda.

O que está errado com isto?