# NOT RUN {
plot_data <- dplyr::storms %>%
dplyr::mutate(status = stringr::str_to_sentence(status)) %>%
dplyr::group_by(year, status) %>%
dplyr::summarise(average_wind = round(mean(wind), 2))
plot <- ggplot_vbar_facet(data = plot_data, x_var = year, y_var = average_wind,
facet_var = status)
plot
plotly::ggplotly(plot, tooltip = "text")
# }
Run the code above in your browser using DataLab