R 如何给曲线封套上色

我试图给曲线的包络上色。 比如说：

set.seed(1)
middle = seq(1,10,length.out=100)
upper = middle+5*runif(100)
lower = middle-5*runif(100)
plot(seq(100),middle,ylim=range(lower,middle,upper),type='l',col='red')
lines(upper,col='grey')
lines(lower,col='grey')

---

如何在灰线之间涂上灰色？

这是一种可能性，如

演示（图形）

middle
使用
多边形
，类似于
多边形（c（xvals，rev（xvals）），c（minu_y，max_y））
。。。我觉得某个地方一定有一个复制品，但不能很快找到。是的，它在
演示（图形）
@RHertel中有描述，很好（如果你愿意，你可以在这里复制该信息作为答案），但我指的是StackOverflow复制品。。。
middle <- seq(1,10,length.out=100)
upper <- middle+5*runif(100)
lower <- middle-5*runif(100)
xx <- c(1:100,100:1)
yy <- c(upper,rev(lower))
plot(seq(100),middle,ylim=range(lower,middle,upper),type='l')
polygon(xx, yy, col="gray")
lines(seq(100),middle,ylim=range(lower,middle,upper),type='l',col='red')

# ... Your code before plot( ... )
sequence = seq(100)
plot(sequence,middle,ylim=range(lower,middle,upper),type='l',col='red')
# After all the other code:
polygon(c(sequence, rev(sequence)), c(upper, rev(lower)), col = rgb( 0.5, 0.5, 0.5, 0.5 ), border = NA )