Expansión de la CASEN sobre el CENSO (Región 02)

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 == 2)

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
2101011001	1	2101	240	2017
2101011002	1	2101	442	2017
2101011003	1	2101	410	2017
2101011004	1	2101	872	2017
2101011005	1	2101	542	2017
2101011006	1	2101	97	2017
2101011008	1	2101	318	2017
2101011009	1	2101	462	2017
2101011010	1	2101	264	2017
2101011011	1	2101	79	2017
2101011012	1	2101	282	2017
2101011013	1	2101	735	2017
2101011014	1	2101	516	2017
2101011015	1	2101	424	2017
2101011016	1	2101	121	2017
2101011017	1	2101	317	2017
2101011018	1	2101	745	2017
2101011019	1	2101	166	2017
2101011020	1	2101	604	2017
2101011021	1	2101	124	2017
2101011022	1	2101	136	2017
2101012001	1	2101	1	2017
2101012005	1	2101	1	2017
2101012012	1	2101	1	2017
2101012013	1	2101	10	2017
2101012901	1	2101	1	2017
2101021001	1	2101	287	2017
2101021002	1	2101	267	2017
2101021003	1	2101	194	2017
2101021004	1	2101	351	2017
2101021005	1	2101	301	2017
2101031001	1	2101	295	2017
2101031002	1	2101	256	2017
2101031003	1	2101	123	2017
2101031004	1	2101	352	2017
2101031005	1	2101	168	2017
2101031006	1	2101	327	2017
2101041001	1	2101	324	2017
2101041002	1	2101	311	2017
2101041003	1	2101	232	2017
2101041004	1	2101	232	2017
2101041005	1	2101	252	2017
2101051001	1	2101	389	2017
2101051002	1	2101	332	2017
2101051003	1	2101	318	2017
2101061001	1	2101	262	2017
2101061002	1	2101	302	2017
2101061003	1	2101	356	2017
2101071001	1	2101	315	2017
2101071002	1	2101	223	2017
2101071003	1	2101	390	2017
2101071004	1	2101	273	2017
2101071005	1	2101	224	2017
2101081001	1	2101	242	2017
2101081002	1	2101	305	2017
2101081003	1	2101	198	2017
2101081004	1	2101	111	2017
2101091001	1	2101	293	2017
2101091002	1	2101	376	2017
2101091003	1	2101	93	2017
2101091004	1	2101	303	2017
2101091005	1	2101	429	2017
2101091006	1	2101	200	2017
2101091007	1	2101	153	2017
2101091008	1	2101	287	2017
2101091009	1	2101	210	2017
2101091010	1	2101	251	2017
2101101001	1	2101	375	2017
2101101002	1	2101	134	2017
2101101003	1	2101	175	2017
2101102007	1	2101	18	2017
2101102014	1	2101	5	2017
2101102016	1	2101	1	2017
2101122014	1	2101	12	2017
2101122019	1	2101	2	2017
2101141001	1	2101	589	2017
2101141002	1	2101	454	2017
2101141003	1	2101	204	2017
2101141004	1	2101	436	2017
2101141005	1	2101	360	2017
2101141006	1	2101	436	2017
2101141007	1	2101	196	2017
2101141008	1	2101	180	2017
2101141009	1	2101	396	2017
2101151001	1	2101	229	2017
2101151002	1	2101	278	2017
2101151003	1	2101	240	2017
2101151004	1	2101	453	2017
2101161001	1	2101	291	2017
2101161002	1	2101	258	2017
2101161003	1	2101	184	2017
2101161004	1	2101	254	2017
2101161005	1	2101	257	2017
2101171001	1	2101	114	2017
2101171002	1	2101	240	2017
2101171003	1	2101	393	2017
2101171004	1	2101	385	2017
2101181001	1	2101	559	2017
2101181002	1	2101	484	2017
2101181003	1	2101	348	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
2101011001	240	2017	02101
2101011002	442	2017	02101
2101011003	410	2017	02101
2101011004	872	2017	02101
2101011005	542	2017	02101
2101011006	97	2017	02101
2101011008	318	2017	02101
2101011009	462	2017	02101
2101011010	264	2017	02101
2101011011	79	2017	02101
2101011012	282	2017	02101
2101011013	735	2017	02101
2101011014	516	2017	02101
2101011015	424	2017	02101
2101011016	121	2017	02101
2101011017	317	2017	02101
2101011018	745	2017	02101
2101011019	166	2017	02101
2101011020	604	2017	02101
2101011021	124	2017	02101
2101011022	136	2017	02101
2101012001	1	2017	02101
2101012005	1	2017	02101
2101012012	1	2017	02101
2101012013	10	2017	02101
2101012901	1	2017	02101
2101021001	287	2017	02101
2101021002	267	2017	02101
2101021003	194	2017	02101
2101021004	351	2017	02101
2101021005	301	2017	02101
2101031001	295	2017	02101
2101031002	256	2017	02101
2101031003	123	2017	02101
2101031004	352	2017	02101
2101031005	168	2017	02101
2101031006	327	2017	02101
2101041001	324	2017	02101
2101041002	311	2017	02101
2101041003	232	2017	02101
2101041004	232	2017	02101
2101041005	252	2017	02101
2101051001	389	2017	02101
2101051002	332	2017	02101
2101051003	318	2017	02101
2101061001	262	2017	02101
2101061002	302	2017	02101
2101061003	356	2017	02101
2101071001	315	2017	02101
2101071002	223	2017	02101
2101071003	390	2017	02101
2101071004	273	2017	02101
2101071005	224	2017	02101
2101081001	242	2017	02101
2101081002	305	2017	02101
2101081003	198	2017	02101
2101081004	111	2017	02101
2101091001	293	2017	02101
2101091002	376	2017	02101
2101091003	93	2017	02101
2101091004	303	2017	02101
2101091005	429	2017	02101
2101091006	200	2017	02101
2101091007	153	2017	02101
2101091008	287	2017	02101
2101091009	210	2017	02101
2101091010	251	2017	02101
2101101001	375	2017	02101
2101101002	134	2017	02101
2101101003	175	2017	02101
2101102007	18	2017	02101
2101102014	5	2017	02101
2101102016	1	2017	02101
2101122014	12	2017	02101
2101122019	2	2017	02101
2101141001	589	2017	02101
2101141002	454	2017	02101
2101141003	204	2017	02101
2101141004	436	2017	02101
2101141005	360	2017	02101
2101141006	436	2017	02101
2101141007	196	2017	02101
2101141008	180	2017	02101
2101141009	396	2017	02101
2101151001	229	2017	02101
2101151002	278	2017	02101
2101151003	240	2017	02101
2101151004	453	2017	02101
2101161001	291	2017	02101
2101161002	258	2017	02101
2101161003	184	2017	02101
2101161004	254	2017	02101
2101161005	257	2017	02101
2101171001	114	2017	02101
2101171002	240	2017	02101
2101171003	393	2017	02101
2101171004	385	2017	02101
2101181001	559	2017	02101
2101181002	484	2017	02101
2101181003	348	2017	02101

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
02101	2101011002	442	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011003	410	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011004	872	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011001	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011006	97	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011008	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011009	462	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011010	264	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011011	79	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011012	282	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011013	735	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011014	516	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011015	424	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011016	121	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011017	317	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011018	745	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011005	542	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011020	604	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011021	124	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011022	136	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012001	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012005	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012012	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012013	10	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012901	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021001	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021002	267	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021003	194	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021004	351	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021005	301	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031001	295	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031002	256	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031003	123	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031004	352	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031005	168	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031006	327	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041001	324	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041002	311	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041003	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041004	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041005	252	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101051001	389	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101051002	332	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101051003	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101061001	262	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101061002	302	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101061003	356	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071001	315	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071002	223	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071003	390	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071004	273	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071005	224	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101081001	242	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101081002	305	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101081003	198	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101081004	111	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011019	166	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091002	376	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091003	93	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091004	303	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091005	429	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091006	200	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091007	153	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091008	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091009	210	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091010	251	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101101001	375	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101101002	134	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101101003	175	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101102007	18	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101102014	5	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101102016	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101122014	12	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101122019	2	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141001	589	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141002	454	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141003	204	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141004	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141005	360	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141006	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141007	196	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141008	180	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141009	396	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101151001	229	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101151002	278	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101151003	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101151004	453	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161001	291	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161002	258	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161003	184	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161004	254	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161005	257	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101171001	114	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101171002	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101171003	393	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101171004	385	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091001	293	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101181002	484	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101181003	348	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101181004	115	2017	Antofagasta	347580.2	2017	2101	361873	125779893517

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
02101	2101011002	442	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011003	410	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011004	872	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011001	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011006	97	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011008	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011009	462	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011010	264	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011011	79	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011012	282	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011013	735	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011014	516	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011015	424	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011016	121	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011017	317	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011018	745	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011005	542	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011020	604	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011021	124	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011022	136	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012001	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012005	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012012	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012013	10	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101012901	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021001	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021002	267	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021003	194	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021004	351	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101021005	301	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031001	295	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031002	256	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031003	123	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031004	352	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031005	168	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101031006	327	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041001	324	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041002	311	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041003	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041004	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101041005	252	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101051001	389	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101051002	332	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101051003	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101061001	262	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101061002	302	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101061003	356	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071001	315	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071002	223	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071003	390	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071004	273	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101071005	224	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101081001	242	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101081002	305	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101081003	198	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101081004	111	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101011019	166	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091002	376	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091003	93	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091004	303	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091005	429	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091006	200	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091007	153	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091008	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091009	210	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091010	251	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101101001	375	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101101002	134	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101101003	175	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101102007	18	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101102014	5	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101102016	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101122014	12	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101122019	2	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141001	589	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141002	454	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141003	204	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141004	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141005	360	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141006	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141007	196	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141008	180	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101141009	396	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101151001	229	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101151002	278	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101151003	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101151004	453	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161001	291	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161002	258	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161003	184	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161004	254	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101161005	257	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101171001	114	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101171002	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101171003	393	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101171004	385	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101091001	293	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101181002	484	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101181003	348	2017	Antofagasta	347580.2	2017	2101	361873	125779893517
02101	2101181004	115	2017	Antofagasta	347580.2	2017	2101	361873	125779893517

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
2101011001	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4618	0.0127614	02101
2101011002	02101	442	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3644	0.0100698	02101
2101011003	02101	410	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5645	0.0155994	02101
2101011004	02101	872	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4385	0.0121175	02101
2101011005	02101	542	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2383	0.0065852	02101
2101011006	02101	97	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1466	0.0040511	02101
2101011008	02101	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6487	0.0179262	02101
2101011009	02101	462	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6152	0.0170004	02101
2101011010	02101	264	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4495	0.0124215	02101
2101011011	02101	79	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2445	0.0067565	02101
2101011012	02101	282	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4275	0.0118135	02101
2101011013	02101	735	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2947	0.0081437	02101
2101011014	02101	516	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6247	0.0172630	02101
2101011015	02101	424	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2887	0.0079779	02101
2101011016	02101	121	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1643	0.0045403	02101
2101011017	02101	317	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4126	0.0114018	02101
2101011018	02101	745	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4567	0.0126204	02101
2101011019	02101	166	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1843	0.0050929	02101
2101011020	02101	604	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2874	0.0079420	02101
2101011021	02101	124	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2753	0.0076076	02101
2101011022	02101	136	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2805	0.0077513	02101
2101012001	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6	0.0000166	02101
2101012005	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	59	0.0001630	02101
2101012012	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	53	0.0001465	02101
2101012013	02101	10	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	121	0.0003344	02101
2101012901	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	16	0.0000442	02101
2101021001	02101	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3642	0.0100643	02101
2101021002	02101	267	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4658	0.0128719	02101
2101021003	02101	194	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2620	0.0072401	02101
2101021004	02101	351	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4532	0.0125237	02101
2101021005	02101	301	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5748	0.0158840	02101
2101031001	02101	295	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3779	0.0104429	02101
2101031002	02101	256	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2511	0.0069389	02101
2101031003	02101	123	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2087	0.0057672	02101
2101031004	02101	352	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3200	0.0088429	02101
2101031005	02101	168	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3138	0.0086716	02101
2101031006	02101	327	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3335	0.0092159	02101
2101041001	02101	324	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4379	0.0121009	02101
2101041002	02101	311	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4125	0.0113990	02101
2101041003	02101	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2518	0.0069582	02101
2101041004	02101	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2923	0.0080774	02101
2101041005	02101	252	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4618	0.0127614	02101
2101051001	02101	389	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4321	0.0119407	02101
2101051002	02101	332	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5027	0.0138916	02101
2101051003	02101	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5139	0.0142011	02101
2101061001	02101	262	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3741	0.0103379	02101
2101061002	02101	302	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2750	0.0075994	02101
2101061003	02101	356	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3370	0.0093127	02101
2101071001	02101	315	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4201	0.0116090	02101
2101071002	02101	223	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2844	0.0078591	02101
2101071003	02101	390	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7624	0.0210682	02101
2101071004	02101	273	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3724	0.0102909	02101
2101071005	02101	224	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3220	0.0088981	02101
2101081001	02101	242	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2981	0.0082377	02101
2101081002	02101	305	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4598	0.0127061	02101
2101081003	02101	198	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3327	0.0091938	02101
2101081004	02101	111	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2616	0.0072291	02101
2101091001	02101	293	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2670	0.0073783	02101
2101091002	02101	376	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3682	0.0101748	02101
2101091003	02101	93	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3061	0.0084588	02101
2101091004	02101	303	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4034	0.0111476	02101
2101091005	02101	429	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3472	0.0095945	02101
2101091006	02101	200	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4565	0.0126149	02101
2101091007	02101	153	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1884	0.0052062	02101
2101091008	02101	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2451	0.0067731	02101
2101091009	02101	210	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2064	0.0057037	02101
2101091010	02101	251	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2643	0.0073037	02101
2101101001	02101	375	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3814	0.0105396	02101
2101101002	02101	134	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1578	0.0043606	02101
2101101003	02101	175	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2526	0.0069803	02101
2101102007	02101	18	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	401	0.0011081	02101
2101102014	02101	5	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	78	0.0002155	02101
2101102016	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	9	0.0000249	02101
2101122014	02101	12	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	268	0.0007406	02101
2101122019	02101	2	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1438	0.0039738	02101
2101141001	02101	589	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7735	0.0213749	02101
2101141002	02101	454	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6365	0.0175890	02101
2101141003	02101	204	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3005	0.0083040	02101
2101141004	02101	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4535	0.0125320	02101
2101141005	02101	360	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4116	0.0113742	02101
2101141006	02101	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7236	0.0199960	02101
2101141007	02101	196	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2982	0.0082405	02101
2101141008	02101	180	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2989	0.0082598	02101
2101141009	02101	396	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6367	0.0175946	02101
2101151001	02101	229	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2879	0.0079558	02101
2101151002	02101	278	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3675	0.0101555	02101
2101151003	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3768	0.0104125	02101
2101151004	02101	453	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	8961	0.0247628	02101
2101161001	02101	291	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2974	0.0082184	02101
2101161002	02101	258	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3413	0.0094315	02101
2101161003	02101	184	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1805	0.0049879	02101
2101161004	02101	254	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2437	0.0067344	02101
2101161005	02101	257	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3265	0.0090225	02101
2101171001	02101	114	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2503	0.0069168	02101
2101171002	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4463	0.0123331	02101
2101171003	02101	393	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4570	0.0126287	02101
2101171004	02101	385	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5586	0.0154364	02101
2101181001	02101	559	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5341	0.0147593	02101
2101181002	02101	484	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5876	0.0162377	02101
2101181003	02101	348	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4235	0.0117030	02101

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
2101011001	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4618	0.0127614	02101	1605125412
2101011002	02101	442	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3644	0.0100698	02101	1266582287
2101011003	02101	410	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5645	0.0155994	02101	1962090288
2101011004	02101	872	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4385	0.0121175	02101	1524139223
2101011005	02101	542	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2383	0.0065852	02101	828283642
2101011006	02101	97	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1466	0.0040511	02101	509552589
2101011008	02101	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6487	0.0179262	02101	2254752826
2101011009	02101	462	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6152	0.0170004	02101	2138313455
2101011010	02101	264	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4495	0.0124215	02101	1562373046
2101011011	02101	79	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2445	0.0067565	02101	849833615
2101011012	02101	282	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4275	0.0118135	02101	1485905400
2101011013	02101	735	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2947	0.0081437	02101	1024318880
2101011014	02101	516	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6247	0.0172630	02101	2171333575
2101011015	02101	424	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2887	0.0079779	02101	1003464068
2101011016	02101	121	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1643	0.0045403	02101	571074286
2101011017	02101	317	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4126	0.0114018	02101	1434115949
2101011018	02101	745	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4567	0.0126204	02101	1587398821
2101011019	02101	166	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1843	0.0050929	02101	640590328
2101011020	02101	604	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2874	0.0079420	02101	998945525
2101011021	02101	124	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2753	0.0076076	02101	956888320
2101011022	02101	136	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2805	0.0077513	02101	974962490
2101012001	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6	0.0000166	02101	2085481
2101012005	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	59	0.0001630	02101	20507232
2101012012	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	53	0.0001465	02101	18421751
2101012013	02101	10	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	121	0.0003344	02101	42057205
2101012901	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	16	0.0000442	02101	5561283
2101021001	02101	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3642	0.0100643	02101	1265887127
2101021002	02101	267	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4658	0.0128719	02101	1619028621
2101021003	02101	194	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2620	0.0072401	02101	910660152
2101021004	02101	351	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4532	0.0125237	02101	1575233514
2101021005	02101	301	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5748	0.0158840	02101	1997891050
2101031001	02101	295	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3779	0.0104429	02101	1313505616
2101031002	02101	256	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2511	0.0069389	02101	872773909
2101031003	02101	123	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2087	0.0057672	02101	725399899
2101031004	02101	352	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3200	0.0088429	02101	1112256674
2101031005	02101	168	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3138	0.0086716	02101	1090706701
2101031006	02101	327	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3335	0.0092159	02101	1159180002
2101041001	02101	324	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4379	0.0121009	02101	1522053742
2101041002	02101	311	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4125	0.0113990	02101	1433768368
2101041003	02101	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2518	0.0069582	02101	875206970
2101041004	02101	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2923	0.0080774	02101	1015976955
2101041005	02101	252	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4618	0.0127614	02101	1605125412
2101051001	02101	389	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4321	0.0119407	02101	1501894090
2101051002	02101	332	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5027	0.0138916	02101	1747285718
2101051003	02101	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5139	0.0142011	02101	1786214702
2101061001	02101	262	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3741	0.0103379	02101	1300297568
2101061002	02101	302	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2750	0.0075994	02101	955845579
2101061003	02101	356	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3370	0.0093127	02101	1171345309
2101071001	02101	315	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4201	0.0116090	02101	1460184464
2101071002	02101	223	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2844	0.0078591	02101	988518119
2101071003	02101	390	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7624	0.0210682	02101	2649951525
2101071004	02101	273	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3724	0.0102909	02101	1294388704
2101071005	02101	224	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3220	0.0088981	02101	1119208278
2101081001	02101	242	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2981	0.0082377	02101	1036136608
2101081002	02101	305	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4598	0.0127061	02101	1598173808
2101081003	02101	198	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3327	0.0091938	02101	1156399360
2101081004	02101	111	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2616	0.0072291	02101	909269831
2101091001	02101	293	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2670	0.0073783	02101	928039162
2101091002	02101	376	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3682	0.0101748	02101	1279790335
2101091003	02101	93	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3061	0.0084588	02101	1063943024
2101091004	02101	303	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4034	0.0111476	02101	1402138569
2101091005	02101	429	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3472	0.0095945	02101	1206798491
2101091006	02101	200	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4565	0.0126149	02101	1586703661
2101091007	02101	153	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1884	0.0052062	02101	654841117
2101091008	02101	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2451	0.0067731	02101	851919096
2101091009	02101	210	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2064	0.0057037	02101	717405554
2101091010	02101	251	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2643	0.0073037	02101	918654496
2101101001	02101	375	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3814	0.0105396	02101	1325670923
2101101002	02101	134	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1578	0.0043606	02101	548481572
2101101003	02101	175	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2526	0.0069803	02101	877987612
2101102007	02101	18	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	401	0.0011081	02101	139379664
2101102014	02101	5	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	78	0.0002155	02101	27111256
2101102016	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	9	0.0000249	02101	3128222
2101122014	02101	12	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	268	0.0007406	02101	93151496
2101122019	02101	2	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1438	0.0039738	02101	499820343
2101141001	02101	589	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7735	0.0213749	02101	2688532928
2101141002	02101	454	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6365	0.0175890	02101	2212348040
2101141003	02101	204	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3005	0.0083040	02101	1044478533
2101141004	02101	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4535	0.0125320	02101	1576276255
2101141005	02101	360	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4116	0.0113742	02101	1430640146
2101141006	02101	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7236	0.0199960	02101	2515090403
2101141007	02101	196	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2982	0.0082405	02101	1036484188
2101141008	02101	180	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2989	0.0082598	02101	1038917249
2101141009	02101	396	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6367	0.0175946	02101	2213043200
2101151001	02101	229	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2879	0.0079558	02101	1000683426
2101151002	02101	278	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3675	0.0101555	02101	1277357274
2101151003	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3768	0.0104125	02101	1309682233
2101151004	02101	453	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	8961	0.0247628	02101	3114666266
2101161001	02101	291	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2974	0.0082184	02101	1033703546
2101161002	02101	258	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3413	0.0094315	02101	1186291258
2101161003	02101	184	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1805	0.0049879	02101	627382280
2101161004	02101	254	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2437	0.0067344	02101	847052973
2101161005	02101	257	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3265	0.0090225	02101	1134849387
2101171001	02101	114	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2503	0.0069168	02101	869993267
2101171002	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4463	0.0123331	02101	1551250479
2101171003	02101	393	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4570	0.0126287	02101	1588441562
2101171004	02101	385	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5586	0.0154364	02101	1941583056
2101181001	02101	559	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5341	0.0147593	02101	1856425904
2101181002	02101	484	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5876	0.0162377	02101	2042381317
2101181003	02101	348	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4235	0.0117030	02101	1472002191

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 
## -1.756e+09 -2.182e+08 -8.741e+07  2.020e+08  1.410e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 219587917   45204651   4.858 2.31e-06 ***
## Freq.x        3483547     152867  22.788  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 426700000 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.7111, Adjusted R-squared:  0.7097 
## F-statistic: 519.3 on 1 and 211 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 
## -1.756e+09 -2.182e+08 -8.741e+07  2.020e+08  1.410e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 219587917   45204651   4.858 2.31e-06 ***
## Freq.x        3483547     152867  22.788  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 426700000 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.7111, Adjusted R-squared:  0.7097 
## F-statistic: 519.3 on 1 and 211 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 
## -1.756e+09 -2.182e+08 -8.741e+07  2.020e+08  1.410e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 219587917   45204651   4.858 2.31e-06 ***
## Freq.x        3483547     152867  22.788  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 426700000 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.7111, Adjusted R-squared:  0.7097 
## F-statistic: 519.3 on 1 and 211 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 
## -972887886 -316549273  -85515193  319946120 1577680798 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -317860639   73696023  -4.313 2.47e-05 ***
## log(Freq.x)  303282999   15213201  19.936  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 467400000 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.6532, Adjusted R-squared:  0.6516 
## F-statistic: 397.4 on 1 and 211 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 
## -1.246e+09 -1.602e+08 -6.790e+06  1.100e+08  1.362e+09 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -135563168   51602962  -2.627  0.00925 ** 
## sqrt(Freq.x)   88728733    3436006  25.823  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 389200000 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.7596, Adjusted R-squared:  0.7585 
## F-statistic: 666.8 on 1 and 211 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 
## -21768.4  -3647.9   -446.5   3511.5  20968.9 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    4176.8      805.0   5.188 4.97e-07 ***
## sqrt(Freq.x)   1829.4       53.6  34.128  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 6071 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.8466, Adjusted R-squared:  0.8459 
## F-statistic:  1165 on 1 and 211 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 
## -2.66807 -0.48953  0.07411  0.56868  2.87139 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.998717   0.124362  136.69   <2e-16 ***
## sqrt(Freq.x)  0.219859   0.008281   26.55   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9379 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.7696, Adjusted R-squared:  0.7685 
## F-statistic: 704.9 on 1 and 211 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 
## -15915.1  -4292.3   -142.9   3852.0  19139.0 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -1406.5     1011.7   -1.39    0.166    
## log(Freq.x)   6671.3      208.9   31.94   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 6417 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.8286, Adjusted R-squared:  0.8278 
## F-statistic:  1020 on 1 and 211 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 
## -2.2870 -0.2910  0.0357  0.2857  3.3886 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.0397     0.1056   151.9   <2e-16 ***
## log(Freq.x)   0.8678     0.0218    39.8   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.67 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.8824, Adjusted R-squared:  0.8819 
## F-statistic:  1584 on 1 and 211 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.8819).

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 
## -2.2870 -0.2910  0.0357  0.2857  3.3886 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.0397     0.1056   151.9   <2e-16 ***
## log(Freq.x)   0.8678     0.0218    39.8   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.67 on 211 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.8824, Adjusted R-squared:  0.8819 
## F-statistic:  1584 on 1 and 211 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.42700 + 0.96940 \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.42700 + 0.96940 * 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
2101011001	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4618	0.0127614	02101	1605125412	1016805180
2101011002	02101	442	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3644	0.0100698	02101	1266582287	1837948424
2101011003	02101	410	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5645	0.0155994	02101	1962090288	1708809473
2101011004	02101	872	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4385	0.0121175	02101	1524139223	3551384156
2101011005	02101	542	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2383	0.0065852	02101	828283642	2239751730
2101011006	02101	97	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1466	0.0040511	02101	509552589	422510486
2101011008	02101	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6487	0.0179262	02101	2254752826	1335715059
2101011009	02101	462	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6152	0.0170004	02101	2138313455	1918513694
2101011010	02101	264	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4495	0.0124215	02101	1562373046	1115228396
2101011011	02101	79	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2445	0.0067565	02101	849833615	346274631
2101011012	02101	282	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4275	0.0118135	02101	1485905400	1188864771
2101011013	02101	735	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2947	0.0081437	02101	1024318880	3009122852
2101011014	02101	516	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6247	0.0172630	02101	2171333575	2135519754
2101011015	02101	424	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2887	0.0079779	02101	1003464068	1765344357
2101011016	02101	121	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1643	0.0045403	02101	571074286	523495690
2101011017	02101	317	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4126	0.0114018	02101	1434115949	1331643033
2101011018	02101	745	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4567	0.0126204	02101	1587398821	3048802298
2101011019	02101	166	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1843	0.0050929	02101	640590328	711268790
2101011020	02101	604	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2874	0.0079420	02101	998945525	2487700999
2101011021	02101	124	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2753	0.0076076	02101	956888320	536073025
2101011022	02101	136	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2805	0.0077513	02101	974962490	586291490
2101012001	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6	0.0000166	02101	2085481	5010268
2101012005	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	59	0.0001630	02101	20507232	5010268
2101012012	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	53	0.0001465	02101	18421751	5010268
2101012013	02101	10	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	121	0.0003344	02101	42057205	46693989
2101012901	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	16	0.0000442	02101	5561283	5010268
2101021001	02101	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3642	0.0100643	02101	1265887127	1209293401
2101021002	02101	267	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4658	0.0128719	02101	1619028621	1127511523
2101021003	02101	194	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2620	0.0072401	02101	910660152	827286561
2101021004	02101	351	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4532	0.0125237	02101	1575233514	1469879358
2101021005	02101	301	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5748	0.0158840	02101	1997891050	1266436250
2101031001	02101	295	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3779	0.0104429	02101	1313505616	1241956643
2101031002	02101	256	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2511	0.0069389	02101	872773909	1082452368
2101031003	02101	123	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2087	0.0057672	02101	725399899	531881626
2101031004	02101	352	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3200	0.0088429	02101	1112256674	1473938728
2101031005	02101	168	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3138	0.0086716	02101	1090706701	719574542
2101031006	02101	327	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3335	0.0092159	02101	1159180002	1372345820
2101041001	02101	324	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4379	0.0121009	02101	1522053742	1360139037
2101041002	02101	311	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4125	0.0113990	02101	1433768368	1307202571
2101041003	02101	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2518	0.0069582	02101	875206970	983931863
2101041004	02101	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2923	0.0080774	02101	1015976955	983931863
2101041005	02101	252	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4618	0.0127614	02101	1605125412	1066052656
2101051001	02101	389	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4321	0.0119407	02101	1501894090	1623895640
2101051002	02101	332	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5027	0.0138916	02101	1747285718	1392682860
2101051003	02101	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5139	0.0142011	02101	1786214702	1335715059
2101061001	02101	262	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3741	0.0103379	02101	1300297568	1107037275
2101061002	02101	302	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2750	0.0075994	02101	955845579	1270514725
2101061003	02101	356	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3370	0.0093127	02101	1171345309	1490172691
2101071001	02101	315	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4201	0.0116090	02101	1460184464	1323497798
2101071002	02101	223	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2844	0.0078591	02101	988518119	946907827
2101071003	02101	390	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7624	0.0210682	02101	2649951525	1627942279
2101071004	02101	273	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3724	0.0102909	02101	1294388704	1152065158
2101071005	02101	224	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3220	0.0088981	02101	1119208278	951023834
2101081001	02101	242	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2981	0.0082377	02101	1036136608	1025018227
2101081002	02101	305	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4598	0.0127061	02101	1598173808	1282747676
2101081003	02101	198	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3327	0.0091938	02101	1156399360	843816878
2101081004	02101	111	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2616	0.0072291	02101	909269831	481500861
2101091001	02101	293	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2670	0.0073783	02101	928039162	1233793402
2101091002	02101	376	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3682	0.0101748	02101	1279790335	1571260052
2101091003	02101	93	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3061	0.0084588	02101	1063943024	405609710
2101091004	02101	303	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4034	0.0111476	02101	1402138569	1274592787
2101091005	02101	429	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3472	0.0095945	02101	1206798491	1785521448
2101091006	02101	200	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4565	0.0126149	02101	1586703661	852078192
2101091007	02101	153	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1884	0.0052062	02101	654841117	657204980
2101091008	02101	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2451	0.0067731	02101	851919096	1209293401
2101091009	02101	210	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2064	0.0057037	02101	717405554	893347357
2101091010	02101	251	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2643	0.0073037	02101	918654496	1061951488
2101101001	02101	375	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3814	0.0105396	02101	1325670923	1567208878
2101101002	02101	134	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1578	0.0043606	02101	548481572	577931497
2101101003	02101	175	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2526	0.0069803	02101	877987612	748621088
2101102007	02101	18	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	401	0.0011081	02101	139379664	82550962
2101102014	02101	5	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	78	0.0002155	02101	27111256	23847480
2101102016	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	9	0.0000249	02101	3128222	5010268
2101122014	02101	12	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	268	0.0007406	02101	93151496	55721048
2101122019	02101	2	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1438	0.0039738	02101	499820343	9810236
2101141001	02101	589	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7735	0.0213749	02101	2688532928	2427787880
2101141002	02101	454	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6365	0.0175890	02101	2212348040	1886300657
2101141003	02101	204	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3005	0.0083040	02101	1044478533	868593263
2101141004	02101	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4535	0.0125320	02101	1576276255	1813757307
2101141005	02101	360	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4116	0.0113742	02101	1430640146	1506401074
2101141006	02101	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7236	0.0199960	02101	2515090403	1813757307
2101141007	02101	196	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2982	0.0082405	02101	1036484188	835553010
2101141008	02101	180	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2989	0.0082598	02101	1038917249	769346777
2101141009	02101	396	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6367	0.0175946	02101	2213043200	1652215475
2101151001	02101	229	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2879	0.0079558	02101	1000683426	971595487
2101151002	02101	278	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3675	0.0101555	02101	1277357274	1172513893
2101151003	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3768	0.0104125	02101	1309682233	1016805180
2101151004	02101	453	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	8961	0.0247628	02101	3114666266	1882272813
2101161001	02101	291	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2974	0.0082184	02101	1033703546	1225628457
2101161002	02101	258	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3413	0.0094315	02101	1186291258	1090649276
2101161003	02101	184	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1805	0.0049879	02101	627382280	785914624
2101161004	02101	254	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2437	0.0067344	02101	847052973	1074253500
2101161005	02101	257	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3265	0.0090225	02101	1134849387	1086551066
2101171001	02101	114	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2503	0.0069168	02101	869993267	494111015
2101171002	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4463	0.0123331	02101	1551250479	1016805180
2101171003	02101	393	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4570	0.0126287	02101	1588441562	1640080295
2101171004	02101	385	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5586	0.0154364	02101	1941583056	1607705892
2101181001	02101	559	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5341	0.0147593	02101	1856425904	2307820245
2101181002	02101	484	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5876	0.0162377	02101	2042381317	2007012447
2101181003	02101	348	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4235	0.0117030	02101	1472002191	1457699119

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
2101011001	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4618	0.0127614	02101	1605125412	1016805180	220183.019
2101011002	02101	442	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3644	0.0100698	02101	1266582287	1837948424	504376.626
2101011003	02101	410	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5645	0.0155994	02101	1962090288	1708809473	302712.041
2101011004	02101	872	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4385	0.0121175	02101	1524139223	3551384156	809893.764
2101011005	02101	542	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2383	0.0065852	02101	828283642	2239751730	939887.423
2101011006	02101	97	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1466	0.0040511	02101	509552589	422510486	288206.334
2101011008	02101	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6487	0.0179262	02101	2254752826	1335715059	205906.437
2101011009	02101	462	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6152	0.0170004	02101	2138313455	1918513694	311852.031
2101011010	02101	264	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4495	0.0124215	02101	1562373046	1115228396	248104.204
2101011011	02101	79	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2445	0.0067565	02101	849833615	346274631	141625.616
2101011012	02101	282	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4275	0.0118135	02101	1485905400	1188864771	278097.022
2101011013	02101	735	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2947	0.0081437	02101	1024318880	3009122852	1021080.031
2101011014	02101	516	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6247	0.0172630	02101	2171333575	2135519754	341847.247
2101011015	02101	424	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2887	0.0079779	02101	1003464068	1765344357	611480.553
2101011016	02101	121	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1643	0.0045403	02101	571074286	523495690	318621.844
2101011017	02101	317	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4126	0.0114018	02101	1434115949	1331643033	322744.312
2101011018	02101	745	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4567	0.0126204	02101	1587398821	3048802298	667572.213
2101011019	02101	166	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1843	0.0050929	02101	640590328	711268790	385929.892
2101011020	02101	604	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2874	0.0079420	02101	998945525	2487700999	865588.378
2101011021	02101	124	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2753	0.0076076	02101	956888320	536073025	194723.220
2101011022	02101	136	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2805	0.0077513	02101	974962490	586291490	209016.574
2101012001	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6	0.0000166	02101	2085481	5010268	835044.696
2101012005	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	59	0.0001630	02101	20507232	5010268	84919.800
2101012012	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	53	0.0001465	02101	18421751	5010268	94533.362
2101012013	02101	10	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	121	0.0003344	02101	42057205	46693989	385900.732
2101012901	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	16	0.0000442	02101	5561283	5010268	313141.761
2101021001	02101	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3642	0.0100643	02101	1265887127	1209293401	332041.022
2101021002	02101	267	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4658	0.0128719	02101	1619028621	1127511523	242059.151
2101021003	02101	194	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2620	0.0072401	02101	910660152	827286561	315758.229
2101021004	02101	351	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4532	0.0125237	02101	1575233514	1469879358	324333.486
2101021005	02101	301	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5748	0.0158840	02101	1997891050	1266436250	220326.418
2101031001	02101	295	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3779	0.0104429	02101	1313505616	1241956643	328646.902
2101031002	02101	256	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2511	0.0069389	02101	872773909	1082452368	431084.177
2101031003	02101	123	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2087	0.0057672	02101	725399899	531881626	254854.636
2101031004	02101	352	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3200	0.0088429	02101	1112256674	1473938728	460605.853
2101031005	02101	168	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3138	0.0086716	02101	1090706701	719574542	229309.924
2101031006	02101	327	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3335	0.0092159	02101	1159180002	1372345820	411497.997
2101041001	02101	324	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4379	0.0121009	02101	1522053742	1360139037	310604.941
2101041002	02101	311	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4125	0.0113990	02101	1433768368	1307202571	316897.593
2101041003	02101	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2518	0.0069582	02101	875206970	983931863	390759.279
2101041004	02101	232	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2923	0.0080774	02101	1015976955	983931863	336617.127
2101041005	02101	252	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4618	0.0127614	02101	1605125412	1066052656	230847.262
2101051001	02101	389	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4321	0.0119407	02101	1501894090	1623895640	375814.774
2101051002	02101	332	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5027	0.0138916	02101	1747285718	1392682860	277040.553
2101051003	02101	318	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5139	0.0142011	02101	1786214702	1335715059	259917.311
2101061001	02101	262	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3741	0.0103379	02101	1300297568	1107037275	295920.148
2101061002	02101	302	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2750	0.0075994	02101	955845579	1270514725	462005.355
2101061003	02101	356	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3370	0.0093127	02101	1171345309	1490172691	442187.742
2101071001	02101	315	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4201	0.0116090	02101	1460184464	1323497798	315043.513
2101071002	02101	223	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2844	0.0078591	02101	988518119	946907827	332949.306
2101071003	02101	390	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7624	0.0210682	02101	2649951525	1627942279	213528.631
2101071004	02101	273	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3724	0.0102909	02101	1294388704	1152065158	309362.287
2101071005	02101	224	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3220	0.0088981	02101	1119208278	951023834	295349.017
2101081001	02101	242	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2981	0.0082377	02101	1036136608	1025018227	343850.462
2101081002	02101	305	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4598	0.0127061	02101	1598173808	1282747676	278979.486
2101081003	02101	198	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3327	0.0091938	02101	1156399360	843816878	253626.955
2101081004	02101	111	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2616	0.0072291	02101	909269831	481500861	184059.962
2101091001	02101	293	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2670	0.0073783	02101	928039162	1233793402	462094.907
2101091002	02101	376	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3682	0.0101748	02101	1279790335	1571260052	426740.916
2101091003	02101	93	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3061	0.0084588	02101	1063943024	405609710	132508.889
2101091004	02101	303	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4034	0.0111476	02101	1402138569	1274592787	315962.515
2101091005	02101	429	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3472	0.0095945	02101	1206798491	1785521448	514263.090
2101091006	02101	200	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4565	0.0126149	02101	1586703661	852078192	186654.587
2101091007	02101	153	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1884	0.0052062	02101	654841117	657204980	348834.915
2101091008	02101	287	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2451	0.0067731	02101	851919096	1209293401	493387.761
2101091009	02101	210	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2064	0.0057037	02101	717405554	893347357	432823.332
2101091010	02101	251	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2643	0.0073037	02101	918654496	1061951488	401797.763
2101101001	02101	375	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3814	0.0105396	02101	1325670923	1567208878	410909.512
2101101002	02101	134	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1578	0.0043606	02101	548481572	577931497	366243.027
2101101003	02101	175	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2526	0.0069803	02101	877987612	748621088	296366.226
2101102007	02101	18	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	401	0.0011081	02101	139379664	82550962	205862.748
2101102014	02101	5	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	78	0.0002155	02101	27111256	23847480	305736.924
2101102016	02101	1	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	9	0.0000249	02101	3128222	5010268	556696.464
2101122014	02101	12	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	268	0.0007406	02101	93151496	55721048	207914.356
2101122019	02101	2	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1438	0.0039738	02101	499820343	9810236	6822.139
2101141001	02101	589	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7735	0.0213749	02101	2688532928	2427787880	313870.443
2101141002	02101	454	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6365	0.0175890	02101	2212348040	1886300657	296355.170
2101141003	02101	204	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3005	0.0083040	02101	1044478533	868593263	289049.339
2101141004	02101	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4535	0.0125320	02101	1576276255	1813757307	399946.484
2101141005	02101	360	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4116	0.0113742	02101	1430640146	1506401074	365986.655
2101141006	02101	436	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	7236	0.0199960	02101	2515090403	1813757307	250657.450
2101141007	02101	196	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2982	0.0082405	02101	1036484188	835553010	280198.863
2101141008	02101	180	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2989	0.0082598	02101	1038917249	769346777	257392.699
2101141009	02101	396	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	6367	0.0175946	02101	2213043200	1652215475	259496.698
2101151001	02101	229	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2879	0.0079558	02101	1000683426	971595487	337476.724
2101151002	02101	278	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3675	0.0101555	02101	1277357274	1172513893	319051.400
2101151003	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3768	0.0104125	02101	1309682233	1016805180	269852.755
2101151004	02101	453	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	8961	0.0247628	02101	3114666266	1882272813	210051.647
2101161001	02101	291	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2974	0.0082184	02101	1033703546	1225628457	412114.478
2101161002	02101	258	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3413	0.0094315	02101	1186291258	1090649276	319557.362
2101161003	02101	184	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	1805	0.0049879	02101	627382280	785914624	435409.764
2101161004	02101	254	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2437	0.0067344	02101	847052973	1074253500	440809.807
2101161005	02101	257	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	3265	0.0090225	02101	1134849387	1086551066	332787.463
2101171001	02101	114	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	2503	0.0069168	02101	869993267	494111015	197407.517
2101171002	02101	240	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4463	0.0123331	02101	1551250479	1016805180	227829.975
2101171003	02101	393	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4570	0.0126287	02101	1588441562	1640080295	358879.714
2101171004	02101	385	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5586	0.0154364	02101	1941583056	1607705892	287809.863
2101181001	02101	559	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5341	0.0147593	02101	1856425904	2307820245	432095.159
2101181002	02101	484	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	5876	0.0162377	02101	2042381317	2007012447	341561.002
2101181003	02101	348	2017	Antofagasta	347580.2	2017	2101	361873	125779893517	4235	0.0117030	02101	1472002191	1457699119	344202.862

Guardamos:

saveRDS(h_y_m_comuna_corr_01, "casen_censo_region_02.rds")

12 Referencias

https://rpubs.com/osoramirez/316691

https://dataintelligencechile.shinyapps.io/casenfinal

Manual_de_usuario_Censo_2017_16R.pdf

http://www.censo2017.cl/microdatos/

Censo de Población y Vivienda

https://www.ine.cl/estadisticas/sociales/censos-de-poblacion-y-vivienda/poblacion-y-vivienda

http://r-statistics.co/Linear-Regression.html