Workshop 6

Hillsborough Trump Vote Share

fl_2020 <- st_read("~/Desktop/UF/Election Data Science/fl_2020/fl_2020.shp")

fl_2020_vote_share <- fl_2020 |>
  mutate(vote_share = (G20PRERTRU) / (G20PRERTRU + G20PREDBID))

fl_2020_1 <- filter(fl_2020_vote_share, COUNTY %in% c("HIL"))

fl_2020_1 <- st_make_valid(fl_2020_1)

Including Plots

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.