TN County Presidential Voting Shifts Demo

This is an interactable vote tracker that shows the number of people that voted in the Presidential Election of 2020 and 2024 respectively in the state of Tennessee. The map shows where Democrats and Republicans respectively gained more support in specific counties, with red and blue showing a gain for Republicans or Democrats respectively whilst a degrading color represents a loss. In 2020, although not acting as a majority in the state or a deciding factor in the election, Tennessee had a large bump in Democratic Voters, with this being a remarkable shift from 2024, where only half a dozen counties experienced remarkable or noticeable growth in Democrat voters, with it being noticably smaller than Republican turnouts and points of growth in the 2024 election. Although some holdouts remained across the State, the sweeping Republican victory marks a shift in voter turnout, due to an overall decrease in voter turnout 2024, general election fatigue, and a general feeling of apathy from voters whenever attempting to vote for either respective candidate. To see the gains and losses for Democrats or Republicans respectively, you can click and drag on the small bubble that allows you to drag the map back and forth to interact with it.

# 2020 Map

Map16to20Rep <- mapview(
  CountyMap,
  zcol = "Rep20finish",
  col.regions = "red",
  layer.name = "Rep 2020",
  popup = popupTable(
    CountyMap,
    feature.id = FALSE,
    row.numbers = FALSE,
    zcol = c("COUNTY", "Rep16", "Rep20", "Rep16to20")
  )
)

mypalette = colorRampPalette(c('blue', 'lightblue'))

Map16to20Dem <- mapview(
  CountyMap,
  zcol = "Dem20finish",
  col.regions = mypalette,
  layer.name = "Dem 2020",
  popup = popupTable(
    CountyMap,
    feature.id = FALSE,
    row.numbers = FALSE,
    zcol = c("COUNTY", "Dem16", "Dem20", "Dem16to20")
  )
)

Map16to20Dem | Map16to20Rep

# 2024 Map

mypalette = colorRampPalette(c('red', 'pink'))

Map20to24Rep <- mapview(
  CountyMap,
  zcol = "Rep24finish",
  col.regions = mypalette,
  layer.name = "Rep 2024",
  popup = popupTable(
    CountyMap,
    feature.id = FALSE,
    row.numbers = FALSE,
    zcol = c("COUNTY", "Rep20", "Rep24", "Rep20to24")
  )
)

mypalette = colorRampPalette(c('blue', 'lightblue'))

Map20to24Dem <- mapview(
  CountyMap,
  zcol = "Dem24finish",
  col.regions = mypalette,
  layer.name = "Dem 2024",
  popup = popupTable(
    CountyMap,
    feature.id = FALSE,
    row.numbers = FALSE,
    zcol = c("COUNTY", "Dem20", "Dem24", "Dem20to24")
  )
)

Map20to24Dem | Map20to24Rep