我该如何修复曲线下面积的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)

点与点之间的步距越小，阴影区域与曲线的匹配越好。