1 Variable CENSO

Necesitamos calcular las frecuencias a nivel censal de las respuestas correspondientes a la categoría: “tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas” del campo P03B del Censo de viviendas. Recordemos que ésta fué la más alta correlación en relación a los ingresos expandidos (ver punto 1.2 aquí).

1.1 Lectura y filtrado de la tabla censal de viviendas

Leemos la tabla Casen 2017 de viviendas que ya tiene integrada la clave zonal:

tabla_con_clave <- readRDS("censo_viviendas_con_clave_17.rds")
r3_100 <- tabla_con_clave[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
REGION PROVINCIA COMUNA DC AREA ZC_LOC ID_ZONA_LOC NVIV P01 P02 P03A P03B P03C P04 P05 CANT_HOG CANT_PER REGION_15R PROVINCIA_15R COMUNA_15R clave
15 152 15202 1 2 6 13225 1 3 1 5 3 5 1 4 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 2 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 3 1 1 5 3 5 2 3 1 4 15 152 15202 15202012006
15 152 15202 1 2 6 13225 4 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 5 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 6 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 7 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 8 3 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 9 3 1 5 3 5 1 4 1 4 15 152 15202 15202012006
15 152 15202 1 2 6 13225 10 1 1 5 3 4 1 4 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 11 1 2 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 12 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 13 1 1 5 3 4 1 4 1 3 15 152 15202 15202012006
15 152 15202 1 2 6 13225 14 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 15 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 16 1 1 5 3 5 1 3 1 3 15 152 15202 15202012006
15 152 15202 1 2 6 13225 17 1 1 5 3 5 2 4 1 8 15 152 15202 15202012006
15 152 15202 1 2 6 13225 18 3 1 5 3 5 1 1 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 19 3 1 5 3 5 1 3 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 20 1 1 5 3 5 2 1 1 2 15 152 15202 15202012006
15 152 15202 1 2 6 13225 21 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 22 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 23 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 24 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 25 1 1 5 3 5 1 4 1 2 15 152 15202 15202012006
15 152 15202 1 2 6 13225 26 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 27 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 28 3 1 5 3 5 1 4 1 5 15 152 15202 15202012006
15 152 15202 1 2 6 13225 29 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 30 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 31 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 32 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 33 1 1 5 3 5 3 4 1 4 15 152 15202 15202012006
15 152 15202 1 2 6 13225 34 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 35 3 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 36 1 1 5 3 5 3 2 1 9 15 152 15202 15202012006
15 152 15202 1 2 6 13225 37 3 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 38 1 1 5 3 5 99 4 1 1 15 152 15202 15202012006
15 152 15202 1 2 6 13225 39 1 1 5 3 5 1 4 1 2 15 152 15202 15202012006
15 152 15202 1 2 6 13225 40 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 41 1 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 42 3 3 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 43 3 1 5 3 5 2 1 1 5 15 152 15202 15202012006
15 152 15202 1 2 6 13225 44 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 6 13225 45 1 4 98 98 98 98 98 0 0 15 152 15202 15202012006
15 152 15202 1 2 8 13910 1 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 2 1 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 3 1 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 4 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 5 3 1 5 3 5 2 3 1 3 15 152 15202 15202012008
15 152 15202 1 2 8 13910 6 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 7 1 1 5 99 5 2 4 1 2 15 152 15202 15202012008
15 152 15202 1 2 8 13910 8 3 1 5 3 5 3 3 1 2 15 152 15202 15202012008
15 152 15202 1 2 8 13910 9 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 10 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 11 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 12 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 13 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 14 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 15 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 16 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 17 3 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 18 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 19 3 1 99 99 99 99 99 1 1 15 152 15202 15202012008
15 152 15202 1 2 8 13910 20 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 21 1 1 5 3 5 1 4 1 2 15 152 15202 15202012008
15 152 15202 1 2 8 13910 22 3 1 5 3 5 2 4 1 1 15 152 15202 15202012008
15 152 15202 1 2 8 13910 23 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 24 3 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 25 3 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 26 1 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 27 1 4 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 28 3 2 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 29 1 3 98 98 98 98 98 0 0 15 152 15202 15202012008
15 152 15202 1 2 8 13910 30 1 1 5 1 4 2 4 1 1 15 152 15202 15202012008
15 152 15202 1 2 12 8394 1 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 2 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 3 3 1 5 3 5 2 3 1 4 15 152 15202 15202012012
15 152 15202 1 2 12 8394 4 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 5 3 3 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 6 3 3 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 7 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 8 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 9 3 1 5 3 5 1 4 1 1 15 152 15202 15202012012
15 152 15202 1 2 12 8394 10 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 11 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 12 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 13 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 14 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 15 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 16 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 17 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 18 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 19 3 1 99 99 99 99 99 1 1 15 152 15202 15202012012
15 152 15202 1 2 12 8394 20 3 1 5 3 5 3 99 1 1 15 152 15202 15202012012
15 152 15202 1 2 12 8394 21 3 1 5 99 5 1 4 1 2 15 152 15202 15202012012
15 152 15202 1 2 12 8394 22 3 2 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 23 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012
15 152 15202 1 2 12 8394 24 3 1 5 3 5 1 2 1 2 15 152 15202 15202012012
15 152 15202 1 2 12 8394 25 3 4 98 98 98 98 98 0 0 15 152 15202 15202012012

Despleguemos los códigos de regiones de nuestra tabla:

regiones <- unique(tabla_con_clave$REGION)
regiones
##  [1] 15 14 13 12 11 10  9 16  8  7  6  5  4  3  2  1

Hagamos un subset con la 1:

tabla_con_clave <- filter(tabla_con_clave, tabla_con_clave$REGION == 7)

1.2 Cálculo de frecuencias

tabla_con_clave_f <- tabla_con_clave[,-c(1,2,4,5,6,7,8,9,10,11,13,14,15,16,17,18,19,20),drop=FALSE] 
names(tabla_con_clave_f)[2] <- "Tipo de techo" 
# Ahora filtramos por Tipo de techo = 1.
tabla_con_clave_ff <- filter(tabla_con_clave_f, tabla_con_clave_f$`Tipo de techo` == 1)
# Determinamos las frecuencias por zona:
b <- tabla_con_clave_ff$clave
c <- tabla_con_clave_ff$`Tipo de techo`
d <- tabla_con_clave_ff$COMUNA
cross_tab =  xtabs( ~ unlist(b) + unlist(c)+ unlist(d))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
names(d)[1] <- "zona" 
d$anio <- "2017"

Veamos los primeros 100 registros:

r3_100 <- d[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona unlist.c. unlist.d. Freq anio
7101011001 1 7101 70 2017
7101011002 1 7101 156 2017
7101021001 1 7101 59 2017
7101021002 1 7101 67 2017
7101021003 1 7101 31 2017
7101031001 1 7101 145 2017
7101031002 1 7101 52 2017
7101031003 1 7101 63 2017
7101041001 1 7101 45 2017
7101041002 1 7101 102 2017
7101041003 1 7101 64 2017
7101041004 1 7101 92 2017
7101041005 1 7101 50 2017
7101051001 1 7101 140 2017
7101051002 1 7101 66 2017
7101061001 1 7101 55 2017
7101061002 1 7101 39 2017
7101061003 1 7101 82 2017
7101061004 1 7101 58 2017
7101061005 1 7101 28 2017
7101061006 1 7101 129 2017
7101071001 1 7101 236 2017
7101071002 1 7101 304 2017
7101071003 1 7101 74 2017
7101071004 1 7101 75 2017
7101071005 1 7101 117 2017
7101071006 1 7101 153 2017
7101071007 1 7101 196 2017
7101071008 1 7101 122 2017
7101071009 1 7101 121 2017
7101071010 1 7101 116 2017
7101081001 1 7101 18 2017
7101081002 1 7101 79 2017
7101081003 1 7101 99 2017
7101081004 1 7101 141 2017
7101081005 1 7101 361 2017
7101081006 1 7101 43 2017
7101091001 1 7101 9 2017
7101092003 1 7101 26 2017
7101092024 1 7101 12 2017
7101092901 1 7101 6 2017
7101101001 1 7101 37 2017
7101102004 1 7101 6 2017
7101102005 1 7101 28 2017
7101102013 1 7101 1 2017
7101102017 1 7101 69 2017
7101102018 1 7101 7 2017
7101111001 1 7101 133 2017
7101111002 1 7101 608 2017
7101111003 1 7101 164 2017
7101111004 1 7101 7 2017
7101111005 1 7101 820 2017
7101111006 1 7101 402 2017
7101111007 1 7101 47 2017
7101111008 1 7101 1428 2017
7101111009 1 7101 399 2017
7101111010 1 7101 543 2017
7101112010 1 7101 11 2017
7101112015 1 7101 20 2017
7101112020 1 7101 47 2017
7101112022 1 7101 63 2017
7101121001 1 7101 107 2017
7101121002 1 7101 73 2017
7101121003 1 7101 127 2017
7101121004 1 7101 84 2017
7101121005 1 7101 20 2017
7101121006 1 7101 429 2017
7101121007 1 7101 41 2017
7101121008 1 7101 51 2017
7101121009 1 7101 86 2017
7101121010 1 7101 41 2017
7101122001 1 7101 111 2017
7101122010 1 7101 31 2017
7101122014 1 7101 2 2017
7101122021 1 7101 3 2017
7101122022 1 7101 73 2017
7101122901 1 7101 6 2017
7101131001 1 7101 80 2017
7101131002 1 7101 191 2017
7101131003 1 7101 461 2017
7101131004 1 7101 229 2017
7101131005 1 7101 169 2017
7101131006 1 7101 103 2017
7101131007 1 7101 112 2017
7101131008 1 7101 104 2017
7101141001 1 7101 45 2017
7101141002 1 7101 67 2017
7101141003 1 7101 121 2017
7101141004 1 7101 76 2017
7101141005 1 7101 88 2017
7101141006 1 7101 434 2017
7101141007 1 7101 89 2017
7101141008 1 7101 223 2017
7101141009 1 7101 89 2017
7101141010 1 7101 71 2017
7101151001 1 7101 4 2017
7101152008 1 7101 41 2017
7101152010 1 7101 15 2017
7101152016 1 7101 11 2017
7101152023 1 7101 16 2017

Agregamos un cero a los códigos comunales de cuatro dígitos:

codigos <- d$unlist.d.
rango <- seq(1:nrow(d))
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,cadena)
comuna_corr <- comuna_corr[,-c(2,3),drop=FALSE]
names(comuna_corr)[4] <- "código" 
r3_100 <- comuna_corr[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona Freq anio código
7101011001 70 2017 07101
7101011002 156 2017 07101
7101021001 59 2017 07101
7101021002 67 2017 07101
7101021003 31 2017 07101
7101031001 145 2017 07101
7101031002 52 2017 07101
7101031003 63 2017 07101
7101041001 45 2017 07101
7101041002 102 2017 07101
7101041003 64 2017 07101
7101041004 92 2017 07101
7101041005 50 2017 07101
7101051001 140 2017 07101
7101051002 66 2017 07101
7101061001 55 2017 07101
7101061002 39 2017 07101
7101061003 82 2017 07101
7101061004 58 2017 07101
7101061005 28 2017 07101
7101061006 129 2017 07101
7101071001 236 2017 07101
7101071002 304 2017 07101
7101071003 74 2017 07101
7101071004 75 2017 07101
7101071005 117 2017 07101
7101071006 153 2017 07101
7101071007 196 2017 07101
7101071008 122 2017 07101
7101071009 121 2017 07101
7101071010 116 2017 07101
7101081001 18 2017 07101
7101081002 79 2017 07101
7101081003 99 2017 07101
7101081004 141 2017 07101
7101081005 361 2017 07101
7101081006 43 2017 07101
7101091001 9 2017 07101
7101092003 26 2017 07101
7101092024 12 2017 07101
7101092901 6 2017 07101
7101101001 37 2017 07101
7101102004 6 2017 07101
7101102005 28 2017 07101
7101102013 1 2017 07101
7101102017 69 2017 07101
7101102018 7 2017 07101
7101111001 133 2017 07101
7101111002 608 2017 07101
7101111003 164 2017 07101
7101111004 7 2017 07101
7101111005 820 2017 07101
7101111006 402 2017 07101
7101111007 47 2017 07101
7101111008 1428 2017 07101
7101111009 399 2017 07101
7101111010 543 2017 07101
7101112010 11 2017 07101
7101112015 20 2017 07101
7101112020 47 2017 07101
7101112022 63 2017 07101
7101121001 107 2017 07101
7101121002 73 2017 07101
7101121003 127 2017 07101
7101121004 84 2017 07101
7101121005 20 2017 07101
7101121006 429 2017 07101
7101121007 41 2017 07101
7101121008 51 2017 07101
7101121009 86 2017 07101
7101121010 41 2017 07101
7101122001 111 2017 07101
7101122010 31 2017 07101
7101122014 2 2017 07101
7101122021 3 2017 07101
7101122022 73 2017 07101
7101122901 6 2017 07101
7101131001 80 2017 07101
7101131002 191 2017 07101
7101131003 461 2017 07101
7101131004 229 2017 07101
7101131005 169 2017 07101
7101131006 103 2017 07101
7101131007 112 2017 07101
7101131008 104 2017 07101
7101141001 45 2017 07101
7101141002 67 2017 07101
7101141003 121 2017 07101
7101141004 76 2017 07101
7101141005 88 2017 07101
7101141006 434 2017 07101
7101141007 89 2017 07101
7101141008 223 2017 07101
7101141009 89 2017 07101
7101141010 71 2017 07101
7101151001 4 2017 07101
7101152008 41 2017 07101
7101152010 15 2017 07101
7101152016 11 2017 07101
7101152023 16 2017 07101


2 Variable CASEN

2.1 Tabla de ingresos expandidos

Hemos calculado ya éste valor como conclusión del punto 1.1 de aquí

h_y_m_2017_censo <- readRDS("ingresos_expandidos_17.rds")
tablamadre <- head(h_y_m_2017_censo,50)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
código comuna.x promedio_i año comuna.y personas Ingresos_expandidos
01101 Iquique 354820.7 2017 1101 191468 67936815240
01107 Alto Hospicio 301933.4 2017 1107 108375 32722034397
01401 Pozo Almonte 285981.8 2017 1401 15711 4493059532
01402 Camiña 262850.3 2017 1402 1250 328562901
01404 Huara 253968.5 2017 1404 2730 693334131
01405 Pica 313007.5 2017 1405 9296 2909717399
02101 Antofagasta 347580.2 2017 2101 361873 125779893517
02102 Mejillones 369770.7 2017 2102 13467 4979702302
02103 Sierra Gorda 403458.5 2017 2103 10186 4109628188
02104 Taltal 364539.1 2017 2104 13317 4854566842
02201 Calama 409671.3 2017 2201 165731 67895226712
02203 San Pedro de Atacama 426592.0 2017 2203 10996 4690805471
02301 Tocopilla 246615.3 2017 2301 25186 6211253937
02302 María Elena 466266.9 2017 2302 6457 3010685220
03101 Copiapó 330075.2 2017 3101 153937 50810778473
03102 Caldera 299314.8 2017 3102 17662 5286498241
03103 Tierra Amarilla 314643.9 2017 3103 14019 4410992711
03201 Chañaral 286389.3 2017 3201 12219 3499391196
03202 Diego de Almagro 336256.8 2017 3202 13925 4682376047
03301 Vallenar 304336.7 2017 3301 51917 15800246795
03302 Alto del Carmen 227130.4 2017 3302 5299 1203563833
03303 Freirina 253086.7 2017 3303 7041 1781983257
03304 Huasco 287406.6 2017 3304 10149 2916889629
04101 La Serena 270221.9 2017 4101 221054 59733627577
04102 Coquimbo 261852.6 2017 4102 227730 59631700074
04103 Andacollo 248209.3 2017 4103 11044 2741223967
04104 La Higuera 228356.8 2017 4104 4241 968461330
04105 Paiguano 205942.1 2017 4105 4497 926121774
04106 Vicuña 211431.9 2017 4106 27771 5871675449
04201 Illapel 238674.4 2017 4201 30848 7362627007
04202 Canela 207933.6 2017 4202 9093 1890740321
04203 Los Vilos 255200.4 2017 4203 21382 5456695139
04204 Salamanca 242879.5 2017 4204 29347 7127783272
04301 Ovalle 266522.9 2017 4301 111272 29656533187
04302 Combarbalá 210409.7 2017 4302 13322 2803077721
04303 Monte Patria 211907.9 2017 4303 30751 6516380780
04304 Punitaqui 194997.8 2017 4304 10956 2136395349
04305 Río Hurtado 182027.2 2017 4305 4278 778712384
05101 Valparaíso 298720.7 2017 5101 296655 88616992249
05102 Casablanca 312802.7 2017 5102 26867 8404070481
05103 Concón 318496.3 2017 5103 42152 13425257057
05105 Puchuncaví 288737.2 2017 5105 18546 5354920887
05107 Quintero 316659.1 2017 5107 31923 10108709691
05109 Viña del Mar 337006.1 2017 5109 334248 112643604611
05301 Los Andes 338182.5 2017 5301 66708 22559476922
05302 Calle Larga 245165.4 2017 5302 14832 3636293159
05303 Rinconada 281633.2 2017 5303 10207 2874630315
05304 San Esteban 220958.4 2017 5304 18855 4166170587
05401 La Ligua 229623.7 2017 5401 35390 8126381563
05402 Cabildo 249717.7 2017 5402 19388 4841527150

3 Unión Censo-Casen

Integramos a la tabla censal de frecuencias la tabla de ingresos expandidos de la Casen.

comunas_con_ing_exp = merge( x = comuna_corr, y = h_y_m_2017_censo, by = "código", all.x = TRUE)
r3_100 <- comunas_con_ing_exp[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
código zona Freq anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos
07101 7101011001 70 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101011002 156 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101021001 59 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101021002 67 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101021003 31 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101031001 145 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101031002 52 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101031003 63 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041001 45 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041002 102 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041003 64 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041004 92 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041005 50 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101051001 140 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101051002 66 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061001 55 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061002 39 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061003 82 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061004 58 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061005 28 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061006 129 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071001 236 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071002 304 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071003 74 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071004 75 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071005 117 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071006 153 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071007 196 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071008 122 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071009 121 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071010 116 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081001 18 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081002 79 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081003 99 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081004 141 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081005 361 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081006 43 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101091001 9 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101092003 26 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101092024 12 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101092901 6 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101101001 37 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102004 6 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102005 28 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102013 1 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102017 69 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102018 7 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111001 133 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111002 608 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111003 164 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111004 7 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111005 820 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111006 402 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111007 47 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111008 1428 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111009 399 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111010 543 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101112010 11 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101112015 20 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101112020 47 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101112022 63 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121001 107 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121002 73 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121003 127 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121004 84 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121005 20 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121006 429 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121007 41 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121008 51 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121009 86 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121010 41 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122001 111 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122010 31 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122014 2 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122021 3 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122022 73 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122901 6 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131001 80 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131002 191 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131003 461 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131004 229 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131005 169 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131006 103 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131007 112 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131008 104 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141001 45 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141002 67 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141003 121 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141004 76 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141005 88 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141006 434 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141007 89 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141008 223 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141009 89 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141010 71 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101151001 4 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101152008 41 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101152010 15 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101152016 11 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101152023 16 2017 Talca 292520.9 2017 7101 220357 64459031565


4 Proporción poblacional zonal respecto a la comunal

Del censo obtenemos la cantidad de población a nivel de zona y estimamos su proporción a nivel comunal. Ya hemos calculado ésta proporción aquí.

prop_pob <- readRDS("tabla_de_prop_pob.rds")
names(prop_pob)[1] <- "zona"
names(prop_pob)[3] <- "p_poblacional"

Veamos los 100 primeros registros:

r3_100 <- prop_pob[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona Freq p_poblacional código
1101011001 2491 0.0130100 01101
1101011002 1475 0.0077036 01101
1101021001 1003 0.0052385 01101
1101021002 54 0.0002820 01101
1101021003 2895 0.0151200 01101
1101021004 2398 0.0125243 01101
1101021005 4525 0.0236332 01101
1101031001 2725 0.0142321 01101
1101031002 3554 0.0185618 01101
1101031003 5246 0.0273988 01101
1101031004 3389 0.0177001 01101
1101041001 1800 0.0094010 01101
1101041002 2538 0.0132555 01101
1101041003 3855 0.0201339 01101
1101041004 5663 0.0295767 01101
1101041005 4162 0.0217373 01101
1101041006 2689 0.0140441 01101
1101051001 3296 0.0172144 01101
1101051002 4465 0.0233198 01101
1101051003 4656 0.0243174 01101
1101051004 2097 0.0109522 01101
1101051005 3569 0.0186402 01101
1101051006 2741 0.0143157 01101
1101061001 1625 0.0084871 01101
1101061002 4767 0.0248971 01101
1101061003 4826 0.0252053 01101
1101061004 4077 0.0212934 01101
1101061005 2166 0.0113126 01101
1101071001 2324 0.0121378 01101
1101071002 2801 0.0146291 01101
1101071003 3829 0.0199981 01101
1101071004 1987 0.0103777 01101
1101081001 5133 0.0268087 01101
1101081002 3233 0.0168853 01101
1101081003 2122 0.0110828 01101
1101081004 2392 0.0124929 01101
1101092001 57 0.0002977 01101
1101092004 247 0.0012900 01101
1101092005 76 0.0003969 01101
1101092006 603 0.0031494 01101
1101092007 84 0.0004387 01101
1101092010 398 0.0020787 01101
1101092012 58 0.0003029 01101
1101092014 23 0.0001201 01101
1101092016 20 0.0001045 01101
1101092017 8 0.0000418 01101
1101092018 74 0.0003865 01101
1101092019 25 0.0001306 01101
1101092021 177 0.0009244 01101
1101092022 23 0.0001201 01101
1101092023 288 0.0015042 01101
1101092024 14 0.0000731 01101
1101092901 30 0.0001567 01101
1101101001 2672 0.0139553 01101
1101101002 4398 0.0229699 01101
1101101003 4524 0.0236280 01101
1101101004 3544 0.0185096 01101
1101101005 4911 0.0256492 01101
1101101006 3688 0.0192617 01101
1101111001 3886 0.0202958 01101
1101111002 2312 0.0120751 01101
1101111003 4874 0.0254560 01101
1101111004 4543 0.0237272 01101
1101111005 4331 0.0226200 01101
1101111006 3253 0.0169898 01101
1101111007 4639 0.0242286 01101
1101111008 4881 0.0254925 01101
1101111009 5006 0.0261454 01101
1101111010 366 0.0019115 01101
1101111011 4351 0.0227244 01101
1101111012 2926 0.0152819 01101
1101111013 3390 0.0177053 01101
1101111014 2940 0.0153550 01101
1101112003 33 0.0001724 01101
1101112013 104 0.0005432 01101
1101112019 34 0.0001776 01101
1101112025 21 0.0001097 01101
1101112901 6 0.0000313 01101
1101991999 1062 0.0055466 01101
1107011001 4104 0.0378685 01107
1107011002 4360 0.0402307 01107
1107011003 8549 0.0788835 01107
1107012003 3 0.0000277 01107
1107012901 17 0.0001569 01107
1107021001 6701 0.0618316 01107
1107021002 3971 0.0366413 01107
1107021003 6349 0.0585836 01107
1107021004 5125 0.0472895 01107
1107021005 4451 0.0410704 01107
1107021006 3864 0.0356540 01107
1107021007 5235 0.0483045 01107
1107021008 4566 0.0421315 01107
1107031001 4195 0.0387082 01107
1107031002 7099 0.0655040 01107
1107031003 4720 0.0435525 01107
1107032005 38 0.0003506 01107
1107032006 2399 0.0221361 01107
1107032008 4 0.0000369 01107
1107041001 3630 0.0334948 01107
1107041002 5358 0.0494394 01107


5 Ingreso medio

Deseamos el valor del ingreso promedio a nivel comunal, pero expandido a nivel zonal. Ésta información está contenida en el campo promedio_i de la tabla obtenida en el punto 3.

r3_100 <- comunas_con_ing_exp[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
código zona Freq anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos
07101 7101011001 70 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101011002 156 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101021001 59 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101021002 67 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101021003 31 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101031001 145 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101031002 52 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101031003 63 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041001 45 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041002 102 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041003 64 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041004 92 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101041005 50 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101051001 140 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101051002 66 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061001 55 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061002 39 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061003 82 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061004 58 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061005 28 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101061006 129 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071001 236 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071002 304 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071003 74 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071004 75 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071005 117 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071006 153 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071007 196 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071008 122 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071009 121 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101071010 116 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081001 18 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081002 79 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081003 99 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081004 141 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081005 361 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101081006 43 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101091001 9 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101092003 26 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101092024 12 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101092901 6 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101101001 37 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102004 6 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102005 28 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102013 1 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102017 69 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101102018 7 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111001 133 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111002 608 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111003 164 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111004 7 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111005 820 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111006 402 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111007 47 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111008 1428 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111009 399 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101111010 543 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101112010 11 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101112015 20 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101112020 47 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101112022 63 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121001 107 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121002 73 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121003 127 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121004 84 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121005 20 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121006 429 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121007 41 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121008 51 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121009 86 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101121010 41 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122001 111 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122010 31 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122014 2 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122021 3 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122022 73 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101122901 6 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131001 80 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131002 191 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131003 461 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131004 229 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131005 169 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131006 103 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131007 112 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101131008 104 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141001 45 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141002 67 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141003 121 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141004 76 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141005 88 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141006 434 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141007 89 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141008 223 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141009 89 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101141010 71 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101151001 4 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101152008 41 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101152010 15 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101152016 11 2017 Talca 292520.9 2017 7101 220357 64459031565
07101 7101152023 16 2017 Talca 292520.9 2017 7101 220357 64459031565


6 Ingreso promedio expandido por zona (multi_pob)

En éste momento vamos a construir nuestra variable dependiente de regresión aplicando la siguiente fórmula:

\[ multi\_pob = promedio\_i \cdot personas \cdot p\_poblacional \]

Para ello integramos a la tabla de ingresos expandidos a nivel zonal (punto 3) la tabla de proporciones poblacionales zonales respecto al total comunal (punto 4) :

h_y_m_comuna_corr_01 = merge( x = comunas_con_ing_exp, y = prop_pob, by = "zona", all.x = TRUE)
tablamadre <- head(h_y_m_comuna_corr_01,100)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona código.x Freq.x anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos Freq.y p_poblacional código.y
7101011001 07101 70 2017 Talca 292520.9 2017 7101 220357 64459031565 1693 0.0076830 07101
7101011002 07101 156 2017 Talca 292520.9 2017 7101 220357 64459031565 1889 0.0085725 07101
7101021001 07101 59 2017 Talca 292520.9 2017 7101 220357 64459031565 951 0.0043157 07101
7101021002 07101 67 2017 Talca 292520.9 2017 7101 220357 64459031565 912 0.0041387 07101
7101021003 07101 31 2017 Talca 292520.9 2017 7101 220357 64459031565 857 0.0038891 07101
7101031001 07101 145 2017 Talca 292520.9 2017 7101 220357 64459031565 1465 0.0066483 07101
7101031002 07101 52 2017 Talca 292520.9 2017 7101 220357 64459031565 1428 0.0064804 07101
7101031003 07101 63 2017 Talca 292520.9 2017 7101 220357 64459031565 1037 0.0047060 07101
7101041001 07101 45 2017 Talca 292520.9 2017 7101 220357 64459031565 1306 0.0059267 07101
7101041002 07101 102 2017 Talca 292520.9 2017 7101 220357 64459031565 1682 0.0076331 07101
7101041003 07101 64 2017 Talca 292520.9 2017 7101 220357 64459031565 1627 0.0073835 07101
7101041004 07101 92 2017 Talca 292520.9 2017 7101 220357 64459031565 1684 0.0076421 07101
7101041005 07101 50 2017 Talca 292520.9 2017 7101 220357 64459031565 1196 0.0054276 07101
7101051001 07101 140 2017 Talca 292520.9 2017 7101 220357 64459031565 2870 0.0130243 07101
7101051002 07101 66 2017 Talca 292520.9 2017 7101 220357 64459031565 1049 0.0047605 07101
7101061001 07101 55 2017 Talca 292520.9 2017 7101 220357 64459031565 1756 0.0079689 07101
7101061002 07101 39 2017 Talca 292520.9 2017 7101 220357 64459031565 1371 0.0062217 07101
7101061003 07101 82 2017 Talca 292520.9 2017 7101 220357 64459031565 3032 0.0137595 07101
7101061004 07101 58 2017 Talca 292520.9 2017 7101 220357 64459031565 3215 0.0145900 07101
7101061005 07101 28 2017 Talca 292520.9 2017 7101 220357 64459031565 2884 0.0130879 07101
7101061006 07101 129 2017 Talca 292520.9 2017 7101 220357 64459031565 3367 0.0152798 07101
7101071001 07101 236 2017 Talca 292520.9 2017 7101 220357 64459031565 2136 0.0096934 07101
7101071002 07101 304 2017 Talca 292520.9 2017 7101 220357 64459031565 3210 0.0145673 07101
7101071003 07101 74 2017 Talca 292520.9 2017 7101 220357 64459031565 1773 0.0080460 07101
7101071004 07101 75 2017 Talca 292520.9 2017 7101 220357 64459031565 1769 0.0080279 07101
7101071005 07101 117 2017 Talca 292520.9 2017 7101 220357 64459031565 1956 0.0088765 07101
7101071006 07101 153 2017 Talca 292520.9 2017 7101 220357 64459031565 3097 0.0140545 07101
7101071007 07101 196 2017 Talca 292520.9 2017 7101 220357 64459031565 3759 0.0170587 07101
7101071008 07101 122 2017 Talca 292520.9 2017 7101 220357 64459031565 2586 0.0117355 07101
7101071009 07101 121 2017 Talca 292520.9 2017 7101 220357 64459031565 3775 0.0171313 07101
7101071010 07101 116 2017 Talca 292520.9 2017 7101 220357 64459031565 2262 0.0102652 07101
7101081001 07101 18 2017 Talca 292520.9 2017 7101 220357 64459031565 1170 0.0053096 07101
7101081002 07101 79 2017 Talca 292520.9 2017 7101 220357 64459031565 1841 0.0083546 07101
7101081003 07101 99 2017 Talca 292520.9 2017 7101 220357 64459031565 1281 0.0058133 07101
7101081004 07101 141 2017 Talca 292520.9 2017 7101 220357 64459031565 1562 0.0070885 07101
7101081005 07101 361 2017 Talca 292520.9 2017 7101 220357 64459031565 3349 0.0151981 07101
7101081006 07101 43 2017 Talca 292520.9 2017 7101 220357 64459031565 1555 0.0070567 07101
7101091001 07101 9 2017 Talca 292520.9 2017 7101 220357 64459031565 179 0.0008123 07101
7101092003 07101 26 2017 Talca 292520.9 2017 7101 220357 64459031565 191 0.0008668 07101
7101092024 07101 12 2017 Talca 292520.9 2017 7101 220357 64459031565 50 0.0002269 07101
7101092901 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 38 0.0001724 07101
7101101001 07101 37 2017 Talca 292520.9 2017 7101 220357 64459031565 1347 0.0061128 07101
7101102004 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 66 0.0002995 07101
7101102005 07101 28 2017 Talca 292520.9 2017 7101 220357 64459031565 260 0.0011799 07101
7101102013 07101 1 2017 Talca 292520.9 2017 7101 220357 64459031565 8 0.0000363 07101
7101102017 07101 69 2017 Talca 292520.9 2017 7101 220357 64459031565 991 0.0044972 07101
7101102018 07101 7 2017 Talca 292520.9 2017 7101 220357 64459031565 123 0.0005582 07101
7101111001 07101 133 2017 Talca 292520.9 2017 7101 220357 64459031565 5385 0.0244376 07101
7101111002 07101 608 2017 Talca 292520.9 2017 7101 220357 64459031565 3446 0.0156383 07101
7101111003 07101 164 2017 Talca 292520.9 2017 7101 220357 64459031565 3435 0.0155883 07101
7101111004 07101 7 2017 Talca 292520.9 2017 7101 220357 64459031565 347 0.0015747 07101
7101111005 07101 820 2017 Talca 292520.9 2017 7101 220357 64459031565 5190 0.0235527 07101
7101111006 07101 402 2017 Talca 292520.9 2017 7101 220357 64459031565 7789 0.0353472 07101
7101111007 07101 47 2017 Talca 292520.9 2017 7101 220357 64459031565 1912 0.0086768 07101
7101111008 07101 1428 2017 Talca 292520.9 2017 7101 220357 64459031565 5035 0.0228493 07101
7101111009 07101 399 2017 Talca 292520.9 2017 7101 220357 64459031565 3737 0.0169588 07101
7101111010 07101 543 2017 Talca 292520.9 2017 7101 220357 64459031565 1695 0.0076921 07101
7101112010 07101 11 2017 Talca 292520.9 2017 7101 220357 64459031565 74 0.0003358 07101
7101112015 07101 20 2017 Talca 292520.9 2017 7101 220357 64459031565 349 0.0015838 07101
7101112020 07101 47 2017 Talca 292520.9 2017 7101 220357 64459031565 668 0.0030314 07101
7101112022 07101 63 2017 Talca 292520.9 2017 7101 220357 64459031565 287 0.0013024 07101
7101121001 07101 107 2017 Talca 292520.9 2017 7101 220357 64459031565 4067 0.0184564 07101
7101121002 07101 73 2017 Talca 292520.9 2017 7101 220357 64459031565 1855 0.0084182 07101
7101121003 07101 127 2017 Talca 292520.9 2017 7101 220357 64459031565 3773 0.0171222 07101
7101121004 07101 84 2017 Talca 292520.9 2017 7101 220357 64459031565 4426 0.0200856 07101
7101121005 07101 20 2017 Talca 292520.9 2017 7101 220357 64459031565 344 0.0015611 07101
7101121006 07101 429 2017 Talca 292520.9 2017 7101 220357 64459031565 6821 0.0309543 07101
7101121007 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 2524 0.0114541 07101
7101121008 07101 51 2017 Talca 292520.9 2017 7101 220357 64459031565 2216 0.0100564 07101
7101121009 07101 86 2017 Talca 292520.9 2017 7101 220357 64459031565 2511 0.0113951 07101
7101121010 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 2406 0.0109186 07101
7101122001 07101 111 2017 Talca 292520.9 2017 7101 220357 64459031565 795 0.0036078 07101
7101122010 07101 31 2017 Talca 292520.9 2017 7101 220357 64459031565 223 0.0010120 07101
7101122014 07101 2 2017 Talca 292520.9 2017 7101 220357 64459031565 59 0.0002677 07101
7101122021 07101 3 2017 Talca 292520.9 2017 7101 220357 64459031565 41 0.0001861 07101
7101122022 07101 73 2017 Talca 292520.9 2017 7101 220357 64459031565 435 0.0019741 07101
7101122901 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 31 0.0001407 07101
7101131001 07101 80 2017 Talca 292520.9 2017 7101 220357 64459031565 1494 0.0067799 07101
7101131002 07101 191 2017 Talca 292520.9 2017 7101 220357 64459031565 4280 0.0194230 07101
7101131003 07101 461 2017 Talca 292520.9 2017 7101 220357 64459031565 3547 0.0160966 07101
7101131004 07101 229 2017 Talca 292520.9 2017 7101 220357 64459031565 3431 0.0155702 07101
7101131005 07101 169 2017 Talca 292520.9 2017 7101 220357 64459031565 2875 0.0130470 07101
7101131006 07101 103 2017 Talca 292520.9 2017 7101 220357 64459031565 2089 0.0094801 07101
7101131007 07101 112 2017 Talca 292520.9 2017 7101 220357 64459031565 2855 0.0129562 07101
7101131008 07101 104 2017 Talca 292520.9 2017 7101 220357 64459031565 3485 0.0158152 07101
7101141001 07101 45 2017 Talca 292520.9 2017 7101 220357 64459031565 3226 0.0146399 07101
7101141002 07101 67 2017 Talca 292520.9 2017 7101 220357 64459031565 2620 0.0118898 07101
7101141003 07101 121 2017 Talca 292520.9 2017 7101 220357 64459031565 2174 0.0098658 07101
7101141004 07101 76 2017 Talca 292520.9 2017 7101 220357 64459031565 5692 0.0258308 07101
7101141005 07101 88 2017 Talca 292520.9 2017 7101 220357 64459031565 4770 0.0216467 07101
7101141006 07101 434 2017 Talca 292520.9 2017 7101 220357 64459031565 4860 0.0220551 07101
7101141007 07101 89 2017 Talca 292520.9 2017 7101 220357 64459031565 4908 0.0222729 07101
7101141008 07101 223 2017 Talca 292520.9 2017 7101 220357 64459031565 4971 0.0225588 07101
7101141009 07101 89 2017 Talca 292520.9 2017 7101 220357 64459031565 3856 0.0174989 07101
7101141010 07101 71 2017 Talca 292520.9 2017 7101 220357 64459031565 2182 0.0099021 07101
7101151001 07101 4 2017 Talca 292520.9 2017 7101 220357 64459031565 282 0.0012797 07101
7101152008 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 1194 0.0054185 07101
7101152010 07101 15 2017 Talca 292520.9 2017 7101 220357 64459031565 300 0.0013614 07101
7101152016 07101 11 2017 Talca 292520.9 2017 7101 220357 64459031565 308 0.0013977 07101
7101152023 07101 16 2017 Talca 292520.9 2017 7101 220357 64459031565 287 0.0013024 07101


Hacemos la multiplicación que queda almacenada en la variable multi_pob:

h_y_m_comuna_corr_01$multi_pob <- h_y_m_comuna_corr_01$promedio_i * h_y_m_comuna_corr_01$personas * h_y_m_comuna_corr_01$p_poblacional
tablamadre <- head(h_y_m_comuna_corr_01,100)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona código.x Freq.x anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos Freq.y p_poblacional código.y multi_pob
7101011001 07101 70 2017 Talca 292520.9 2017 7101 220357 64459031565 1693 0.0076830 07101 495237911
7101011002 07101 156 2017 Talca 292520.9 2017 7101 220357 64459031565 1889 0.0085725 07101 552572011
7101021001 07101 59 2017 Talca 292520.9 2017 7101 220357 64459031565 951 0.0043157 07101 278187391
7101021002 07101 67 2017 Talca 292520.9 2017 7101 220357 64459031565 912 0.0041387 07101 266779076
7101021003 07101 31 2017 Talca 292520.9 2017 7101 220357 64459031565 857 0.0038891 07101 250690425
7101031001 07101 145 2017 Talca 292520.9 2017 7101 220357 64459031565 1465 0.0066483 07101 428543142
7101031002 07101 52 2017 Talca 292520.9 2017 7101 220357 64459031565 1428 0.0064804 07101 417719869
7101031003 07101 63 2017 Talca 292520.9 2017 7101 220357 64459031565 1037 0.0047060 07101 303344190
7101041001 07101 45 2017 Talca 292520.9 2017 7101 220357 64459031565 1306 0.0059267 07101 382032317
7101041002 07101 102 2017 Talca 292520.9 2017 7101 220357 64459031565 1682 0.0076331 07101 492020181
7101041003 07101 64 2017 Talca 292520.9 2017 7101 220357 64459031565 1627 0.0073835 07101 475931531
7101041004 07101 92 2017 Talca 292520.9 2017 7101 220357 64459031565 1684 0.0076421 07101 492605223
7101041005 07101 50 2017 Talca 292520.9 2017 7101 220357 64459031565 1196 0.0054276 07101 349855016
7101051001 07101 140 2017 Talca 292520.9 2017 7101 220357 64459031565 2870 0.0130243 07101 839535030
7101051002 07101 66 2017 Talca 292520.9 2017 7101 220357 64459031565 1049 0.0047605 07101 306854441
7101061001 07101 55 2017 Talca 292520.9 2017 7101 220357 64459031565 1756 0.0079689 07101 513666729
7101061002 07101 39 2017 Talca 292520.9 2017 7101 220357 64459031565 1371 0.0062217 07101 401046176
7101061003 07101 82 2017 Talca 292520.9 2017 7101 220357 64459031565 3032 0.0137595 07101 886923418
7101061004 07101 58 2017 Talca 292520.9 2017 7101 220357 64459031565 3215 0.0145900 07101 940454746
7101061005 07101 28 2017 Talca 292520.9 2017 7101 220357 64459031565 2884 0.0130879 07101 843630323
7101061006 07101 129 2017 Talca 292520.9 2017 7101 220357 64459031565 3367 0.0152798 07101 984917925
7101071001 07101 236 2017 Talca 292520.9 2017 7101 220357 64459031565 2136 0.0096934 07101 624824677
7101071002 07101 304 2017 Talca 292520.9 2017 7101 220357 64459031565 3210 0.0145673 07101 938992141
7101071003 07101 74 2017 Talca 292520.9 2017 7101 220357 64459031565 1773 0.0080460 07101 518639585
7101071004 07101 75 2017 Talca 292520.9 2017 7101 220357 64459031565 1769 0.0080279 07101 517469501
7101071005 07101 117 2017 Talca 292520.9 2017 7101 220357 64459031565 1956 0.0088765 07101 572170912
7101071006 07101 153 2017 Talca 292520.9 2017 7101 220357 64459031565 3097 0.0140545 07101 905937278
7101071007 07101 196 2017 Talca 292520.9 2017 7101 220357 64459031565 3759 0.0170587 07101 1099586125
7101071008 07101 122 2017 Talca 292520.9 2017 7101 220357 64459031565 2586 0.0117355 07101 756459090
7101071009 07101 121 2017 Talca 292520.9 2017 7101 220357 64459031565 3775 0.0171313 07101 1104266459
7101071010 07101 116 2017 Talca 292520.9 2017 7101 220357 64459031565 2262 0.0102652 07101 661682313
7101081001 07101 18 2017 Talca 292520.9 2017 7101 220357 64459031565 1170 0.0053096 07101 342249472
7101081002 07101 79 2017 Talca 292520.9 2017 7101 220357 64459031565 1841 0.0083546 07101 538531007
7101081003 07101 99 2017 Talca 292520.9 2017 7101 220357 64459031565 1281 0.0058133 07101 374719294
7101081004 07101 141 2017 Talca 292520.9 2017 7101 220357 64459031565 1562 0.0070885 07101 456917671
7101081005 07101 361 2017 Talca 292520.9 2017 7101 220357 64459031565 3349 0.0151981 07101 979652549
7101081006 07101 43 2017 Talca 292520.9 2017 7101 220357 64459031565 1555 0.0070567 07101 454870025
7101091001 07101 9 2017 Talca 292520.9 2017 7101 220357 64459031565 179 0.0008123 07101 52361244
7101092003 07101 26 2017 Talca 292520.9 2017 7101 220357 64459031565 191 0.0008668 07101 55871495
7101092024 07101 12 2017 Talca 292520.9 2017 7101 220357 64459031565 50 0.0002269 07101 14626046
7101092901 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 38 0.0001724 07101 11115795
7101101001 07101 37 2017 Talca 292520.9 2017 7101 220357 64459031565 1347 0.0061128 07101 394025674
7101102004 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 66 0.0002995 07101 19306380
7101102005 07101 28 2017 Talca 292520.9 2017 7101 220357 64459031565 260 0.0011799 07101 76055438
7101102013 07101 1 2017 Talca 292520.9 2017 7101 220357 64459031565 8 0.0000363 07101 2340167
7101102017 07101 69 2017 Talca 292520.9 2017 7101 220357 64459031565 991 0.0044972 07101 289888228
7101102018 07101 7 2017 Talca 292520.9 2017 7101 220357 64459031565 123 0.0005582 07101 35980073
7101111001 07101 133 2017 Talca 292520.9 2017 7101 220357 64459031565 5385 0.0244376 07101 1575225135
7101111002 07101 608 2017 Talca 292520.9 2017 7101 220357 64459031565 3446 0.0156383 07101 1008027078
7101111003 07101 164 2017 Talca 292520.9 2017 7101 220357 64459031565 3435 0.0155883 07101 1004809348
7101111004 07101 7 2017 Talca 292520.9 2017 7101 220357 64459031565 347 0.0015747 07101 101504758
7101111005 07101 820 2017 Talca 292520.9 2017 7101 220357 64459031565 5190 0.0235527 07101 1518183556
7101111006 07101 402 2017 Talca 292520.9 2017 7101 220357 64459031565 7789 0.0353472 07101 2278445417
7101111007 07101 47 2017 Talca 292520.9 2017 7101 220357 64459031565 1912 0.0086768 07101 559299992
7101111008 07101 1428 2017 Talca 292520.9 2017 7101 220357 64459031565 5035 0.0228493 07101 1472842814
7101111009 07101 399 2017 Talca 292520.9 2017 7101 220357 64459031565 3737 0.0169588 07101 1093150664
7101111010 07101 543 2017 Talca 292520.9 2017 7101 220357 64459031565 1695 0.0076921 07101 495822953
7101112010 07101 11 2017 Talca 292520.9 2017 7101 220357 64459031565 74 0.0003358 07101 21646548
7101112015 07101 20 2017 Talca 292520.9 2017 7101 220357 64459031565 349 0.0015838 07101 102089800
7101112020 07101 47 2017 Talca 292520.9 2017 7101 220357 64459031565 668 0.0030314 07101 195403972
7101112022 07101 63 2017 Talca 292520.9 2017 7101 220357 64459031565 287 0.0013024 07101 83953503
7101121001 07101 107 2017 Talca 292520.9 2017 7101 220357 64459031565 4067 0.0184564 07101 1189682567
7101121002 07101 73 2017 Talca 292520.9 2017 7101 220357 64459031565 1855 0.0084182 07101 542626300
7101121003 07101 127 2017 Talca 292520.9 2017 7101 220357 64459031565 3773 0.0171222 07101 1103681417
7101121004 07101 84 2017 Talca 292520.9 2017 7101 220357 64459031565 4426 0.0200856 07101 1294697576
7101121005 07101 20 2017 Talca 292520.9 2017 7101 220357 64459031565 344 0.0015611 07101 100627195
7101121006 07101 429 2017 Talca 292520.9 2017 7101 220357 64459031565 6821 0.0309543 07101 1995285170
7101121007 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 2524 0.0114541 07101 738322793
7101121008 07101 51 2017 Talca 292520.9 2017 7101 220357 64459031565 2216 0.0100564 07101 648226351
7101121009 07101 86 2017 Talca 292520.9 2017 7101 220357 64459031565 2511 0.0113951 07101 734520021
7101121010 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 2406 0.0109186 07101 703805325
7101122001 07101 111 2017 Talca 292520.9 2017 7101 220357 64459031565 795 0.0036078 07101 232554129
7101122010 07101 31 2017 Talca 292520.9 2017 7101 220357 64459031565 223 0.0010120 07101 65232164
7101122014 07101 2 2017 Talca 292520.9 2017 7101 220357 64459031565 59 0.0002677 07101 17258734
7101122021 07101 3 2017 Talca 292520.9 2017 7101 220357 64459031565 41 0.0001861 07101 11993358
7101122022 07101 73 2017 Talca 292520.9 2017 7101 220357 64459031565 435 0.0019741 07101 127246599
7101122901 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 31 0.0001407 07101 9068148
7101131001 07101 80 2017 Talca 292520.9 2017 7101 220357 64459031565 1494 0.0067799 07101 437026249
7101131002 07101 191 2017 Talca 292520.9 2017 7101 220357 64459031565 4280 0.0194230 07101 1251989522
7101131003 07101 461 2017 Talca 292520.9 2017 7101 220357 64459031565 3547 0.0160966 07101 1037571690
7101131004 07101 229 2017 Talca 292520.9 2017 7101 220357 64459031565 3431 0.0155702 07101 1003639264
7101131005 07101 169 2017 Talca 292520.9 2017 7101 220357 64459031565 2875 0.0130470 07101 840997635
7101131006 07101 103 2017 Talca 292520.9 2017 7101 220357 64459031565 2089 0.0094801 07101 611076194
7101131007 07101 112 2017 Talca 292520.9 2017 7101 220357 64459031565 2855 0.0129562 07101 835147216
7101131008 07101 104 2017 Talca 292520.9 2017 7101 220357 64459031565 3485 0.0158152 07101 1019435393
7101141001 07101 45 2017 Talca 292520.9 2017 7101 220357 64459031565 3226 0.0146399 07101 943672476
7101141002 07101 67 2017 Talca 292520.9 2017 7101 220357 64459031565 2620 0.0118898 07101 766404801
7101141003 07101 121 2017 Talca 292520.9 2017 7101 220357 64459031565 2174 0.0098658 07101 635940472
7101141004 07101 76 2017 Talca 292520.9 2017 7101 220357 64459031565 5692 0.0258308 07101 1665029056
7101141005 07101 88 2017 Talca 292520.9 2017 7101 220357 64459031565 4770 0.0216467 07101 1395324771
7101141006 07101 434 2017 Talca 292520.9 2017 7101 220357 64459031565 4860 0.0220551 07101 1421651653
7101141007 07101 89 2017 Talca 292520.9 2017 7101 220357 64459031565 4908 0.0222729 07101 1435692657
7101141008 07101 223 2017 Talca 292520.9 2017 7101 220357 64459031565 4971 0.0225588 07101 1454121475
7101141009 07101 89 2017 Talca 292520.9 2017 7101 220357 64459031565 3856 0.0174989 07101 1127960653
7101141010 07101 71 2017 Talca 292520.9 2017 7101 220357 64459031565 2182 0.0099021 07101 638280639
7101151001 07101 4 2017 Talca 292520.9 2017 7101 220357 64459031565 282 0.0012797 07101 82490898
7101152008 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 1194 0.0054185 07101 349269974
7101152010 07101 15 2017 Talca 292520.9 2017 7101 220357 64459031565 300 0.0013614 07101 87756275
7101152016 07101 11 2017 Talca 292520.9 2017 7101 220357 64459031565 308 0.0013977 07101 90096442
7101152023 07101 16 2017 Talca 292520.9 2017 7101 220357 64459031565 287 0.0013024 07101 83953503

7 Análisis de regresión

Aplicaremos un análisis de regresión donde:

\[ Y(dependiente) = ingreso \ expandido \ por \ zona \ (multi\_pob)\]

\[ X(independiente) = frecuencia \ de \ población \ que \ posee \ la \ variable \ Censal \ respecto \ a \ la \ zona \ (Freq.x) \]

7.1 Diagrama de dispersión

scatter.smooth(x=h_y_m_comuna_corr_01$Freq.x, y=h_y_m_comuna_corr_01$multi_pob, main="multi_pob ~ Freq.x",
     xlab = "Freq.x",
     ylab = "multi_pob",
           col = 2)

7.2 Outliers

Hemos demostrado en el punto 5.7.2 de aquí que la exclusión de ouliers no genera ninguna mejora en el modelo de regresión.

7.3 Modelo lineal

Aplicaremos un análisis de regresión lineal del ingreso expandido por zona sobre las frecuencias de respuestas zonales.

linearMod <- lm( multi_pob~(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ (Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.628e+09 -8.041e+07 -6.572e+07 -1.008e+07  1.432e+09 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 80204808    6279119   12.77   <2e-16 ***
## Freq.x       2815544      71413   39.43   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.19e+08 on 1441 degrees of freedom
## Multiple R-squared:  0.5189, Adjusted R-squared:  0.5186 
## F-statistic:  1554 on 1 and 1441 DF,  p-value: < 2.2e-16

7.4 Gráfica de la recta de regresión lineal

ggplot(h_y_m_comuna_corr_01, aes(x = Freq.x , y = multi_pob)) + 
  geom_point() +
  stat_smooth(method = "lm", col = "red")

Si bien obtenemos nuestro modelo lineal da cuenta del 0.8214 de la variabilidad de los datos de respuesta en torno a su media, modelos alternativos pueden ofrecernos una explicación de la variable dependiente aún mayor.

8 Modelos alternativos

8.1 Modelo cuadrático

\[ \hat Y = \beta_0 + \beta_1 X^2 \]

linearMod <- lm( multi_pob~(Freq.x^2) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^2), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.628e+09 -8.041e+07 -6.572e+07 -1.008e+07  1.432e+09 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 80204808    6279119   12.77   <2e-16 ***
## Freq.x       2815544      71413   39.43   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.19e+08 on 1441 degrees of freedom
## Multiple R-squared:  0.5189, Adjusted R-squared:  0.5186 
## F-statistic:  1554 on 1 and 1441 DF,  p-value: < 2.2e-16

8.2 Modelo cúbico

\[ \hat Y = \beta_0 + \beta_1 X^3 \]

linearMod <- lm( multi_pob~(Freq.x^3) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^3), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.628e+09 -8.041e+07 -6.572e+07 -1.008e+07  1.432e+09 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 80204808    6279119   12.77   <2e-16 ***
## Freq.x       2815544      71413   39.43   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.19e+08 on 1441 degrees of freedom
## Multiple R-squared:  0.5189, Adjusted R-squared:  0.5186 
## F-statistic:  1554 on 1 and 1441 DF,  p-value: < 2.2e-16

8.3 Modelo logarítmico

\[ \hat Y = \beta_0 + \beta_1 ln X \]

linearMod <- lm( multi_pob~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -462293264 -132874090  -27995043   85869238 1546128157 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -174439165    9985533  -17.47   <2e-16 ***
## log(Freq.x)  153302380    3610906   42.45   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 210500000 on 1441 degrees of freedom
## Multiple R-squared:  0.5557, Adjusted R-squared:  0.5554 
## F-statistic:  1802 on 1 and 1441 DF,  p-value: < 2.2e-16

8.4 Modelo exponencial

\[ \hat Y = \beta_0 + \beta_1 e^X \]

No es aplicable sin una transformación pues los valores elevados a \(e\) de Freq.x tienden a infinito.

8.5 Modelo con raíz cuadrada

\[ \hat Y = \beta_0 + \beta_1 \sqrt {X} \]

linearMod <- lm( multi_pob~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = multi_pob ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -934887750  -66257398   -4742555   44182361 1280554937 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -107846193    6679697  -16.14   <2e-16 ***
## sqrt(Freq.x)   66025796    1131970   58.33   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 172200000 on 1441 degrees of freedom
## Multiple R-squared:  0.7025, Adjusted R-squared:  0.7023 
## F-statistic:  3402 on 1 and 1441 DF,  p-value: < 2.2e-16

8.6 Modelo raíz-raíz

\[ \hat Y = {\beta_0}^2 + 2 \beta_0 \beta_1 \sqrt{X}+ \beta_1^2 X \]

linearMod <- lm( sqrt(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = sqrt(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -36632  -2219   -739   1553  22363 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   1478.80     170.39   8.679   <2e-16 ***
## sqrt(Freq.x)  1945.84      28.88  67.388   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4394 on 1441 degrees of freedom
## Multiple R-squared:  0.7591, Adjusted R-squared:  0.7589 
## F-statistic:  4541 on 1 and 1441 DF,  p-value: < 2.2e-16

8.7 Modelo log-raíz

\[ \hat Y = e^{\beta_0 + \beta_1 \sqrt{X}} \]

linearMod <- lm( log(multi_pob)~sqrt(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = log(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -7.6168 -0.6405  0.1097  0.6952  2.5386 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.270323   0.039504  411.87   <2e-16 ***
## sqrt(Freq.x)  0.329647   0.006694   49.24   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.019 on 1441 degrees of freedom
## Multiple R-squared:  0.6272, Adjusted R-squared:  0.627 
## F-statistic:  2425 on 1 and 1441 DF,  p-value: < 2.2e-16

8.8 Modelo raíz-log

\[ \hat Y = {\beta_0}^2 + 2 \beta_0 \beta_1 \ln{X}+ \beta_1^2 ln^2X \]

linearMod <- lm( sqrt(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = sqrt(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -11944.1  -3248.1   -487.7   3026.6  21204.5 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -1496.1      223.4  -6.696 3.06e-11 ***
## log(Freq.x)   4958.0       80.8  61.362  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4710 on 1441 degrees of freedom
## Multiple R-squared:  0.7232, Adjusted R-squared:  0.723 
## F-statistic:  3765 on 1 and 1441 DF,  p-value: < 2.2e-16

8.9 Modelo log-log

\[ \hat Y = e^{\beta_0+\beta_1 ln{X}} \]

linearMod <- lm( log(multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -3.15684 -0.55750  0.02895  0.55882  2.43465 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.49891    0.03759  412.27   <2e-16 ***
## log(Freq.x)  0.95618    0.01359   70.34   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7924 on 1441 degrees of freedom
## Multiple R-squared:  0.7744, Adjusted R-squared:  0.7743 
## F-statistic:  4947 on 1 and 1441 DF,  p-value: < 2.2e-16

9 Modelo log-log (log-log)

Es éste el modelo que nos entrega el mayor coeficiente de determinación de todos (0.7743).

9.1 Diagrama de dispersión sobre log-log

Desplegamos una curva suavizada por loess en el diagrama de dispersión.

scatter.smooth(x=log(h_y_m_comuna_corr_01$Freq.x), y=log(h_y_m_comuna_corr_01$multi_pob), lpars = list(col = "red", lwd = 2, lty = 1), main="multi_pob ~ Freq.x")

9.2 Modelo log-log

Observemos nuevamente el resultado sobre log-log.

linearMod <- lm(log( multi_pob)~log(Freq.x) , data=h_y_m_comuna_corr_01)
summary(linearMod) 
## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -3.15684 -0.55750  0.02895  0.55882  2.43465 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 15.49891    0.03759  412.27   <2e-16 ***
## log(Freq.x)  0.95618    0.01359   70.34   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7924 on 1441 degrees of freedom
## Multiple R-squared:  0.7744, Adjusted R-squared:  0.7743 
## F-statistic:  4947 on 1 and 1441 DF,  p-value: < 2.2e-16
ggplot(h_y_m_comuna_corr_01, aes(x = log(Freq.x) , y = log(multi_pob))) + 
  geom_point() +
  stat_smooth(method = "lm", col = "red")

9.3 Análisis de residuos

par(mfrow = c (2,2))
plot(linearMod)

9.4 Ecuación del modelo


\[ \hat Y = e^{15.49891+0.95618 \cdot ln{X}} \]


10 Aplicación la regresión a los valores de la variable a nivel de zona

Esta nueva variable se llamará: est_ing

h_y_m_comuna_corr_01$est_ing <- exp(15.49891 +0.95618  * log(h_y_m_comuna_corr_01$Freq.x))

r3_100 <- h_y_m_comuna_corr_01[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona código.x Freq.x anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos Freq.y p_poblacional código.y multi_pob est_ing
7101011001 07101 70 2017 Talca 292520.9 2017 7101 220357 64459031565 1693 0.0076830 07101 495237911 312850557
7101011002 07101 156 2017 Talca 292520.9 2017 7101 220357 64459031565 1889 0.0085725 07101 552572011 673151731
7101021001 07101 59 2017 Talca 292520.9 2017 7101 220357 64459031565 951 0.0043157 07101 278187391 265671131
7101021002 07101 67 2017 Talca 292520.9 2017 7101 220357 64459031565 912 0.0041387 07101 266779076 300017987
7101021003 07101 31 2017 Talca 292520.9 2017 7101 220357 64459031565 857 0.0038891 07101 250690425 143582435
7101031001 07101 145 2017 Talca 292520.9 2017 7101 220357 64459031565 1465 0.0066483 07101 428543142 627693953
7101031002 07101 52 2017 Talca 292520.9 2017 7101 220357 64459031565 1428 0.0064804 07101 417719869 235450255
7101031003 07101 63 2017 Talca 292520.9 2017 7101 220357 64459031565 1037 0.0047060 07101 303344190 282868466
7101041001 07101 45 2017 Talca 292520.9 2017 7101 220357 64459031565 1306 0.0059267 07101 382032317 205050027
7101041002 07101 102 2017 Talca 292520.9 2017 7101 220357 64459031565 1682 0.0076331 07101 492020181 448409083
7101041003 07101 64 2017 Talca 292520.9 2017 7101 220357 64459031565 1627 0.0073835 07101 475931531 287160206
7101041004 07101 92 2017 Talca 292520.9 2017 7101 220357 64459031565 1684 0.0076421 07101 492605223 406280271
7101041005 07101 50 2017 Talca 292520.9 2017 7101 220357 64459031565 1196 0.0054276 07101 349855016 226783904
7101051001 07101 140 2017 Talca 292520.9 2017 7101 220357 64459031565 2870 0.0130243 07101 839535030 606981974
7101051002 07101 66 2017 Talca 292520.9 2017 7101 220357 64459031565 1049 0.0047605 07101 306854441 295734920
7101061001 07101 55 2017 Talca 292520.9 2017 7101 220357 64459031565 1756 0.0079689 07101 513666729 248422590
7101061002 07101 39 2017 Talca 292520.9 2017 7101 220357 64459031565 1371 0.0062217 07101 401046176 178827887
7101061003 07101 82 2017 Talca 292520.9 2017 7101 220357 64459031565 3032 0.0137595 07101 886923418 363949911
7101061004 07101 58 2017 Talca 292520.9 2017 7101 220357 64459031565 3215 0.0145900 07101 940454746 261363939
7101061005 07101 28 2017 Talca 292520.9 2017 7101 220357 64459031565 2884 0.0130879 07101 843630323 130267073
7101061006 07101 129 2017 Talca 292520.9 2017 7101 220357 64459031565 3367 0.0152798 07101 984917925 561299632
7101071001 07101 236 2017 Talca 292520.9 2017 7101 220357 64459031565 2136 0.0096934 07101 624824677 1000050860
7101071002 07101 304 2017 Talca 292520.9 2017 7101 220357 64459031565 3210 0.0145673 07101 938992141 1273987456
7101071003 07101 74 2017 Talca 292520.9 2017 7101 220357 64459031565 1773 0.0080460 07101 518639585 329923366
7101071004 07101 75 2017 Talca 292520.9 2017 7101 220357 64459031565 1769 0.0080279 07101 517469501 334185165
7101071005 07101 117 2017 Talca 292520.9 2017 7101 220357 64459031565 1956 0.0088765 07101 572170912 511268511
7101071006 07101 153 2017 Talca 292520.9 2017 7101 220357 64459031565 3097 0.0140545 07101 905937278 660768515
7101071007 07101 196 2017 Talca 292520.9 2017 7101 220357 64459031565 3759 0.0170587 07101 1099586125 837337418
7101071008 07101 122 2017 Talca 292520.9 2017 7101 220357 64459031565 2586 0.0117355 07101 756459090 532140890
7101071009 07101 121 2017 Talca 292520.9 2017 7101 220357 64459031565 3775 0.0171313 07101 1104266459 527969463
7101071010 07101 116 2017 Talca 292520.9 2017 7101 220357 64459031565 2262 0.0102652 07101 661682313 507089396
7101081001 07101 18 2017 Talca 292520.9 2017 7101 220357 64459031565 1170 0.0053096 07101 342249472 85380276
7101081002 07101 79 2017 Talca 292520.9 2017 7101 220357 64459031565 1841 0.0083546 07101 538531007 351207807
7101081003 07101 99 2017 Talca 292520.9 2017 7101 220357 64459031565 1281 0.0058133 07101 374719294 435790290
7101081004 07101 141 2017 Talca 292520.9 2017 7101 220357 64459031565 1562 0.0070885 07101 456917671 611126927
7101081005 07101 361 2017 Talca 292520.9 2017 7101 220357 64459031565 3349 0.0151981 07101 979652549 1501510332
7101081006 07101 43 2017 Talca 292520.9 2017 7101 220357 64459031565 1555 0.0070567 07101 454870025 196327419
7101091001 07101 9 2017 Talca 292520.9 2017 7101 220357 64459031565 179 0.0008123 07101 52361244 44006689
7101092003 07101 26 2017 Talca 292520.9 2017 7101 220357 64459031565 191 0.0008668 07101 55871495 121355735
7101092024 07101 12 2017 Talca 292520.9 2017 7101 220357 64459031565 50 0.0002269 07101 14626046 57940550
7101092901 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 38 0.0001724 07101 11115795 29863709
7101101001 07101 37 2017 Talca 292520.9 2017 7101 220357 64459031565 1347 0.0061128 07101 394025674 170049051
7101102004 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 66 0.0002995 07101 19306380 29863709
7101102005 07101 28 2017 Talca 292520.9 2017 7101 220357 64459031565 260 0.0011799 07101 76055438 130267073
7101102013 07101 1 2017 Talca 292520.9 2017 7101 220357 64459031565 8 0.0000363 07101 2340167 5383827
7101102017 07101 69 2017 Talca 292520.9 2017 7101 220357 64459031565 991 0.0044972 07101 289888228 308575763
7101102018 07101 7 2017 Talca 292520.9 2017 7101 220357 64459031565 123 0.0005582 07101 35980073 34606441
7101111001 07101 133 2017 Talca 292520.9 2017 7101 220357 64459031565 5385 0.0244376 07101 1575225135 577930415
7101111002 07101 608 2017 Talca 292520.9 2017 7101 220357 64459031565 3446 0.0156383 07101 1008027078 2471746984
7101111003 07101 164 2017 Talca 292520.9 2017 7101 220357 64459031565 3435 0.0155883 07101 1004809348 706123198
7101111004 07101 7 2017 Talca 292520.9 2017 7101 220357 64459031565 347 0.0015747 07101 101504758 34606441
7101111005 07101 820 2017 Talca 292520.9 2017 7101 220357 64459031565 5190 0.0235527 07101 1518183556 3290194847
7101111006 07101 402 2017 Talca 292520.9 2017 7101 220357 64459031565 7789 0.0353472 07101 2278445417 1664178688
7101111007 07101 47 2017 Talca 292520.9 2017 7101 220357 64459031565 1912 0.0086768 07101 559299992 213755658
7101111008 07101 1428 2017 Talca 292520.9 2017 7101 220357 64459031565 5035 0.0228493 07101 1472842814 5592153783
7101111009 07101 399 2017 Talca 292520.9 2017 7101 220357 64459031565 3737 0.0169588 07101 1093150664 1652301708
7101111010 07101 543 2017 Talca 292520.9 2017 7101 220357 64459031565 1695 0.0076921 07101 495822953 2218461977
7101112010 07101 11 2017 Talca 292520.9 2017 7101 220357 64459031565 74 0.0003358 07101 21646548 53315065
7101112015 07101 20 2017 Talca 292520.9 2017 7101 220357 64459031565 349 0.0015838 07101 102089800 94429991
7101112020 07101 47 2017 Talca 292520.9 2017 7101 220357 64459031565 668 0.0030314 07101 195403972 213755658
7101112022 07101 63 2017 Talca 292520.9 2017 7101 220357 64459031565 287 0.0013024 07101 83953503 282868466
7101121001 07101 107 2017 Talca 292520.9 2017 7101 220357 64459031565 4067 0.0184564 07101 1189682567 469404522
7101121002 07101 73 2017 Talca 292520.9 2017 7101 220357 64459031565 1855 0.0084182 07101 542626300 325659042
7101121003 07101 127 2017 Talca 292520.9 2017 7101 220357 64459031565 3773 0.0171222 07101 1103681417 552975806
7101121004 07101 84 2017 Talca 292520.9 2017 7101 220357 64459031565 4426 0.0200856 07101 1294697576 372433258
7101121005 07101 20 2017 Talca 292520.9 2017 7101 220357 64459031565 344 0.0015611 07101 100627195 94429991
7101121006 07101 429 2017 Talca 292520.9 2017 7101 220357 64459031565 6821 0.0309543 07101 1995285170 1770900262
7101121007 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 2524 0.0114541 07101 738322793 187587008
7101121008 07101 51 2017 Talca 292520.9 2017 7101 220357 64459031565 2216 0.0100564 07101 648226351 231118941
7101121009 07101 86 2017 Talca 292520.9 2017 7101 220357 64459031565 2511 0.0113951 07101 734520021 380907758
7101121010 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 2406 0.0109186 07101 703805325 187587008
7101122001 07101 111 2017 Talca 292520.9 2017 7101 220357 64459031565 795 0.0036078 07101 232554129 486169841
7101122010 07101 31 2017 Talca 292520.9 2017 7101 220357 64459031565 223 0.0010120 07101 65232164 143582435
7101122014 07101 2 2017 Talca 292520.9 2017 7101 220357 64459031565 59 0.0002677 07101 17258734 10445517
7101122021 07101 3 2017 Talca 292520.9 2017 7101 220357 64459031565 41 0.0001861 07101 11993358 15392349
7101122022 07101 73 2017 Talca 292520.9 2017 7101 220357 64459031565 435 0.0019741 07101 127246599 325659042
7101122901 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 31 0.0001407 07101 9068148 29863709
7101131001 07101 80 2017 Talca 292520.9 2017 7101 220357 64459031565 1494 0.0067799 07101 437026249 355457492
7101131002 07101 191 2017 Talca 292520.9 2017 7101 220357 64459031565 4280 0.0194230 07101 1251989522 816901274
7101131003 07101 461 2017 Talca 292520.9 2017 7101 220357 64459031565 3547 0.0160966 07101 1037571690 1897005715
7101131004 07101 229 2017 Talca 292520.9 2017 7101 220357 64459031565 3431 0.0155702 07101 1003639264 971669521
7101131005 07101 169 2017 Talca 292520.9 2017 7101 220357 64459031565 2875 0.0130470 07101 840997635 726694374
7101131006 07101 103 2017 Talca 292520.9 2017 7101 220357 64459031565 2089 0.0094801 07101 611076194 452611710
7101131007 07101 112 2017 Talca 292520.9 2017 7101 220357 64459031565 2855 0.0129562 07101 835147216 490356998
7101131008 07101 104 2017 Talca 292520.9 2017 7101 220357 64459031565 3485 0.0158152 07101 1019435393 456812550
7101141001 07101 45 2017 Talca 292520.9 2017 7101 220357 64459031565 3226 0.0146399 07101 943672476 205050027
7101141002 07101 67 2017 Talca 292520.9 2017 7101 220357 64459031565 2620 0.0118898 07101 766404801 300017987
7101141003 07101 121 2017 Talca 292520.9 2017 7101 220357 64459031565 2174 0.0098658 07101 635940472 527969463
7101141004 07101 76 2017 Talca 292520.9 2017 7101 220357 64459031565 5692 0.0258308 07101 1665029056 338444475
7101141005 07101 88 2017 Talca 292520.9 2017 7101 220357 64459031565 4770 0.0216467 07101 1395324771 389373625
7101141006 07101 434 2017 Talca 292520.9 2017 7101 220357 64459031565 4860 0.0220551 07101 1421651653 1790630667
7101141007 07101 89 2017 Talca 292520.9 2017 7101 220357 64459031565 4908 0.0222729 07101 1435692657 393603385
7101141008 07101 223 2017 Talca 292520.9 2017 7101 220357 64459031565 4971 0.0225588 07101 1454121475 947312423
7101141009 07101 89 2017 Talca 292520.9 2017 7101 220357 64459031565 3856 0.0174989 07101 1127960653 393603385
7101141010 07101 71 2017 Talca 292520.9 2017 7101 220357 64459031565 2182 0.0099021 07101 638280639 317122675
7101151001 07101 4 2017 Talca 292520.9 2017 7101 220357 64459031565 282 0.0012797 07101 82490898 20266036
7101152008 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 1194 0.0054185 07101 349269974 187587008
7101152010 07101 15 2017 Talca 292520.9 2017 7101 220357 64459031565 300 0.0013614 07101 87756275 71720949
7101152016 07101 11 2017 Talca 292520.9 2017 7101 220357 64459031565 308 0.0013977 07101 90096442 53315065
7101152023 07101 16 2017 Talca 292520.9 2017 7101 220357 64459031565 287 0.0013024 07101 83953503 76286297


11 División del valor estimado entre la población total de la zona para obtener el ingreso medio por zona


\[ Ingreso \_ Medio\_zona = est\_ing / (personas * p\_poblacional) \]


h_y_m_comuna_corr_01$ing_medio_zona <- h_y_m_comuna_corr_01$est_ing  /( h_y_m_comuna_corr_01$personas  * h_y_m_comuna_corr_01$p_poblacional)

r3_100 <- h_y_m_comuna_corr_01[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
zona código.x Freq.x anio comuna.x promedio_i año comuna.y personas Ingresos_expandidos Freq.y p_poblacional código.y multi_pob est_ing ing_medio_zona
7101011001 07101 70 2017 Talca 292520.9 2017 7101 220357 64459031565 1693 0.0076830 07101 495237911 312850557 184790.64
7101011002 07101 156 2017 Talca 292520.9 2017 7101 220357 64459031565 1889 0.0085725 07101 552572011 673151731 356353.48
7101021001 07101 59 2017 Talca 292520.9 2017 7101 220357 64459031565 951 0.0043157 07101 278187391 265671131 279359.76
7101021002 07101 67 2017 Talca 292520.9 2017 7101 220357 64459031565 912 0.0041387 07101 266779076 300017987 328967.09
7101021003 07101 31 2017 Talca 292520.9 2017 7101 220357 64459031565 857 0.0038891 07101 250690425 143582435 167540.76
7101031001 07101 145 2017 Talca 292520.9 2017 7101 220357 64459031565 1465 0.0066483 07101 428543142 627693953 428460.04
7101031002 07101 52 2017 Talca 292520.9 2017 7101 220357 64459031565 1428 0.0064804 07101 417719869 235450255 164881.13
7101031003 07101 63 2017 Talca 292520.9 2017 7101 220357 64459031565 1037 0.0047060 07101 303344190 282868466 272775.76
7101041001 07101 45 2017 Talca 292520.9 2017 7101 220357 64459031565 1306 0.0059267 07101 382032317 205050027 157006.15
7101041002 07101 102 2017 Talca 292520.9 2017 7101 220357 64459031565 1682 0.0076331 07101 492020181 448409083 266592.80
7101041003 07101 64 2017 Talca 292520.9 2017 7101 220357 64459031565 1627 0.0073835 07101 475931531 287160206 176496.75
7101041004 07101 92 2017 Talca 292520.9 2017 7101 220357 64459031565 1684 0.0076421 07101 492605223 406280271 241259.07
7101041005 07101 50 2017 Talca 292520.9 2017 7101 220357 64459031565 1196 0.0054276 07101 349855016 226783904 189618.65
7101051001 07101 140 2017 Talca 292520.9 2017 7101 220357 64459031565 2870 0.0130243 07101 839535030 606981974 211491.98
7101051002 07101 66 2017 Talca 292520.9 2017 7101 220357 64459031565 1049 0.0047605 07101 306854441 295734920 281920.80
7101061001 07101 55 2017 Talca 292520.9 2017 7101 220357 64459031565 1756 0.0079689 07101 513666729 248422590 141470.72
7101061002 07101 39 2017 Talca 292520.9 2017 7101 220357 64459031565 1371 0.0062217 07101 401046176 178827887 130436.10
7101061003 07101 82 2017 Talca 292520.9 2017 7101 220357 64459031565 3032 0.0137595 07101 886923418 363949911 120036.25
7101061004 07101 58 2017 Talca 292520.9 2017 7101 220357 64459031565 3215 0.0145900 07101 940454746 261363939 81295.16
7101061005 07101 28 2017 Talca 292520.9 2017 7101 220357 64459031565 2884 0.0130879 07101 843630323 130267073 45168.89
7101061006 07101 129 2017 Talca 292520.9 2017 7101 220357 64459031565 3367 0.0152798 07101 984917925 561299632 166706.16
7101071001 07101 236 2017 Talca 292520.9 2017 7101 220357 64459031565 2136 0.0096934 07101 624824677 1000050860 468188.60
7101071002 07101 304 2017 Talca 292520.9 2017 7101 220357 64459031565 3210 0.0145673 07101 938992141 1273987456 396880.83
7101071003 07101 74 2017 Talca 292520.9 2017 7101 220357 64459031565 1773 0.0080460 07101 518639585 329923366 186081.99
7101071004 07101 75 2017 Talca 292520.9 2017 7101 220357 64459031565 1769 0.0080279 07101 517469501 334185165 188911.91
7101071005 07101 117 2017 Talca 292520.9 2017 7101 220357 64459031565 1956 0.0088765 07101 572170912 511268511 261384.72
7101071006 07101 153 2017 Talca 292520.9 2017 7101 220357 64459031565 3097 0.0140545 07101 905937278 660768515 213357.61
7101071007 07101 196 2017 Talca 292520.9 2017 7101 220357 64459031565 3759 0.0170587 07101 1099586125 837337418 222755.37
7101071008 07101 122 2017 Talca 292520.9 2017 7101 220357 64459031565 2586 0.0117355 07101 756459090 532140890 205777.61
7101071009 07101 121 2017 Talca 292520.9 2017 7101 220357 64459031565 3775 0.0171313 07101 1104266459 527969463 139859.46
7101071010 07101 116 2017 Talca 292520.9 2017 7101 220357 64459031565 2262 0.0102652 07101 661682313 507089396 224177.45
7101081001 07101 18 2017 Talca 292520.9 2017 7101 220357 64459031565 1170 0.0053096 07101 342249472 85380276 72974.59
7101081002 07101 79 2017 Talca 292520.9 2017 7101 220357 64459031565 1841 0.0083546 07101 538531007 351207807 190770.13
7101081003 07101 99 2017 Talca 292520.9 2017 7101 220357 64459031565 1281 0.0058133 07101 374719294 435790290 340195.39
7101081004 07101 141 2017 Talca 292520.9 2017 7101 220357 64459031565 1562 0.0070885 07101 456917671 611126927 391246.43
7101081005 07101 361 2017 Talca 292520.9 2017 7101 220357 64459031565 3349 0.0151981 07101 979652549 1501510332 448345.87
7101081006 07101 43 2017 Talca 292520.9 2017 7101 220357 64459031565 1555 0.0070567 07101 454870025 196327419 126255.57
7101091001 07101 9 2017 Talca 292520.9 2017 7101 220357 64459031565 179 0.0008123 07101 52361244 44006689 245847.42
7101092003 07101 26 2017 Talca 292520.9 2017 7101 220357 64459031565 191 0.0008668 07101 55871495 121355735 635370.34
7101092024 07101 12 2017 Talca 292520.9 2017 7101 220357 64459031565 50 0.0002269 07101 14626046 57940550 1158811.00
7101092901 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 38 0.0001724 07101 11115795 29863709 785887.09
7101101001 07101 37 2017 Talca 292520.9 2017 7101 220357 64459031565 1347 0.0061128 07101 394025674 170049051 126242.80
7101102004 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 66 0.0002995 07101 19306380 29863709 452480.45
7101102005 07101 28 2017 Talca 292520.9 2017 7101 220357 64459031565 260 0.0011799 07101 76055438 130267073 501027.20
7101102013 07101 1 2017 Talca 292520.9 2017 7101 220357 64459031565 8 0.0000363 07101 2340167 5383827 672978.36
7101102017 07101 69 2017 Talca 292520.9 2017 7101 220357 64459031565 991 0.0044972 07101 289888228 308575763 311378.17
7101102018 07101 7 2017 Talca 292520.9 2017 7101 220357 64459031565 123 0.0005582 07101 35980073 34606441 281353.18
7101111001 07101 133 2017 Talca 292520.9 2017 7101 220357 64459031565 5385 0.0244376 07101 1575225135 577930415 107322.27
7101111002 07101 608 2017 Talca 292520.9 2017 7101 220357 64459031565 3446 0.0156383 07101 1008027078 2471746984 717280.03
7101111003 07101 164 2017 Talca 292520.9 2017 7101 220357 64459031565 3435 0.0155883 07101 1004809348 706123198 205567.16
7101111004 07101 7 2017 Talca 292520.9 2017 7101 220357 64459031565 347 0.0015747 07101 101504758 34606441 99730.38
7101111005 07101 820 2017 Talca 292520.9 2017 7101 220357 64459031565 5190 0.0235527 07101 1518183556 3290194847 633948.91
7101111006 07101 402 2017 Talca 292520.9 2017 7101 220357 64459031565 7789 0.0353472 07101 2278445417 1664178688 213657.55
7101111007 07101 47 2017 Talca 292520.9 2017 7101 220357 64459031565 1912 0.0086768 07101 559299992 213755658 111796.89
7101111008 07101 1428 2017 Talca 292520.9 2017 7101 220357 64459031565 5035 0.0228493 07101 1472842814 5592153783 1110656.16
7101111009 07101 399 2017 Talca 292520.9 2017 7101 220357 64459031565 3737 0.0169588 07101 1093150664 1652301708 442146.56
7101111010 07101 543 2017 Talca 292520.9 2017 7101 220357 64459031565 1695 0.0076921 07101 495822953 2218461977 1308827.13
7101112010 07101 11 2017 Talca 292520.9 2017 7101 220357 64459031565 74 0.0003358 07101 21646548 53315065 720473.86
7101112015 07101 20 2017 Talca 292520.9 2017 7101 220357 64459031565 349 0.0015838 07101 102089800 94429991 270573.04
7101112020 07101 47 2017 Talca 292520.9 2017 7101 220357 64459031565 668 0.0030314 07101 195403972 213755658 319993.50
7101112022 07101 63 2017 Talca 292520.9 2017 7101 220357 64459031565 287 0.0013024 07101 83953503 282868466 985604.41
7101121001 07101 107 2017 Talca 292520.9 2017 7101 220357 64459031565 4067 0.0184564 07101 1189682567 469404522 115417.88
7101121002 07101 73 2017 Talca 292520.9 2017 7101 220357 64459031565 1855 0.0084182 07101 542626300 325659042 175557.44
7101121003 07101 127 2017 Talca 292520.9 2017 7101 220357 64459031565 3773 0.0171222 07101 1103681417 552975806 146561.31
7101121004 07101 84 2017 Talca 292520.9 2017 7101 220357 64459031565 4426 0.0200856 07101 1294697576 372433258 84146.69
7101121005 07101 20 2017 Talca 292520.9 2017 7101 220357 64459031565 344 0.0015611 07101 100627195 94429991 274505.79
7101121006 07101 429 2017 Talca 292520.9 2017 7101 220357 64459031565 6821 0.0309543 07101 1995285170 1770900262 259624.73
7101121007 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 2524 0.0114541 07101 738322793 187587008 74321.32
7101121008 07101 51 2017 Talca 292520.9 2017 7101 220357 64459031565 2216 0.0100564 07101 648226351 231118941 104295.55
7101121009 07101 86 2017 Talca 292520.9 2017 7101 220357 64459031565 2511 0.0113951 07101 734520021 380907758 151695.64
7101121010 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 2406 0.0109186 07101 703805325 187587008 77966.34
7101122001 07101 111 2017 Talca 292520.9 2017 7101 220357 64459031565 795 0.0036078 07101 232554129 486169841 611534.39
7101122010 07101 31 2017 Talca 292520.9 2017 7101 220357 64459031565 223 0.0010120 07101 65232164 143582435 643867.42
7101122014 07101 2 2017 Talca 292520.9 2017 7101 220357 64459031565 59 0.0002677 07101 17258734 10445517 177042.66
7101122021 07101 3 2017 Talca 292520.9 2017 7101 220357 64459031565 41 0.0001861 07101 11993358 15392349 375423.14
7101122022 07101 73 2017 Talca 292520.9 2017 7101 220357 64459031565 435 0.0019741 07101 127246599 325659042 748641.48
7101122901 07101 6 2017 Talca 292520.9 2017 7101 220357 64459031565 31 0.0001407 07101 9068148 29863709 963345.47
7101131001 07101 80 2017 Talca 292520.9 2017 7101 220357 64459031565 1494 0.0067799 07101 437026249 355457492 237923.35
7101131002 07101 191 2017 Talca 292520.9 2017 7101 220357 64459031565 4280 0.0194230 07101 1251989522 816901274 190864.78
7101131003 07101 461 2017 Talca 292520.9 2017 7101 220357 64459031565 3547 0.0160966 07101 1037571690 1897005715 534819.77
7101131004 07101 229 2017 Talca 292520.9 2017 7101 220357 64459031565 3431 0.0155702 07101 1003639264 971669521 283203.01
7101131005 07101 169 2017 Talca 292520.9 2017 7101 220357 64459031565 2875 0.0130470 07101 840997635 726694374 252763.26
7101131006 07101 103 2017 Talca 292520.9 2017 7101 220357 64459031565 2089 0.0094801 07101 611076194 452611710 216664.29
7101131007 07101 112 2017 Talca 292520.9 2017 7101 220357 64459031565 2855 0.0129562 07101 835147216 490356998 171753.76
7101131008 07101 104 2017 Talca 292520.9 2017 7101 220357 64459031565 3485 0.0158152 07101 1019435393 456812550 131079.64
7101141001 07101 45 2017 Talca 292520.9 2017 7101 220357 64459031565 3226 0.0146399 07101 943672476 205050027 63561.69
7101141002 07101 67 2017 Talca 292520.9 2017 7101 220357 64459031565 2620 0.0118898 07101 766404801 300017987 114510.68
7101141003 07101 121 2017 Talca 292520.9 2017 7101 220357 64459031565 2174 0.0098658 07101 635940472 527969463 242856.24
7101141004 07101 76 2017 Talca 292520.9 2017 7101 220357 64459031565 5692 0.0258308 07101 1665029056 338444475 59459.68
7101141005 07101 88 2017 Talca 292520.9 2017 7101 220357 64459031565 4770 0.0216467 07101 1395324771 389373625 81629.69
7101141006 07101 434 2017 Talca 292520.9 2017 7101 220357 64459031565 4860 0.0220551 07101 1421651653 1790630667 368442.52
7101141007 07101 89 2017 Talca 292520.9 2017 7101 220357 64459031565 4908 0.0222729 07101 1435692657 393603385 80196.29
7101141008 07101 223 2017 Talca 292520.9 2017 7101 220357 64459031565 4971 0.0225588 07101 1454121475 947312423 190567.78
7101141009 07101 89 2017 Talca 292520.9 2017 7101 220357 64459031565 3856 0.0174989 07101 1127960653 393603385 102075.57
7101141010 07101 71 2017 Talca 292520.9 2017 7101 220357 64459031565 2182 0.0099021 07101 638280639 317122675 145335.78
7101151001 07101 4 2017 Talca 292520.9 2017 7101 220357 64459031565 282 0.0012797 07101 82490898 20266036 71865.38
7101152008 07101 41 2017 Talca 292520.9 2017 7101 220357 64459031565 1194 0.0054185 07101 349269974 187587008 157108.05
7101152010 07101 15 2017 Talca 292520.9 2017 7101 220357 64459031565 300 0.0013614 07101 87756275 71720949 239069.83
7101152016 07101 11 2017 Talca 292520.9 2017 7101 220357 64459031565 308 0.0013977 07101 90096442 53315065 173100.86
7101152023 07101 16 2017 Talca 292520.9 2017 7101 220357 64459031565 287 0.0013024 07101 83953503 76286297 265805.91


Guardamos:

saveRDS(h_y_m_comuna_corr_01, "casen_censo_region_07.rds")