R 编程正态分布

Question

我正在尝试创建此图。当我尝试下面的代码时，绘图未正常分发。

x <- seq(60,140,20)
y <- dnorm(x,0,1)
plot(x,y,type="l",xlab = "x",ylab = "f(x)",main = "The total shades area is equal to 0.05")
x<-seq(60,80)
y<-dnorm(x,0,1)
polygon(c(60,x,80),c(0,y,0),col="red")
x<-seq(120,140,length=100)
y<-dnorm(x,0,1)
polygon(c(120,x,140),c(0,y,0),col="red")

Answer 1

看起来你的情节最大的问题是，根据你的图像，你想绘制一个平均值为 100 和标准差为 10 的正态分布图，但无论何时你调用 dnorm，你使用的平均值为 0 和标准偏差为 1。

第二个问题是，当您定义第一个序列 x 时，您的参数 by 等于 20，这意味着您仅使用 60、80、100、120 和 140 作为您的 x 坐标正常曲线。尝试使用更小的值(例如 1)。

下面的代码应该会返回您要查找的图表。

x <- seq(60,140,1)
y <- dnorm(x,100,10)
plot(x,y,type="l",xlab = "x",ylab = "f(x)",
     main = "The total shaded area is equal to 0.05")
x<-seq(60,80)
y<-dnorm(x,100,10)
polygon(c(60,x,80),c(0,y,0),col="red")
x<-seq(120,140,length=100)
y<-dnorm(x,100,10)
polygon(c(120,x,140),c(0,y,0),col="red")