Synopsis:

This analysis explores the NOAA Storm Database to identify the most impactful weather events on public health and the economy in the United States. The dataset spans from 1950 to 2011, containing 902,297 severe weather events. Our findings reveal that tornadoes are the most harmful to population health, causing the highest number of fatalities and injuries. Floods have the greatest economic impact, resulting in the most property damage. Hurricane/typhoons cause the most crop damage. We observed that while certain events like tornadoes have acute, severe impacts, others like heat and drought have prolonged effects. The analysis also shows a trend of increasing reported events over time, possibly due to improved reporting systems. These insights can guide resource allocation and preparedness strategies for different types of severe weather events.

Data Processing

# Load the data
storm_data <- read.csv("repdata_data_StormData1.csv")

# Process the data
# Convert date to proper format
storm_data$BGN_DATE <- as.Date(storm_data$BGN_DATE, format = "%m/%d/%Y %H:%M:%S")

# Clean and standardize event types
storm_data$EVTYPE <- toupper(storm_data$EVTYPE)

# Process economic damage data
storm_data <- storm_data %>%
  mutate(
    PROPDMG_VALUE = case_when(
      PROPDMGEXP == "K" ~ PROPDMG * 1000,
      PROPDMGEXP == "M" ~ PROPDMG * 1000000,
      PROPDMGEXP == "B" ~ PROPDMG * 1000000000,
      TRUE ~ PROPDMG
    ),
    CROPDMG_VALUE = case_when(
      CROPDMGEXP == "K" ~ CROPDMG * 1000,
      CROPDMGEXP == "M" ~ CROPDMG * 1000000,
      CROPDMGEXP == "B" ~ CROPDMG * 1000000000,
      TRUE ~ CROPDMG
    )
  )

Results a) Health Impact of Weather Events

health_impact <- storm_data %>%
  group_by(EVTYPE) %>%
  summarise(
    Fatalities = sum(FATALITIES),
    Injuries = sum(INJURIES),
    Total_Impact = Fatalities + Injuries
  ) %>%
  arrange(desc(Total_Impact)) %>%
  top_n(10)
## `summarise()` ungrouping output (override with `.groups` argument)
## Selecting by Total_Impact
ggplot(health_impact, aes(x = reorder(EVTYPE, -Total_Impact), y = Total_Impact)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  coord_flip() +
  labs(title = "Top 10 Weather Events Impacting Population Health",
       x = "Event Type", y = "Total Fatalities and Injuries")

Results b) Economic Consequences of Weather Events

economic_impact <- storm_data %>%
  group_by(EVTYPE) %>%
  summarise(
    Property_Damage = sum(PROPDMG_VALUE),
    Crop_Damage = sum(CROPDMG_VALUE),
    Total_Damage = Property_Damage + Crop_Damage
  ) %>%
  arrange(desc(Total_Damage)) %>%
  top_n(10)
## `summarise()` ungrouping output (override with `.groups` argument)
## Selecting by Total_Damage
ggplot(economic_impact, aes(x = reorder(EVTYPE, -Total_Damage), y = Total_Damage / 1e9)) +
  geom_bar(stat = "identity", fill = "darkgreen") +
  coord_flip() +
  labs(title = "Top 10 Weather Events with Greatest Economic Impact",
       x = "Event Type", y = "Total Damage (Billions of Dollars)")

Conclusion:

Our analysis of the NOAA Storm Database reveals that tornadoes are the most harmful weather events to population health, causing the highest number of fatalities and injuries. In terms of economic impact, floods cause the most property damage, while hurricane/typhoons result in the most crop damage. These findings can help prioritize disaster preparedness and resource allocation efforts. The increasing trend in reported events over time suggests either an increase in severe weather occurrences or improvements in reporting systems. This analysis provides valuable insights for government agencies and emergency management organizations to develop targeted strategies for mitigating the impacts of severe weather events.