2012-07-10 12 views
5

Ejemplo Código:elemento Extracción 'punto' de la leyenda ggplot2

EmigProb<-c(rep(seq(0.1,0.8,length=5),4),rep(seq(0.1,0.8,length=5),4)) 
RemainEmigProb<-c(rep(0.2,5),rep(0.4,5),rep(0.6,5),rep(0.8,5),rep(0.2,5),rep(0.4,5),rep(0.6,5),rep(0.8,5)) 
Value<-rnorm(40,5,3) 
Parameter<-c(rep("Survival",20),rep("Resight",20)) 
fakedata<-data.frame(EmigProb=EmigProb,RemainEmigProb=RemainEmigProb,Value=Value,Parameter=Parameter) 


q <-ggplot(fakedata,aes(EmigProb,Value,shape=factor(RemainEmigProb),colour=factor(Parameter),linetype=factor(RemainEmigProb)))+scale_colour_discrete("Parameter")+scale_linetype_discrete("Remain Emigrant Probability")+scale_shape_manual("Remain Emigrant Probability",values=c(0,5,6,15)) 
q <- q + layer(geom="point") 
q <- q + layer(geom="line") 
q 

Example Graph

En este ejemplo, hay alguna forma de quitar los 'puntos' de la leyenda 'Parámetro' de 'Vuelva a observar' y 'supervivencia'?

Respuesta

13

Agregar a su comando de trazado:

guides(colour = guide_legend(override.aes = list(shape = NA))) 

detalles sobre la personalización de leyendas junto con un montón más maravillosas ggplot2 0,9 sabiduría se puede encontrar aquí: http://cloud.github.com/downloads/hadley/ggplot2/guide-col.pdf

+0

Gracias! Esa fue una buena motivación para actualizar mi versión de ggplot, ¡y gracias por el enlace a los nuevos cambios! – user1399311

Cuestiones relacionadas