Como adicionar legenda para linhas verticais no ggplot?
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?