County Map

Code - R

~/code/R/

load_data("opioid/mme_percap_county.RData")

mme_percap_county %>%
  select(region = fips, value) %>%
  arrange(value) %>%
  mutate(value = case_when(value < -30 ~ "< -30",
                           value >= -30 & value < -20 ~ "-30 to -20",
                           value >= -20 & value < -10 ~ "-20 to -10",
                           value >= -10 & value < 0 ~ "-10 to 0",
                           value >= 0 & value < 10 ~ "0 to 10",
                           value >= 10 & value < 20 ~ "10 to 20",
                           value >= 20 ~ "20+")) %>%
  county_choropleth

Figure 1: Opioid Consumption by County