Obteniendo la leyenda para colorear en un ggplot vacío

Question

Antes de presentar los datos reales, me gustaría hacer un diagrama idéntico al de los datos pero sin los puntos de datos allí. Esto me ayuda a explicar cómo interpretar una trama así sin distraer a la audiencia con los datos reales que estarán en la trama.

Así que en el código de abajo, básicamente, me gustaría cambiar el geom_point() con geom_blank(). No hay problema.

Sin embargo, esto también elimina la información de color y tamaño de las leyendas que crea el código de trazado. ¿Hay alguna forma de recuperar esto?

ggplot(vas, aes(x=time, y=pain, colour=light.color, size=light.intensity)) + 
    #geom_point(na.rm=FALSE) + 
    geom_blank() + 
    facet_wrap(~ppno) + 
    scale_colour_manual(values=cols) + 
    scale_y_continuous(name="VAS Pain (a.u.)") + 
    scale_x_continuous(name="Time (minutes)") 

Cuál es la forma adecuada para obtener las indicaciones de color de nuevo en la leyenda (s). Ahora solo muestran los valores de los diversos niveles de un determinado parámetro (color o tamaño) pero no el elemento gráfico real (un color o el tamaño de un punto) que va con un cierto nivel.

Answer 1

¿Podría trazar dos geom_points() - uno con el color de su fondo?

ggplot(cars, aes(x=speed, y=dist))+ 
geom_point(aes(col=speed))+ 
geom_point(colour="white")+ 
theme_bw() 

Answer 2

Cómo acerca de cómo ocultar los puntos reales fuera de la ventana de trazado? Algo a lo largo de estas líneas:

ggplot(cars, aes(x=speed+100, y=dist))+ #move x values to the right 
    geom_point(aes(col=speed))+ 
    scale_x_continuous(at=seq(5,125,by=5), limits=c(0,30)) #set plotting window 

Answer 3

Al final, tomando la sugerencia de Aniko lo largo (que inicialmente no podía llegar al trabajo, por lo descartado, por lo unrightly) me ocurrió con el siguiente código.

vas2 <- vas 
vas2$time <- vas2$time+181 
pp <- p %+% vas2 #p is the above plot assigned to a variable. 
pp + scale_x_continuous(name="Time (minutes)", limits=c(0,180)) 

Por lo tanto, fue acerca simplemente cambiando alrededor de sus datos en un eje y luego excluida la parte de

Answer 4

Una forma sencilla de hacer esto sería utilizar la opción de tamaño:

ggplot(vas, aes(x=time, y=pain, colour=light.color, size=light.intensity)) 
+ geom_point(size=0)