Cómo eliminar una estética de una leyenda de ggplot2
Estoy buscando una manera de ocultar una de las leyendas estéticas de la trama creada con el código a continuación. Para escalar el color del punto por fecha, tuve que convertir las fechas en números, y prefiero no mostrar la leyenda de la fecha en el diagrama. Por otro lado, la leyenda de la forma es información importante para mostrar. Entiendo quelegend.position="none"
eliminará por completo la leyenda, pero eso me deja con el problema de cómo comunicar el significado detrás de las formas.
library(ggplot2)
w<-read.table("data.txt", header=TRUE)
pt.data <- w[w$dt==min(w$dt),]
p <- ggplot(data=w, aes(OAD,RtgValInt,color=dt,shape=Port)) +
geom_jitter(size=3, alpha=0.75) +
scale_colour_gradient(limits=c(min(w$dt),
max(w$dt)),
low="#9999FF", high="#000066") +
geom_point(data=pt.data,
color="red", size=3, aes(shape=Port))
print(p)
Losdata.txt
file incluye las siguientes líneas.
Date Port OAD RtgValInt dt
12/31/2010 Grp1 1.463771 1.833333 14974
12/31/2010 Grp2 1.193307 2.071429 14974
11/30/2010 Grp1 1.454115 1.833333 14943
11/30/2010 Grp2 1.127755 2.071429 14943
10/29/2010 Grp1 1.434965 2.000000 14911
10/29/2010 Grp2 1.055758 2.071429 14911
09/30/2010 Grp1 1.441773 2.000000 14882
09/30/2010 Grp2 1.077799 2.071429 14882