Correlaciones entre variables del CENSO de Viviendas, Hogares y Personas e Ingresos promedios comunales de la CASEN 2017.

VE-CC-AJ

DataIntelligence

Viernes 09-07-2021

1 Nivel nacional URBANO (código 1)

1.1 Pregunta P03B: Material en la cubierta del techo

Esta pregunta posee 6 categorias de respuesta:

1 Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas
2 Losa hormigón
3 Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño)
4 Fonolita o plancha de fieltro embreado
5 Paja, coirón, totora o caña
6 Materiales precarios (lata, cartón, plásticos, etc.)
7 Sin cubierta sólida de techo

Leemos las respuestas a la pregunta P03B del censo de viviendas 2017 y obtenemos la tabla de frecuencias por categoría:

tabla_con_clave <- readRDS("censos/censo_viviendas_con_clave_17.rds")
tabla_con_clave_u <- filter(tabla_con_clave, tabla_con_clave$AREA == 1)
b <- tabla_con_clave_u$COMUNA
c <- tabla_con_clave_u$P03B
cross_tab =  xtabs( ~ unlist(b) + unlist(c))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
d$anio <- "2017"

categorias <- sort(unique(tabla_con_clave_u$P03B ))
categorias <- as.data.frame(categorias)
names(categorias)[1] <- "cat"

categorias <- filter(categorias, categorias$cat != 99)
categorias <- filter(categorias, categorias$cat != 98)

d_t <- filter(d,d$unlist.c. == categorias[1,1])
for(i in categorias[2,1]:categorias[nrow(categorias),1]){
  d_i <- filter(d,d$unlist.c. == i)
  d_t = merge( x = d_t, y = d_i, by = "unlist.b.", all.x = TRUE)
}
 
# Agregamos un cero a los códigos comunales de 4 dígitos, que queda en la columna llamada **código**:
codigos <- d_t$unlist.b.
rango <- seq(1:nrow(d_t))
cadena <- paste("0",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(4),6)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
comuna_corr <- cbind(d_t,cadena)
comuna_corr <- comuna_corr[,-c(1),drop=FALSE] 
 
names(comuna_corr)[ncol(comuna_corr)] <- "código"
 
quitar <- seq(3,(ncol(comuna_corr)-1),3)

comuna_corr <- comuna_corr[,-c(quitar),drop=FALSE]
names(comuna_corr )[2] <- "Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas"
names(comuna_corr )[4] <- "Losa hormigón"
names(comuna_corr )[6] <- "Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño)"
names(comuna_corr )[8] <- "Fonolita o plancha de fieltro embreado"
names(comuna_corr )[10] <- "Paja, coirón, totora o caña"
names(comuna_corr )[12] <- " Materiales precarios (lata, cartón, plásticos, etc.)"
names(comuna_corr )[14] <- "Sin cubierta sólida de techo"

renombrar <- seq(1,(ncol(comuna_corr)-2),2)
vv <- 0
for (v in renombrar) {
  vv <- vv+1
  contador <- paste0("categoria_",vv)
  names(comuna_corr)[v] <- contador
}

ingresos_expandidos_2017 <- readRDS("Ingresos_expandidos_urbano_17.rds")

df_2017_2 = merge( x = comuna_corr, y = ingresos_expandidos_2017, by = "código", all.x = TRUE)

df_2017_exp_subset <- df_2017_2 [,-c(2,4,6,8,10,12,14,16),drop=FALSE] 



union_final_urb <- df_2017_exp_subset

kbl(union_final_urb) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
código Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas Losa hormigón Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño) Fonolita o plancha de fieltro embreado Paja, coirón, totora o caña Materiales precarios (lata, cartón, plásticos, etc.) Sin cubierta sólida de techo ingresos_expandidos
01101 15377 17254 20590 633 42 543 172 71930106513
01107 7455 7667 11760 344 18 726 183 33766585496
01401 612 61 1944 44 3 44 16 4966851883
01404 109 5 215 8 3 9 1 NA
01405 303 36 857 15 30 25 2 3068247619
02101 28170 30642 37052 665 20 672 133 133249367039
02102 707 596 1529 32 1 23 6 4979702302
02104 638 72 2388 15 NA 30 13 5109282942
02201 14960 3786 24947 394 11 596 100 71981127235
02203 188 8 1224 12 44 33 1 4869699464
02301 2380 906 4059 74 NA 81 29 7207910819
02302 398 3 925 1 NA 18 3 3084818966
03101 7882 3656 32229 206 19 204 38 52819016037
03102 907 73 3751 24 10 18 9 5628052276
03103 221 4 2602 11 6 4 4 4671058718
03201 215 68 2903 30 2 33 4 3499391196
03202 614 670 2910 3 1 17 5 4895805596
03301 4375 315 8802 83 8 114 23 16404810756
03303 244 3 1116 3 NA 6 1 2035200054
03304 476 48 2250 26 NA 13 5 3424422750
04101 21870 6787 32337 232 5 111 33 61749247282
04102 18658 3363 40546 358 6 150 41 61277269093
04103 393 2 2611 26 1 6 3 2855312920
04104 58 NA 323 3 NA 8 NA 908664019
04106 616 18 4680 15 2 8 2 7058750373
04201 478 74 6176 14 NA 14 3 8703433491
04202 19 4 672 1 NA 1 1 2122281844
04203 805 11 4908 20 NA 7 2 6098444926
04204 499 85 4363 10 NA 13 6 7690585032
04301 4774 744 20873 134 7 70 17 31197719080
04302 96 1 1982 2 NA 3 1 3124505460
04303 299 6 4464 13 1 12 1 6930326684
04304 117 5 1766 4 NA 7 3 2328107498
05101 19130 13731 60998 257 17 2385 85 90946261553
05102 855 347 4464 17 NA 27 1 9352095757
05103 4150 2588 5977 66 2 51 2 14075920021
05105 1161 54 4111 24 1 20 6 5490274928
05107 1959 471 6209 33 2 41 12 9839456903
05109 23960 29228 60722 259 13 1061 96 118563074323
05201 224 4 2039 7 NA 15 1 NA
05301 5043 1231 12847 50 6 47 19 23711104774
05302 728 26 2533 22 NA 10 NA 3654416747
05303 386 7 2086 3 NA 1 1 2855998928
05304 709 7 2905 10 NA 2 4 4140022481
05401 1223 355 6944 14 1 17 11 9183080280
05402 432 85 3263 18 NA 19 3 5094117762
05403 241 43 1465 2 NA 4 NA 1921527704
05404 99 1 1320 4 1 4 NA 2333781007
05405 321 20 1293 11 3 9 1 2160521991
05501 5492 1290 17994 50 2 73 5 26131733924
05502 2715 940 11411 41 3 47 18 14297866792
05503 244 5 3293 6 NA 12 2 4828872604
05504 2605 112 3454 22 NA 33 3 7414857001
05506 490 12 5190 16 1 11 10 5749381300
05601 5567 1260 19610 83 1 91 14 22527241144
05602 1395 188 2286 11 1 20 2 5398446270
05603 1041 121 5709 31 NA 42 7 5569658994
05604 1331 199 3791 19 NA 17 3 4315799297
05605 986 92 3627 21 1 28 4 3816682340
05606 753 113 1136 4 NA 1 1 4408732520
05701 5644 1325 15317 74 7 52 9 23208536043
05702 315 5 2066 5 NA 9 8 3264869972
05703 501 289 4895 5 1 16 4 7275684301
05704 112 1 1066 4 NA 7 NA 2385858928
05705 266 2 1715 5 NA 4 4 5187514898
05706 297 57 2785 7 NA 2 NA 3907844674
05801 11905 4301 32204 167 2 380 23 52247193426
05802 2057 350 9615 52 9 72 5 14176705125
05803 665 4 3334 16 2 48 1 5149662271
05804 8883 1879 28790 120 3 273 26 45800670899
06101 19801 6784 50276 165 6 193 37 76977097284
06102 231 4 1892 10 NA 3 1 3758801352
06103 253 1 836 2 NA 2 NA 1651985453
06104 403 3 3086 2 NA 2 NA 5466110795
06105 832 29 4361 9 NA 15 3 6402533884
06106 2177 182 6688 17 NA 45 2 10426820415
06107 404 41 2631 6 NA 4 3 6894533314
06108 8891 117 7098 35 2 82 10 16602037093
06109 125 1 1558 11 NA 7 NA 2863689033
06110 664 182 5564 18 NA 14 3 7392597596
06111 629 25 2212 11 3 17 3 4054025678
06112 525 42 3135 7 NA 8 1 3559462966
06113 313 2 2601 12 NA 8 1 4616762518
06114 252 1 2033 6 1 1 NA 2741286093
06115 1931 137 12578 41 1 28 3 17273974762
06116 832 53 3942 7 NA 9 3 8078983811
06117 2104 36 6322 19 1 10 7 13358975033
06201 801 9 3737 18 NA 9 4 5643258336
06202 53 1 367 NA NA NA NA 891866686
06203 94 2 1086 1 NA 1 NA 1881627117
06204 151 2 1007 2 NA 1 NA 2458260033
06206 101 NA 564 2 NA NA NA 1475951353
06301 3559 1158 16291 38 1 27 8 24041131495
06302 303 2 2531 7 NA 1 1 3691714537
06303 551 65 5982 17 NA 18 1 9228754903
06304 84 NA 754 NA NA NA NA 1611947197
06305 349 19 3288 8 NA 2 1 4386786331
06306 92 1 985 NA NA 1 2 3079870843
06307 244 3 1952 5 NA 7 NA 2923796850
06308 123 1 623 NA NA 1 NA 2102134220
06310 1484 307 5606 12 NA 4 4 11393463346
07101 12384 4509 51107 109 6 70 21 67732753814
07102 1710 1589 8981 19 NA 24 4 12932986800
07103 157 1 1087 2 NA NA NA 2662971120
07104 88 1 911 NA NA 2 NA 866652110
07105 1564 111 10509 18 NA 9 4 12182624190
07106 65 1 777 NA NA NA NA 1825700105
07107 59 2 1030 1 NA NA NA 1926795579
07108 52 5 1378 5 NA 1 5 3126961590
07109 630 10 6224 16 NA 6 1 10687595452
07110 157 3 1444 2 NA 3 3 2294886656
07201 1588 73 9678 22 2 14 5 9515918892
07202 368 NA 930 4 NA 4 1 2234922252
07203 224 8 1184 7 NA 4 2 1534908448
07301 7382 1069 34455 134 1 43 23 42117028333
07302 192 3 1835 8 NA 3 1 2928781043
07303 199 3 1522 9 NA 1 1 1741750148
07304 1210 45 10785 29 NA 11 6 12009998195
07305 197 3 1635 8 NA NA 1 2845428741
07306 204 4 1843 3 1 3 NA 4085560646
07307 200 1 2378 2 NA 5 NA 4611045339
07308 192 3 2882 7 1 5 1 7579820261
07309 58 1 347 3 NA NA 1 943414066
07401 4576 312 20487 47 2 33 11 25291751487
07402 354 3 2737 2 NA 1 1 4173410967
07403 326 5 2575 14 NA 5 8 6597394825
07404 980 200 9334 33 2 10 NA 11091040324
07405 137 3 2315 5 NA 1 NA 4508431050
07406 1380 57 9157 27 1 9 4 12687530322
07407 504 3 2917 7 NA 3 1 4251702731
07408 271 1 1737 4 NA 1 1 4412680158
08101 14157 13345 45157 119 2 424 16 72227728923
08102 3863 682 30321 68 2 126 21 32278209118
08103 4996 1551 19585 59 1 192 7 25641323296
08104 112 NA 1401 2 NA 1 NA 2469551785
08105 416 8 5894 18 1 37 9 5651905803
08106 1411 172 11807 103 1 47 8 12339953990
08107 1553 311 12333 53 NA 139 16 12561435651
08108 10718 3239 27252 102 1 163 12 36167321662
08109 210 4 2863 9 1 5 2 3582304723
08110 6317 1998 37462 163 4 293 14 48602104064
08111 1679 431 13851 65 3 179 8 15133299927
08112 4676 1743 21713 72 1 63 4 26380344663
08201 339 10 6782 12 2 10 8 6534231082
08202 559 7 7946 19 NA 7 9 11466769473
08203 367 1 5879 20 1 25 3 8327773342
08204 28 NA 997 7 NA 3 NA 1284670805
08205 391 34 8948 19 NA 15 15 8488900056
08206 163 1 5837 7 NA 8 15 4840107033
08207 46 NA 1189 4 NA 6 2 2305775206
08301 7504 1396 39012 104 1 82 24 60441208918
08302 42 NA 650 NA NA 4 NA 781935233
08303 411 18 6513 11 1 15 NA 6433682620
08304 491 12 4797 9 NA 43 2 5024717382
08305 617 2 6859 4 2 32 1 7299407611
08306 917 6 6204 10 NA 15 26 7697899431
08307 108 1 1806 4 NA 2 NA 1916060576
08308 73 1 556 1 NA 6 2 784682868
08309 135 NA 1671 2 NA 15 1 1935917806
08310 58 NA 906 NA NA 13 NA 705390056
08311 160 1 2417 2 NA 10 1 3454949584
08312 253 NA 3770 4 NA 19 2 3035048397
08313 345 9 3810 13 NA 27 3 4693613938
09101 11028 5645 68778 189 3 174 53 83174794799
09102 165 8 3955 7 NA 16 1 5824543339
09103 51 5 2821 5 NA 16 3 4330659433
09104 32 NA 696 2 NA 11 NA 1529109215
09105 60 2 2390 3 NA 4 NA 7518158340
09106 47 NA 1228 2 1 1 NA 2930258102
09107 210 1 3191 12 1 14 NA 3670206245
09108 422 11 8100 24 1 37 43 11267725602
09109 164 1 5413 8 NA 28 14 5049235445
09110 29 1 875 3 NA 2 NA 1301137941
09111 214 2 5459 8 NA 11 16 7867935676
09112 888 271 12981 41 NA 44 7 21191399108
09113 25 1 1131 2 NA 2 1 1799419624
09114 233 10 5084 7 NA 20 7 6204576082
09115 541 63 5186 5 2 24 1 7443587942
09116 39 NA 898 3 NA 5 NA 2856420491
09117 63 NA 1808 2 NA 1 NA 3380311968
09118 50 NA 1255 2 1 10 NA 2135976054
09119 247 4 4783 2 NA 12 2 4860243131
09120 730 91 10839 16 2 87 17 13650235814
09121 39 NA 1220 1 NA 4 NA 2940207311
09201 1571 79 13720 51 2 22 12 14296297282
09202 345 2 5496 13 NA 79 9 6098134776
09203 148 2 4291 3 NA 14 1 4084643011
09204 46 NA 1179 NA NA 2 1 2072995481
09205 31 1 1189 3 NA 2 1 2568496128
09206 133 2 1304 16 NA 8 5 1547086780
09207 95 NA 1312 1 1 9 1 2697526159
09208 176 1 2393 3 NA 13 NA 2757928013
09209 137 3 2638 4 1 8 NA 2726714090
09210 568 1 4241 14 NA 14 1 4863416659
09211 660 7 7341 24 NA 19 3 7723760970
10101 9752 1019 56869 157 8 1984 42 74854925754
10102 255 3 4544 8 NA 278 2 9545646863
10104 137 2 2244 4 NA 68 NA 2742371891
10105 399 15 3794 4 3 118 4 5188291726
10106 134 NA 2432 NA 1 102 NA 3980600731
10107 317 NA 3923 6 NA 120 5 4422233283
10108 98 NA 1986 1 NA 180 4 3825279050
10109 2456 161 7123 23 NA 400 4 13920663786
10201 598 11 9826 20 NA 558 25 15304799118
10202 487 6 8048 6 NA 749 26 8960055930
10203 98 1 1593 4 1 124 3 3559637517
10204 19 NA 330 1 NA 30 NA NA
10205 108 NA 2006 5 NA 144 NA 4477578923
10207 21 NA 702 NA NA 54 NA 987644627
10208 427 3 5180 21 NA 228 21 6579532876
10209 24 NA 831 NA NA 19 1 2572844097
10210 107 2 958 5 NA 18 1 2996397098
10301 4847 898 42559 102 NA 564 17 43850482486
10302 58 NA 573 1 NA 7 1 2359078294
10303 301 2 4274 3 NA 113 2 6161043438
10304 105 NA 1417 6 NA 49 NA 2689725003
10305 118 12 2137 1 NA 81 3 3896715111
10306 29 NA 400 NA NA 6 NA 1674503801
10307 63 NA 1404 7 1 49 NA 1962995435
10401 33 NA 551 NA NA 2 NA NA
10402 30 NA 680 1 NA NA NA NA
10403 72 NA 1135 NA NA 52 NA NA
10404 8 NA 423 NA NA 3 1 NA
11101 1358 71 15028 14 4 55 1 18912283227
11201 325 3 6158 7 NA 83 1 7375332218
11202 67 NA 1264 1 NA 11 NA 1642095149
11203 13 NA 436 NA NA 8 NA NA
11301 88 1 877 2 NA 7 1 1224029692
11401 42 1 1076 1 NA 12 1 1622211456
12101 5642 744 33000 141 2 963 16 51552266922
12201 140 NA 385 1 NA 8 NA NA
12301 148 3 1634 1 NA 45 1 3034981682
12401 880 7 5327 32 2 265 1 7233637635
13101 25621 107176 28526 165 25 207 18 182367246208
13102 7323 2199 13492 52 4 34 16 22371586546
13103 3539 1819 30386 111 3 163 28 35892031153
13104 5380 3782 26195 90 6 104 28 39397353402
13105 6528 3663 35032 105 1 88 29 45770170398
13106 8912 11652 22383 146 5 113 18 50093952387
13107 9947 2492 14267 45 4 58 27 31106038806
13108 6044 12298 13060 72 6 47 10 37720956327
13109 6651 5912 15501 84 2 99 20 33097323323
13110 35518 15150 60188 246 6 157 59 128231071590
13111 5141 1932 25467 69 1 60 8 35760286668
13112 5497 2719 38254 108 2 103 38 41256447003
13113 14883 3710 9186 50 3 35 14 40307459856
13114 33476 60739 9561 69 NA 33 7 134598169599
13115 12179 7135 6564 31 NA 40 8 36968385127
13116 3480 1592 20363 58 3 50 18 26099479542
13117 4779 3234 19983 78 3 79 25 29397444939
13118 9959 10960 17161 78 3 53 20 40285970358
13119 62057 9335 78481 301 11 191 38 187034167391
13120 18122 46621 14863 48 2 21 3 88804766896
13121 5169 2430 20262 53 6 55 39 32058321741
13122 22010 4736 39862 142 5 186 83 77691132095
13123 11832 41502 5823 31 2 14 1 73330144381
13124 17080 5656 39662 101 7 98 49 73825647438
13125 22873 6123 29227 152 4 79 41 80689241762
13126 5486 7207 20489 72 9 129 23 34298531093
13127 8399 7791 29518 133 6 161 24 54458123369
13128 8798 3190 28785 122 4 140 28 43262464632
13129 5003 3684 18805 63 2 70 13 31753732439
13130 6643 18797 11196 50 6 49 2 37960091353
13131 2884 1135 18571 61 3 61 12 23331343432
13132 11268 13986 2328 24 NA 8 NA 42430139879
13201 57150 7654 95344 294 9 235 65 186533464474
13202 440 4 2812 8 1 7 1 8817024774
13203 478 5 2790 11 NA 21 7 6933981276
13301 9101 2640 19750 87 4 60 27 43951136523
13302 9629 245 13022 79 2 87 9 38020316317
13303 908 11 2882 11 NA 6 3 6325126322
13401 21796 5936 53825 193 7 221 35 86474375157
13402 7051 213 16737 55 1 69 16 30431412042
13403 672 8 2577 13 NA 10 3 7803125477
13404 1915 171 11177 49 1 30 20 24020488982
13501 5203 1228 19752 65 2 44 20 36054817558
13502 107 NA 695 1 NA 2 NA 2251756129
13503 667 26 5327 10 NA 18 4 8766848005
13504 190 3 1803 6 NA 6 1 3451350898
13601 3252 605 13171 34 2 48 13 29299162746
13602 1158 295 7450 11 NA 22 1 10693979408
13603 1348 19 6494 15 2 27 3 8304441408
13604 4773 119 10984 50 NA 58 14 17555873230
13605 7363 808 15766 47 1 44 2 31711490484
14101 5481 814 42164 71 2 1209 25 51277944139
14102 52 NA 1048 3 NA 66 NA 1179821617
14103 150 2 3663 4 NA 18 15 4477574931
14104 101 1 2946 5 NA 86 1 4159328181
14105 98 NA 1202 3 NA 44 NA 2235081533
14106 155 1 2831 4 NA 94 1 5342147079
14107 125 NA 3691 7 NA 109 2 4508111622
14108 240 1 4650 11 NA 63 19 9938682028
14201 667 29 8009 20 NA 108 6 9405987850
14202 151 3 2456 5 1 86 4 3627119212
14203 47 NA 813 1 NA 5 NA 2445838259
14204 505 26 5159 33 3 166 24 8405637271
15101 17426 17806 20275 767 62 827 242 68625788545
15201 34 8 245 NA NA 7 1 784324030
16101 8748 1408 44567 133 3 98 12 50965643906
16102 277 44 4086 9 NA 17 10 4829367278
16103 730 212 7846 22 NA 16 4 8022762560
16104 103 5 1463 6 NA 8 NA 2596282563
16105 137 NA 1182 NA NA 4 1 2213691761
16106 122 1 1733 4 NA 7 NA 1901248804
16107 284 4 3263 11 NA 12 18 4477425886
16108 217 1 2066 10 NA 23 NA 3269367252
16109 340 4 4223 7 NA 19 1 4599738091
16201 256 6 3131 9 NA 7 4 2932397811
16202 102 NA 442 1 NA 5 NA 1300549630
16203 292 3 3291 4 NA 5 8 4748629723
16204 38 2 479 2 NA NA NA 1571687052
16205 36 NA 582 4 NA NA NA 957181342
16206 56 4 478 2 NA 1 NA 1650320432
16207 34 NA 575 NA NA 3 4 1181211462
16301 1136 122 9940 34 NA 30 1 13391296803
16302 171 4 2677 12 NA 5 NA 5741254097
16303 19 NA 403 1 NA NA NA 2639471976
16304 43 NA 576 2 NA 3 NA 1118324609
16305 81 1 1525 5 NA 3 NA 3088800683

1.1.0.1 Tabla a correlacionar:

#union_final_urb_corr  <- union_final_urb[,-c(1)]
write_xlsx(union_final_urb, "P03B_urbano.xlsx")

1.1.0.2 Estadísticos básicos de nuestras frecuencias

data_sum <- summary(union_final_urb)

kbl(head(data_sum)) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "500px")
código Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas Losa hormigón Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño) Fonolita o plancha de fieltro embreado Paja, coirón, totora o caña Materiales precarios (lata, cartón, plásticos, etc.) Sin cubierta sólida de techo ingresos_expandidos
Length:319 Min. : 8 Min. : 1 Min. : 215 Min. : 1.0 Min. : 1.000 Min. : 1.00 Min. : 1.00 Min. :7.054e+08
Class :character 1st Qu.: 137 1st Qu.: 3 1st Qu.: 1544 1st Qu.: 4.0 1st Qu.: 1.000 1st Qu.: 7.00 1st Qu.: 2.00 1st Qu.:2.954e+09
Mode :character Median : 416 Median : 34 Median : 3770 Median : 12.0 Median : 2.000 Median : 19.00 Median : 5.00 Median :5.697e+09
NA Mean : 3231 Mean : 2435 Mean : 9549 Mean : 45.0 Mean : 4.874 Mean : 86.68 Mean : 14.02 Mean :1.784e+10
NA 3rd Qu.: 2660 3rd Qu.: 923 3rd Qu.:10912 3rd Qu.: 49.5 3rd Qu.: 5.000 3rd Qu.: 70.00 3rd Qu.: 16.00 3rd Qu.:1.857e+10
NA Max. :62057 Max. :107176 Max. :95344 Max. :767.0 Max. :62.000 Max. :2385.00 Max. :242.00 Max. :1.870e+11

1.1.0.3 Gráficas:

library(plotly)
df_2017_fig <- union_final_urb 

fig <- plot_ly(df_2017_fig, x = df_2017_fig$código, y = df_2017_fig[,2]
, name = colnames(df_2017_fig[2]), type = 'scatter', mode = 'lines',
                 width=7000, height=400) 

grafica_fn <- function(g){
  fig <<- fig %>% add_trace(y = ~df_2017_fig[,g]
, name = colnames(df_2017_fig[g]), mode = 'lines',
                 width=7000, height=400) 
}

for (g in 3:(ncol(union_final_urb))) {
grafica_fn(g)
}

fig <- fig %>% layout(autosize = T)%>%
  layout(xaxis = list(rangeslider = list()))
fig 

2 \(\tau\)

df_2017_2f <- filter(df_2017_fig, df_2017_fig$ingresos_expandidos != 'is.na')
III <- seq(2,(ncol(df_2017_2f)-1),1)
my_data <- df_2017_2f[, c(III)]
tabla <- cor(x=my_data, y=df_2017_2f$ingresos_expandidos, method=c("kendall"), use = "pairwise")
tabla <- as.data.frame(tabla)
names(tabla)[1] <- "Correlación"
saveRDS(tabla,"tablas_de_corr/C_P03B_URBANO.rds")
tabla %>% rownames_to_column("Material en la cubierta del techo")%>%  
  mutate(Correlación = cell_spec(Correlación, background=ifelse(Correlación == max(Correlación), "#fc0303", "#5cb81f"))) %>% 
  kbl(booktabs = T, linesep = "", escape=FALSE) %>% 
    kable_paper(full_width = F) %>%
    column_spec(1, color = "black")%>%
    column_spec(2, color = "white")
Material en la cubierta del techo Correlación
Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas 0.767037527927257
Losa hormigón 0.683623475353857
Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño) 0.81510482077567
Fonolita o plancha de fieltro embreado 0.709339738765223
Paja, coirón, totora o caña 0.423739993377874
Materiales precarios (lata, cartón, plásticos, etc.) 0.517438106418837
Sin cubierta sólida de techo 0.553083905901319

2.1 Kendall

df_2017_fig <- df_2017_fig[,-c(1)]
chart.Correlation(df_2017_fig, histogram=TRUE, method = c( "kendall"), pch=20)

2.2 Pearson

chart.Correlation(df_2017_fig, histogram=TRUE, method = c( "pearson"), pch=20)

2.3 Spearman

chart.Correlation(df_2017_fig, histogram=TRUE, method = c( "spearman"), pch=20)




3 Nivel nacional RURAL (código 2)

3.1 Pregunta P03B: Material en la cubierta del techo

Esta pregunta posee 6 categorias de respuesta:

1 Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas
2 Losa hormigón
3 Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño)
4 Fonolita o plancha de fieltro embreado
5 Paja, coirón, totora o caña
6 Materiales precarios (lata, cartón, plásticos, etc.)
7 Sin cubierta sólida de techo

Leemos las respuestas a la pregunta P03B del censo de viviendas 2017 y obtenemos la tabla de frecuencias por categoría:

tabla_con_clave <- readRDS("censos/censo_viviendas_con_clave_17.rds")
tabla_con_clave_u <- filter(tabla_con_clave, tabla_con_clave$AREA == 2)
b <- tabla_con_clave_u$COMUNA
c <- tabla_con_clave_u$P03B
cross_tab =  xtabs( ~ unlist(b) + unlist(c))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
d$anio <- "2017"

categorias <- sort(unique(tabla_con_clave_u$P03B ))
categorias <- as.data.frame(categorias)
names(categorias)[1] <- "cat"

categorias <- filter(categorias, categorias$cat != 99)
categorias <- filter(categorias, categorias$cat != 98)

d_t <- filter(d,d$unlist.c. == categorias[1,1])
for(i in categorias[2,1]:categorias[nrow(categorias),1]){
  d_i <- filter(d,d$unlist.c. == i)
  d_t = merge( x = d_t, y = d_i, by = "unlist.b.", all.x = TRUE)
}
 
# Agregamos un cero a los códigos comunales de 4 dígitos, que queda en la columna llamada **código**:
codigos <- d_t$unlist.b.
rango <- seq(1:nrow(d_t))
cadena <- paste("0",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(4),6)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
comuna_corr <- cbind(d_t,cadena)
comuna_corr <- comuna_corr[,-c(1),drop=FALSE] 
 
names(comuna_corr)[ncol(comuna_corr)] <- "código"
 
quitar <- seq(3,(ncol(comuna_corr)-1),3)

comuna_corr <- comuna_corr[,-c(quitar),drop=FALSE]
names(comuna_corr )[2] <- "Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas"
names(comuna_corr )[4] <- "Losa hormigón"
names(comuna_corr )[6] <- "Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño)"
names(comuna_corr )[8] <- "Fonolita o plancha de fieltro embreado"
names(comuna_corr )[10] <- "Paja, coirón, totora o caña"
names(comuna_corr )[12] <- " Materiales precarios (lata, cartón, plásticos, etc.)"
names(comuna_corr )[14] <- "Sin cubierta sólida de techo"

renombrar <- seq(1,(ncol(comuna_corr)-2),2)
vv <- 0
for (v in renombrar) {
  vv <- vv+1
  contador <- paste0("categoria_",vv)
  names(comuna_corr)[v] <- contador
}

ingresos_expandidos_2017 <- readRDS("Ingresos_expandidos_rural_17.rds")

df_2017_2 = merge( x = comuna_corr, y = ingresos_expandidos_2017, by = "código", all.x = TRUE)

df_2017_exp_subset <- df_2017_2 [,-c(2,4,6,8,10,12,14,16),drop=FALSE] 



union_final_urb <- df_2017_exp_subset

kbl(union_final_urb) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
código Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas Losa hormigón Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño) Fonolita o plancha de fieltro embreado Paja, coirón, totora o caña Materiales precarios (lata, cartón, plásticos, etc.) Sin cubierta sólida de techo ingresos_expandidos
01101 141 14 536 18 1 47 10 52180713221
01107 8 6 16 NA NA 7 7 NA
01401 321 51 818 31 15 80 16 3822052676
01402 82 6 369 5 1 3 1 283538750
01403 41 3 344 2 69 3 NA NA
01404 96 8 405 12 6 53 7 645917134
01405 65 6 228 5 10 11 NA 2502464414
02101 52 23 179 9 NA 43 4 NA
02102 46 3 73 1 NA 11 1 NA
02103 48 5 285 1 NA 1 NA 3290056742
02104 63 NA 186 3 NA 36 9 3844002134
02201 118 10 694 28 33 65 3 39457387800
02202 20 NA 67 NA 4 3 NA NA
02203 236 5 870 21 176 21 NA 2985112297
02301 26 NA 159 3 NA 16 3 4183793832
02302 12 1 38 1 1 5 NA NA
03101 137 8 767 16 10 12 2 38699138722
03102 107 6 620 8 5 34 7 NA
03103 18 1 886 1 10 9 1 4034940816
03201 14 3 364 1 1 26 1 NA
03202 32 NA 201 2 NA 12 NA 4545663075
03301 324 3 1466 15 22 67 12 11299454698
03302 214 1 1445 13 31 27 7 1039186477
03303 71 NA 770 5 2 17 2 1425547554
03304 55 NA 390 7 1 35 2 2089066548
04101 1321 52 4286 32 7 32 9 44274327972
04102 695 13 3279 22 10 30 8 46918711304
04103 27 NA 369 3 NA 4 2 2397612293
04104 105 NA 915 20 NA 17 3 982530309
04105 146 1 1424 4 2 8 4 786383423
04106 365 8 2929 12 2 29 7 4695441470
04201 218 1 3135 6 NA 4 2 5109649759
04202 103 NA 2551 5 6 5 8 1558270441
04203 140 3 1280 5 2 4 NA 3704185607
04204 276 11 3369 8 2 11 2 5681637894
04301 686 11 7049 45 7 35 5 25683781418
04302 121 1 2621 5 3 9 8 2300832587
04303 287 8 5043 16 1 23 4 5835357638
04304 96 1 1705 5 1 18 1 1817183694
04305 108 NA 1529 4 1 30 NA 778712384
05101 48 NA 210 2 NA 13 4 74756602991
05102 670 3 2226 14 NA 23 6 6779018483
05103 170 1 599 6 NA 1 2 NA
05104 45 NA 302 NA NA 1 NA NA
05105 208 2 739 11 2 3 2 4295363979
05107 758 32 776 16 NA 12 7 9102071069
05201 21 NA 120 NA NA NA NA NA
05301 101 2 1105 1 NA 9 NA 18714795984
05302 285 5 1022 1 NA 4 1 3471349123
05303 178 6 473 3 NA 2 2 2512319225
05304 279 1 2128 7 2 5 NA 3995512770
05401 398 5 2774 11 NA 6 1 6111000517
05402 130 2 2151 5 NA 3 3 4129354103
05403 29 NA 143 1 NA 1 NA NA
05404 88 1 1894 4 2 2 4 2654393853
05405 210 9 576 6 NA 2 NA 1729518700
05501 864 2 2774 8 1 20 6 19195726144
05502 73 NA 518 3 NA 1 NA 11471016698
05503 212 2 1807 5 NA 5 1 3874650405
05504 171 6 629 7 NA 3 NA 5377180726
05506 168 NA 923 2 NA 4 NA 4861992055
05601 352 NA 1276 6 2 8 5 21034388728
05602 473 3 594 7 1 4 1 3012893845
05603 109 1 528 2 NA NA NA 5605324190
05604 116 NA 248 2 NA 3 NA NA
05605 36 NA 194 3 NA 4 NA NA
05606 494 10 1007 9 1 7 1 2729409577
05701 332 4 1843 4 NA 4 1 18507290899
05702 168 NA 1832 4 1 6 1 2868237147
05703 204 2 1873 8 3 8 1 6324771348
05704 126 2 879 12 NA 1 NA 1532009468
05705 341 2 2861 13 2 6 9 3471806107
05706 198 NA 1548 3 NA 3 NA 3884985562
05801 184 2 549 4 NA 14 2 44984360344
05802 634 8 1523 17 1 12 2 11607834893
05803 365 NA 1455 4 1 8 NA 3473287749
05804 111 2 278 NA NA 11 1 31609146219
06101 318 5 1430 3 NA 5 NA 58924531866
06102 252 2 1498 NA 1 9 NA 3438412620
06103 282 NA 997 6 NA 6 NA 1293816308
06104 479 NA 2234 10 NA 10 1 4977769953
06105 298 1 1185 4 NA 1 NA 4145787348
06106 200 1 860 5 NA 3 NA 8305580885
06107 674 4 4176 11 3 18 5 4971665251
06108 63 1 269 2 1 2 NA 13233865906
06109 252 1 2393 2 1 10 7 3361017589
06110 259 NA 1080 7 NA 4 3 6697593734
06111 332 2 949 2 NA 8 2 3487795575
06112 95 5 587 6 NA 2 NA 3305417128
06113 440 2 2877 9 NA 5 NA 4282095940
06114 242 1 1575 8 NA 3 NA 2648154389
06115 628 2 3419 15 2 18 2 14737488444
06116 586 7 2906 4 NA 5 2 6847572657
06117 1283 3 5438 20 NA 14 9 11357872282
06201 236 NA 1035 4 1 2 2 3776560181
06202 140 NA 553 1 NA 1 1 642943494
06203 87 1 1014 2 NA NA 1 1497845780
06204 157 NA 1221 1 1 NA 3 1738201845
06205 262 NA 2238 6 NA 8 3 1099452202
06206 255 1 1300 8 NA 1 1 1201375821
06301 638 8 2540 3 NA 12 1 17733143348
06302 205 NA 1882 4 NA 5 12 3115559148
06303 462 3 4312 8 NA 8 1 8060942027
06304 184 1 1342 1 NA NA NA 1431112941
06305 273 5 1776 5 3 7 NA 3810465416
06306 362 2 2436 10 NA 1 NA 2877725100
06307 205 1 1259 2 NA 1 NA 2550270534
06308 222 1 1766 4 NA NA 1 1934232402
06309 133 NA 1053 3 NA 3 2 818883984
06310 636 4 4288 5 1 12 1 8495489945
07101 777 19 2078 4 NA 5 NA 53912095394
07102 315 1 2526 8 NA 33 1 9135962663
07103 349 NA 1958 6 1 5 2 1811588746
07104 50 NA 356 NA NA 1 1 714199777
07105 565 3 2868 9 NA 12 1 9705908393
07106 216 2 1666 4 NA 5 1 1575963241
07107 361 1 1356 NA 1 5 6 1821794345
07108 248 2 2974 12 NA 4 10 2733081178
07109 757 6 6344 16 1 18 8 7753001772
07110 148 1 1250 6 NA 5 NA 1800047360
07201 563 2 2132 26 1 2 NA 6171477801
07202 300 NA 1385 5 NA 2 NA 1151552040
07203 161 1 1163 NA NA 1 1 862993347
07301 1045 14 4292 20 1 12 5 39566034949
07302 181 1 1188 5 1 3 NA 1622060226
07303 76 1 518 2 NA NA NA 1197005482
07304 326 4 2554 17 1 14 6 10475401720
07305 223 2 1523 4 NA 2 NA 2062408371
07306 297 1 2444 12 1 13 1 3316239205
07307 326 2 3093 8 NA 2 NA 3800089672
07308 515 5 5739 19 1 10 NA 7240913928
07309 330 1 951 6 NA 5 1 777679695
07401 1097 4 4245 13 NA 14 3 18044885598
07402 514 3 3386 8 1 15 9 3348358419
07403 648 6 6365 27 2 17 1 5087351933
07404 419 1 3439 10 NA 9 2 7624714509
07405 425 5 3959 19 NA 4 NA 2924321333
07406 677 7 3758 8 2 12 4 7768163327
07407 464 2 1738 1 NA 6 NA 2895229121
07408 466 1 3410 7 NA 3 2 3670461912
08101 114 2 1290 4 NA 7 NA 44183983882
08102 194 1 812 1 NA 13 NA 25230952648
08103 4 NA 16 NA NA 1 NA NA
08104 177 3 1947 4 NA 23 14 1566245750
08105 121 NA 1119 2 NA 11 1 4932666876
08106 1 NA 43 NA NA NA NA NA
08107 6 NA 154 NA NA 2 NA 9246639961
08108 11 NA 26 NA NA NA NA NA
08109 114 NA 1480 6 NA 9 4 2728477197
08110 68 NA 51 2 NA 1 NA 24542535584
08111 211 1 1592 4 NA 20 3 11541584520
08112 23 NA 196 NA NA 5 NA NA
08201 36 1 669 5 NA 31 2 3620107931
08202 150 3 2738 4 NA 13 2 6702069405
08203 293 2 4449 8 NA 16 NA 6455391501
08204 51 NA 942 7 NA 3 NA 793386801
08205 13 NA 722 1 NA 2 NA 8138946477
08206 23 NA 690 1 NA 4 NA 3984647129
08207 49 NA 1988 4 NA 3 2 1510411713
08301 2346 9 13684 76 2 93 8 38606846296
08302 34 NA 660 2 NA 17 2 634012722
08303 213 3 2215 8 NA 4 NA 7119335384
08304 203 NA 1902 6 NA 23 2 3905739533
08305 186 NA 1661 6 NA 9 NA 5873792045
08306 169 NA 1085 2 1 5 1 4626944798
08307 95 NA 1062 4 NA 12 1 2112926492
08308 79 1 703 1 NA 14 NA 666419314
08309 109 NA 1290 3 1 10 1 2129051929
08310 18 NA 200 NA NA 2 NA 566092732
08311 174 NA 1742 5 NA 14 2 2424192819
08312 72 NA 773 3 NA 12 NA 2198382777
08313 301 2 2844 5 1 27 2 2936241535
08314 105 1 1589 9 NA 38 4 773205492
09101 515 3 5333 14 4 28 4 48946498862
09102 115 2 3496 10 NA 60 8 3138372109
09103 154 1 2913 9 NA 40 4 2749522512
09104 43 1 1652 3 1 16 3 1014167156
09105 270 1 5213 19 3 62 13 4857867695
09106 89 NA 2349 9 3 22 2 1769627798
09107 70 NA 1543 1 NA 19 2 2032338344
09108 173 1 3110 8 NA 17 3 10738525406
09109 92 1 2409 10 NA 30 2 3795451798
09110 40 1 1125 2 NA 16 NA 1010744848
09111 141 2 4366 21 6 36 7 5142978907
09112 411 2 8229 18 4 37 33 12882320064
09113 51 NA 1091 NA NA 4 NA 1071011969
09114 155 NA 2874 2 NA 23 15 5105439315
09115 387 5 3042 8 3 17 3 5355614570
09116 102 1 3148 16 2 44 4 1628156299
09117 88 1 3274 14 3 64 3 2089663239
09118 43 NA 1931 3 NA 25 4 1106284328
09119 219 2 3768 7 3 24 2 3817354634
09120 839 3 5610 8 3 17 17 11026000004
09121 119 1 2126 7 1 28 2 1336465909
09201 156 NA 1312 1 NA 6 1 9234420713
09202 100 2 1921 3 1 13 1 4484784762
09203 82 NA 1458 2 NA 20 1 3249351008
09204 23 NA 1240 1 NA 8 NA 1056936411
09205 96 1 1961 4 NA 39 6 1422283764
09206 64 NA 907 1 NA 9 2 1035906610
09207 71 1 1683 7 NA 11 10 1628298886
09208 72 NA 1275 NA NA 21 1 1572938990
09209 71 NA 511 2 NA 3 NA 2243930000
09210 115 NA 1253 1 1 15 1 3966946195
09211 204 NA 2853 10 1 16 1 6414689393
10101 1085 2 7277 12 NA 234 9 43337141298
10102 262 NA 5373 6 NA 343 5 5282762017
10103 159 NA 1389 5 1 34 NA NA
10104 133 NA 1708 7 NA 31 6 2255743895
10105 268 5 1590 3 NA 32 NA 3222744874
10106 310 NA 2816 3 NA 142 3 3291484556
10107 306 NA 828 1 NA 27 1 2626930838
10108 127 NA 2599 2 NA 88 5 1956316762
10109 1349 2 2562 2 NA 51 1 9799987895
10201 201 NA 3050 9 NA 42 1 8048100927
10202 226 NA 3527 8 NA 183 7 6313036958
10203 211 NA 2860 8 1 106 13 2877146807
10204 49 1 848 3 NA 22 NA 681378864
10205 128 NA 2058 2 1 59 2 2858609503
10206 58 NA 1250 2 NA 17 1 816645370
10207 31 NA 1013 3 NA 27 NA 815746659
10208 173 NA 2806 7 NA 169 2 4668472212
10209 61 NA 2006 4 NA 46 1 1020807718
10210 54 NA 1532 6 NA 56 3 969367811
10301 739 1 3715 7 2 32 1 31744688808
10302 266 1 2001 5 1 55 1 1997605810
10303 144 1 1894 1 NA 20 NA 3803288945
10304 217 NA 1913 3 NA 55 2 2053472049
10305 214 NA 2148 4 NA 50 2 2205262341
10306 105 NA 2166 11 NA 99 3 1146887184
10307 126 1 1824 1 NA 27 3 1819558805
10401 45 NA 962 NA NA 19 4 NA
10402 17 NA 272 NA NA NA NA NA
10403 107 1 1621 1 NA 91 1 NA
10404 10 1 267 NA NA 1 NA NA
11101 450 4 2406 NA NA 8 NA 13298894369
11102 8 NA 357 1 NA NA NA NA
11201 72 1 873 2 NA 8 1 5908637554
11202 44 NA 569 NA NA 12 NA 1710143349
11203 7 NA 39 NA 1 1 NA NA
11301 12 NA 222 1 NA NA 1 738667487
11302 11 NA 218 NA NA NA NA NA
11303 9 NA 172 NA NA 2 NA NA
11401 25 1 617 1 NA 1 NA 919065674
11402 69 NA 983 NA NA 5 2 456727447
12101 269 2 1366 1 2 28 NA 33806414442
12102 16 NA 87 NA NA 1 NA NA
12103 3 NA 88 NA NA NA NA NA
12104 4 NA 140 NA NA 2 NA NA
12201 2 NA 26 NA NA NA NA NA
12301 13 NA 232 1 NA 2 NA 2593419712
12302 16 NA 172 NA NA NA NA NA
12303 7 NA 80 NA NA NA NA NA
12401 44 2 670 1 NA 2 NA 6489647004
12402 1 NA 114 NA NA 12 NA NA
13107 2 NA 28 NA NA NA NA NA
13110 15 1 16 NA NA NA NA NA
13115 76 38 204 2 NA 2 NA NA
13119 81 1 770 5 1 14 2 NA
13124 167 1 1021 8 NA 10 2 NA
13125 3 NA 172 3 NA 11 NA NA
13202 1872 18 2320 14 1 19 5 7284672878
13203 372 2 1384 6 NA 20 2 6272964115
13301 3643 469 2935 24 1 25 11 37337421744
13302 2087 21 3921 28 1 39 5 24837699582
13303 175 1 1664 3 1 9 1 5113717064
13401 370 16 1017 11 1 9 3 75849003232
13402 1148 22 2566 13 NA 24 7 28006850165
13403 1803 16 1859 8 1 11 2 7577982724
13404 1932 38 5724 29 NA 52 8 20538478428
13501 2504 10 9241 35 1 32 17 24616837833
13502 70 NA 1018 1 1 2 NA 1564887792
13503 1169 14 2674 10 NA 11 2 7199638514
13504 398 2 1736 9 NA 3 1 2691680700
13505 326 NA 2857 7 NA 6 2 2250885401
13601 2387 29 1710 15 1 13 4 17129031774
13602 429 2 1302 2 NA 5 2 7236496479
13603 911 12 1818 7 NA 13 4 8424384020
13604 749 5 1319 2 NA 8 NA 14664233522
13605 1107 5 830 5 NA 5 1 22536570306
14101 371 NA 3033 11 2 86 2 35164529745
14102 26 NA 541 2 NA 83 2 834683963
14103 56 NA 1689 1 NA 27 1 3094599901
14104 188 NA 3014 5 1 54 3 3740075550
14105 29 1 906 NA NA 12 7 1279152079
14106 122 NA 3466 7 NA 92 1 3979945072
14107 101 NA 2325 7 1 63 11 3307473487
14108 426 1 6010 15 1 73 14 6230498948
14201 293 1 3543 8 NA 54 2 7682327556
14202 172 NA 1886 1 NA 87 1 2832109866
14203 145 NA 2390 5 NA 101 4 1846550611
14204 256 1 4690 14 NA 85 5 5783758517
15101 1042 236 2278 141 47 310 39 55532177025
15102 100 5 299 3 12 7 3 279202446
15201 27 1 176 2 26 11 NA 537221762
15202 24 NA 177 NA 9 NA NA NA
16101 862 12 4299 17 NA 23 8 42867130063
16102 204 1 2378 10 NA 4 NA 3604229178
16103 82 NA 1055 6 1 4 NA 5558803478
16104 153 2 2273 6 1 27 5 1820386198
16105 71 NA 1357 3 NA 16 1 1283161238
16106 165 NA 1696 3 NA 4 3 1659661870
16107 263 1 2432 6 NA 29 1 2333895558
16108 294 2 2909 7 1 13 3 2806409365
16109 124 1 1506 1 NA 3 1 3450799686
16201 77 NA 741 9 NA 11 NA 1802251665
16202 151 NA 1228 6 NA 2 2 614036495
16203 200 NA 1389 3 NA 8 NA 2783932983
16204 85 NA 1281 5 NA 1 NA 842304828
16205 78 NA 998 19 NA 1 NA 819710106
16206 127 NA 1413 3 NA 3 1 1277329463
16207 60 NA 1285 4 NA 4 1 965503625
16301 580 7 6144 18 4 26 1 9289995173
16302 475 NA 5192 6 1 23 7 4700239750
16303 263 5 3270 6 NA 10 3 2105832760
16304 50 2 805 NA NA 27 1 680747063
16305 165 NA 2139 7 NA 8 1 2096375354

3.1.0.1 Tabla a correlacionar:

#union_final_urb_corr  <- union_final_urb[,-c(1)]
write_xlsx(union_final_urb, "P03B_rural.xlsx")

3.1.0.2 Estadísticos básicos de nuestras frecuencias

data_sum <- summary(union_final_urb)

kbl(head(data_sum)) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "500px")
código Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas Losa hormigón Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño) Fonolita o plancha de fieltro embreado Paja, coirón, totora o caña Materiales precarios (lata, cartón, plásticos, etc.) Sin cubierta sólida de techo ingresos_expandidos
Length:317 Min. : 1.0 Min. : 1.000 Min. : 16 Min. : 1.000 Min. : 1.000 Min. : 1.00 Min. : 1.000 Min. :2.792e+08
Class :character 1st Qu.: 71.0 1st Qu.: 1.000 1st Qu.: 741 1st Qu.: 3.000 1st Qu.: 1.000 1st Qu.: 4.00 1st Qu.: 1.000 1st Qu.:1.809e+09
Mode :character Median : 165.0 Median : 2.000 Median : 1458 Median : 5.000 Median : 1.000 Median : 11.00 Median : 2.000 Median :3.546e+09
NA Mean : 287.9 Mean : 8.672 Mean : 1847 Mean : 7.978 Mean : 5.884 Mean : 22.75 Mean : 4.038 Mean :8.206e+09
NA 3rd Qu.: 318.0 3rd Qu.: 5.000 3rd Qu.: 2540 3rd Qu.: 9.000 3rd Qu.: 3.000 3rd Qu.: 26.00 3rd Qu.: 5.000 3rd Qu.:7.252e+09
NA Max. :3643.0 Max. :469.000 Max. :13684 Max. :141.000 Max. :176.000 Max. :343.00 Max. :39.000 Max. :7.585e+10

3.1.0.3 Gráficas:

library(plotly)
df_2017_fig <- union_final_urb 

fig <- plot_ly(df_2017_fig, x = df_2017_fig$código, y = df_2017_fig[,2]
, name = colnames(df_2017_fig[2]), type = 'scatter', mode = 'lines',
                 width=7000, height=400) 

grafica_fn <- function(g){
  fig <<- fig %>% add_trace(y = ~df_2017_fig[,g]
, name = colnames(df_2017_fig[g]), mode = 'lines',
                 width=7000, height=400) 
}

for (g in 3:(ncol(union_final_urb))) {
grafica_fn(g)
}

fig <- fig %>% layout(autosize = T)%>%
  layout(xaxis = list(rangeslider = list()))
fig 

4 \(\tau\)

df_2017_2f <- filter(df_2017_fig, df_2017_fig$ingresos_expandidos != 'is.na')
III <- seq(2,(ncol(df_2017_2f)-1),1)
my_data <- df_2017_2f[, c(III)]
tabla <- cor(x=my_data, y=df_2017_2f$ingresos_expandidos, method=c("kendall"), use = "pairwise")
tabla <- as.data.frame(tabla)
names(tabla)[1] <- "Correlación"
saveRDS(tabla,"tablas_de_corr/C_P03B_RURAL.rds")
tabla %>% rownames_to_column("Material en la cubierta del techo")%>%  
  mutate(Correlación = cell_spec(Correlación, background=ifelse(Correlación == max(Correlación), "#fc0303", "#5cb81f"))) %>% 
  kbl(booktabs = T, linesep = "", escape=FALSE) %>% 
    kable_paper(full_width = F) %>%
    column_spec(1, color = "black")%>%
    column_spec(2, color = "white")
Material en la cubierta del techo Correlación
Tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas 0.424802033062971
Losa hormigón 0.381093349658573
Planchas metálicas de zinc, cobre, etc. o fibrocemento (tipo pizarreño) 0.265083737440543
Fonolita o plancha de fieltro embreado 0.250440655922204
Paja, coirón, totora o caña 0.0853651746440153
Materiales precarios (lata, cartón, plásticos, etc.) 0.117862498884648
Sin cubierta sólida de techo 0.154919216464489

4.1 Kendall

df_2017_fig <- df_2017_fig[,-c(1)]
chart.Correlation(df_2017_fig, histogram=TRUE, method = c( "kendall"), pch=20)

4.2 Pearson

chart.Correlation(df_2017_fig, histogram=TRUE, method = c( "pearson"), pch=20)

4.3 Spearman

chart.Correlation(df_2017_fig, histogram=TRUE, method = c( "spearman"), pch=20)