remove manually guides ggplot custom r ggplot2 legend

manually - legend.position r



ggplot2: cómo eliminar la barra inclinada de la leyenda geom_density (1)

Intento trazar algunos diagramas de densidad superpuestos en ggplot2. Me encuentro con un problema donde no puedo eliminar la diagonal de la leyenda. He intentado usar scale_fill_manual () y legend.key, así como el hack de R Cookbook, pero parece que no puedo hacerlo bien.

data(iris) iris=iris cols=brewer.pal(3,"Set1") ggplot(iris) + geom_density(position="identity",aes(x=iris$Sepal.Length,fill=cols[1]), colour="black",alpha=.5) + geom_density(position="identity",aes(x=iris$Sepal.Width,fill=cols[2]), colour="black",alpha=.5)+ theme_bw() + scale_fill_identity(guide="legend",labels=c("Sepal Width","Sepal Length"))+ xlab("X axis") + theme(panel.background=element_blank(), legend.title=element_blank(), legend.key = element_rect(), legend.background = element_blank(), legend.justification=c(1,0), legend.position=c(.75,.5), panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.border = element_blank(), panel.background = element_blank())

¿Qué puedo hacer para resolver esto?


Prueba esto:

+ guides(fill = guide_legend(override.aes = list(colour = NULL)))

aunque eso elimina el contorno negro también ... que se puede agregar nuevamente cambiando el theme a:

legend.key = element_rect(colour = "black")

Me olvidé completamente de agregar esta importante nota: no especifique la estética a través de x=iris$Sepal.Length usando el operador $ ! Esa no es la forma prevista de utilizar aes() y generará errores y problemas inesperados en el futuro.