如何在地块R上选择一系列日期

Question

plot

我有这样的情节。我想用星期六和星期日（例如7月8日和9日）用红色透明矩形标记。如何在绘图上选择范围？我使用代码创建了该图：

runtime %>%
  filter(activity == "1") %>%
  ggplot(aes(x = date, fill = activity)) +
  geom_density(alpha = 0.5) +
  theme(axis.title.y = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks.y = element_blank(),
        legend.position = "none") +
  ggtitle("When people run. Date")

日期为as.Dated格式为：

"2017-06-30"

感谢任何帮助