---
title: "NOAA Storm Events Starter"
format:
  html:
    toc: true
    code-fold: show
execute:
  warning: false
  message: false
---

```{r}
library(readr)
library(dplyr)
library(stringr)
library(lubridate)
library(ggplot2)
library(scales)
```

## Load Data

```{r}
data_path <- "../data/noaa_storm_events_2024_clean.csv.gz"
events <- read_csv(data_path, show_col_types = FALSE)

dim(events)
```

## What Is Already Cleaned?

```{r}
events |>
  select(event_id, begin_dt, state, event_type, damage_property_raw, prop_usd) |>
  slice_head(n = 6)
```

## First Summaries

```{r}
events |>
  summarise(
    rows = n(),
    event_types = n_distinct(event_type),
    property_damage = dollar(sum(prop_usd_zero)),
    crop_damage = dollar(sum(crop_usd_zero)),
    deaths = sum(deaths_total),
    injuries = sum(injuries_total)
  )
```

## First Plot

```{r}
events |>
  count(event_type, sort = TRUE) |>
  slice_head(n = 10) |>
  mutate(event_type = reorder(event_type, n)) |>
  ggplot(aes(n, event_type)) +
  geom_col(fill = "#c1440e") +
  scale_x_continuous(labels = comma) +
  labs(
    title = "Most common NOAA storm event types",
    x = "Number of events",
    y = NULL
  )
```

## Session Info

```{r}
sessionInfo()
```