x <- read_csv("../ISDS725/countypres_2000-2016.csv")
## Parsed with column specification:
## cols(
##   year = col_double(),
##   state = col_character(),
##   state_po = col_character(),
##   county = col_character(),
##   FIPS = col_double(),
##   office = col_character(),
##   candidate = col_character(),
##   party = col_character(),
##   candidatevotes = col_double(),
##   totalvotes = col_double(),
##   version = col_double()
## )
kable(head(x,20))
year state state_po county FIPS office candidate party candidatevotes totalvotes version
2000 Alabama AL Autauga 1001 President Al Gore democrat 4942 17208 20191203
2000 Alabama AL Autauga 1001 President George W. Bush republican 11993 17208 20191203
2000 Alabama AL Autauga 1001 President Ralph Nader green 160 17208 20191203
2000 Alabama AL Autauga 1001 President Other NA 113 17208 20191203
2000 Alabama AL Baldwin 1003 President Al Gore democrat 13997 56480 20191203
2000 Alabama AL Baldwin 1003 President George W. Bush republican 40872 56480 20191203
2000 Alabama AL Baldwin 1003 President Ralph Nader green 1033 56480 20191203
2000 Alabama AL Baldwin 1003 President Other NA 578 56480 20191203
2000 Alabama AL Barbour 1005 President Al Gore democrat 5188 10395 20191203
2000 Alabama AL Barbour 1005 President George W. Bush republican 5096 10395 20191203
2000 Alabama AL Barbour 1005 President Ralph Nader green 46 10395 20191203
2000 Alabama AL Barbour 1005 President Other NA 65 10395 20191203
2000 Alabama AL Bibb 1007 President Al Gore democrat 2710 7101 20191203
2000 Alabama AL Bibb 1007 President George W. Bush republican 4273 7101 20191203
2000 Alabama AL Bibb 1007 President Ralph Nader green 52 7101 20191203
2000 Alabama AL Bibb 1007 President Other NA 66 7101 20191203
2000 Alabama AL Blount 1009 President Al Gore democrat 4977 17973 20191203
2000 Alabama AL Blount 1009 President George W. Bush republican 12667 17973 20191203
2000 Alabama AL Blount 1009 President Ralph Nader green 154 17973 20191203
2000 Alabama AL Blount 1009 President Other NA 175 17973 20191203 
election_data_2012_2016 <- x %>% 
    select(-state_po, -office, -version, -candidate, -version) %>% 
    spread(key = party, value = candidatevotes) %>%
    rename(Year = year, State = state, County = county, Green = green, Democrat = democrat, 
           Republican = republican, Total_Votes = totalvotes, Independent = '<NA>') %>% 
    mutate(Pct_Rep = Republican/Total_Votes*100) %>% 
    mutate(Pct_Dem = Democrat/Total_Votes*100) %>% 
    mutate(Pct_Ind = Independent/Total_Votes*100) %>% 
    mutate(Pct_Grn = Green/Total_Votes*100) %>% 
    mutate(Result = ifelse(
        Republican > Democrat, "Republican",
        ifelse(Democrat > Republican, "Democrat", "Independent"))) %>% 
    mutate(Diff_Pos = ifelse(Result == "Republican", Republican - Democrat, Democrat - Republican)) %>% 
    mutate(Pct_Diff_Pos = ifelse(Result == "Republican", Pct_Rep - Pct_Dem, Pct_Dem - Pct_Rep))


kable(head(election_data_2012_2016, 20))
Year State County FIPS Total_Votes Democrat Green Republican Independent Pct_Rep Pct_Dem Pct_Ind Pct_Grn Result Diff_Pos Pct_Diff_Pos
2000 Alabama Autauga 1001 17208 4942 160 11993 113 69.69433 28.71920 0.6566713 0.9298001 Republican 7051 40.9751278
2000 Alabama Baldwin 1003 56480 13997 1033 40872 578 72.36544 24.78222 1.0233711 1.8289660 Republican 26875 47.5832153
2000 Alabama Barbour 1005 10395 5188 46 5096 65 49.02357 49.90861 0.6253006 0.4425204 Democrat 92 0.8850409
2000 Alabama Bibb 1007 7101 2710 52 4273 66 60.17462 38.16364 0.9294466 0.7322912 Republican 1563 22.0109844
2000 Alabama Blount 1009 17973 4977 154 12667 175 70.47794 27.69154 0.9736827 0.8568408 Republican 7690 42.7864018
2000 Alabama Bullock 1011 4904 3395 24 1433 52 29.22104 69.22920 1.0603589 0.4893964 Democrat 1962 40.0081566
2000 Alabama Butler 1013 7803 3606 36 4127 34 52.88991 46.21299 0.4357298 0.4613610 Republican 521 6.6769191
2000 Alabama Calhoun 1015 38909 15781 481 22306 341 57.32864 40.55874 0.8764039 1.2362178 Republican 6525 16.7698990
2000 Alabama Chambers 1017 11834 5616 95 6037 86 51.01403 47.45648 0.7267196 0.8027717 Republican 421 3.5575461
2000 Alabama Cherokee 1019 7823 3497 77 4154 95 53.09983 44.70152 1.2143679 0.9842771 Republican 657 8.3983127
2000 Alabama Chilton 1021 15092 4806 92 10066 128 66.69759 31.84469 0.8481315 0.6095945 Republican 5260 34.8529022
2000 Alabama Choctaw 1023 7374 3707 33 3600 34 48.82018 50.27122 0.4610795 0.4475183 Democrat 107 1.4510442
2000 Alabama Clarke 1025 10752 4679 33 5988 52 55.69196 43.51749 0.4836310 0.3069196 Republican 1309 12.1744792
2000 Alabama Clay 1027 5883 2045 52 3719 67 63.21605 34.76118 1.1388747 0.8839028 Republican 1674 28.4548700
2000 Alabama Cleburne 1029 5092 1664 39 3333 56 65.45562 32.67871 1.0997643 0.7659073 Republican 1669 32.7769049
2000 Alabama Coffee 1031 15434 5220 155 9938 121 64.39031 33.82143 0.7839834 1.0042763 Republican 4718 30.5688739
2000 Alabama Colbert 1033 21532 10543 208 10518 263 48.84823 48.96433 1.2214379 0.9660041 Democrat 25 0.1161063
2000 Alabama Conecuh 1035 5551 2783 35 2699 34 48.62187 50.13511 0.6125023 0.6305170 Democrat 84 1.5132409
2000 Alabama Coosa 1037 4567 2104 34 2382 47 52.15678 46.06963 1.0291220 0.7444712 Republican 278 6.0871469
2000 Alabama Covington 1039 13613 4440 123 8961 89 65.82678 32.61588 0.6537868 0.9035481 Republican 4521 33.2109013