Условный фон участка в R

Question

Я просто хочу знать, как сделать этот условный цветной фон. Условие может быть рассчитано с помощью этих временных рядов или другого. Например, у меня есть два раза. Когда значение первого положительно, значение фона на втором графике зеленое, в противном случае оно красное.

Answer 1

Вот пример одного из способов сделать это.

x <- 1:100 
t1 <- rnorm(100) 
t2 <- rnorm(100) 
plot(x, t2, type="n") 
abline(v=x, col=c("red", "green")[(t2>0)+1]) 
lines(x, t1) 

Answer 2

rasterImage, вероятно, является правильным инструментом,

x <- seq(0,10,length=30) 
y <- jitter(sin(x),a=0.1) 
grad <- scales::rescale(y^2, to = c(0.5,0.1)) 
plot(x, y, type="n", xaxs="i", yaxs="i") 
rasterImage(t(hsv(h = grad, s = 1, v = 0.8)), 
      xleft = min(x), ybottom = min(y), 
      xright = max(x), ytop = max(y)) 
lines(x,y)