Я работаю с некоторыми данными временного ряда и хотел бы выделить область диаграммы всякий раз, когда выполняются определенные условия. Например:

require(ggplot2)
require(quantmod)
initDate <- "1993-01-31"
endDate <- "2012-08-10"
symbols <- c("SPY")
getSymbols(symbols, from=initDate, to=endDate, index.class=c("POSIXt","POSIXct"))
spy<-SPY$SPY.Adjusted
spy$sma<-SMA(spy$SPY.Adjusted,200)
spy<-spy[-(1:199),] 
spy<-as.data.frame(spy)
ggplot(spy,aes(x=index(spy),y=spy$SPY.Adjusted))+geom_line()+geom_line(aes(x=index(spy),y=spy$sma))

Приведенный выше код отображает данные, но как я могу выделить раздел, когда когда-либо близко выше sma? Этот вопрос похож наКак выделить временные диапазоны на сюжете?, но тогда это руководство. Есть ли функция в ggplot2 для условного черчения?