向 R 基础图添加阴影

Question

我有一个简单的情节：

x1<- sort(rnorm(100))
x_max <- x1-0.5
x_min <- x1+0.5

plot(x1,type='l')
points(x_max,type='l',col="red")
points(x_min,type='l',col="red")

我想在两条红线之间添加灰色阴影。

我正在寻找一种使用 R 的基本 R 绘图功能而不是 ggplot 的解决方案。

Answer 1

您可以尝试使用polygon. 如果您使用 Alpha 通道设置多边形的颜色，则不会覆盖任何内容。还添加@rawr 使用的建议panel.first。

x1 <- sort(rnorm(100))
x_max <- x1-0.5
x_min <- x1+0.5

plot(x1, type = 'l', panel.first = polygon(c(1:length(x1),length(x1):1), c(x_min, rev(x_max)), col="#eeeeeeaa", border = NA))
points(x_max,type='l',col="red")
points(x_min,type='l',col="red")