plot_set <- emergency |>
thicken("hour", "h") |>
dplyr::count(h) |>
head(24)
ggplot2::ggplot(plot_set, ggplot2::aes(h, n)) +
ggplot2::geom_col()
plot_set |>
dplyr::mutate(h_center = center_interval(h)) |>
ggplot2::ggplot(ggplot2::aes(h_center, n)) +
ggplot2::geom_col()
Run the code above in your browser using DataLab