r - r中两条线之间的阴影区域

Question

例如，如果我需要在绘图中为两个区域着色

x<-rep(1:10)
plot(x,type="h")

作为示例，我需要将区域从 1 到 3 和从 7 到 10，

我使用这个命令，但它省略了绘图线。

usr <- par('usr')
rect(1, usr[3], 3, usr[4], col='green')

Answer 1

如果我理解正确，您可以使用鲜为人知的panel.first= 得到您想要的东西。论据 plot.default() :

plot(x,type="h", 
     panel.first = {
         usr <- par('usr')
         rect(c(1,7), usr[3], c(3,10), usr[4], col='green', border=NA)
     })

或者，为了避免使用 par('usr')值，只需执行以下操作:

plot(x, type="h", 
     panel.first = rect(c(1,7), -1e6, c(3,10), 1e6, col='green', border=NA))