r - 如何在 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 图中执行此操作提前谢谢！

标签： rplottime-seriesribbon

Answer 1

我猜你必须使用rector 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)