在 R 中使用 dnorm 和多边形函数绘制图形

Drawing a graph using dnorm and polygon function in R

我找到了概率使用..

pnorm(176, 135, 10, lower.tail=TRUE) - pnorm(146, 135, 10, lower.tail=TRUE)

结果为 0.1356,约为 14%。

我必须使用 dnorm 和 polygon 函数来创建一个图表,其中显示正态分布中的阴影区域(基于上述百分比)。

有人知道怎么做吗?

像这样:

library(ggplot2)

x=seq(80,190,1)
dat = data.frame(x, dens=dnorm(x,135,10))

ggplot(dat, aes(x,dens)) +
  geom_line() +
  geom_area(data=dat[dat$x >= 146 & dat$x <= 176,], 
            fill="red")