library(ggplot2) open_fema("DisasterDeclarationsSummaries", filters = list(declarationDate = ">= 2010-01-01", incidentType = "Hurricane"), ask_before_call = F) %>% mutate(date = lubridate::floor_date(declarationDate,"year"),count = 1, Florida = factor(state == "FL")) %>% select...