urban_rural_pop <-
structure(list(state = 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"), 
    urban_in = c(1839901L, 221745L, 2656388L, 591609L, 25465911L, 
    2377886L, 2455622L, 459494L, 606900L, 10181184L, 3259598L, 
    747028L, 278439L, 8479409L, 2690908L, 942394L, 1018608L, 
    1276809L, 2228058L, 266606L, 3581336L, 4729715L, 5811662L, 
    2370403L, 617704L, 2782750L, 208743L, 687898L, 910913L, 339739L, 
    6630217L, 649391L, 14116527L, 2510999L, 202485L, 6655821L, 
    1354645L, 1419919L, 7209935L, 824524L, 1425272L, 163965L, 
    2216943L, 11374274L, 1319831L, 86873L, 3829615L, 3213897L, 
    388726L, 2464819L, 114004L), urban_out = c(597814L, 149118L, 
    550687L, 666589L, 2105967L, 337863L, 145912L, 27844L, 0L, 
    789261L, 836480L, 238791L, 299937L, 1189667L, 905109L, 740466L, 
    693963L, 633219L, 643980L, 281605L, 306645L, 339146L, 743184L, 
    685325L, 593567L, 733132L, 211246L, 356110L, 150399L, 225940L, 
    280424L, 455364L, 1047718L, 824571L, 138005L, 1383216L, 775438L, 
    583080L, 981131L, 38903L, 480468L, 183803L, 751800L, 2262974L, 
    179544L, 94031L, 463992L, 503227L, 259127L, 747258L, 180461L
    ), rural_farm = c(59349L, 1160L, 6967L, 63589L, 150535L, 
    45118L, 5250L, 6486L, 0L, 47436L, 80083L, 6277L, 44869L, 
    207016L, 188133L, 256562L, 108083L, 174204L, 40103L, 11008L, 
    32596L, 9342L, 120496L, 207956L, 56225L, 180097L, 45718L, 
    117658L, 4831L, 5576L, 17283L, 15090L, 82256L, 116801L, 60288L, 
    198914L, 82929L, 68729L, 117119L, 1124L, 48565L, 76170L, 
    111680L, 192392L, 11685L, 11810L, 80560L, 60243L, 23753L, 
    195550L, 15919L), rural_nonfarm = c(1543523L, 178020L, 451186L, 
    1028938L, 2037608L, 533527L, 680332L, 172344L, 0L, 1920045L, 
    2302055L, 116133L, 383504L, 1554510L, 1760009L, 837333L, 
    656920L, 1601064L, 1307832L, 668709L, 860891L, 938222L, 2619955L, 
    1111415L, 1305720L, 1421094L, 333358L, 416719L, 135690L, 
    537997L, 802264L, 395224L, 2743954L, 3176266L, 238022L, 2609164L, 
    932573L, 770593L, 3573458L, 138913L, 1532398L, 272066L, 1796762L, 
    3156870L, 211790L, 370044L, 1813191L, 1089325L, 1121871L, 
    1484142L, 143204L)), row.names = c(NA, -51L), class = c("tbl_df", 
"tbl", "data.frame"))