Plot state electoral votes as beads on a string

TODO: Make this work with NSE

bead_snake_plot(state, votes, perc_dem, perc_rep, height = 60, buffer = 3)

Arguments

state

name of state/district
votes

number of electoral votes
perc_dem

percentage democrats
perc_rep

percentage republicans
height

column height, default is carefully chosen (as max(sqrt(electoral_votes_2016$electoral_votes)*8)) based on number of electoral votes
buffer

space between beads, defaults to 3 based on min(sqrt(electoral_votes_2016$electoral_votes)*3)

Examples


data("electoral_votes_2016")
bead_snake_plot(
  electoral_votes_2016$state_district,
  electoral_votes_2016$electoral_votes,
  electoral_votes_2016$perc_dem,
  electoral_votes_2016$perc_rep
  ) 

#> Joining, by = "state_district"
bead_snake_plot(
  electoral_votes_2016$state_district,
  electoral_votes_2016$electoral_votes,
  electoral_votes_2016$perc_dem,
  electoral_votes_2016$perc_rep, 
  height = 30, buffer = 3)

#> Joining, by = "state_district"