我该如何修复曲线下面积的R代码？

Question

我有一些代码可以找到法线下的区域，但是最终会阴影该区域的三角形，而不是从-2到0.8的整个区域。我不确定自己在做什么错。谢谢！

curve(dnorm(x), xlim = c(-2, 2), ylab = "", axes = FALSE)
abline(h = 0)
sequence = seq(-2, 0.8)
polygon(x = c(sequence, 0.8, -2), y = c(dnorm(c(sequence)), 0, 0), col = "purple")
axis(1, at = c(-2, -1, 0, 0.8, 1, 2), pos = 0)

Answer 1

您在sequence中的积分不足。您可以使用以下方法添加更多内容：

sequence = seq(-2, 0.8, by = 0.1)

在点之间移动的步数越小，阴影区域与曲线的匹配越好。