关于添加阴影问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有这样一组代码：
x<-seq(from=-3,to=+3,length.out=100)
y<-dnorm(x)
plot(x,y,type='l')
region.x<-x[1<=x]
region.y<-y[1<=x]
region.x<-c(region.x[1],region.x,tail(region.x,1))
region.y<-c(0,region.y,0)
polygon(region.x,region.y,density=10)

可以得到这样一个结果

现在问题来了，我想用我自己的数据去画一个正态分布密度曲线图，代码如下：
w=c(100,99,34,29,95,85,86,95,84,87,58,89,93,90,92,84,75,76,65,76,87,89,83,82,81,94,95,96,87,89,75,71,71,72,73,75,89,86,89,92,90,99,98,96,95,90,83,84,78,79)
curve(dnorm(x,mean(w),sd(w)),xlim=c(20,150),col="blue",lwd=1)

那么我要怎么样才能像上面那样添加阴影呢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

救命啊，求大神

w=c(100,99,34,29,95,85,86,95,84,87,58,89,93,90,92,84,75,76,65,76,87,89,83,82,81,94,95,96,87,89,75,71,71,72,73,75,89,86,89,92,90,99,98,96,95,90,83,84,78,79)
curve(dnorm(x,mean(w),sd(w)),xlim=c(20,150),col="blue",lwd=1)
y <- dnorm(x,mean(w),sd(w))
x <- c(20:150)
w.x <- c(100,x[100 <= x],150)
w.y <- c(0,y[100 <= x],0)
polygon(w.x,w.y,density = 10)

版主学会了么