R语言中的画图问题，如何在两条线之间添加阴影部分

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如何在图片的两条红色的线之间添加阴影
代码如下：
plot(mvalue,effect,type="l",col="#00b0f6",pch=c(15),lwd=2)
lines(mvalue,effect_cl,lty=3,col="#f8766d")
lines(mvalue,effect_cu,lty=3,col="#f8766d")

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：两条线

1. x=c(1,2,3,4,5)
   
2. y=c(2,3,5,6,7)
   
3. lm1=lm(y~x)
   
4. summary(lm1)
   
5. plot(x,y,type = 'p',pch=16)
   
6. polygon(c(x,rev(x)),c(0.7-0.3317 +1.2*x,rev(0.7+0.3317 +1.4*x)),col = 'yellow')
   
7. lines(x,0.7+1.3*x,lwd=2,col='red')
   
8. lines(x,0.7+0.3317 +1.4*x,lwd=3,col='red',lty=3)
   
9. lines(x,0.7-0.3317 +1.2*x,lwd=3,col='red',lty=3)
   
10. points(x,y,pch=16)

复制代码

可是我的代码中两个line加上去的线是曲线，我并不知道它们的方程

> m <- lm(dist ~ speed, data=cars)
> p <- predict(m, interval="confidence")
> x <- c(cars$speed,
+        tail(cars$speed, 1),
+        rev(cars$speed),
+        cars$speed[1])
> y <- c(p[, "lwr"],
+        tail(p[, "upr"], 1),
+        rev(p[, "upr"]),
+        p[, "lwr"][1])
> plot(cars)
> abline(m)
> polygon(x, y, col=rgb(.7, .7, .7, .5))

类似代码，请参考
主要就是先求出x，y的几个点，然后连起来做多边形

终于解决啦，谢谢大家！

茉上花开9801 发表于 2019-1-3 18:20
终于解决啦，谢谢大家！

您好，我也遇到了相同的问题，请问您最终是怎么解决的呢~

jimozhegu 发表于 2019-1-2 16:45
> m  p  x  y  plot(cars)
> abline(m)
> polygon(x, y, col=rgb(.7, .7, .7, .5))

相当不错的代码！

茉上花开9801 发表于 2019-1-3 18:20
终于解决啦，谢谢大家！

能分享下您的代码吗？谢谢

茉上花开9801 发表于 2019-1-3 18:20
终于解决啦，谢谢大家！

你好请问您如何解决这个问题的,能否给予指导

玛希帕 发表于 2019-1-16 21:09
您好，我也遇到了相同的问题，请问您最终是怎么解决的呢~

您好 请问您解决了吗 请求帮助