Actividad Integradora

Importación de Librerías

library(tidyverse)
library(forecast)
library(DT)
library(maps)

Preparación del dataset

state_pop <- read_csv("historical_state_population_by_year.csv", col_names = c("state","year","pop"))
datatable(state_pop, style = "bootstrap5", options = list(scrollX = TRUE))

states <- unique(state_pop$state)

states

##  [1] "AK" "AL" "AR" "AZ" "CA" "CO" "CT" "DC" "DE" "FL" "GA" "HI" "IA" "ID" "IL"
## [16] "IN" "KS" "KY" "LA" "MA" "MD" "ME" "MI" "MN" "MO" "MS" "MT" "NC" "ND" "NE"
## [31] "NH" "NJ" "NM" "NV" "NY" "OH" "OK" "OR" "PA" "RI" "SC" "SD" "TN" "TX" "UT"
## [46] "VA" "VT" "WA" "WI" "WV" "WY"

a <- state_pop %>% 
  group_by(year)

a <- state_pop %>% 
  pivot_wider(
    names_from = state,
    values_from = pop) %>% 
  arrange(year)

a

## # A tibble: 120 × 52
##     year    AK      AL      AR     AZ      CA     CO     CT     DC     DE     FL
##    <dbl> <dbl>   <dbl>   <dbl>  <dbl>   <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
##  1  1900    NA 1830000 1314000 124000 1490000 543000 9.1 e5 278000 185000 530000
##  2  1901    NA 1907000 1341000 131000 1550000 581000 9.31e5 285000 187000 544000
##  3  1902    NA 1935000 1360000 138000 1623000 621000 9.52e5 290000 188000 565000
##  4  1903    NA 1957000 1384000 144000 1702000 652000 9.72e5 295000 190000 587000
##  5  1904    NA 1978000 1419000 151000 1792000 659000 9.87e5 302000 192000 599000
##  6  1905    NA 2012000 1447000 158000 1893000 680000 1.01e6 308000 194000 615000
##  7  1906    NA 2045000 1465000 167000 1976000 707000 1.03e6 313000 196000 628000
##  8  1907    NA 2058000 1484000 176000 2054000 733000 1.06e6 317000 197000 645000
##  9  1908    NA 2070000 1513000 186000 2161000 757000 1.08e6 321000 199000 684000
## 10  1909    NA 2108000 1545000 196000 2282000 775000 1.10e6 327000 201000 724000
## # ℹ 110 more rows
## # ℹ 41 more variables: GA <dbl>, HI <dbl>, IA <dbl>, ID <dbl>, IL <dbl>,
## #   IN <dbl>, KS <dbl>, KY <dbl>, LA <dbl>, MA <dbl>, MD <dbl>, ME <dbl>,
## #   MI <dbl>, MN <dbl>, MO <dbl>, MS <dbl>, MT <dbl>, NC <dbl>, ND <dbl>,
## #   NE <dbl>, NH <dbl>, NJ <dbl>, NM <dbl>, NV <dbl>, NY <dbl>, OH <dbl>,
## #   OK <dbl>, OR <dbl>, PA <dbl>, RI <dbl>, SC <dbl>, SD <dbl>, TN <dbl>,
## #   TX <dbl>, UT <dbl>, VA <dbl>, VT <dbl>, WA <dbl>, WI <dbl>, WV <dbl>, …

b <- subset(a, select = -year)
c <- a %>% filter(year >= 1950)
c <- subset(c, select = -year)
years <- seq(2020, 2070, by = 1)
resultados <- data.frame(year = years)

for (i in states) {
  if (i == "AK" | i == "HI") {
    ts <- ts(data=c[i], start = c(1950), frequency = 1)
  } else {
    ts <- ts(data=b[i], start = c(1900), frequency = 1)
  }
  arima <- auto.arima(ts)
  pronostico <- forecast(arima, level = c(95), h = 51)
  d <- as.data.frame(pronostico)
  resultados[i] <- d$`Point Forecast`
}

resultados

##    year        AK      AL      AR       AZ       CA      CO      CT       DC
## 1  2020  734111.8 4925961 3029285  7385734 39562858 5832997 3560896 709676.0
## 2  2021  741609.8 4951959 3042327  7492750 39613493 5909702 3556848 714054.0
## 3  2022  751266.8 4977956 3056085  7599767 39664128 5987281 3553573 718875.8
## 4  2023  761127.6 5003954 3070171  7706783 39714763 6065175 3549915 723697.6
## 5  2024  770445.6 5029951 3084407  7813800 39765398 6143182 3545982 728519.4
## 6  2025  779233.0 5055949 3098712  7920817 39816033 6221228 3541894 733341.2
## 7  2026  787748.5 5081947 3113048  8027833 39866668 6299290 3537924 738163.0
## 8  2027  796208.0 5107944 3127399  8134850 39917303 6377356 3534063 742984.8
## 9  2028  804710.3 5133942 3141756  8241866 39967938 6455424 3530234 747806.5
## 10 2029  813267.5 5159939 3156116  8348883 40018573 6533493 3526362 752628.3
## 11 2030  821857.4 5185937 3170478  8455900 40069208 6611563 3522452 757450.1
## 12 2031  830456.9 5211935 3184840  8562916 40119843 6689632 3518537 762271.9
## 13 2032  839053.7 5237932 3199203  8669933 40170478 6767701 3514638 767093.7
## 14 2033  847645.1 5263930 3213565  8776949 40221113 6845771 3510751 771915.5
## 15 2034  856232.7 5289927 3227928  8883966 40271748 6923840 3506865 776737.3
## 16 2035  864818.9 5315925 3242291  8990982 40322383 7001909 3502972 781559.1
## 17 2036  873405.2 5341923 3256654  9097999 40373018 7079979 3499076 786380.9
## 18 2037  881992.0 5367920 3271017  9205016 40423653 7158048 3495180 791202.7
## 19 2038  890579.1 5393918 3285379  9312032 40474288 7236117 3491286 796024.5
## 20 2039  899166.5 5419915 3299742  9419049 40524923 7314187 3487394 800846.3
## 21 2040  907753.9 5445913 3314105  9526065 40575558 7392256 3483501 805668.1
## 22 2041  916341.3 5471910 3328468  9633082 40626193 7470326 3479607 810489.9
## 23 2042  924928.6 5497908 3342831  9740099 40676828 7548395 3475713 815311.7
## 24 2043  933515.9 5523906 3357194  9847115 40727463 7626464 3471819 820133.5
## 25 2044  942103.2 5549903 3371556  9954132 40778098 7704534 3467926 824955.3
## 26 2045  950690.5 5575901 3385919 10061148 40828733 7782603 3464032 829777.1
## 27 2046  959277.8 5601898 3400282 10168165 40879368 7860672 3460139 834598.9
## 28 2047  967865.1 5627896 3414645 10275182 40930003 7938742 3456245 839420.7
## 29 2048  976452.4 5653894 3429008 10382198 40980638 8016811 3452351 844242.4
## 30 2049  985039.7 5679891 3443371 10489215 41031273 8094880 3448458 849064.2
## 31 2050  993627.0 5705889 3457733 10596231 41081908 8172950 3444564 853886.0
## 32 2051 1002214.3 5731886 3472096 10703248 41132543 8251019 3440671 858707.8
## 33 2052 1010801.6 5757884 3486459 10810265 41183178 8329088 3436777 863529.6
## 34 2053 1019388.9 5783882 3500822 10917281 41233813 8407158 3432883 868351.4
## 35 2054 1027976.2 5809879 3515185 11024298 41284448 8485227 3428990 873173.2
## 36 2055 1036563.5 5835877 3529548 11131314 41335083 8563297 3425096 877995.0
## 37 2056 1045150.8 5861874 3543910 11238331 41385718 8641366 3421203 882816.8
## 38 2057 1053738.1 5887872 3558273 11345348 41436353 8719435 3417309 887638.6
## 39 2058 1062325.4 5913870 3572636 11452364 41486988 8797505 3413415 892460.4
## 40 2059 1070912.7 5939867 3586999 11559381 41537623 8875574 3409522 897282.2
## 41 2060 1079499.9 5965865 3601362 11666397 41588258 8953643 3405628 902104.0
## 42 2061 1088087.2 5991862 3615725 11773414 41638893 9031713 3401735 906925.8
## 43 2062 1096674.5 6017860 3630087 11880431 41689528 9109782 3397841 911747.6
## 44 2063 1105261.8 6043858 3644450 11987447 41740163 9187851 3393947 916569.4
## 45 2064 1113849.1 6069855 3658813 12094464 41790798 9265921 3390054 921391.2
## 46 2065 1122436.4 6095853 3673176 12201480 41841433 9343990 3386160 926213.0
## 47 2066 1131023.7 6121850 3687539 12308497 41892068 9422060 3382266 931034.8
## 48 2067 1139611.0 6147848 3701902 12415513 41942703 9500129 3378373 935856.6
## 49 2068 1148198.3 6173846 3716264 12522530 41993338 9578198 3374479 940678.3
## 50 2069 1156785.6 6199843 3730627 12629547 42043973 9656268 3370586 945500.1
## 51 2070 1165372.9 6225841 3744990 12736563 42094608 9734337 3366692 950321.9
##           DE       FL       GA      HI      IA      ID       IL      IN      KS
## 1   982077.5 21749270 10725727 1421664 3162454 1818707 12643893 6765351 2921214
## 2   990391.0 22031816 10834031 1431785 3170272 1847077 12622778 6798782 2934496
## 3   998704.5 22317544 10942335 1443688 3177939 1875448 12601658 6832465 2946180
## 4  1007018.1 22604193 11050639 1456324 3185690 1903819 12572899 6866359 2958339
## 5  1015331.6 22891107 11158942 1469262 3193395 1932190 12541218 6900431 2970357
## 6  1023645.1 23178098 11267246 1482325 3201125 1960560 12508985 6934652 2982417
## 7  1031958.6 23465111 11375550 1495439 3208841 1988931 12479182 6968999 2994464
## 8  1040272.1 23752131 11483854 1508574 3216565 2017302 12450540 7003451 3006515
## 9  1048585.6 24039152 11592158 1521718 3224285 2045672 12422281 7037991 3018565
## 10 1056899.1 24326174 11700462 1534866 3232007 2074043 12393275 7072606 3030615
## 11 1065212.7 24613196 11808766 1548014 3239728 2102414 12363832 7107283 3042665
## 12 1073526.2 24900218 11917070 1561164 3247449 2130785 12334192 7142013 3054716
## 13 1081839.7 25187240 12025374 1574313 3255170 2159155 12304772 7176787 3066766
## 14 1090153.2 25474263 12133677 1587463 3262891 2187526 12275510 7211598 3078816
## 15 1098466.7 25761285 12241981 1600613 3270612 2215897 12246337 7246440 3090866
## 16 1106780.2 26048307 12350285 1613763 3278334 2244268 12217102 7281308 3102916
## 17 1115093.7 26335329 12458589 1626913 3286055 2272638 12187813 7316199 3114967
## 18 1123407.3 26622351 12566893 1640063 3293776 2301009 12158486 7351107 3127017
## 19 1131720.8 26909373 12675197 1653212 3301497 2329380 12129176 7386032 3139067
## 20 1140034.3 27196395 12783501 1666362 3309218 2357750 12099883 7420969 3151117
## 21 1148347.8 27483418 12891805 1679512 3316940 2386121 12070605 7455917 3163167
## 22 1156661.3 27770440 13000108 1692662 3324661 2414492 12041324 7490875 3175218
## 23 1164974.8 28057462 13108412 1705812 3332382 2442863 12012037 7525840 3187268
## 24 1173288.3 28344484 13216716 1718962 3340103 2471233 11982744 7560811 3199318
## 25 1181601.9 28631506 13325020 1732112 3347824 2499604 11953452 7595789 3211368
## 26 1189915.4 28918528 13433324 1745261 3355545 2527975 11924162 7630770 3223418
## 27 1198228.9 29205551 13541628 1758411 3363267 2556345 11894873 7665756 3235468
## 28 1206542.4 29492573 13649932 1771561 3370988 2584716 11865585 7700745 3247519
## 29 1214855.9 29779595 13758236 1784711 3378709 2613087 11836296 7735736 3259569
## 30 1223169.4 30066617 13866540 1797861 3386430 2641458 11807007 7770730 3271619
## 31 1231482.9 30353639 13974843 1811011 3394151 2669828 11777717 7805726 3283669
## 32 1239796.5 30640661 14083147 1824161 3401873 2698199 11748427 7840723 3295719
## 33 1248110.0 30927684 14191451 1837310 3409594 2726570 11719138 7875722 3307770
## 34 1256423.5 31214706 14299755 1850460 3417315 2754941 11689849 7910722 3319820
## 35 1264737.0 31501728 14408059 1863610 3425036 2783311 11660560 7945723 3331870
## 36 1273050.5 31788750 14516363 1876760 3432757 2811682 11631270 7980724 3343920
## 37 1281364.0 32075772 14624667 1889910 3440478 2840053 11601981 8015726 3355970
## 38 1289677.6 32362794 14732971 1903060 3448200 2868423 11572692 8050729 3368021
## 39 1297991.1 32649817 14841275 1916209 3455921 2896794 11543403 8085733 3380071
## 40 1306304.6 32936839 14949578 1929359 3463642 2925165 11514113 8120736 3392121
## 41 1314618.1 33223861 15057882 1942509 3471363 2953536 11484824 8155740 3404171
## 42 1322931.6 33510883 15166186 1955659 3479084 2981906 11455535 8190745 3416221
## 43 1331245.1 33797905 15274490 1968809 3486805 3010277 11426245 8225749 3428272
## 44 1339558.6 34084927 15382794 1981959 3494527 3038648 11396956 8260754 3440322
## 45 1347872.2 34371950 15491098 1995109 3502248 3067018 11367667 8295759 3452372
## 46 1356185.7 34658972 15599402 2008258 3509969 3095389 11338377 8330764 3464422
## 47 1364499.2 34945994 15707706 2021408 3517690 3123760 11309088 8365769 3476472
## 48 1372812.7 35233016 15816009 2034558 3525411 3152131 11279799 8400775 3488523
## 49 1381126.2 35520038 15924313 2047708 3533133 3180501 11250510 8435780 3500573
## 50 1389439.7 35807060 16032617 2060858 3540854 3208872 11221220 8470786 3512623
## 51 1397753.2 36094083 16140921 2074008 3548575 3237243 11191931 8505791 3524673
##         KY      LA      MA      MD      ME       MI      MN      MO      MS
## 1  4481409 4668489 6919008 6061455 1349520  9987950 5672700 6161218 2984315
## 2  4500040 4694310 6953317 6077229 1355196  9991994 5705621 6188469 2996270
## 3  4520006 4721357 6987625 6093004 1360646  9999832 5738473 6214334 3008224
## 4  4539061 4748651 7021934 6108779 1366096 10009788 5771293 6238806 3020179
## 5  4558738 4775993 7056243 6124554 1371546 10019694 5804098 6264297 3032134
## 6  4577990 4803345 7090551 6140328 1376996 10028388 5836895 6290239 3044088
## 7  4597532 4830700 7124860 6156103 1382446 10035910 5869690 6315568 3056043
## 8  4616877 4858054 7159168 6171878 1387896 10042959 5902483 6340818 3067998
## 9  4636356 4885409 7193477 6187653 1393346 10050192 5935275 6366391 3079953
## 10 4655743 4912764 7227786 6203427 1398796 10057872 5968067 6391927 3091907
## 11 4675193 4940119 7262094 6219202 1404246 10065886 6000859 6417311 3103862
## 12 4694600 4967473 7296403 6234977 1409696 10073981 6033650 6442750 3115817
## 13 4714037 4994828 7330711 6250752 1415146 10081969 6066442 6468251 3127771
## 14 4733453 5022183 7365020 6266526 1420596 10089808 6099234 6493711 3139726
## 15 4752883 5049538 7399329 6282301 1426046 10097560 6132025 6519149 3151681
## 16 4772304 5076892 7433637 6298076 1431496 10105308 6164817 6544613 3163635
## 17 4791731 5104247 7467946 6313851 1436946 10113101 6197608 6570081 3175590
## 18 4811154 5131602 7502254 6329625 1442396 10120942 6230400 6595535 3187545
## 19 4830580 5158957 7536563 6345400 1447846 10128803 6263192 6620991 3199499
## 20 4850004 5186311 7570872 6361175 1453296 10136658 6295983 6646453 3211454
## 21 4869429 5213666 7605180 6376950 1458746 10144496 6328775 6671913 3223409
## 22 4888853 5241021 7639489 6392724 1464196 10152320 6361566 6697371 3235363
## 23 4908278 5268376 7673797 6408499 1469646 10160141 6394358 6722830 3247318
## 24 4927702 5295731 7708106 6424274 1475096 10167965 6427149 6748290 3259273
## 25 4947127 5323085 7742414 6440049 1480546 10175796 6459941 6773749 3271227
## 26 4966551 5350440 7776723 6455823 1485996 10183630 6492733 6799207 3283182
## 27 4985976 5377795 7811032 6471598 1491445 10191464 6525524 6824667 3295137
## 28 5005400 5405150 7845340 6487373 1496895 10199296 6558316 6850126 3307091
## 29 5024825 5432504 7879649 6503148 1502345 10207127 6591107 6875585 3319046
## 30 5044250 5459859 7913957 6518922 1507795 10214957 6623899 6901044 3331001
## 31 5063674 5487214 7948266 6534697 1513245 10222787 6656691 6926503 3342955
## 32 5083099 5514569 7982575 6550472 1518695 10230617 6689482 6951962 3354910
## 33 5102523 5541923 8016883 6566247 1524145 10238448 6722274 6977421 3366865
## 34 5121948 5569278 8051192 6582021 1529595 10246280 6755065 7002880 3378819
## 35 5141372 5596633 8085500 6597796 1535045 10254111 6787857 7028339 3390774
## 36 5160797 5623988 8119809 6613571 1540495 10261942 6820649 7053799 3402729
## 37 5180222 5651342 8154118 6629346 1545945 10269773 6853440 7079258 3414683
## 38 5199646 5678697 8188426 6645120 1551395 10277603 6886232 7104717 3426638
## 39 5219071 5706052 8222735 6660895 1556845 10285434 6919023 7130176 3438593
## 40 5238495 5733407 8257043 6676670 1562295 10293265 6951815 7155635 3450548
## 41 5257920 5760761 8291352 6692444 1567745 10301096 6984606 7181094 3462502
## 42 5277344 5788116 8325661 6708219 1573195 10308927 7017398 7206553 3474457
## 43 5296769 5815471 8359969 6723994 1578645 10316758 7050190 7232012 3486412
## 44 5316193 5842826 8394278 6739769 1584095 10324589 7082981 7257471 3498366
## 45 5335618 5870180 8428586 6755543 1589545 10332420 7115773 7282930 3510321
## 46 5355043 5897535 8462895 6771318 1594995 10340251 7148564 7308390 3522276
## 47 5374467 5924890 8497204 6787093 1600445 10348082 7181356 7333849 3534230
## 48 5393892 5952245 8531512 6802868 1605895 10355912 7214148 7359308 3546185
## 49 5413316 5979600 8565821 6818642 1611345 10363743 7246939 7384767 3558140
## 50 5432741 6006954 8600129 6834417 1616795 10371574 7279731 7410226 3570094
## 51 5452165 6034309 8634438 6850192 1622245 10379405 7312522 7435685 3582049
##         MT       NC        ND      NE      NH       NJ      NM      NV       NY
## 1  1076377 10604382  767168.5 1941863 1366229  8905259 2099505 3132873 19441372
## 2  1083704 10722519  772826.2 1949166 1372869  8935940 2102181 3185590 19461901
## 3  1090885 10840655  778754.2 1956468 1379565  8972514 2104857 3238308 19499001
## 4  1097990 10958792  784814.7 1963771 1386286  9013652 2107533 3291025 19544494
## 5  1105054 11076929  790940.2 1971074 1393017  9058324 2110209 3343742 19594237
## 6  1112097 11195065  797097.5 1978377 1399754  9105732 2112884 3396459 19646134
## 7  1119128 11313202  803270.4 1985680 1406494  9155259 2115560 3449176 19699121
## 8  1126152 11431338  809451.0 1992983 1413234  9206426 2118236 3501894 19752660
## 9  1133174 11549475  815635.3 2000286 1419975  9258864 2120912 3554611 19806478
## 10 1140194 11667612  821821.5 2007589 1426716  9312286 2123588 3607328 19860439
## 11 1147213 11785748  828008.6 2014892 1433457  9366470 2126264 3660045 19914471
## 12 1154231 11903885  834196.1 2022195 1440198  9421243 2128940 3712762 19968539
## 13 1161250 12022021  840383.8 2029498 1446939  9476473 2131616 3765480 20022626
## 14 1168268 12140158  846571.6 2036801 1453680  9532057 2134292 3818197 20076722
## 15 1175286 12258294  852759.5 2044104 1460421  9587915 2136968 3870914 20130823
## 16 1182304 12376431  858947.5 2051406 1467162  9643985 2139644 3923631 20184927
## 17 1189322 12494568  865135.4 2058709 1473904  9700219 2142320 3976348 20239031
## 18 1196340 12612704  871323.3 2066012 1480645  9756580 2144995 4029066 20293136
## 19 1203358 12730841  877511.3 2073315 1487386  9813039 2147671 4081783 20347242
## 20 1210376 12848977  883699.2 2080618 1494127  9869575 2150347 4134500 20401347
## 21 1217393 12967114  889887.2 2087921 1500868  9926170 2153023 4187217 20455453
## 22 1224411 13085250  896075.1 2095224 1507609  9982810 2155699 4239934 20509559
## 23 1231429 13203387  902263.0 2102527 1514351 10039486 2158375 4292652 20563664
## 24 1238447 13321524  908451.0 2109830 1521092 10096190 2161051 4345369 20617770
## 25 1245465 13439660  914638.9 2117133 1527833 10152914 2163727 4398086 20671876
## 26 1252483 13557797  920826.9 2124436 1534574 10209655 2166403 4450803 20725982
## 27 1259501 13675933  927014.8 2131739 1541315 10266409 2169079 4503520 20780087
## 28 1266519 13794070  933202.8 2139042 1548056 10323172 2171755 4556238 20834193
## 29 1273537 13912207  939390.7 2146345 1554797 10379944 2174431 4608955 20888299
## 30 1280555 14030343  945578.6 2153647 1561539 10436721 2177106 4661672 20942405
## 31 1287573 14148480  951766.6 2160950 1568280 10493502 2179782 4714389 20996510
## 32 1294591 14266616  957954.5 2168253 1575021 10550287 2182458 4767106 21050616
## 33 1301609 14384753  964142.5 2175556 1581762 10607075 2185134 4819824 21104722
## 34 1308627 14502889  970330.4 2182859 1588503 10663865 2187810 4872541 21158828
## 35 1315645 14621026  976518.4 2190162 1595244 10720657 2190486 4925258 21212933
## 36 1322662 14739163  982706.3 2197465 1601985 10777450 2193162 4977975 21267039
## 37 1329680 14857299  988894.2 2204768 1608727 10834244 2195838 5030692 21321145
## 38 1336698 14975436  995082.2 2212071 1615468 10891039 2198514 5083410 21375251
## 39 1343716 15093572 1001270.1 2219374 1622209 10947834 2201190 5136127 21429356
## 40 1350734 15211709 1007458.1 2226677 1628950 11004630 2203866 5188844 21483462
## 41 1357752 15329845 1013646.0 2233980 1635691 11061426 2206542 5241561 21537568
## 42 1364770 15447982 1019834.0 2241283 1642432 11118223 2209217 5294278 21591674
## 43 1371788 15566119 1026021.9 2248585 1649173 11175019 2211893 5346996 21645780
## 44 1378806 15684255 1032209.8 2255888 1655915 11231816 2214569 5399713 21699885
## 45 1385824 15802392 1038397.8 2263191 1662656 11288613 2217245 5452430 21753991
## 46 1392842 15920528 1044585.7 2270494 1669397 11345410 2219921 5505147 21808097
## 47 1399860 16038665 1050773.7 2277797 1676138 11402207 2222597 5557864 21862203
## 48 1406878 16156802 1056961.6 2285100 1682879 11459004 2225273 5610582 21916308
## 49 1413896 16274938 1063149.6 2292403 1689620 11515801 2227949 5663299 21970414
## 50 1420914 16393075 1069337.5 2299706 1696361 11572599 2230625 5716016 22024520
## 51 1427931 16511211 1075525.5 2307009 1703103 11629396 2233301 5768733 22078626
##          OH      OK      OR       PA      RI      SC        SD      TN       TX
## 1  11704481 3978202 4258566 12818547 1061894 5209347  889707.7 6887491 29398472
## 2  11721498 4000766 4300945 12844768 1064847 5268908  894304.1 6946520 29806827
## 3  11740786 4023927 4343807 12870989 1067920 5328175  898676.5 7005548 30215183
## 4  11760429 4047642 4386820 12897209 1071028 5387362  902937.8 7064577 30623538
## 5  11779487 4071870 4429879 12923430 1074146 5446527  907144.0 7123605 31031894
## 6  11797291 4096576 4472953 12949651 1077267 5505686  911322.9 7182634 31440249
## 7  11814203 4121724 4516032 12975871 1080389 5564843  915488.3 7241662 31848605
## 8  11830868 4147282 4559111 13002092 1083511 5624000  919647.0 7300691 32256960
## 9  11847919 4173221 4602192 13028312 1086633 5683157  923802.3 7359719 32665316
## 10 11865574 4199513 4645272 13054533 1089755 5742314  927956.0 7418748 33073671
## 11 11883678 4226132 4688353 13080754 1092877 5801470  932108.9 7477776 33482027
## 12 11901874 4253056 4731433 13106974 1095999 5860627  936261.4 7536805 33890382
## 13 11919865 4280261 4774514 13133195 1099121 5919784  940413.7 7595833 34298738
## 14 11937548 4307729 4817594 13159416 1102243 5978940  944565.9 7654862 34707093
## 15 11955015 4335438 4860675 13185636 1105365 6038097  948718.1 7713890 35115449
## 16 11972448 4363373 4903755 13211857 1108487 6097254  952870.2 7772918 35523804
## 17 11989991 4391517 4946836 13238078 1111609 6156411  957022.3 7831947 35932160
## 18 12007689 4419855 4989916 13264298 1114731 6215567  961174.4 7890975 36340515
## 19 12025491 4448372 5032997 13290519 1117853 6274724  965326.5 7950004 36748871
## 20 12043305 4477056 5076077 13316740 1120975 6333881  969478.6 8009032 37157226
## 21 12061059 4505895 5119158 13342960 1124097 6393038  973630.7 8068061 37565581
## 22 12078736 4534878 5162238 13369181 1127219 6452194  977782.9 8127089 37973937
## 23 12096363 4563993 5205319 13395402 1130342 6511351  981935.0 8186118 38382292
## 24 12113986 4593232 5248399 13421622 1133464 6570508  986087.1 8245146 38790648
## 25 12131642 4622586 5291480 13447843 1136586 6629665  990239.2 8304175 39199003
## 26 12149336 4652046 5334560 13474064 1139708 6688821  994391.3 8363203 39607359
## 27 12167054 4681605 5377641 13500284 1142830 6747978  998543.4 8422232 40015714
## 28 12184772 4711255 5420721 13526505 1145952 6807135 1002695.5 8481260 40424070
## 29 12202474 4740990 5463802 13552725 1149074 6866292 1006847.6 8540289 40832425
## 30 12220156 4770804 5506882 13578946 1152196 6925448 1010999.7 8599317 41240781
## 31 12237827 4800691 5549963 13605167 1155318 6984605 1015151.8 8658346 41649136
## 32 12255498 4830646 5593043 13631387 1158440 7043762 1019303.9 8717374 42057492
## 33 12273178 4860663 5636124 13657608 1161562 7102919 1023456.0 8776403 42465847
## 34 12290868 4890739 5679204 13683829 1164684 7162075 1027608.1 8835431 42874203
## 35 12308563 4920869 5722285 13710049 1167806 7221232 1031760.2 8894460 43282558
## 36 12326258 4951049 5765365 13736270 1170928 7280389 1035912.3 8953488 43690914
## 37 12343948 4981276 5808446 13762491 1174050 7339546 1040064.4 9012516 44099269
## 38 12361633 5011546 5851526 13788711 1177172 7398702 1044216.5 9071545 44507625
## 39 12379316 5041856 5894607 13814932 1180294 7457859 1048368.6 9130573 44915980
## 40 12396999 5072204 5937687 13841153 1183417 7517016 1052520.7 9189602 45324336
## 41 12414684 5102586 5980768 13867373 1186539 7576173 1056672.8 9248630 45732691
## 42 12432372 5133000 6023848 13893594 1189661 7635329 1060824.9 9307659 46141047
## 43 12450061 5163443 6066929 13919815 1192783 7694486 1064977.0 9366687 46549402
## 44 12467750 5193914 6110009 13946035 1195905 7753643 1069129.1 9425716 46957758
## 45 12485438 5224411 6153090 13972256 1199027 7812799 1073281.2 9484744 47366113
## 46 12503124 5254931 6196170 13998477 1202149 7871956 1077433.3 9543773 47774469
## 47 12520810 5285474 6239251 14024697 1205271 7931113 1081585.4 9602801 48182824
## 48 12538496 5316037 6282331 14050918 1208393 7990270 1085737.5 9661830 48591180
## 49 12556182 5346618 6325412 14077138 1211515 8049426 1089889.6 9720858 48999535
## 50 12573869 5377218 6368492 14103359 1214637 8108583 1094041.7 9779887 49407891
## 51 12591557 5407833 6411573 14129580 1217759 8167740 1098193.8 9838915 49816246
##         UT       VA       VT       WA      WI      WV       WY
## 1  3258052  8591598 624870.4  7707063 5846969 1785025 580479.6
## 2  3310146  8655436 626116.7  7799798 5875507 1781202 582862.0
## 3  3362239  8722029 627469.6  7892814 5905732 1779110 585682.3
## 4  3414333  8789600 628853.6  7985967 5936666 1777019 588833.9
## 5  3466427  8857519 630246.7  8079188 5967899 1774927 592227.4
## 6  3518521  8925561 631642.4  8172443 5999258 1772835 595798.9
## 7  3570615  8993647 633038.9  8265715 6030670 1770744 599501.4
## 8  3622709  9061749 634435.6  8358995 6062104 1768652 603300.0
## 9  3674802  9129856 635832.4  8452279 6093548 1766560 607169.4
## 10 3726896  9197965 637229.2  8545565 6124996 1764468 611090.7
## 11 3778990  9266075 638626.0  8638852 6156445 1762377 615050.3
## 12 3831084  9334185 640022.9  8732140 6187895 1760285 619038.0
## 13 3883178  9402295 641419.7  8825427 6219346 1758193 623046.4
## 14 3935272  9470406 642816.5  8918715 6250796 1756101 627070.0
## 15 3987365  9538516 644213.3  9012003 6282247 1754010 631104.7
## 16 4039459  9606626 645610.1  9105291 6313697 1751918 635147.6
## 17 4091553  9674736 647006.9  9198579 6345148 1749826 639196.6
## 18 4143647  9742847 648403.7  9291867 6376598 1747735 643250.0
## 19 4195741  9810957 649800.5  9385155 6408049 1745643 647306.6
## 20 4247835  9879067 651197.4  9478443 6439499 1743551 651365.7
## 21 4299928  9947177 652594.2  9571731 6470950 1741459 655426.5
## 22 4352022 10015287 653991.0  9665019 6502401 1739368 659488.6
## 23 4404116 10083398 655387.8  9758307 6533851 1737276 663551.7
## 24 4456210 10151508 656784.6  9851595 6565302 1735184 667615.4
## 25 4508304 10219618 658181.4  9944883 6596752 1733093 671679.7
## 26 4560397 10287728 659578.2 10038171 6628203 1731001 675744.4
## 27 4612491 10355838 660975.0 10131459 6659654 1728909 679809.3
## 28 4664585 10423949 662371.8 10224747 6691104 1726817 683874.5
## 29 4716679 10492059 663768.7 10318035 6722555 1724726 687939.8
## 30 4768773 10560169 665165.5 10411323 6754005 1722634 692005.2
## 31 4820867 10628279 666562.3 10504611 6785456 1720542 696070.7
## 32 4872960 10696390 667959.1 10597898 6816907 1718450 700136.2
## 33 4925054 10764500 669355.9 10691186 6848357 1716359 704201.8
## 34 4977148 10832610 670752.7 10784474 6879808 1714267 708267.4
## 35 5029242 10900720 672149.5 10877762 6911258 1712175 712333.1
## 36 5081336 10968830 673546.3 10971050 6942709 1710084 716398.7
## 37 5133430 11036941 674943.2 11064338 6974159 1707992 720464.4
## 38 5185523 11105051 676340.0 11157626 7005610 1705900 724530.1
## 39 5237617 11173161 677736.8 11250914 7037061 1703808 728595.8
## 40 5289711 11241271 679133.6 11344202 7068511 1701717 732661.5
## 41 5341805 11309382 680530.4 11437490 7099962 1699625 736727.2
## 42 5393899 11377492 681927.2 11530778 7131412 1697533 740792.9
## 43 5445993 11445602 683324.0 11624066 7162863 1695442 744858.6
## 44 5498086 11513712 684720.8 11717354 7194314 1693350 748924.3
## 45 5550180 11581822 686117.7 11810642 7225764 1691258 752990.0
## 46 5602274 11649933 687514.5 11903930 7257215 1689166 757055.7
## 47 5654368 11718043 688911.3 11997218 7288665 1687075 761121.4
## 48 5706462 11786153 690308.1 12090506 7320116 1684983 765187.1
## 49 5758556 11854263 691704.9 12183794 7351567 1682891 769252.8
## 50 5810649 11922373 693101.7 12277082 7383017 1680799 773318.6
## 51 5862743 11990484 694498.5 12370370 7414468 1678708 777384.3

e <- resultados %>% 
  pivot_longer(
    cols = AK:WY, 
    names_to = "state", 
    values_to = "pop"
  )

map(database = "state")

f <- read_csv("us_state_two_letter_abbreviation.csv")

## Rows: 59 Columns: 2
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (2): U.S. States and Territories, Two-Letter Abbreviation
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

f$`U.S. States and Territories`= str_to_lower(f$`U.S. States and Territories`)
f <- rename(f, "states" = "U.S. States and Territories")
f <- rename(f, "state" = "Two-Letter Abbreviation")

h <- left_join(e,f,by = "state")

library(maps)
library(ggplot2)
state_data <- ggplot2::map_data('state')
state_data <- fortify(state_data)
head(state_data)

##        long      lat group order  region subregion
## 1 -87.46201 30.38968     1     1 alabama      <NA>
## 2 -87.48493 30.37249     1     2 alabama      <NA>
## 3 -87.52503 30.37249     1     3 alabama      <NA>
## 4 -87.53076 30.33239     1     4 alabama      <NA>
## 5 -87.57087 30.32665     1     5 alabama      <NA>
## 6 -87.58806 30.32665     1     6 alabama      <NA>

map_pop <- function(df, state_data){
  
  # Function for setting the aesthetics of the plot
  my_theme <- function () { 
    theme_bw() + theme(axis.text = element_text(size = 14),
                       axis.title = element_text(size = 14),
                       strip.text = element_text(size = 14),
                       panel.grid.major = element_blank(), 
                       panel.grid.minor = element_blank(),
                       panel.background = element_blank(), 
                       legend.position = "bottom",
                       panel.border = element_blank(), 
                       strip.background = element_rect(fill = 'white', colour = 'white'))
  }
  
  
  # Add the data the user wants to see to the geographical world data
  state_data['pop'] <- df$pop[match(state_data$region, df$states)]

  
  # Specify the plot for the world map
  library(RColorBrewer)
  g <- ggplot() + 
    geom_polygon(data = state_data, size = 1,
                                    aes(x = long, y = lat, fill = pop, group = group)) + 
    scale_fill_gradientn(colours = brewer.pal(5, "RdBu"), na.value = 'white') + 
    my_theme()
  
  return(g)
}

map_pop(h,state_data)

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.