# NOT RUN {
plot_data <- dplyr::storms %>%
dplyr::group_by(year) %>%
dplyr::summarise(average_wind = round(mean(wind), 2))
plot <- ggplot_vbar(data = plot_data, x_var = year, y_var = average_wind,
title = "Average wind speed of Atlantic storms, 1975-2015",
x_title = "Year",
y_title = "Average maximum sustained wind speed (knots)")
plot
plotly::ggplotly(plot, tooltip = "text")
# }
Run the code above in your browser using DataLab