bowie.R

library(pageviews)
library(dplyr)
library(ggplot2)
bowie <- article_pageviews(article = "David_Bowie", end = "2016011200")

since_dec <- bowie %>% 
  mutate(timestamp = lubridate::ymd_h(timestamp)) %>%
  filter(timestamp > lubridate::ymd("2015-12-01"))

since_dec %>% 
  mutate(endpt = "Including 11 Jan 2016") %>% 
  rbind({
    since_dec %>% 
      filter(timestamp != lubridate::ymd("2016-01-11")) %>% 
      mutate(endpt = "Before 11 Jan 2016")
  }) %>%           
  ggplot(aes(x = timestamp, y = views)) + 
  facet_wrap(~endpt, scales = "free") +
  geom_line() + 
  theme_minimal() + 
  xlab("Date")