根据条件在动物园图中突出显示区域

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

根据条件在动物园图中突出显示区域

Highlight Region in Zoo Plot Based on Condition

r

zoo