library(tidyverse)
library(clock)
library(nycflights13)

flights |> 
  select(year, month, day) |> 
  mutate(
    date = date_build(year, month, day),
    date = as_year_month_day(date),
    gp = calendar_group(date, 'day')
  ) |> 
  count(gp) |> 
  ggplot() +
  aes(gp, n) +
  geom_line()
#> Don't know how to automatically pick scale for object of type clock_year_month_day/clock_calendar/clock_rcrd/vctrs_rcrd/vctrs_vctr. Defaulting to continuous.
#> Error: Discrete value supplied to continuous scale