密度线使用ggplot2削减负值

Question

我正在使用ggplot2绘制加权密度函数。我获得了不同年份（2008年至2017年）的数据，并绘制了每年的密度函数。但是在2年内，负值被削减了：

具有负切负值的（图像）浓度函数

ggplot(subset(ECV_CAT0817,HB010==2017)) + 
  geom_density(aes(rendaOCDE, weight=DB090/sum(DB090))) + 
  coord_cartesian(xlim=c(-5000,50000))

其余年份的负值正确显示，例如：

（图像）浓度函数正确为负值

如何使用ggplot2避免切入负值？

如果我使用图和密度函数，则值会正确显示，但我想使用ggplot2。

（图像）使用绘图功能

plot(
  density(
    subset(ECV_CAT0817, HB010==2017)$rendaOCDE, 
    weights=subset(ECV_CAT0817, HB010==2017)$DB090/sum(subset(ECV_CAT0817, HB010==2017)$DB090)),
  xlim=c(-5000,50000))

非常感谢您。