Estoy tratando de mostrar un gráfico lineal con algunas líneas verticales como indicadores de puntos de tiempo particulares y tengo una leyenda que etiqueta esos puntos de tiempo.

Basado en el ejemplo en la sección 6.4.4 del libro ggplot2, he intentado lo siguiente

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

Esto produce un gráfico con las líneas verticales que tienen el color correcto, pero sin ninguna leyenda.

¿Qué hay de malo en esto?