如何在ggplot2中绘制概率直方图

Question

我想用概率曲线绘制概率直方图叠加图并在两组之间进行比较。 我的代码如下，

ggplot(MDmedianall, aes(x= MD_median, y=..density.., fill =IDH.type )) +
 geom_histogram(alpha = 0.5,binwidth = 0.00010,  position = 'identity') +
 geom_density( stat="density", position="identity", alpha=0.3 ) + 
 scale_fill_discrete(breaks=c("0","1"), labels=c("IDH wild type","IDH mutant type")) + 
 scale_y_continuous(labels = scales :: percent) + 
 ylab("Relative cumulative frequency(%)") + 
 xlab("MD median value")

然而，y轴不是我想要的，有什么理由吗？ 顺便说一句，如何更改线条样式并在右侧的颜色方块内标记它们。