r - 动态改变ggplot2的背景颜色

Question

在 R 中，假设我有一个与数据长度相同的逻辑向量。我想根据逻辑向量更改 ggplot 的背景颜色。

在下面的示例中，background_change 是逻辑向量。

library(ggplot2)
background_change <- economics$unemploy < 7777
ggplot(economics, aes(date, psavert)) + geom_line()

请注意，这与 other 不同stackoverflow 上发布的手动更改背景的问题。这对于我的应用程序来说太乏味了。

Answer 1

不是一个完美的解决方案，但适用于给定的示例。

对于每个值生成geom_rect颜色由 unemploy < 7777 定义和坐标x如xmin , xmax (开始=结束)。

thresholdUnemploy <- 7777
library(ggplot2)
ggplot(economics, aes(date, psavert)) + 
    geom_rect(aes(xmin = date, xmax = date,
                  ymin = -Inf, ymax = Inf,
                  color = unemploy < thresholdUnemploy),
              size = 0.7,
              show.legend = FALSE) +
    geom_line()

为什么这并不完美:根据 x 轴点的密度，您可能需要调整 geom_rect 的大小.