date_facets

date_facets.R

library(tidyverse)
library(lubridate)

epoch <- ymd("20080101")

date_frame <-
  data.frame(
    date = days(seq(1, 365 * 10, 1)) + epoch,
    response = cumsum(rnorm(365 * 10))
  )

date_frame %>%
  mutate(
    graph_date = make_date(
      2000,
      month(date),
      day(date)
    ),
    year = year(date)
  ) %>%
  ggplot(aes(x = graph_date, y = response)) +
  geom_path() +
  scale_x_date(
    date_breaks = "1 month",
    date_labels = "%b"
  ) +
  labs(
    title = "A plot I wish was easier",
    subtitle = "maybe it is?"
  ) +
  facet_wrap(~year, ncol = 1) +
  theme_minimal()