如何遮蔽曲线下的区域？ [复制]答案

【问题标题】：How can I shade the area under a curve? [duplicate]如何遮蔽曲线下的区域？ [复制]
【发布时间】：2018-02-18 15:14:10
【问题描述】：

我正在尝试创建一个类似于此的图表： http://stats.seandolinar.com/wp-content/uploads/2014/12/Probabiliy-of-Finding-Someone-Taller-than-6-Comparison.png

为此，我遵循以下代码示例：

     curve(dnorm(x,0,1),xlim=c(-3,3),main='Normal Density')
cord.x <- c(-2, seq(-2,-1,.01),-1)
cord.y <- c(0, dnorm(seq(-2,-1,.01)),0)
polygon(cord.x,cord.y,col='skyblue')

然后我尝试为我自己的数据修改该代码，该代码试图遮蔽 79 到 120 之间的区域：

lbound <- (79-94)/6.8
ubound <- (120-94)/6.8
curve(dnorm(x,94,6.8), xlim=c(70,120), main="normal density")
cord.x <- c(79,seq(79,120,.01),120)
cord.y <- c(0, dnorm(seq(79,120,.01)),0)
polygon(cord.x,cord.y,col='skyblue')

我不确定出了什么问题，我尝试用 z 分数和实际数据替换所有数据点，但没有人绘制图表。任何知道如何做到这一点的人将不胜感激。

【问题讨论】：

标签： r

【解决方案1】：

您需要在第二个dnorm 函数中定义mean 和sd。

curve(dnorm(x, mean=94, sd=6.8), xlim=c(70,120), main="normal density")
cord.x <- c(79, seq(79,120,.01), 120)
cord.y <- c(0, dnorm(seq(79,120,.01), mean=94, sd=6.8), 0)
polygon(cord.x, cord.y, col='skyblue')

【讨论】：