r - 绘制具有分级 alpha(透明度)级别的置信区域阴影

Question

我想为各种线绘制阴影置信区域，但希望这些区域中的 alpha 水平从 b 到 c 逐渐变化，其中 b 是中位数的 alpha，c 是我使用的任何外部分位数的 alpha .以下代码按照我的意愿生成了一条线和置信区域图，但没有可变透明度。

x= 1:10+rnorm(10)
xhigh=x+rnorm(10)^2
xlow=x-rnorm(10)^2

plot(x,type='l')
polygon(x=c(1:length(xlow),length(xlow):1),   y=c(xhigh,xlow[length(xlow):1]),col = rgb(1,0,0,.1),border=NA)

Answer 1

您可以过度绘制许多多边形:

plot(x,type='l')
for (i in seq(0, 1, 0.01)) {
  polygon(x = c(x + i * (xhigh - x), x - i * (xlow - x)), 
          col = rgb(1, 0, 0, .005), border = NA)
}

尽管如此，我认为您的示例实际上是错误的，并且可能需要以下内容:

plot(x,type='l')
for (i in seq(0, 1, 0.01)) {
  polygon(x = c(1:10, 10:1),
          y = c(x + i * (xhigh - x), rev(x - i * abs(x - xlow))), 
          col = rgb(1, 0, 0, .005), border = NA)
}