阴影指示变量R.

Question

请帮助：我想在R的图中为一个指标变量x <-runif(100, 5.0, 7.5) y <-runif(100, 1, 10) z = as.numeric(y >= 5) date = seq(as.Date("1910/1/1"), as.Date("2009/1/1"), "years") data = data.frame(cbind(x,y,z)) color <- rgb(190, 190, 190, alpha=80, maxColorValue=255) plot(date,x, type='l') rect(xleft=date[10], xright=date[40], ybottom=5, ytop=7.5, col = color,density=100) 的所有值着色时间序列图。

下面是一个生成类似场景的代码：

z==1

从代码中，我只能逐个指定日期。但是假设我想要遮蔽z == 1的所有区域？即所有日期config.authentication_keys = [ :email , :company_id ] config.authentication_key_labels = config.authentication_keys.join(', ').gsub('_id','') invalid: "Invalid %{authentication_key_labels} or password." 。有什么想法可以做到吗？

很多人，尼克

Answer 1

只需将整个vector日期提供到xleft和xright参数中，并按z==1索引。不做线条着色，它会运行很长时间，只需将颜色改为灰色即可。然后，再次在矩形上绘制时间序列：

plot(date,x, type='l')
rect(xleft=date[z==1]-180,xright=date[z==1]+180,
  ybottom=5, ytop=7.5, col="grey",border=NA)
lines(date,x)