weixin_54479759 2021-10-24 16:46 采纳率: 100%
浏览 133
已结题

R语言polygon函数使用问题

如图,使用polygon函数填充颜色 为什么填充到曲线外侧去了?

img

mean.plus.sig<-17+4*4.5
mean.minu.sig<-17-4*4.5
least.ten<-qnorm(p=0.1,mean = 17,sd=4.5)
fx.ten<-dnorm(least.ten,mean=17,sd=4.5)
nor.data<-seq(mean.minu.sig,mean.plus.sig,length=50)
fx<-dnorm(nor.data,mean = 17,sd=4.5)
plot(nor.data,fx,type="l",xlim = c(mean.minu.sig-2,mean.plus.sig+2),
     main = "Least 10% test time",xlab = "Test time x",ylab = "f(x)")
abline(h=0,col="gray")
abline(v=least.ten,lty=2)
least.data<-nor.data[nor.data<=least.ten]
least.fx<-dnorm(least.data,mean = 17,sd=4.5)
polygon(x=least.data,y=least.fx,border=NA,col="gray")
  • 写回答

1条回答 默认 最新

  • slandarer MATLAB领域优质创作者 2021-10-24 22:36
    关注

    大概是这样,同时为了图像更精准将点数改成了500

    mean.plus.sig<-17+4*4.5
    mean.minu.sig<-17-4*4.5
    least.ten<-qnorm(p=0.1,mean = 17,sd=4.5)
    fx.ten<-dnorm(least.ten,mean=17,sd=4.5)
    nor.data<-seq(mean.minu.sig,mean.plus.sig,length=500)
    fx<-dnorm(nor.data,mean = 17,sd=4.5)
    plot(nor.data,fx,type="l",xlim = c(mean.minu.sig-2,mean.plus.sig+2),
         main = "Least 10% test time",xlab = "Test time x",ylab = "f(x)")
    abline(h=0,col="gray")
    abline(v=least.ten,lty=2)
    
    least.data<-nor.data[nor.data<=least.ten]
    least.fx<-dnorm(least.data,mean = 17,sd=4.5)
    polygon(x=c(least.data,least.data[length(least.data)]),y=c(least.fx,0),border=NA,col="gray")
    
    

    img

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 11月2日
  • 已采纳回答 10月25日
  • 创建了问题 10月24日