基于条件突出动物园图中的区域

Question

我已经非常努力地寻找这个问题的解决方案，但我没有成功。我有一个带有标准时间序列 X 轴的动物园图，只是想在系列的值小于某个阈值时突出显示图表的区域。具体来说，我想突出显示截距的p值是否显着（并绘制截距）。这将在整个时间序列中以不同的间隔发生，而不仅仅是某个范围x <= y。

我已尝试过帮助（xblocks）示例（xblocks）我无法将突出显示的区域显示为我知道的日期应该适用。

Answer 1

这是否解决了您的问题？

rgb <- hcl(c(0, 0, 260), c = c(100, 0, 100), l = c(50, 90, 50), alpha = 0.3)
set.seed(1234)
x.Date <- as.Date("2015-02-01") + c(1,3,6,7,9,10,12,14,18,20) - 1
y <- zoo(rnorm(length(x.Date)), x.Date)
pval<-zoo(runif(length(x.Date),0,.2), x.Date)
plot(y,col=4)
xblocks(pval<=0.05,col = rgb[1])