¿Cómo agregar leyenda para líneas verticales en ggplot?
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?