R ggplot核密度图线重叠不当

我的密度图中的颜色是错误的！我不明白为什么

以下是我的数据：

当我检查原始数据时，我看到x=0处的红色峰值是正确的，但最大x值对应于红色非蓝色线的a y值

黑色=真的最大x值为162414.6，黑色=假的最大x值为253021.3，因此尾巴应该是红色而不是蓝色

b <- unclass(density(data$amountremain[data$black==FALSE]))
max(b$y)
max(b$x)
[1] 0.0003079798
[1] 253021.3

---

b如果你观察y轴上的不同刻度，你可以看到
TRUE
的最后一个非零值大约是160000，而
FALSE
的最后一个非零值大约是250000

因此，表示是正确的，但很难看到尾部

要查看：

数据%>%
ggplot（aes（x=amountremain，颜色=黑色））+
几何密度（）
ylim（0,10^-5）


编辑


@Flick先生解释了为什么这条线没有断。
如果您的目标是中断最后一个值的
TRUE
分布，一种可能的解决方案是创建两个不同密度的数据帧：

to_dens如果你看y轴上的不同刻度，你可以看到
TRUE
的最后一个非零值大约是160000，而
FALSE
的最后一个非零值大约是250000

因此，表示是正确的，但很难看到尾部

要查看：

数据%>%
ggplot（aes（x=amountremain，颜色=黑色））+
几何密度（）
ylim（0,10^-5）


编辑


@Flick先生解释了为什么这条线没有断。
如果您的目标是中断最后一个值的
TRUE
分布，一种可能的解决方案是创建两个不同密度的数据帧：

让我担心的是，蓝线（TRUE）超出了它的最后一个值~160000。“蓝线不应该到此为止吗？”myfatson一般说来，密度假设无限支持。它们不假设它们受观察到的最小值和最大值的限制。因此，当ggplot绘制曲线时，曲线始终延伸到整个可见区域。我关心的是，蓝线（TRUE）延伸超过其最后一个值~160000。“蓝线不应该到此为止吗？”myfatson一般说来，密度假设无限支持。它们不假设它们受观察到的最小值和最大值的限制。因此，当ggplot绘制曲线时，曲线始终延伸到整个可见区域。
b <- unclass(density(data$amountremain[data$black==FALSE]))
max(b$y)
max(b$x)
[1] 0.0003079798
[1] 253021.3

a <- unclass(density(data$amountremain[data$black==TRUE]))
max(a$y)
max(a$x)
[1] 0.0002832889
[1] 162414.6