library(dygraphs) library(quantmod) getSymbols('FEDFUNDS', src='FRED') dygraph(FEDFUNDS, main = 'Comportamento dos FED Funds', xlab='', ylab='% a.a.') %>% dyOptions(stackedGraph = TRUE) %>% dyRangeSelector(dateWindow = c("1954-07-01", "2015-11-01")) %>% dyShading(from='2008-10-01', to='2015-11-01', color='lightblue')