This feels pretty powerful.

This feels pretty powerful.

storms %>%
  select(category) %>%
  tbl_summary()
Characteristic N = 100101
category
-1 2545 (25%)
0 4373 (44%)
1 1685 (17%)
2 628 (6.3%)
3 363 (3.6%)
4 348 (3.5%)
5 68 (0.7%)

1 Statistics presented: n (%)

ggplot(storms %>% filter(category >= 0), aes(x = year, fill = category)) +
  geom_bar() +
  labs(x = "Year", y = "Number of storms", fill = "Category") +
  theme_minimal()