Plotting month-over-month change in snap users

snap-year-change.r

library(tidyverse)                     # Start with the tidyverse, yo!
library(lubridate)                     # Hey mate, use lubridate!

df  <- tibble(                  # Like data.frame, but tidyverse...ier
  month = month(1:12, label = 12),
  cases = c(
    2291999, 2295025, 2305049, 2298570,
    2312778, 2322623, 2323876, 2335145,
    2324974, 2327760, 2363594, 2394956)
) %>%               # Pipes are part of tidyverse / common in modern R
  mutate(
    monthly_change = c(0, diff(cases))
  ) 

plot_monthly_change  <- ggplot(df, aes(x = month, y = monthly_change)) +
  geom_density()

ggsave("snap_monthly_change.pdf", plot_monthly_change, width = 10, height = 3)