如何在R中的时间序列图上绘制色带

Question

我正在使用R在excel中从大量数据中绘制时间序列：

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")

但是我不想使用abline来显示限制，我想使用功能区工具或带有彩色带的东西，例如橙色范围从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)