Отдельное 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()