在ggplot2中分隔两个密度曲线的stat_density

Question

我正在尝试生成一个ggplot，它显示数据的直方图以及两个密度曲线，其中一个没有调整值而另一个没有调整值。 我尝试了以下代码：

ggplot(df, aes_string(x=value))+ 
        geom_histogram(aes(y=..density..), colour="grey", fill="grey", alpha=.3)+
        geom_density(colour="red", fill="red", alpha=.3)+
        stat_density(bw="SJ", alpha=0)+
        geom_density(colour="blue", fill="blue", alpha=.3)+
        stat_density(bw="SJ", adjust=5, alpha=0)+
        theme_bw()

但是这会产生这个图，两条曲线重叠100％......

使用的.txt数据框是on my google drive 提前谢谢！

Answer 1

向adjust添加特定的geom_density参数是否不符合您的要求？

ggplot(df, aes(x=value))+ 
        geom_histogram(aes(y=..density..), colour="grey", fill="grey", alpha=.3)+
        geom_density(colour="red", fill="red", alpha=.3, adjust = 1)+
        geom_density(colour="blue", fill="blue", alpha=.3, adjust = 2)+
        theme_bw()