Understanding Time Series Analysis with R - Snippet 5

time-series-analysis-s-5.R

dfOut <- data.frame(df, MM=MM)

dfOut %>%
  ggplot(aes(x=t, y=sales))+
  geom_line(col = 'light blue')+
  geom_point()+
  geom_line(aes(x=t, y=MM), col = 'orange')+
  geom_point(aes(x=t, y=MM), col = 'orange')+
  xlab('Time')+
  ylab('Sales')+
  theme_minimal()