密度プロットの凡例の形状を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")