r - ggplot2:如何从 geom_密度图例中删除斜线

Question

我正在尝试在 ggplot2 中绘制一些重叠的密度图。我遇到了无法从图例中删除斜线的问题。我曾尝试使用 scale_fill_manual() 和 legend.key 以及来自 R Cookbook 的 hack，但我似乎无法正确使用。

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())

我能做些什么来解决这个问题？

Answer 1

尝试这个:

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

虽然这也删除了黑色轮廓......可以通过更改 theme 重新添加。到:

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

我完全忘记添加这个重要的注释:do 不是 通过 x=iris$Sepal.Length 指定美学使用 $运算符(operator)!这不是使用 aes() 的预期方式它会导致错误和意想不到的问题。