使用ggplot2更改密度图中图例的形状

Question

我想将密度图图例中显示的框更改为线，并且我明白我需要使用参考线。但是，以下代码不起作用：

set.seed(0)  
df <- data.frame(Income=c(rnorm(500,1000,200),rnorm(500,900,10)),Type=c(rep("A",500),rep("K",500))) 
p2p <- ggplot(df,aes(x=Income))+geom_density(aes(colour=Type))+ 
guides(colour = guide_legend(override.aes = list(linetype = 1, shape = 3))) 

Answer 1

你在找这样的吗？

ggplot(df,aes(x=Income))+ 
    geom_density(aes(colour=Type),show_guide=FALSE)+ 
    stat_density(aes(x=Income, colour=Type), 
       geom="line",position="identity")