Отдельная stat_density для двух кривых плотности в ggplot2

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 - на моем диске Google Заранее спасибо!

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