¿Cómo establecer múltiples leyendas para la misma estética en ggplot2?

Estoy trazando datos de múltiples marcos de datos en ggplot2 de la siguiente manera:

# subset of iris data
vdf = iris[which(iris$Species == "virginica"),]
# plot from iris and from vdf
ggplot(iris) + 
   geom_line(aes(x=Sepal.Width, y=Sepal.Length, colour=Species)) + 
   geom_line(aes(x=Sepal.Width, y=Sepal.Length), colour="gray", size=2,
             data=vdf)

la leyenda paracolour incluye solo entradas deiris, y no devdf. ¿Cómo puedo hacer ggplot2 agg una leyenda dedata=vdf, que en este caso sería una línea gris debajo de la leyenda parairis? Gracias.

Respuestas a la pregunta(1)

Su respuesta a la pregunta