state_stats <- structure(list(state = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 46L, 47L, 48L, 49L, 50L, 51L, 52L), .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", "United States", "Utah", "Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", "Wyoming"), class = "factor"), abbr = 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, 46L, 48L, 47L, 49L, 51L, 50L, 52L), .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", "US", "UT", "VA", "VT", "WA", "WI", "WV", "WY"), class = "factor"), fips = c(1, 2, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 51, 53, 54, 55, 56), pop2010 = c(4779736, 710231, 6392017, 2915918, 37253956, 5029196, 3574097, 897934, 601723, 18801310, 9687653, 1360301, 1567582, 12830632, 6483802, 3046355, 2853118, 4339367, 4533372, 1328361, 5773552, 6547629, 9883640, 5303925, 2967297, 5988927, 989415, 1826341, 2700551, 1316470, 8791894, 2059179, 19378102, 9535483, 672591, 11536504, 3751351, 3831074, 12702379, 1052567, 4625364, 814180, 6346105, 25145561, 2763885, 625741, 8001024, 6724540, 1852994, 5686986, 563626 ), pop2000 = c(4447100, 626932, 5130632, 2673400, 33871648, 4301261, 3405565, 783600, 572059, 15982378, 8186453, 1211537, 1293953, 12419293, 6080485, 2926324, 2688418, 4041769, 4468976, 1274923, 5296486, 6349097, 9938444, 4919479, 2844658, 5595211, 902195, 1711263, 1998257, 1235786, 8414350, 1819046, 18976457, 8049313, 642200, 11353140, 3450654, 3421399, 12281054, 1048319, 4012012, 754844, 5689283, 20851820, 2233169, 608827, 7078515, 5894121, 1808344, 5363675, 493782), homeownership = c(71.099999999999994, 64.700000000000003, 67.400000000000006, 67.700000000000003, 57.399999999999999, 67.599999999999994, 69.200000000000003, 73.599999999999994, 43.5, 69.700000000000003, 67.200000000000003, 59.299999999999997, 71, 69.200000000000003, 71.5, 73.200000000000003, 69.400000000000006, 69.900000000000006, 68.200000000000003, 73.099999999999994, 69, 64, 74.200000000000003, 74.200000000000003, 70.799999999999997, 70, 69, 68.599999999999994, 60.100000000000001, 72.599999999999994, 66.900000000000006, 69.599999999999994, 55.200000000000003, 68.099999999999994, 66.599999999999994, 69.200000000000003, 68.200000000000003, 63.799999999999997, 71, 62.5, 69.900000000000006, 68.900000000000006, 69.599999999999994, 64.799999999999997, 71.200000000000003, 71.400000000000006, 68.900000000000006, 64.799999999999997, 74.599999999999994, 69.5, 70.200000000000003), multiunit = c(15.5, 24.600000000000001, 20.699999999999999, 15.199999999999999, 30.699999999999999, 25.600000000000001, 34.600000000000001, 17.699999999999999, 61.700000000000003, 30, 20.5, 39.200000000000003, 14.9, 33, 18.600000000000001, 18.600000000000001, 17.399999999999999, 17.699999999999999, 17.800000000000001, 19.399999999999999, 25.699999999999999, 41.700000000000003, 18, 21.5, 13.4, 19.600000000000001, 16.300000000000001, 19.300000000000001, 29.399999999999999, 25.699999999999999, 36, 15.1, 50.600000000000001, 16.899999999999999, 25.899999999999999, 23, 15.300000000000001, 23.300000000000001, 20.699999999999999, 40.5, 17.399999999999999, 18.5, 18.100000000000001, 24.100000000000001, 21.399999999999999, 23.199999999999999, 21.399999999999999, 25.899999999999999, 12.1, 25.5, 15.800000000000001 ), income = c(22984, 30726, 25680, 21274, 29188, 30151, 36775, 29007, 42078, 26551, 25134, 28882, 22518, 28782, 24058, 25335, 25907, 22515, 23094, 25385, 34849, 33966, 25135, 29582, 19977, 24724, 23836, 25229, 27589, 31422, 34858, 22966, 30948, 24745, 25803, 25113, 23094, 26171, 27049, 28707, 23443, 24110, 23722, 24870, 23139, 27478, 32145, 29733, 21232, 26624, 27860), med_income = c(42081, 66521, 50448, 39267, 60883, 56456, 67740, 57599, 58526, 47661, 49347, 66420, 46423, 55735, 47697, 48872, 49424, 41576, 43445, 46933, 70647, 64509, 48432, 57243, 37881, 46262, 43872, 49342, 55726, 63277, 69811, 43820, 55603, 45570, 46781, 47358, 42979, 49260, 50398, 54902, 43939, 46369, 43314, 49646, 56330, 51841, 61406, 57244, 38380, 51598, 53802 ), poverty = c(17.100000000000001, 9.5, 15.300000000000001, 18, 13.699999999999999, 12.199999999999999, 9.1999999999999993, 11, 18.5, 13.800000000000001, 15.699999999999999, 9.5999999999999996, 13.6, 12.6, 13.5, 11.6, 12.4, 17.699999999999999, 18.100000000000001, 12.6, 8.5999999999999996, 10.5, 14.800000000000001, 10.6, 21.199999999999999, 14, 14.5, 11.800000000000001, 11.9, 7.7999999999999998, 9.0999999999999996, 18.399999999999999, 14.199999999999999, 15.5, 12.300000000000001, 14.199999999999999, 16.199999999999999, 14, 12.4, 12.199999999999999, 16.399999999999999, 13.699999999999999, 16.5, 16.800000000000001, 10.800000000000001, 11.1, 10.300000000000001, 12.1, 17.399999999999999, 11.6, 9.8000000000000007), fed_spend = c(11.726134037528432, 16.786568032090969, 9.8471275968133369, 9.6111855683184508, 8.8857910553177231, 9.1522945218281411, 14.834472035873677, 8.8895386520612867, 100.90906613175829, 9.6210014621321598, 8.8822446468716425, 13.956767656570127, 8.8244378922442337, 8.5170122562941568, 9.4497736050545651, 9.5026761490371285, 10.36470450924217, 12.963916856997807, 11.611366770695192, 10.887619404664846, 16.639838006135566, 12.488459868450091, 9.2391201015010669, 8.3594930169638531, 11.156513486853523, 11.249529840654262, 10.463793251567846, 9.1938953349894685, 7.3665385323217372, 8.9454791981587132, 9.0529341004338768, 13.340663439166775, 10.063556740489858, 9.0025744894097137, 13.29540389330217, 9.1165757841370318, 10.194196437496785, 8.770311406148771, 11.012162288654748, 10.869811612942454, 10.449227347296343, 11.84471124321403, 10.3252792066945, 8.6050754246445322, 8.0824082767553644, 10.822412148157145, 15.97270874328086, 10.258140482471664, 11.044192263979268, 9.2416269356034988, 11.543092405247451), land_area = c(50645.330000000002, 570640.94999999995, 113594.08, 52035.480000000003, 155779.22, 103641.89, 4842.3599999999997, 1948.54, 61.049999999999997, 53624.760000000002, 57513.489999999998, 6422.6300000000001, 82643.119999999995, 55518.93, 35826.110000000001, 55857.129999999997, 81758.720000000001, 39486.339999999997, 43203.900000000001, 30842.919999999998, 9707.2399999999998, 7800.0600000000004, 56538.900000000001, 79626.740000000005, 46923.269999999997, 68741.520000000004, 145545.79999999999, 76824.169999999998, 109781.17999999999, 8952.6499999999996, 7354.2200000000003, 121298.14999999999, 47126.400000000001, 48617.910000000003, 69000.800000000003, 40860.690000000002, 68594.919999999998, 95988.009999999995, 44742.699999999997, 1033.8099999999999, 30060.700000000001, 75811, 41234.900000000001, 261231.70999999999, 82169.619999999995, 9216.6599999999999, 39490.089999999997, 66455.520000000004, 24038.209999999999, 54157.800000000003, 97093.139999999999), smoke = c(24.800000000000001, 25, 20.399999999999999, 23.5, 15.199999999999999, 19.899999999999999, 16.5, 20.699999999999999, 20.100000000000001, 21.600000000000001, 22.199999999999999, 17.100000000000001, 17.899999999999999, 19.899999999999999, 27.300000000000001, 20.399999999999999, 17.800000000000001, 28.699999999999999, 22.600000000000001, 20.899999999999999, 19, 18.100000000000001, 22.100000000000001, 20, 23.699999999999999, 23.399999999999999, 19.199999999999999, 21.300000000000001, 23.100000000000001, 20.5, 18.100000000000001, 21.5, 20.5, 22.699999999999999, 20, 22.300000000000001, 25.100000000000001, 18.5, 23.699999999999999, 19.800000000000001, 22.600000000000001, 19.800000000000001, 26.800000000000001, 20, 11.5, 19.300000000000001, 20.600000000000001, 17.600000000000001, 26.600000000000001, 20.800000000000001, 21.300000000000001), murder = c(8.1999999999999993, 4.7999999999999998, 7.5, 6.7000000000000002, 6.9000000000000004, 3.7000000000000002, 2.8999999999999999, 4.4000000000000004, 35.399999999999999, 5, 6.2000000000000002, 1.8999999999999999, 2.3999999999999999, 6, 5.7000000000000002, 1.3, NA, NA, 9.9000000000000004, 1.3999999999999999, 9.9000000000000004, 2.7000000000000002, 6.0999999999999996, 2.2000000000000002, 7.2999999999999998, 6.9000000000000004, NA, 2.5, 8.5, 1.3999999999999999, 4.7999999999999998, 7.4000000000000004, 4.5, 6.7000000000000002, 1.1000000000000001, 5.0999999999999996, 5.2999999999999998, 2.2000000000000002, 6.0999999999999996, 3.2000000000000002, 7.4000000000000004, 2.2999999999999998, 7.2000000000000002, 6.2000000000000002, 2.2999999999999998, 1.3, 6.0999999999999996, 3.2999999999999998, 4.4000000000000004, 3.5, 2.7000000000000002), robbery = c(141.40000000000001, 80.900000000000006, 144.40000000000001, 91.099999999999994, 176.09999999999999, 84.599999999999994, 113, 154.80000000000001, 672.10000000000002, 169.40000000000001, 154.80000000000001, 78.5, 18.600000000000001, 181.69999999999999, 108.59999999999999, 38.899999999999999, NA, NA, 118, 24.399999999999999, 256.69999999999999, 119, 131.80000000000001, 92, 82.299999999999997, 124.09999999999999, NA, 59.100000000000001, 194.69999999999999, 27.399999999999999, 151.59999999999999, 98.700000000000003, 182.69999999999999, 145.5, 7.4000000000000004, 163.09999999999999, 91, 68.099999999999994, 154.59999999999999, 72.099999999999994, 132.09999999999999, 18.600000000000001, 167.30000000000001, 156.59999999999999, 44.299999999999997, 11.699999999999999, 99.200000000000003, 92.099999999999994, 44.600000000000001, 82.200000000000003, 15.300000000000001), agg_assault = c(5.2000000000000002, 65.5, 5.0999999999999996, 13.300000000000001, 0.90000000000000002, 5.2999999999999998, 3.8999999999999999, 47.700000000000003, 119.90000000000001, 2.6000000000000001, 2.7000000000000002, 10.9, 12.5, 2.6000000000000001, 2.7999999999999998, 7.2999999999999998, NA, NA, 9.5999999999999996, 4.5999999999999996, 7.2000000000000002, 4.7000000000000002, 3.7000000000000002, 3, 5, 6.0999999999999996, NA, 10.5, 13.4, 5.5, 2.1000000000000001, 26.300000000000001, 1.2, 3, 9.6999999999999993, 1.2, 9.9000000000000004, 4.7000000000000002, 1.8999999999999999, 13.9, 12.5, 13.300000000000001, 8.5, 1.3, 5.2000000000000002, 13.300000000000001, 1.8999999999999999, 3.1000000000000001, 11.1, 2.3999999999999999, 33.399999999999999 ), larceny = c(55.399999999999999, 366, 46.399999999999999, 93, 5.0999999999999996, 54.399999999999999, 51, 238.80000000000001, 447.89999999999998, 14.1, 28.399999999999999, 243.19999999999999, 123.2, 16.899999999999999, 37.200000000000003, 67.099999999999994, NA, NA, 55, 138, 39.700000000000003, 23.300000000000001, 19.399999999999999, 42, 70.200000000000003, 45.899999999999999, NA, 141, 79.799999999999997, 104.59999999999999, 17.800000000000001, 128.19999999999999, 8.0999999999999996, 26.699999999999999, 223.09999999999999, 21.100000000000001, 70.5, 81.200000000000003, 13.6, 172.5, 63.899999999999999, 165, 44.600000000000001, 11.800000000000001, 105.59999999999999, 269.5, 25.399999999999999, 46.799999999999997, 96.799999999999997, 35, 449.60000000000002 ), motor_theft = c(6, 55.100000000000001, 14.5, 9, 1.8999999999999999, 11.1, 8.3000000000000007, 31, 233, 2.2999999999999998, 5.0999999999999996, 52.700000000000003, 12.9, 2.3999999999999999, 5.2999999999999998, 6.0999999999999996, NA, NA, 7, 7.7000000000000002, 10.5, 4.5, 4.7999999999999998, 5.2000000000000002, 8.5999999999999996, 7.4000000000000004, NA, 17.300000000000001, 41.299999999999997, 7.7999999999999998, 3.6000000000000001, 20.100000000000001, 1, 3.3999999999999999, 24.699999999999999, 3.1000000000000001, 10.4, 13.800000000000001, 1.8999999999999999, 38.799999999999997, 8.3000000000000007, 13.300000000000001, 6.5999999999999996, 1.6000000000000001, 12.4, 16.399999999999999, 2.6000000000000001, 11.699999999999999, 11.300000000000001, 4, 25.699999999999999 ), soc_sec = c(18.5, 8.9000000000000004, 13.9, 18.699999999999999, 11.800000000000001, 11.4, 16.300000000000001, 16.600000000000001, 12, 18, 12.300000000000001, 14.6, 14, 14.699999999999999, 16, 17.899999999999999, 15.699999999999999, 18.100000000000001, 16.300000000000001, 19.899999999999999, 13.199999999999999, 16.300000000000001, 17.399999999999999, 14.6, 18.399999999999999, 17.5, 16.800000000000001, 15.9, 12.6, 16.600000000000001, 15.6, 14.800000000000001, 15.699999999999999, 15.4, 17.100000000000001, 16.899999999999999, 16.600000000000001, 15.9, 18.899999999999999, 18.199999999999999, 16.199999999999999, 17.199999999999999, 16.899999999999999, 11.4, 9.5, 17.600000000000001, 13.9, 13.6, 22, 16.5, 14.699999999999999), nuclear = c(16.300000000000001, 0, 15.6, 13, 7, 0, 25.600000000000001, 0, 0, 7.2999999999999998, 11.1, 0, 0, 26.800000000000001, 0, 5.2000000000000002, 10.6, 0, 7.9000000000000004, 0, 13.9, 4.9000000000000004, 13.1, 13.4, 7.5, 5.7999999999999998, 0, 17.600000000000001, 0, 28.199999999999999, 22.699999999999999, 0, 13.199999999999999, 18.199999999999999, 0, 6.2000000000000002, 0, 0, 20.5, 0, 28.699999999999999, 0, 16.399999999999999, 4.7999999999999998, 0, 50.5, 15.199999999999999, 4.0999999999999996, 0, 9.8000000000000007, 0), coal = c(56.600000000000001, 9.5, 39.600000000000001, 48.200000000000003, 1.1000000000000001, 71.700000000000003, 11.9, 59.399999999999999, 0, 28.399999999999999, 63.799999999999997, 14.199999999999999, 0.90000000000000002, 47.5, 94.200000000000003, 77.599999999999994, 75.200000000000003, 91.099999999999994, 24.899999999999999, 1.7, 55.700000000000003, 25.300000000000001, 57.799999999999997, 62.100000000000001, 36.899999999999999, 85.299999999999997, 63.799999999999997, 66.200000000000003, 45.700000000000003, 17.199999999999999, 19.199999999999999, 85.200000000000003, 14, 60.5, 94.799999999999997, 87.200000000000003, 53, 7, 55.5, 0, 38.700000000000003, 46, 61, 37.399999999999999, 94.200000000000003, 0, 44.899999999999999, 10.300000000000001, 97.599999999999994, 67.400000000000006, 95.099999999999994 ), tr_deaths = c(23.699999999999999, 10.1, 18.399999999999999, 22.199999999999999, 11.6, 12, 7.7000000000000002, 14.9, 8, 18.800000000000001, 17.800000000000001, 10.300000000000001, 17.5, 10.6, 14.5, 14.800000000000001, 15, 22.699999999999999, 21.100000000000001, 12.699999999999999, 10.6, 6.7999999999999998, 11.4, 10.5, 31.399999999999999, 21, 25.399999999999999, 15.1, 15.800000000000001, 12.6, 8.5, 23.699999999999999, 7.4000000000000004, 16.100000000000001, 18.300000000000001, 11.5, 21.399999999999999, 12.699999999999999, 12.699999999999999, 8.3000000000000007, 23.600000000000001, 22.800000000000001, 20, 13.9, 10.199999999999999, 11.699999999999999, 11.800000000000001, 9.5999999999999996, 20.199999999999999, 14.300000000000001, 30.199999999999999 ), tr_deaths_no_alc = c(1.3, 7.2999999999999998, 0.90000000000000002, 2.2000000000000002, 0.20000000000000001, 1.2, 1.6000000000000001, 5.7000000000000002, 7.5, 0.29999999999999999, 0.69999999999999996, 3.6000000000000001, 4.2999999999999998, 0.40000000000000002, 1, 2.3999999999999999, 2.2999999999999998, 1.6000000000000001, 1.3, 4.9000000000000004, 1.1000000000000001, 0.90000000000000002, 0.59999999999999998, 1.2, 2, 1, 5.0999999999999996, 3.7000000000000002, 2.2999999999999998, 4.9000000000000004, 0.69999999999999996, 3, 0.29999999999999999, 0.69999999999999996, 7.7999999999999998, 0.5, 1.7, 1.7, 0.5, 4.7999999999999998, 1.2, 7, 1, 0.20000000000000001, 3.1000000000000001, 9.5999999999999996, 0.80000000000000004, 0.80000000000000004, 3.6000000000000001, 1, 11), unempl = c(7.5999999999999996, 7.0999999999999996, 8.6999999999999993, 7.5999999999999996, 10.9, 7.7999999999999998, 7.7999999999999998, 7, 9.9000000000000004, 9.4000000000000004, 9.0999999999999996, 6.4000000000000004, 8, 9.0999999999999996, 8.4000000000000004, 5.2999999999999998, 6.0999999999999996, 8.6999999999999993, 7, 7.0999999999999996, 6.5, 6.9000000000000004, 8.8000000000000007, 5.7000000000000002, 9.5, 7.4000000000000004, 6.2000000000000002, 4, 12.300000000000001, 5.2000000000000002, 9, 7.2000000000000002, 8.5, 9.9000000000000004, 3.1000000000000001, 7.5999999999999996, 6, 8.8000000000000007, 7.5999999999999996, 11, 9.0999999999999996, 4.2999999999999998, 8, 7.0999999999999996, 5.7000000000000002, 4.9000000000000004, 5.7000000000000002, 8.1999999999999993, 7.2000000000000002, 6.9000000000000004, 5.4000000000000004)), row.names = c(NA, -51L), class = c("tbl_df", "tbl", "data.frame"))