R：密度图中的密度错误

Question

我有一个矢量，我想绘制密度。但在我绘制密度之后，我发现我得到的密度是错误的（大于1）。

    x <- data.frame(p = c(26.5, 26.34, 26.34, 26.34, 26.34, 26.5, 26.5, 26.34, 26.34, 28.74, 26.5, 28.74, 26.34, 28.74))

    plot(density(x = x$p))

如果我绕数字，我得到了正确的密度。         图（密度（x = round（x $ p）））

ggplot2也给了我错误的密度。

    ggplot(x)+ stat_density(aes(x=p), geom='line',position="identity")

    ggplot(x)+ geom_density(aes(x=p))

有谁知道可能出现什么问题？