``` plot_data <- storms %>% group_by(year) %>% summarise(wind = round(mean(wind), 2)) %>% mutate(year = lubridate::ymd(glue::glue("{year}-01-01"))) gg_hbar(plot_data, wind, year) ``` https://github.com/tidyverse/ggplot2/issues/4014