Let\'s consider very simple plot created by autoplot :
library(ggplot2) library(quantmod) start <- as.Date("2013-01-01") end <- as.Date(&qu