COMING SOON



1. States that Matter

Map


Ohio County Outcomes


ohio_n2012 <- subset(c_ele_n2012, State_Name == "Ohio")

OH <- (lapply(split(ohio_n2012, ohio_n2012$Year), function(ohio_n2012) {
  highchart() %>%
    hc_add_series_map(
      uscountygeojson, ohio_n2012,
      name = "% Democrat", value = "Per_Dem1", joinBy = c("fips","FIPS1"),
      borderWidth = 0.3, allAreas = FALSE) %>%
    hc_title(text = unique(ohio_n2012$title), style = list(fontSize = "12px", useHTML = TRUE)) %>%
    hc_colorAxis(dataClasses = color_classes(c(seq(0, 100, by = 50), 101), colors = c("red", c("#1874CD"), "white"))) %>%
    hc_legend(enabled = FALSE) %>%
    hc_tooltip(valueSuffix="%") %>%
    hc_add_theme(hc_theme_flatdark())
}))

hw_grid(OH, rowheight = 300, ncol = 5)  %>% browsable()