如何突出ggplot2中时间序列的某些日子？

Question

dateVec <- as.Date(c("08-01-2015","08-02-2015","08-03-2015","08-04-2015","08-05-2015"),format="%m-%d-%Y")

myData <- data.frame(dat=c(.1,.2,-.1,1,.1),
                     dates=dateVec,
                     indicator=c(0,0,0,1,0))

ggplot(myData,aes(x=dates,y=dat)) + geom_point()

我手动修改了这里的阴影，以最大值遮蔽数据点周围的区域，其中'指标'= 1。

如何在ggplot中自动创建此着色？理想情况下，我希望阴影区域具有宽度，即使x值是绝对的。我根据指示器玩了geom_point对象的颜色，虽然它有效，但它并没有真正按照我想要的方式流行。