添加阴影到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")