wikipage.R

library(pageviews)
require(lubridate)

today <- pageview_timestamps()
earlysept <- pageview_timestamps(lubridate::ymd("2017-09-01"))
korsmit <- pageviews::article_pageviews("en.wikipedia", "Roy_Kortsmit", start = earlysept, end = today)

korsmit %>% 
  ggplot(aes(x = date, y = views)) + theme_minimal() + geom_line() + geom_point() + 
  labs(title = "Roy Kortsmit wikipedia pageviews", subtitle = "Before and after he made 4 saves in 5s.")

ggsave("~/Desktop/goalie.png")