Data prep for DHSI

superfund.R

# Superfund sites CSV
calif_superfund_sites <- read.csv("./data/calif_superfund_sites.csv")
# We'll clean up the Superfund data a bit, selecting only
# the columns we want to keep.
calif_superfund_sites <- calif_superfund_sites %>% 
  select(NAME, CITY,STATE,ZIP,LONGITUDE,LATITUDE,STATUSDATE,HRS_SCORE)
# Let's filter out California sites.
calif_superfund_sites <- subset(calif_superfund_sites,
                                  STATE %in% "CA")
# Convert the date into an R friendly version.
calif_superfund_sites$date <- as.Date(calif_superfund_sites$STATUSDATE, "%m/%d/%Y")
# Lowercase the variable names.
calif_superfund_sites <- setNames(calif_superfund_sites, tolower(names(calif_superfund_sites)))
# Extract the year to a new column
library(lubridate)
calif_superfund_sites$year <- year(calif_superfund_sites$date)