knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)

suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(readr))
suppressPackageStartupMessages(library(ggplot2))
suppressPackageStartupMessages(library(plotly))

Introduction

In this interactive report, I revisit the Billion Dollar Disasters Analysis. Originally, I produced static plots of disaster frequency and CPI-adjusted costs over time. Now, I’ve added interactive components using Plotly (and Shiny) to enhance exploratory capabilities.

Interactive Plot 1: Disaster Types by Year

Interactive Plot 2: CPI-Adjusted Cost by Year