根据指标对股票/日期图进行着色

Question

我的问题是我有一些根据日期（字符串）绘制的股票价格（数字）。现在我有一个指示变量。我想对图表上指标为 1 的日期区域进行着色，而不是在指标为 0 时着色。我正在 R 中编程。我知道如何在预先指定的时间间隔内执行此操作，例如 2000-01-01至 2001 年 1 月 1 日。但我有很多指示变量显示 1 的“区间”，我不想自己计算它们。关于如何克服这个障碍有什么想法吗？如果可能的话，我希望通过 ggplot2 进行。

我的数据示例：

data <- data.frame(
   date = as.Date(c("2001-01-01", "2001-01-02", "2001-01-03",
   "2001-01-04","2001-01-05","2001-01-06", "2001-01-07", 
   "2001-01-08","2001-01-09","2001-01-10")),
   price = c(623.3,515.2,611.0,729.0,843.25,623.3,515.2,611.0,729.0,843.25),
   indicator = c(1,1,1,0,0,0,1,1,1,0)
)

注意：我之前曾问过这个问题，但它被标记为重复。我不这么认为，因为我找不到任何其他帖子真正回答了我的问题。我见过其他人有同样的问题，但答案总是指定您自己的阴影范围，这不是这里的目的。

Answer 1

答案是您需要使用您的数据来创建阴影背景区域。

library(ggplot2)

background_df <- data[data$indicator == 1,]
background_df$end <- background_df$date + lubridate::days(1)

ggplot(data, aes(date, price)) +
  geom_rect(ymin = -Inf, ymax = Inf, aes(xmin = date, xmax = end),
            data = background_df, fill = "deepskyblue4", alpha = 0.2) +
  geom_line(colour = "orange3") +
  geom_point() +
  theme_bw()

^{由 reprex 包 (v2.0.1)}