R中的N（0,1）着色

Question

x<-seq(-3,3,0.01)
y<-dnorm(x)
plot(x,y,type="l")

填充区域-3＆lt; = x＆lt; = - 1红色

的代码

polygon(c(x[x<=-1],-1),c(y[x<=-1],y[x==-3]),col="red")

我想在x = 0到x = 1之间填充红色区域，我该怎么办？ 我尝试了很多，但它仍然失败了。因为如果我取间隔，它有四个顶点，N（0,1）分布是曲线而不是多边形。

Answer 1

您可以使用相关序列创建矢量，并根据以下内容绘制多边形：

xx <- seq(0, 1, 0.01)
plot(xx, dnorm(xx), type="l")
polygon(c(min(xx), xx, max(xx)), c(0, dnorm(xx), 0),col="blue")

Answer 2

或许如下：

#your code
x<-seq(-3,3,0.01)
y<-dnorm(x)
plot(x,y,type="l")
#new code
coordx<- c(0,seq(0,1, 0.01),1)
coordy <- c(0,dnorm(seq(0,1, 0.01)),0) 
polygon(coordx,coordy, col="red")

应该得到以下图表：