Как получить цветные ленты на графике временных рядов в R

Question

Я строю временные ряды из большого набора данных в Excel в R, используя:

plot(RiverWensum$Total.reactive.phosphorus..mg.P.L.~RiverWensum$Rdates, type="l", xlab="Time", 
ylab="Total Reactive Phosphorous (mg/L)", las=1, col="black")
abline(h = 1.003, col="red")
abline(h=0.173, col="orange")
abline(h=0.069, col="yellow")
abline(h=0.036, col="green")

, но вместо аблирования, чтобы показать ограничения, я хотел использовать инструмент ленты или что-то, чтобы иметь цветная полоса, например оранжевая полоса от 0,173 до 1,003 и т. д. Я сделал это в ggplot, но я не уверен, как на нормальных R графиках Спасибо заранее!

Answer 1

Полагаю, вам нужно использовать rect или polygon, может быть, есть несколько лучших решений с некоторыми пакетами:

set.seed(111)
x = 1:20
y = runif(20)
plot(x,y,type="b")
upper_y = 0.6
lower_y = 0.4
abline(h = c(upper_y,lower_y), col=c("red","red"),lty=16)
rect(min(x)-1,lower_y,max(x)+1,upper_y,col="#B2EBF21A",border=NA)