光滑核密度图

Question

我试图创建一个后验概率图。我使用的代码是：

qplot(N2016, geom="density", xlim=c((n_star_2016 -5), (CIs2016[[3]])),
      xlab="Número estimado del total de asesinatos 2016",
      ylab="Probabilidad de la estimación", adjust=5)

其中N2016是100.000个样本的后验概率。

我遇到的问题是，当我使用“密度”类型的图时，我得到了一些不可信的概率值，因为我的观察值是160。因此，在160之前，我应该得到一个0的概率。

调整为5的图形

我一直在玩调整参数，但这似乎不是答案，因为曲线一点也不平滑。

带调整的图=0.25

我还附加了直方图，以表明问题不在于数据：

直方图

有人知道如何获得一条平滑的曲线，而不是在观察之前开始的吗？在这种情况下160？

谢谢！

Answer 1

使用trim参数：

r <- rnorm(100)
ggplot() + geom_density(aes(r), trim = FALSE) + xlim(-4, 4),
ggplot() + geom_density(aes(r), trim = TRUE) + xlim(-4, 4)