Skip to content

Instantly share code, notes, and snippets.

@jroberayalas

jroberayalas/bikes_plot.R

Created April 17, 2017 00:03
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jroberayalas/c464415c7a167849ecb1436c4b7c00cd to your computer and use it in GitHub Desktop.
Save jroberayalas/c464415c7a167849ecb1436c4b7c00cd to your computer and use it in GitHub Desktop.
Download ZIP
Raw
bikes_plot.R
# Final plot
p <- ggplot()
p <- p + geom_point(data = train, aes(x = ds, y = y), size = 0.5)
p <- p + geom_line(data = forecast, aes(x = ds, y = yhat), color = "#0072B2")
p <- p + geom_ribbon(data = forecast, aes(x = ds, ymin = yhat_lower, ymax = yhat_upper), fill = "#0072B2", alpha = 0.3)
p <- p + geom_point(data = valid, aes(x = ds, y = y), size = 0.5, color = '#4daf4a')
p <- p + geom_point(data = test, aes(x = ds, y = y), size = 0.5, color = 'red')
p
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment