R 为什么我使用geom_density的绘图不能到达x轴

我正在试图绘制关于国会中代表对协议的研究的概率密度.想一想:与跨党派对相比，同党对唱名投票的协议分布情况如何.为此，我为国会中的每一位议员创建了不同的配对，并跟踪了他们在所有点名时的投票.然后，我将其汇总，并确定每对协议的比例.您可以想象，同一党派对在点名投票上有很高的一致比例，而跨党派对则不是.因此，此字段可以假定的最大值为1，这意味着一个政党对所有唱名投票都达成了一致.最小值为0，反之亦然.我对每个可以想象到的配对都这样做，并绘制它们的概率密度图.

不幸的是，对于一些国会来说，我遇到了一个问题，即情节右侧的线不会到达x轴.

 h117$pdplot <- 
  ggplot(data = 
         h117$pairs_votes_proportions %>%
         filter(proportion_of_agreements < 1 & proportion_of_agreements > 0.00), 
       aes(
         x = proportion_of_agreements,
         fill = pair_type)) +
  geom_density(adjust = 2, 
               alpha = 0.4, 
               size = 0.7) +
  scale_fill_grey(start = 0.1, end = 0.8) +
  labs(title = paste("House of Representatives 117;",length(unique(h117$votes$rollnumber)),"roll calls"),
       x = "Proportion of Agreements",
       y = "Density") +
  theme_minimal() +
   theme(legend.position = "none",
        plot.title = element_text(hjust = 0.5, face = "bold")) +
  xlim(0, 1)

现在，我不明白的是，为什么这条线要超过x=1.它不是应该保持在x的范围内吗？其次，我如何在ggploy或其他替代方案中解决这个问题？

try :调整Alpha、修剪、过滤掉或保留数据的边缘、切换到STAT_Density