datetime_facet_free.md

library(dplyr, warn.conflicts = FALSE)
library(ggplot2)

day <- lubridate::as_datetime(Sys.Date())
d <- tibble::tibble(
  x = day + lubridate::minutes(0:147 * 30),
  y = 0,
  day = lubridate::day(x)
)

ggplot(d) +
  geom_line(aes(x, y)) +
  facet_grid(day ~ ., scale = "free_x")

I wanted to draw something like:

l <- purrr::map(
  split(d, d$day),
  ~ ggplot(.) +
    geom_line(aes(x, y)) +
    facet_grid(day ~ ., scale = "free_x")
)
purrr::invoke(gridExtra::grid.arrange, l, ncol = 1)

ggplot(d) +
  geom_line(aes(x, y)) +
  facet_wrap(~ day, scale = "free_x", ncol = 1)