ggplot如何叠加密度图？

Question

我正在尝试将密度图与ggplot2叠加。这个问题已经Here和Here

解决了

但是，即使我使用几乎相同的代码，我也会得到堆积的密度图，而我希望它们彼此叠加。

这是我的代码：

ggplot(results_groupes.df) + 
  geom_density(aes(x = score_confiance, group = pro_vd, colour = pro_vd)) +
  coord_cartesian(xlim = c(0,1))

这就是我得到的：

任何想法可能是我的问题吗？也许在ggplot2的设置中？

编辑：

这是数据框的开头：

structure(list(score_confiance = c(0.0348328535272003, 0.0443069899046832, 
0.0902377811277357, 0.0799802812655336, 0.189541356769244, 0.0443069899046832, 
0.0348328535272003, 0.105242468438049, 0.0860492857517866, 0.0543928293220421, 
0.105845820536651, 0.0909859139609319, 0, 0.122066723148796, 
0.195092913054128, 0.088737794288937, 0.0611340636419152, 0.128808048932376, 
0.0982946374365981, 0.114993650891164, 0.0404376239050328, 0.0482497909637164, 
0.0348328535272003, 0.0239697213961542, 0.045073427806824, 0.122463095753082, 
0.112239171616912, 0.0348328535272003, 0.105242468438049, 0.0443069899046832
), pro_vd = c(TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
FALSE, FALSE, FALSE, FALSE, FALSE)), .Names = c("score_confiance", 
"pro_vd"), row.names = c(NA, -30L), class = c("tbl_df", "tbl", 
"data.frame"))

编辑2：

实际上，其中一种密度的尾巴非常长且平坦。因此，给人的印象是密度是平坦的，但不是。