prrace08 <-
structure(list(state = structure(c(2L, 1L, 4L, 3L, 5L, 6L, 7L, 
9L, 8L, 10L, 11L, 12L, 14L, 15L, 16L, 13L, 17L, 18L, 19L, 22L, 
21L, 20L, 23L, 24L, 26L, 25L, 27L, 30L, 34L, 31L, 32L, 33L, 35L, 
28L, 29L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 47L, 
46L, 48L, 50L, 49L, 51L), .Label = c("AK", "AL", "AR", "AZ", 
"CA", "CO", "CT", "DC", "DE", "FL", "GA", "HI", "IA", "ID", "IL", 
"IN", "KS", "KY", "LA", "MA", "MD", "ME", "MI", "MN", "MO", "MS", 
"MT", "NC", "ND", "NE", "NH", "NJ", "NM", "NV", "NY", "OH", "OK", 
"OR", "PA", "RI", "SC", "SD", "TN", "TX", "UT", "VA", "VT", "WA", 
"WI", "WV", "WY"), class = "factor"), state_full = structure(1:51, .Label = c("Alabama", 
"Alaska", "Arizona", "Arkansas", "California", "Colorado", "Connecticut", 
"Delaware", "District of Columbia", "Florida", "Georgia", "Hawaii", 
"Idaho", "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", 
"Louisiana", "Maine", "Maryland", "Massachusetts", "Michigan", 
"Minnesota", "Mississippi", "Missouri", "Montana", "Nebraska", 
"Nevada", "New Hampshire", "New Jersey", "New Mexico", "New York", 
"North Carolina", "North Dakota", "Ohio", "Oklahoma", "Oregon", 
"Pennsylvania", "Rhode Island", "South Carolina", "South Dakota", 
"Tennessee", "Texas", "Utah", "Vermont", "Virginia", "Washington", 
"West Virginia", "Wisconsin", "Wyoming"), class = "factor"), 
    n_obama = c(811764L, 105650L, 948648L, 418049L, 7245731L, 
    1216793L, 979316L, 255394L, 210403L, 4143957L, 1843452L, 
    324918L, 235219L, 3319237L, 1367264L, 818240L, 499979L, 746510L, 
    780981L, 421484L, 1579890L, 1891083L, 2867680L, 1573323L, 
    520864L, 1439364L, 229725L, 324352L, 531884L, 384591L, 2085051L, 
    464458L, 4363386L, 2123390L, 141113L, 2708685L, 502294L, 
    978605L, 3192316L, 281209L, 850121L, 170886L, 1081074L, 3521164L, 
    301771L, 219105L, 1958370L, 1547632L, 301438L, 1670474L, 
    80496L), p_obama = c(38.799999999999997, 37.700000000000003, 
    45, 38.799999999999997, 60.899999999999999, 53.5, 60.5, 61.899999999999999, 
    92.900000000000006, 50.899999999999999, 47, 71.799999999999997, 
    36.100000000000001, 61.799999999999997, 49.899999999999999, 
    54, 41.399999999999999, 41.100000000000001, 39.899999999999999, 
    57.600000000000001, 61.899999999999999, 62, 57.399999999999999, 
    54.200000000000003, 42.799999999999997, 49.299999999999997, 
    47.200000000000003, 41.5, 55.100000000000001, 54.299999999999997, 
    56.799999999999997, 56.700000000000003, 62.200000000000003, 
    49.899999999999999, 44.700000000000003, 51.200000000000003, 
    34.399999999999999, 57.100000000000001, 54.700000000000003, 
    63.100000000000001, 44.899999999999999, 44.700000000000003, 
    41.799999999999997, 43.799999999999997, 34.200000000000003, 
    67.799999999999997, 52.700000000000003, 57.5, 42.600000000000001, 
    56.299999999999997, 32.700000000000003), n_mc_cain = c(1264879L, 
    168844L, 1132560L, 632672L, 4434146L, 1020135L, 620210L, 
    152356L, 14821L, 3939380L, 2048244L, 120309L, 400989L, 1981158L, 
    1341101L, 677508L, 685541L, 1043264L, 1147603L, 296195L, 
    938671L, 1104284L, 2044405L, 1275400L, 687266L, 1444352L, 
    241816L, 446039L, 411988L, 316937L, 1545495L, 343820L, 2576360L, 
    2109698L, 168523L, 2501855L, 959745L, 699673L, 2586496L, 
    157317L, 1018756L, 203019L, 1470160L, 4467748L, 555497L, 
    98791L, 1726053L, 1097176L, 394278L, 1258181L, 160639L), 
    p_mc_cain = c(60.399999999999999, 60.200000000000003, 53.799999999999997, 
    58.799999999999997, 37.299999999999997, 44.899999999999999, 
    38.299999999999997, 37, 6.5, 48.399999999999999, 52.200000000000003, 
    26.600000000000001, 61.5, 36.899999999999999, 49, 44.700000000000003, 
    56.799999999999997, 57.5, 58.600000000000001, 40.5, 36.799999999999997, 
    36.200000000000003, 40.899999999999999, 44, 56.399999999999999, 
    49.399999999999999, 49.700000000000003, 57, 42.700000000000003, 
    44.799999999999997, 42.100000000000001, 42, 36.700000000000003, 
    49.5, 53.299999999999997, 47.200000000000003, 65.599999999999994, 
    40.799999999999997, 44.299999999999997, 35.299999999999997, 
    53.799999999999997, 53.200000000000003, 56.899999999999999, 
    55.5, 62.899999999999999, 30.600000000000001, 46.399999999999999, 
    40.5, 55.700000000000003, 42.399999999999999, 65.200000000000003
    ), el_votes = c(9L, 3L, 10L, 6L, 55L, 9L, 7L, 3L, 3L, 27L, 
    15L, 4L, 4L, 21L, 11L, 7L, 6L, 8L, 9L, 4L, 10L, 12L, 17L, 
    10L, 6L, 11L, 3L, 5L, 5L, 4L, 15L, 5L, 31L, 15L, 3L, 20L, 
    7L, 7L, 21L, 4L, 8L, 3L, 11L, 34L, 5L, 3L, 13L, 11L, 5L, 
    10L, 3L)), row.names = c(NA, -51L), class = c("tbl_df", "tbl", 
"data.frame"))