Expansión de la CASEN sobre el CENSO

De ingresos sobre una categoría de respuesta

VE-CC-AJ

DataIntelligence

Martes 22-06-2021

Abstract

Expandiremos los ingresos promedios comunales obtenidos de la CASEN sobre la categoría de respuesta: “tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas” del campo P03B del CENSO de viviendas, que fue la categoría de respuesta que más alto correlaciona con los ingresos expandidos, ambos a nivel comunal. Lo anterior, para poder construir un modelo lineal cuya variable independiente será: “porcentaje de población que posee la variable Censal respecto a la zona” y la dependiente: “ingreso expandido por zona”.

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 de la tabla 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

1.2 Cálculo de frecuencias

Necesitamos obtener por zona la cantidad de personas que declaran tener como material en la cubierta del techo: “tejas o tejuelas de arcilla, metálicas, de cemento, de madera, asfálticas o plásticas” (la mayor correlación obtenida en relación al ingreso promedio comunal obtenido de la CASEN).

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"

1.3 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
1161	1101011001	1	1101	298	2017
1162	1101011002	1	1101	95	2017
1163	1101021001	1	1101	55	2017
1164	1101021002	1	1101	2	2017
1165	1101021003	1	1101	265	2017
1166	1101021004	1	1101	178	2017
1167	1101021005	1	1101	337	2017
1168	1101031001	1	1101	194	2017
1169	1101031002	1	1101	482	2017
1170	1101031003	1	1101	328	2017
1171	1101031004	1	1101	171	2017
1172	1101041001	1	1101	135	2017
1173	1101041002	1	1101	228	2017
1174	1101041003	1	1101	235	2017
1175	1101041004	1	1101	636	2017
1176	1101041005	1	1101	403	2017
1177	1101041006	1	1101	214	2017
1178	1101051001	1	1101	364	2017
1179	1101051002	1	1101	350	2017
1180	1101051003	1	1101	303	2017
1181	1101051004	1	1101	200	2017
1182	1101051005	1	1101	269	2017
1183	1101051006	1	1101	256	2017
1184	1101061001	1	1101	105	2017
1185	1101061002	1	1101	349	2017
1186	1101061003	1	1101	259	2017
1187	1101061004	1	1101	134	2017
1188	1101061005	1	1101	144	2017
1189	1101071001	1	1101	271	2017
1190	1101071002	1	1101	453	2017
1191	1101071003	1	1101	483	2017
1192	1101071004	1	1101	211	2017
1193	1101081001	1	1101	601	2017
1194	1101081002	1	1101	469	2017
1195	1101081003	1	1101	328	2017
1196	1101081004	1	1101	284	2017
1197	1101092004	1	1101	6	2017
1198	1101092005	1	1101	1	2017
1199	1101092006	1	1101	35	2017
1200	1101092007	1	1101	1	2017
1201	1101092010	1	1101	36	2017
1202	1101092012	1	1101	3	2017
1203	1101092016	1	1101	1	2017
1204	1101092017	1	1101	5	2017
1205	1101092018	1	1101	6	2017
1206	1101092019	1	1101	2	2017
1207	1101092021	1	1101	11	2017
1208	1101092023	1	1101	13	2017
1209	1101092024	1	1101	1	2017
1210	1101101001	1	1101	230	2017
1211	1101101002	1	1101	420	2017
1212	1101101003	1	1101	323	2017
1213	1101101004	1	1101	249	2017
1214	1101101005	1	1101	481	2017
1215	1101101006	1	1101	356	2017
1216	1101111001	1	1101	249	2017
1217	1101111002	1	1101	184	2017
1218	1101111003	1	1101	353	2017
1219	1101111004	1	1101	279	2017
1220	1101111005	1	1101	359	2017
1221	1101111006	1	1101	60	2017
1222	1101111007	1	1101	234	2017
1223	1101111008	1	1101	322	2017
1224	1101111009	1	1101	317	2017
1225	1101111010	1	1101	21	2017
1226	1101111011	1	1101	309	2017
1227	1101111012	1	1101	109	2017
1228	1101111013	1	1101	227	2017
1229	1101111014	1	1101	138	2017
1230	1101112003	1	1101	9	2017
1231	1101112013	1	1101	9	2017
1232	1101112025	1	1101	1	2017
1233	1101112901	1	1101	1	2017
1234	1101991999	1	1101	68	2017
13906	1107011001	1	1107	245	2017
13907	1107011002	1	1107	284	2017
13908	1107011003	1	1107	280	2017
13909	1107021001	1	1107	738	2017
13910	1107021002	1	1107	407	2017
13911	1107021003	1	1107	323	2017
13912	1107021004	1	1107	466	2017
13913	1107021005	1	1107	471	2017
13914	1107021006	1	1107	201	2017
13915	1107021007	1	1107	466	2017
13916	1107021008	1	1107	416	2017
13917	1107031001	1	1107	358	2017
13918	1107031002	1	1107	594	2017
13919	1107031003	1	1107	251	2017
13920	1107032005	1	1107	5	2017
13921	1107041001	1	1107	233	2017
13922	1107041002	1	1107	342	2017
13923	1107041003	1	1107	252	2017
13924	1107041004	1	1107	272	2017
13925	1107041005	1	1107	207	2017
13926	1107041006	1	1107	249	2017
13927	1107041007	1	1107	359	2017
13928	1107042002	1	1107	3	2017
13929	1107991999	1	1107	41	2017
29220	1401011001	1	1401	197	2017
29221	1401011002	1	1401	411	2017

1.4 Calculamos la proporción de las frecuencias en cada comuna a nivel zonal (p)

codigos_com <- unique(d$unlist.d.)
frec_man_com_parcial_total <- data.frame()
for(i in codigos_com){
  # debemos dividir por 100 para obtener las proporciones y no los porcentajes:
  frec_man_com_parcial <- filter(d, d$unlist.d. == i)
  frec_man_com_parcial$p <- frec_man_com_parcial$Freq*100/sum(frec_man_com_parcial$Freq)/100
  frec_man_com_parcial_total <- rbind(frec_man_com_parcial_total,frec_man_com_parcial)
}

1.5 Observemos los primeros 100 registros

r3_100 <- frec_man_com_parcial_total[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	p
1101011001	1	1101	298	2017	0.0192035
1101011002	1	1101	95	2017	0.0061219
1101021001	1	1101	55	2017	0.0035443
1101021002	1	1101	2	2017	0.0001289
1101021003	1	1101	265	2017	0.0170769
1101021004	1	1101	178	2017	0.0114706
1101021005	1	1101	337	2017	0.0217167
1101031001	1	1101	194	2017	0.0125016
1101031002	1	1101	482	2017	0.0310607
1101031003	1	1101	328	2017	0.0211367
1101031004	1	1101	171	2017	0.0110195
1101041001	1	1101	135	2017	0.0086996
1101041002	1	1101	228	2017	0.0146926
1101041003	1	1101	235	2017	0.0151437
1101041004	1	1101	636	2017	0.0409847
1101041005	1	1101	403	2017	0.0259698
1101041006	1	1101	214	2017	0.0137904
1101051001	1	1101	364	2017	0.0234566
1101051002	1	1101	350	2017	0.0225545
1101051003	1	1101	303	2017	0.0195257
1101051004	1	1101	200	2017	0.0128883
1101051005	1	1101	269	2017	0.0173347
1101051006	1	1101	256	2017	0.0164970
1101061001	1	1101	105	2017	0.0067663
1101061002	1	1101	349	2017	0.0224900
1101061003	1	1101	259	2017	0.0166903
1101061004	1	1101	134	2017	0.0086351
1101061005	1	1101	144	2017	0.0092795
1101071001	1	1101	271	2017	0.0174636
1101071002	1	1101	453	2017	0.0291919
1101071003	1	1101	483	2017	0.0311251
1101071004	1	1101	211	2017	0.0135971
1101081001	1	1101	601	2017	0.0387292
1101081002	1	1101	469	2017	0.0302230
1101081003	1	1101	328	2017	0.0211367
1101081004	1	1101	284	2017	0.0183013
1101092004	1	1101	6	2017	0.0003866
1101092005	1	1101	1	2017	0.0000644
1101092006	1	1101	35	2017	0.0022554
1101092007	1	1101	1	2017	0.0000644
1101092010	1	1101	36	2017	0.0023199
1101092012	1	1101	3	2017	0.0001933
1101092016	1	1101	1	2017	0.0000644
1101092017	1	1101	5	2017	0.0003222
1101092018	1	1101	6	2017	0.0003866
1101092019	1	1101	2	2017	0.0001289
1101092021	1	1101	11	2017	0.0007089
1101092023	1	1101	13	2017	0.0008377
1101092024	1	1101	1	2017	0.0000644
1101101001	1	1101	230	2017	0.0148215
1101101002	1	1101	420	2017	0.0270653
1101101003	1	1101	323	2017	0.0208145
1101101004	1	1101	249	2017	0.0160459
1101101005	1	1101	481	2017	0.0309963
1101101006	1	1101	356	2017	0.0229411
1101111001	1	1101	249	2017	0.0160459
1101111002	1	1101	184	2017	0.0118572
1101111003	1	1101	353	2017	0.0227478
1101111004	1	1101	279	2017	0.0179791
1101111005	1	1101	359	2017	0.0231344
1101111006	1	1101	60	2017	0.0038665
1101111007	1	1101	234	2017	0.0150793
1101111008	1	1101	322	2017	0.0207501
1101111009	1	1101	317	2017	0.0204279
1101111010	1	1101	21	2017	0.0013533
1101111011	1	1101	309	2017	0.0199124
1101111012	1	1101	109	2017	0.0070241
1101111013	1	1101	227	2017	0.0146282
1101111014	1	1101	138	2017	0.0088929
1101112003	1	1101	9	2017	0.0005800
1101112013	1	1101	9	2017	0.0005800
1101112025	1	1101	1	2017	0.0000644
1101112901	1	1101	1	2017	0.0000644
1101991999	1	1101	68	2017	0.0043820
1107011001	1	1107	245	2017	0.0328286
1107011002	1	1107	284	2017	0.0380544
1107011003	1	1107	280	2017	0.0375184
1107021001	1	1107	738	2017	0.0988878
1107021002	1	1107	407	2017	0.0545357
1107021003	1	1107	323	2017	0.0432802
1107021004	1	1107	466	2017	0.0624414
1107021005	1	1107	471	2017	0.0631113
1107021006	1	1107	201	2017	0.0269329
1107021007	1	1107	466	2017	0.0624414
1107021008	1	1107	416	2017	0.0557417
1107031001	1	1107	358	2017	0.0479700
1107031002	1	1107	594	2017	0.0795927
1107031003	1	1107	251	2017	0.0336326
1107032005	1	1107	5	2017	0.0006700
1107041001	1	1107	233	2017	0.0312207
1107041002	1	1107	342	2017	0.0458261
1107041003	1	1107	252	2017	0.0337666
1107041004	1	1107	272	2017	0.0364465
1107041005	1	1107	207	2017	0.0277368
1107041006	1	1107	249	2017	0.0333646
1107041007	1	1107	359	2017	0.0481040
1107042002	1	1107	3	2017	0.0004020
1107991999	1	1107	41	2017	0.0054938
1401011001	1	1401	197	2017	0.2111468
1401011002	1	1401	411	2017	0.4405145

1.6 Verificación del cálculo correcto de proporciones

Verifiquemos que la suma de las proporciones sea 1 para la comuna 1107:

r3_100_f <- filter(frec_man_com_parcial_total, frec_man_com_parcial_total$unlist.d. == 1107)

sum(r3_100_f$p)

## [1] 1

nrow(frec_man_com_parcial_total)

## [1] 12671

1.7 Agregamos un cero a los códigos comunales de cuatro digitos

codigos <- frec_man_com_parcial_total$unlist.d.
rango <- seq(1:nrow(frec_man_com_parcial_total))
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(frec_man_com_parcial_total,cadena)
comuna_corr <- comuna_corr[,-c(2,3),drop=FALSE] 
names(comuna_corr)[5] <- "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	p	código
1101011001	298	2017	0.0192035	01101
1101011002	95	2017	0.0061219	01101
1101021001	55	2017	0.0035443	01101
1101021002	2	2017	0.0001289	01101
1101021003	265	2017	0.0170769	01101
1101021004	178	2017	0.0114706	01101
1101021005	337	2017	0.0217167	01101
1101031001	194	2017	0.0125016	01101
1101031002	482	2017	0.0310607	01101
1101031003	328	2017	0.0211367	01101
1101031004	171	2017	0.0110195	01101
1101041001	135	2017	0.0086996	01101
1101041002	228	2017	0.0146926	01101
1101041003	235	2017	0.0151437	01101
1101041004	636	2017	0.0409847	01101
1101041005	403	2017	0.0259698	01101
1101041006	214	2017	0.0137904	01101
1101051001	364	2017	0.0234566	01101
1101051002	350	2017	0.0225545	01101
1101051003	303	2017	0.0195257	01101
1101051004	200	2017	0.0128883	01101
1101051005	269	2017	0.0173347	01101
1101051006	256	2017	0.0164970	01101
1101061001	105	2017	0.0067663	01101
1101061002	349	2017	0.0224900	01101
1101061003	259	2017	0.0166903	01101
1101061004	134	2017	0.0086351	01101
1101061005	144	2017	0.0092795	01101
1101071001	271	2017	0.0174636	01101
1101071002	453	2017	0.0291919	01101
1101071003	483	2017	0.0311251	01101
1101071004	211	2017	0.0135971	01101
1101081001	601	2017	0.0387292	01101
1101081002	469	2017	0.0302230	01101
1101081003	328	2017	0.0211367	01101
1101081004	284	2017	0.0183013	01101
1101092004	6	2017	0.0003866	01101
1101092005	1	2017	0.0000644	01101
1101092006	35	2017	0.0022554	01101
1101092007	1	2017	0.0000644	01101
1101092010	36	2017	0.0023199	01101
1101092012	3	2017	0.0001933	01101
1101092016	1	2017	0.0000644	01101
1101092017	5	2017	0.0003222	01101
1101092018	6	2017	0.0003866	01101
1101092019	2	2017	0.0001289	01101
1101092021	11	2017	0.0007089	01101
1101092023	13	2017	0.0008377	01101
1101092024	1	2017	0.0000644	01101
1101101001	230	2017	0.0148215	01101
1101101002	420	2017	0.0270653	01101
1101101003	323	2017	0.0208145	01101
1101101004	249	2017	0.0160459	01101
1101101005	481	2017	0.0309963	01101
1101101006	356	2017	0.0229411	01101
1101111001	249	2017	0.0160459	01101
1101111002	184	2017	0.0118572	01101
1101111003	353	2017	0.0227478	01101
1101111004	279	2017	0.0179791	01101
1101111005	359	2017	0.0231344	01101
1101111006	60	2017	0.0038665	01101
1101111007	234	2017	0.0150793	01101
1101111008	322	2017	0.0207501	01101
1101111009	317	2017	0.0204279	01101
1101111010	21	2017	0.0013533	01101
1101111011	309	2017	0.0199124	01101
1101111012	109	2017	0.0070241	01101
1101111013	227	2017	0.0146282	01101
1101111014	138	2017	0.0088929	01101
1101112003	9	2017	0.0005800	01101
1101112013	9	2017	0.0005800	01101
1101112025	1	2017	0.0000644	01101
1101112901	1	2017	0.0000644	01101
1101991999	68	2017	0.0043820	01101
1107011001	245	2017	0.0328286	01107
1107011002	284	2017	0.0380544	01107
1107011003	280	2017	0.0375184	01107
1107021001	738	2017	0.0988878	01107
1107021002	407	2017	0.0545357	01107
1107021003	323	2017	0.0432802	01107
1107021004	466	2017	0.0624414	01107
1107021005	471	2017	0.0631113	01107
1107021006	201	2017	0.0269329	01107
1107021007	466	2017	0.0624414	01107
1107021008	416	2017	0.0557417	01107
1107031001	358	2017	0.0479700	01107
1107031002	594	2017	0.0795927	01107
1107031003	251	2017	0.0336326	01107
1107032005	5	2017	0.0006700	01107
1107041001	233	2017	0.0312207	01107
1107041002	342	2017	0.0458261	01107
1107041003	252	2017	0.0337666	01107
1107041004	272	2017	0.0364465	01107
1107041005	207	2017	0.0277368	01107
1107041006	249	2017	0.0333646	01107
1107041007	359	2017	0.0481040	01107
1107042002	3	2017	0.0004020	01107
1107991999	41	2017	0.0054938	01107
1401011001	197	2017	0.2111468	01401
1401011002	411	2017	0.4405145	01401

2 Variable CASEN

2.1 Tabla de ingresos expandidos

Hemos calculado ya éste valor en el resultado 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

Hacemos la unión por el campo código de la tabla precedente con la de proporciones de la variable Censal por zona para unirlas con los ingresos expandidos. Obtenemos así información a nivel zonal.

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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos
01101	1101111004	279	2017	0.0179791	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111005	359	2017	0.0231344	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051001	364	2017	0.0234566	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111006	60	2017	0.0038665	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111003	353	2017	0.0227478	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092016	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092017	5	2017	0.0003222	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051002	350	2017	0.0225545	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111007	234	2017	0.0150793	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092021	11	2017	0.0007089	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111008	322	2017	0.0207501	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041005	403	2017	0.0259698	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092019	2	2017	0.0001289	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112901	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111002	184	2017	0.0118572	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051004	200	2017	0.0128883	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092018	6	2017	0.0003866	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041006	214	2017	0.0137904	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051003	303	2017	0.0195257	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112003	9	2017	0.0005800	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112013	9	2017	0.0005800	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051005	269	2017	0.0173347	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021002	2	2017	0.0001289	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101991999	68	2017	0.0043820	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081002	469	2017	0.0302230	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101005	481	2017	0.0309963	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111014	138	2017	0.0088929	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101011002	95	2017	0.0061219	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101011001	298	2017	0.0192035	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092012	3	2017	0.0001933	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021001	55	2017	0.0035443	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041003	235	2017	0.0151437	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021003	265	2017	0.0170769	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021004	178	2017	0.0114706	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092023	13	2017	0.0008377	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092024	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111010	21	2017	0.0013533	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101003	323	2017	0.0208145	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101004	249	2017	0.0160459	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031002	482	2017	0.0310607	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061005	144	2017	0.0092795	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111001	249	2017	0.0160459	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041004	636	2017	0.0409847	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041002	228	2017	0.0146926	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112025	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071004	211	2017	0.0135971	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081001	601	2017	0.0387292	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071003	483	2017	0.0311251	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111012	109	2017	0.0070241	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111009	317	2017	0.0204279	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051006	256	2017	0.0164970	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111011	309	2017	0.0199124	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071002	453	2017	0.0291919	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111013	227	2017	0.0146282	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061004	134	2017	0.0086351	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071001	271	2017	0.0174636	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092004	6	2017	0.0003866	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092005	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081003	328	2017	0.0211367	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081004	284	2017	0.0183013	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092010	36	2017	0.0023199	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041001	135	2017	0.0086996	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092006	35	2017	0.0022554	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092007	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101001	230	2017	0.0148215	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101002	420	2017	0.0270653	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061001	105	2017	0.0067663	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021005	337	2017	0.0217167	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101006	356	2017	0.0229411	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031004	171	2017	0.0110195	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031003	328	2017	0.0211367	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031001	194	2017	0.0125016	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061002	349	2017	0.0224900	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061003	259	2017	0.0166903	Iquique	354820.7	2017	1101	191468	67936815240
01107	1107031001	358	2017	0.0479700	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031002	594	2017	0.0795927	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011002	284	2017	0.0380544	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021008	416	2017	0.0557417	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107991999	41	2017	0.0054938	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107042002	3	2017	0.0004020	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031003	251	2017	0.0336326	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107032005	5	2017	0.0006700	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011001	245	2017	0.0328286	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041007	359	2017	0.0481040	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041006	249	2017	0.0333646	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011003	280	2017	0.0375184	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021001	738	2017	0.0988878	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041004	272	2017	0.0364465	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021002	407	2017	0.0545357	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021003	323	2017	0.0432802	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021005	471	2017	0.0631113	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021007	466	2017	0.0624414	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021006	201	2017	0.0269329	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041003	252	2017	0.0337666	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041001	233	2017	0.0312207	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041002	342	2017	0.0458261	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021004	466	2017	0.0624414	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041005	207	2017	0.0277368	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01401	1401032007	1	2017	0.0010718	Pozo Almonte	285981.8	2017	1401	15711	4493059532
01401	1401032011	38	2017	0.0407288	Pozo Almonte	285981.8	2017	1401	15711	4493059532

4 Pasos según Notion

4.1 Del censo obtener la cantidad de población a nivel de zona y estimar la proporción (p_poblacional).

Ya hemos construído una tabla en la que tenemos la proporción de población por zona en cada comuna (ver aquí).

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

## [1] 15500

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

4.2 Obtener el ingreso medio.

Éste valor es el campo promedio_i de la tabla calculada en el punto “3 Unión” de la sección anterior.

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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos
01101	1101111004	279	2017	0.0179791	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111005	359	2017	0.0231344	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051001	364	2017	0.0234566	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111006	60	2017	0.0038665	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111003	353	2017	0.0227478	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092016	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092017	5	2017	0.0003222	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051002	350	2017	0.0225545	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111007	234	2017	0.0150793	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092021	11	2017	0.0007089	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111008	322	2017	0.0207501	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041005	403	2017	0.0259698	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092019	2	2017	0.0001289	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112901	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111002	184	2017	0.0118572	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051004	200	2017	0.0128883	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092018	6	2017	0.0003866	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041006	214	2017	0.0137904	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051003	303	2017	0.0195257	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112003	9	2017	0.0005800	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112013	9	2017	0.0005800	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051005	269	2017	0.0173347	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021002	2	2017	0.0001289	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101991999	68	2017	0.0043820	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081002	469	2017	0.0302230	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101005	481	2017	0.0309963	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111014	138	2017	0.0088929	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101011002	95	2017	0.0061219	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101011001	298	2017	0.0192035	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092012	3	2017	0.0001933	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021001	55	2017	0.0035443	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041003	235	2017	0.0151437	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021003	265	2017	0.0170769	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021004	178	2017	0.0114706	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092023	13	2017	0.0008377	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092024	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111010	21	2017	0.0013533	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101003	323	2017	0.0208145	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101004	249	2017	0.0160459	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031002	482	2017	0.0310607	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061005	144	2017	0.0092795	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111001	249	2017	0.0160459	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041004	636	2017	0.0409847	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041002	228	2017	0.0146926	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101112025	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071004	211	2017	0.0135971	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081001	601	2017	0.0387292	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071003	483	2017	0.0311251	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111012	109	2017	0.0070241	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111009	317	2017	0.0204279	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101051006	256	2017	0.0164970	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111011	309	2017	0.0199124	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071002	453	2017	0.0291919	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101111013	227	2017	0.0146282	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061004	134	2017	0.0086351	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101071001	271	2017	0.0174636	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092004	6	2017	0.0003866	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092005	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081003	328	2017	0.0211367	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101081004	284	2017	0.0183013	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092010	36	2017	0.0023199	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101041001	135	2017	0.0086996	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092006	35	2017	0.0022554	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101092007	1	2017	0.0000644	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101001	230	2017	0.0148215	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101002	420	2017	0.0270653	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061001	105	2017	0.0067663	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101021005	337	2017	0.0217167	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101101006	356	2017	0.0229411	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031004	171	2017	0.0110195	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031003	328	2017	0.0211367	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101031001	194	2017	0.0125016	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061002	349	2017	0.0224900	Iquique	354820.7	2017	1101	191468	67936815240
01101	1101061003	259	2017	0.0166903	Iquique	354820.7	2017	1101	191468	67936815240
01107	1107031001	358	2017	0.0479700	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031002	594	2017	0.0795927	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011002	284	2017	0.0380544	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021008	416	2017	0.0557417	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107991999	41	2017	0.0054938	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107042002	3	2017	0.0004020	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107031003	251	2017	0.0336326	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107032005	5	2017	0.0006700	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011001	245	2017	0.0328286	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041007	359	2017	0.0481040	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041006	249	2017	0.0333646	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107011003	280	2017	0.0375184	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021001	738	2017	0.0988878	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041004	272	2017	0.0364465	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021002	407	2017	0.0545357	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021003	323	2017	0.0432802	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021005	471	2017	0.0631113	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021007	466	2017	0.0624414	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021006	201	2017	0.0269329	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041003	252	2017	0.0337666	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041001	233	2017	0.0312207	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041002	342	2017	0.0458261	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107021004	466	2017	0.0624414	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01107	1107041005	207	2017	0.0277368	Alto Hospicio	301933.4	2017	1107	108375	32722034397
01401	1401032007	1	2017	0.0010718	Pozo Almonte	285981.8	2017	1401	15711	4493059532
01401	1401032011	38	2017	0.0407288	Pozo Almonte	285981.8	2017	1401	15711	4493059532

nrow(comunas_con_ing_exp)

## [1] 12671

4.3 Multiplicar el ingreso medio x población total x la proporción de la población de la zona.

Para ello integremos a la tabla precedente la proporción poblacional:

h_y_m_comuna_corr_01 = merge( x = comunas_con_ing_exp, y = prop_pob, by = "zona", all.x = TRUE)
# nrow(h_y_m_comuna_corr_01)

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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y
10101011001	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101
10101011002	10101	177	2017	0.0163329	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101
10101021001	10101	82	2017	0.0075667	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101
10101021002	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101
10101021003	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101
10101021004	10101	99	2017	0.0091354	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101
10101021005	10101	171	2017	0.0157793	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101
10101031001	10101	133	2017	0.0122728	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101
10101031002	10101	115	2017	0.0106118	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101
10101031003	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101
10101031004	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101
10101031005	10101	146	2017	0.0134724	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101
10101031006	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101
10101031007	10101	39	2017	0.0035988	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101
10101031008	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101
10101031009	10101	166	2017	0.0153179	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101
10101031010	10101	92	2017	0.0084894	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101
10101031011	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101
10101031012	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101
10101031013	10101	73	2017	0.0067362	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101
10101031014	10101	109	2017	0.0100581	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101
10101031015	10101	31	2017	0.0028606	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101
10101031016	10101	248	2017	0.0228846	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101
10101031017	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101
10101032002	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101
10101032011	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101
10101032019	10101	32	2017	0.0029528	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101
10101041001	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101
10101041002	10101	55	2017	0.0050752	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101
10101041003	10101	774	2017	0.0714220	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101
10101051001	10101	246	2017	0.0227000	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101
10101051002	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101
10101051003	10101	65	2017	0.0059980	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101
10101051004	10101	307	2017	0.0283289	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101
10101061001	10101	1239	2017	0.1143305	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101
10101061002	10101	329	2017	0.0303590	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101
10101061003	10101	160	2017	0.0147642	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101
10101061004	10101	110	2017	0.0101504	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101
10101061005	10101	312	2017	0.0287903	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101
10101061006	10101	401	2017	0.0370029	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101
10101061007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101
10101061008	10101	388	2017	0.0358033	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101
10101061009	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101
10101061010	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101
10101062003	10101	10	2017	0.0009228	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101
10101062008	10101	72	2017	0.0066439	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101
10101062013	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101
10101062029	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101
10101062039	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101
10101071001	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101
10101071002	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101
10101071003	10101	112	2017	0.0103350	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101
10101071004	10101	75	2017	0.0069207	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101
10101071005	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101
10101071006	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101
10101071007	10101	29	2017	0.0026760	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101
10101071008	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101
10101071009	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101
10101071010	10101	48	2017	0.0044293	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101
10101071011	10101	43	2017	0.0039679	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101
10101071012	10101	47	2017	0.0043370	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101
10101071014	10101	26	2017	0.0023992	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101
10101072014	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101
10101072021	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101
10101072028	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101
10101072029	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101
10101072036	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101
10101072045	10101	7	2017	0.0006459	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101
10101082016	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101
10101082017	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101
10101082018	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101
10101082030	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101
10101082034	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101
10101082042	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101
10101082045	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101
10101092004	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101
10101092008	10101	83	2017	0.0076589	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101
10101092037	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101
10101092040	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101
10101092041	10101	44	2017	0.0040602	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101
10101092044	10101	21	2017	0.0019378	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101
10101102005	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101
10101102007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101
10101102035	10101	22	2017	0.0020301	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101
10101102037	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101
10101102051	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101
10101112025	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101
10101122024	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101
10101131001	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101
10101132022	10101	15	2017	0.0013841	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101
10101132023	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101
10101132027	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101
10101132049	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101
10101142009	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101
10101142015	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101
10101142027	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101
10101142038	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101
10101142046	10101	9	2017	0.0008305	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101
10101142047	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101
10101142049	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101

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

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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob
10101011001	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101	156939747
10101011002	10101	177	2017	0.0163329	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101	790342117
10101021001	10101	82	2017	0.0075667	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101	1062299350
10101021002	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101	297486815
10101021003	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101	616472226
10101021004	10101	99	2017	0.0091354	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101	911271717
10101021005	10101	171	2017	0.0157793	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101	689029986
10101031001	10101	133	2017	0.0122728	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101	1217357970
10101031002	10101	115	2017	0.0106118	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101	1273791783
10101031003	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101	1103684147
10101031004	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101	767499859
10101031005	10101	146	2017	0.0134724	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101	1529087605
10101031006	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101	661081812
10101031007	10101	39	2017	0.0035988	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101	615934761
10101031008	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101	963405811
10101031009	10101	166	2017	0.0153179	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101	1192097121
10101031010	10101	92	2017	0.0084894	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101	958299894
10101031011	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101	740895347
10101031012	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101	496886289
10101031013	10101	73	2017	0.0067362	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101	1060149491
10101031014	10101	109	2017	0.0100581	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101	608678985
10101031015	10101	31	2017	0.0028606	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101	518653616
10101031016	10101	248	2017	0.0228846	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101	825277335
10101031017	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101	1044025544
10101032002	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101	34666485
10101032011	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101	114480021
10101032019	10101	32	2017	0.0029528	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101	222779196
10101041001	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101	1166836271
10101041002	10101	55	2017	0.0050752	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101	582880671
10101041003	10101	774	2017	0.0714220	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101	1397946172
10101051001	10101	246	2017	0.0227000	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101	661888009
10101051002	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101	514085165
10101051003	10101	65	2017	0.0059980	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101	879292556
10101051004	10101	307	2017	0.0283289	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101	976304968
10101061001	10101	1239	2017	0.1143305	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101	1823887096
10101061002	10101	329	2017	0.0303590	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101	733370839
10101061003	10101	160	2017	0.0147642	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101	985710604
10101061004	10101	110	2017	0.0101504	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101	804853669
10101061005	10101	312	2017	0.0287903	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101	690911113
10101061006	10101	401	2017	0.0370029	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101	1109864993
10101061007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101	219554407
10101061008	10101	388	2017	0.0358033	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101	566756724
10101061009	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101	45147051
10101061010	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101	414654161
10101062003	10101	10	2017	0.0009228	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101	42459726
10101062008	10101	72	2017	0.0066439	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101	156133550
10101062013	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101	153446225
10101062029	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101	12630425
10101062039	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101	18005074
10101071001	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101	632058708
10101071002	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101	1053162447
10101071003	10101	112	2017	0.0103350	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101	1337750105
10101071004	10101	75	2017	0.0069207	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101	925245804
10101071005	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101	739282953
10101071006	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101	1132438518
10101071007	10101	29	2017	0.0026760	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101	630177581
10101071008	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101	1472653792
10101071009	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101	953731443
10101071010	10101	48	2017	0.0044293	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101	946206935
10101071011	10101	43	2017	0.0039679	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101	831458181
10101071012	10101	47	2017	0.0043370	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101	704347735
10101071014	10101	26	2017	0.0023992	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101	235140888
10101072014	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101	267926246
10101072021	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101	11824228
10101072028	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101	38966204
10101072029	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101	282437798
10101072036	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101	31710428
10101072045	10101	7	2017	0.0006459	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101	30366766
10101082016	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101	32516626
10101082017	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101	10211833
10101082018	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101	167420312
10101082030	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101	47296910
10101082034	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101	17736341
10101082042	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101	67989308
10101082045	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101	33054091
10101092004	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101	26067047
10101092008	10101	83	2017	0.0076589	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101	202086798
10101092037	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101	74170154
10101092040	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101	136784814
10101092041	10101	44	2017	0.0040602	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101	452276703
10101092044	10101	21	2017	0.0019378	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101	142428195
10101102005	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101	39503669
10101102007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101	221435534
10101102035	10101	22	2017	0.0020301	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101	252608497
10101102037	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101	44072121
10101102051	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101	15317749
10101112025	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101	289693574
10101122024	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101	255833286
10101131001	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101	162314396
10101132022	10101	15	2017	0.0013841	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101	188918908
10101132023	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101	162045664
10101132027	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101	28216907
10101132049	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101	506023192
10101142009	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101	15855214
10101142015	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101	33322823
10101142027	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101	51596629
10101142038	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101	14242820
10101142046	10101	9	2017	0.0008305	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101	85188185
10101142047	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101	70676633
10101142049	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101	261476668

multi_pob es la expansión propiamente tal. Llevamos los ingresos promedios comunales a nivel zonal mediante su multiplicación con alguna medida de la población por zona, en éste caso: \(personas \cdot p\_poblacional\)

No hubiese sido suficiente con multiplicar simplemente con p_poblacional?

4.4 Obtener la frecuencia de los valores de la variable a nivel de zona (X).

Éste dato lo tenemos en la columna Freq.x

4.5 Obtener la proporción de la variable respecto a la población total comunal (p_variable).

Dividimos la frecuencia de la variable entre la población total a nivel comunal. El resultado queda en la variable p_variable

\[ p\_variable = \frac{Freq.x}{personas}\]

p_variable es la tasa de frecuencias de la variable CENSO en relación a la población de la comuna respectiva.

h_y_m_comuna_corr_01$p_variable <- h_y_m_comuna_corr_01$Freq.x  / h_y_m_comuna_corr_01$personas
saveRDS(h_y_m_comuna_corr_01, "tabla_001.rds")

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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	p_variable
10101011001	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101	156939747	0.0002440
10101011002	10101	177	2017	0.0163329	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101	790342117	0.0007198
10101021001	10101	82	2017	0.0075667	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101	1062299350	0.0003335
10101021002	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101	297486815	0.0003131
10101021003	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101	616472226	0.0002847
10101021004	10101	99	2017	0.0091354	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101	911271717	0.0004026
10101021005	10101	171	2017	0.0157793	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101	689029986	0.0006954
10101031001	10101	133	2017	0.0122728	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101	1217357970	0.0005409
10101031002	10101	115	2017	0.0106118	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101	1273791783	0.0004677
10101031003	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101	1103684147	0.0003823
10101031004	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101	767499859	0.0003579
10101031005	10101	146	2017	0.0134724	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101	1529087605	0.0005937
10101031006	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101	661081812	0.0003823
10101031007	10101	39	2017	0.0035988	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101	615934761	0.0001586
10101031008	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101	963405811	0.0002196
10101031009	10101	166	2017	0.0153179	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101	1192097121	0.0006751
10101031010	10101	92	2017	0.0084894	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101	958299894	0.0003741
10101031011	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101	740895347	0.0001993
10101031012	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101	496886289	0.0003823
10101031013	10101	73	2017	0.0067362	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101	1060149491	0.0002969
10101031014	10101	109	2017	0.0100581	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101	608678985	0.0004433
10101031015	10101	31	2017	0.0028606	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101	518653616	0.0001261
10101031016	10101	248	2017	0.0228846	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101	825277335	0.0010085
10101031017	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101	1044025544	0.0002440
10101032002	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101	34666485	0.0000081
10101032011	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101	114480021	0.0000813
10101032019	10101	32	2017	0.0029528	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101	222779196	0.0001301
10101041001	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101	1166836271	0.0002847
10101041002	10101	55	2017	0.0050752	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101	582880671	0.0002237
10101041003	10101	774	2017	0.0714220	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101	1397946172	0.0031476
10101051001	10101	246	2017	0.0227000	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101	661888009	0.0010004
10101051002	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101	514085165	0.0001342
10101051003	10101	65	2017	0.0059980	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101	879292556	0.0002643
10101051004	10101	307	2017	0.0283289	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101	976304968	0.0012485
10101061001	10101	1239	2017	0.1143305	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101	1823887096	0.0050386
10101061002	10101	329	2017	0.0303590	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101	733370839	0.0013379
10101061003	10101	160	2017	0.0147642	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101	985710604	0.0006507
10101061004	10101	110	2017	0.0101504	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101	804853669	0.0004473
10101061005	10101	312	2017	0.0287903	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101	690911113	0.0012688
10101061006	10101	401	2017	0.0370029	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101	1109864993	0.0016307
10101061007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101	219554407	0.0000488
10101061008	10101	388	2017	0.0358033	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101	566756724	0.0015779
10101061009	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101	45147051	0.0000041
10101061010	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101	414654161	0.0000244
10101062003	10101	10	2017	0.0009228	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101	42459726	0.0000407
10101062008	10101	72	2017	0.0066439	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101	156133550	0.0002928
10101062013	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101	153446225	0.0002481
10101062029	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101	12630425	0.0000041
10101062039	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101	18005074	0.0000163
10101071001	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101	632058708	0.0000813
10101071002	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101	1053162447	0.0002196
10101071003	10101	112	2017	0.0103350	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101	1337750105	0.0004555
10101071004	10101	75	2017	0.0069207	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101	925245804	0.0003050
10101071005	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101	739282953	0.0002481
10101071006	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101	1132438518	0.0002440
10101071007	10101	29	2017	0.0026760	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101	630177581	0.0001179
10101071008	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101	1472653792	0.0003131
10101071009	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101	953731443	0.0001993
10101071010	10101	48	2017	0.0044293	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101	946206935	0.0001952
10101071011	10101	43	2017	0.0039679	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101	831458181	0.0001749
10101071012	10101	47	2017	0.0043370	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101	704347735	0.0001911
10101071014	10101	26	2017	0.0023992	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101	235140888	0.0001057
10101072014	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101	267926246	0.0001464
10101072021	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101	11824228	0.0000163
10101072028	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101	38966204	0.0000163
10101072029	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101	282437798	0.0001464
10101072036	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101	31710428	0.0000041
10101072045	10101	7	2017	0.0006459	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101	30366766	0.0000285
10101082016	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101	32516626	0.0000529
10101082017	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101	10211833	0.0000203
10101082018	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101	167420312	0.0000529
10101082030	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101	47296910	0.0000122
10101082034	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101	17736341	0.0000203
10101082042	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101	67989308	0.0000488
10101082045	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101	33054091	0.0000244
10101092004	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101	26067047	0.0000244
10101092008	10101	83	2017	0.0076589	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101	202086798	0.0003375
10101092037	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101	74170154	0.0000447
10101092040	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101	136784814	0.0001342
10101092041	10101	44	2017	0.0040602	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101	452276703	0.0001789
10101092044	10101	21	2017	0.0019378	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101	142428195	0.0000854
10101102005	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101	39503669	0.0000041
10101102007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101	221435534	0.0000488
10101102035	10101	22	2017	0.0020301	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101	252608497	0.0000895
10101102037	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101	44072121	0.0000122
10101102051	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101	15317749	0.0000041
10101112025	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101	289693574	0.0000529
10101122024	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101	255833286	0.0000244
10101131001	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101	162314396	0.0003579
10101132022	10101	15	2017	0.0013841	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101	188918908	0.0000610
10101132023	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101	162045664	0.0000488
10101132027	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101	28216907	0.0000041
10101132049	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101	506023192	0.0003131
10101142009	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101	15855214	0.0000081
10101142015	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101	33322823	0.0000163
10101142027	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101	51596629	0.0000163
10101142038	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101	14242820	0.0000122
10101142046	10101	9	2017	0.0008305	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101	85188185	0.0000366
10101142047	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101	70676633	0.0000447
10101142049	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101	261476668	0.0002481

5 Coeficientes de la regresión lineal de multi_pob sobre Freq.x

Vamos a aplicar un análisis de regresión de multi_pob sobre frecuencias.

5.1 Diagrama de dispersión

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

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

5.2 Modelo lineal

linearMod <- lm( multi_pob~Freq.x , data=h_y_m_comuna_corr_01) 
summary(linearMod)

## 
## Call:
## lm(formula = multi_pob ~ Freq.x, data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.586e+09 -2.108e+08 -1.722e+08  1.511e+08  4.277e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 220065019    3808468   57.78   <2e-16 ***
## Freq.x        2157714      18952  113.85   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 381900000 on 12535 degrees of freedom
##   (134 observations deleted due to missingness)
## Multiple R-squared:  0.5084, Adjusted R-squared:  0.5083 
## F-statistic: 1.296e+04 on 1 and 12535 DF,  p-value: < 2.2e-16

5.3 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")

## `geom_smooth()` using formula 'y ~ x'

5.4 Análisis de los residuos

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

Al observar el gráfico de residuos versus los valores ajustados del modelo sospechamos que con un modelo alternativo al lineal podemos obtener un coeficiente de determinación más alto.

5.5 Modelos alternativos

5.5.1 Función cuadrática

linearMod <- lm( multi_pob~Freq.x^2 , data=h_y_m_comuna_corr_01)  
summary(linearMod)

## 
## Call:
## lm(formula = multi_pob ~ Freq.x^2, data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.586e+09 -2.108e+08 -1.722e+08  1.511e+08  4.277e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 220065019    3808468   57.78   <2e-16 ***
## Freq.x        2157714      18952  113.85   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 381900000 on 12535 degrees of freedom
##   (134 observations deleted due to missingness)
## Multiple R-squared:  0.5084, Adjusted R-squared:  0.5083 
## F-statistic: 1.296e+04 on 1 and 12535 DF,  p-value: < 2.2e-16

5.5.2 Función logarítmica

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 
## -772173065 -211415248  -13884959  230586722 3899818817 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -228361031    4781725  -47.76   <2e-16 ***
## log(Freq.x)  226402869    1382158  163.80   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 307300000 on 12535 degrees of freedom
##   (134 observations deleted due to missingness)
## Multiple R-squared:  0.6816, Adjusted R-squared:  0.6816 
## F-statistic: 2.683e+04 on 1 and 12535 DF,  p-value: < 2.2e-16

5.5.3 Función cúbica

linearMod <- lm( multi_pob~Freq.x^3 , data=h_y_m_comuna_corr_01)  
summary(linearMod)

## 
## Call:
## lm(formula = multi_pob ~ Freq.x^3, data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -2.586e+09 -2.108e+08 -1.722e+08  1.511e+08  4.277e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 220065019    3808468   57.78   <2e-16 ***
## Freq.x        2157714      18952  113.85   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 381900000 on 12535 degrees of freedom
##   (134 observations deleted due to missingness)
## Multiple R-squared:  0.5084, Adjusted R-squared:  0.5083 
## F-statistic: 1.296e+04 on 1 and 12535 DF,  p-value: < 2.2e-16

Efectivamente el modelo logarítmico nos ofrece un \(R^2\) de 0.6816, con ambos coeficientes estadísticamente significativos. Vamos a graficar su dispersión y analizar sus residuos.

5.6 El modelo log

5.6.1 Dispersión del modelo log

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

5.6.2 Análisis de los residuos del modelo log

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

5.7 Tratamiento de NAs y outliers

5.7.1 Existencia y tratamiento de NAs

Descubramos si los campos multi_pob y Freq.x poseen valores NA:

any(is.na(h_y_m_comuna_corr_01$multi_pob))

## [1] TRUE

any(is.na(h_y_m_comuna_corr_01$Freq.x))

## [1] FALSE

Reemplazaremos los valores NAs de multi_pob con sus promedios, generando una nueva columna llamada multi_pob_mean:

h_y_m_comuna_corr_01$multi_pob_mean <- ifelse(is.na(h_y_m_comuna_corr_01$multi_pob),
                                   mean(h_y_m_comuna_corr_01$multi_pob, na.rm = TRUE),
                                   h_y_m_comuna_corr_01$multi_pob                 
                                   )

Verificamos de que ya no existen NAs en multi_pob_mean:

any(is.na(h_y_m_comuna_corr_01$multi_pob_mean))

## [1] FALSE

5.7.2 Outliers

par(mfrow = c(1,2))
boxplot(h_y_m_comuna_corr_01$multi_pob_mean,  col="#FF6B00" , xlab="bottom & left box",
        main = "multi_pob_mean",
        boxwex = 0.9)
boxplot(h_y_m_comuna_corr_01$Freq.x , col="#2398AB" , xlab="bottom & left box",
        main = "Freq.x",
        boxwex = 0.9)

Eliminación de outliers de multi_pob_mean:

Q1 <- quantile(h_y_m_comuna_corr_01$multi_pob_mean, .25)
Q3 <- quantile(h_y_m_comuna_corr_01$multi_pob_mean, .75)
IQR <- IQR(h_y_m_comuna_corr_01$multi_pob_mean)
no_outliers <- subset(h_y_m_comuna_corr_01, h_y_m_comuna_corr_01$multi_pob_mean> (Q1 - 1.5*IQR) & h_y_m_comuna_corr_01$multi_pob_mean< (Q3 + 1.5*IQR))

par(mfrow = c(1,2))
boxplot(no_outliers$multi_pob_mean,  col="#FF6B00" , xlab="bottom & left box",
        main = "multi_pob_mean",
        boxwex = 0.9)
boxplot(no_outliers$Freq.x , col="#2398AB" , xlab="bottom & left box",
        main = "Freq.x",
        boxwex = 0.9)

#### Eliminación de outliers de Freq.x:

Q1 <- quantile(no_outliers$Freq.x, .25)
Q3 <- quantile(no_outliers$Freq.x, .75)
IQR <- IQR(no_outliers$Freq.x)
no_outliers_2 <- subset(no_outliers, no_outliers$Freq.x> (Q1 - 1.5*IQR) & no_outliers$Freq.x< (Q3 + 1.5*IQR))

par(mfrow = c(1,2))
boxplot(no_outliers_2$multi_pob_mean,  col="#FF6B00" , xlab="bottom & left box",
        main = "multi_pob_mean",
        boxwex = 0.9)
boxplot(no_outliers_2$Freq.x , col="#2398AB" , xlab="bottom & left box",
        main = "Freq.x",
        boxwex = 0.9)

Ejecutemos nuevamente nuestro procedimiento:

scatter.smooth(x=no_outliers_2$Freq.x, y=no_outliers_2$multi_pob_mean, lpars = list(col = "red", lwd = 2, lty = 1), main="p_variable ~ frecuencia")

linearMod <- lm( multi_pob_mean~log(Freq.x) , data=no_outliers_2)
summary(linearMod)

## 
## Call:
## lm(formula = multi_pob_mean ~ log(Freq.x), data = no_outliers_2)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -628070607 -177160477  -29234096  157817357 1191864668 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -151719468    4159009  -36.48   <2e-16 ***
## log(Freq.x)  182047668    1426690  127.60   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 254600000 on 11119 degrees of freedom
## Multiple R-squared:  0.5942, Adjusted R-squared:  0.5942 
## F-statistic: 1.628e+04 on 1 and 11119 DF,  p-value: < 2.2e-16

Concluímos que remover los outliers no tiene un impacto significativo en el modelo.

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

Obtuvimos que nuestro mejor modelo fué el logaritmico:

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 
## -772173065 -211415248  -13884959  230586722 3899818817 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -228361031    4781725  -47.76   <2e-16 ***
## log(Freq.x)  226402869    1382158  163.80   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 307300000 on 12535 degrees of freedom
##   (134 observations deleted due to missingness)
## Multiple R-squared:  0.6816, Adjusted R-squared:  0.6816 
## F-statistic: 2.683e+04 on 1 and 12535 DF,  p-value: < 2.2e-16

por lo que nuestra ecuación de regresión será:

\[multi\_pob = -228361031 + 226402869 \cdot \ln (Freq.x)\]

Esta nueva variable se llamará: est_ing

h_y_m_comuna_corr_01$est_ing <- -228361031 + 226402869*  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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	p_variable	multi_pob_mean	est_ing
10101011001	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101	156939747	0.0002440	156939747	698610325
10101011002	10101	177	2017	0.0163329	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101	790342117	0.0007198	790342117	943534119
10101021001	10101	82	2017	0.0075667	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101	1062299350	0.0003335	1062299350	769332849
10101021002	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101	297486815	0.0003131	297486815	755088979
10101021003	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101	616472226	0.0002847	616472226	733510481
10101021004	10101	99	2017	0.0091354	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101	911271717	0.0004026	911271717	811987286
10101021005	10101	171	2017	0.0157793	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101	689029986	0.0006954	689029986	935726350
10101031001	10101	133	2017	0.0122728	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101	1217357970	0.0005409	1217357970	878828042
10101031002	10101	115	2017	0.0106118	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101	1273791783	0.0004677	1273791783	845905216
10101031003	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101	1103684147	0.0003823	1103684147	800253942
10101031004	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101	767499859	0.0003579	767499859	785320869
10101031005	10101	146	2017	0.0134724	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101	1529087605	0.0005937	1529087605	899941806
10101031006	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101	661081812	0.0003823	661081812	800253942
10101031007	10101	39	2017	0.0035988	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101	615934761	0.0001586	615934761	601079836
10101031008	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101	963405811	0.0002196	963405811	674756402
10101031009	10101	166	2017	0.0153179	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101	1192097121	0.0006751	1192097121	929007671
10101031010	10101	92	2017	0.0084894	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101	958299894	0.0003741	958299894	795384876
10101031011	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101	740895347	0.0001993	740895347	652758250
10101031012	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101	496886289	0.0003823	496886289	800253942
10101031013	10101	73	2017	0.0067362	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101	1060149491	0.0002969	1060149491	743011296
10101031014	10101	109	2017	0.0100581	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101	608678985	0.0004433	608678985	833773589
10101031015	10101	31	2017	0.0028606	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101	518653616	0.0001261	518653616	549103524
10101031016	10101	248	2017	0.0228846	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101	825277335	0.0010085	825277335	1019895055
10101031017	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101	1044025544	0.0002440	1044025544	698610325
10101032002	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101	34666485	0.0000081	34666485	-71430521
10101032011	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101	114480021	0.0000813	114480021	449881350
10101032019	10101	32	2017	0.0029528	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101	222779196	0.0001301	222779196	556291521
10101041001	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101	1166836271	0.0002847	1166836271	733510481
10101041002	10101	55	2017	0.0050752	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101	582880671	0.0002237	582880671	678910699
10101041003	10101	774	2017	0.0714220	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101	1397946172	0.0031476	1397946172	1277573925
10101051001	10101	246	2017	0.0227000	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101	661888009	0.0010004	661888009	1018061824
10101051002	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101	514085165	0.0001342	514085165	563258312
10101051003	10101	65	2017	0.0059980	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101	879292556	0.0002643	879292556	716732223
10101051004	10101	307	2017	0.0283289	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101	976304968	0.0012485	976304968	1068213729
10101061001	10101	1239	2017	0.1143305	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101	1823887096	0.0050386	1823887096	1384093759
10101061002	10101	329	2017	0.0303590	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101	733370839	0.0013379	733370839	1083883073
10101061003	10101	160	2017	0.0147642	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101	985710604	0.0006507	985710604	920672881
10101061004	10101	110	2017	0.0101504	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101	804853669	0.0004473	804853669	835841209
10101061005	10101	312	2017	0.0287903	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101	690911113	0.0012688	690911113	1071871367
10101061006	10101	401	2017	0.0370029	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101	1109864993	0.0016307	1109864993	1128689033
10101061007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101	219554407	0.0000488	219554407	334228964
10101061008	10101	388	2017	0.0358033	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101	566756724	0.0015779	566756724	1121227680
10101061009	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101	45147051	0.0000041	45147051	-228361031
10101061010	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101	414654161	0.0000244	414654161	177298453
10101062003	10101	10	2017	0.0009228	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101	42459726	0.0000407	42459726	292950840
10101062008	10101	72	2017	0.0066439	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101	156133550	0.0002928	156133550	739888448
10101062013	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101	153446225	0.0002481	153446225	702352606
10101062029	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101	12630425	0.0000041	12630425	-228361031
10101062039	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101	18005074	0.0000163	18005074	85499990
10101071001	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101	632058708	0.0000813	632058708	449881350
10101071002	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101	1053162447	0.0002196	1053162447	674756402
10101071003	10101	112	2017	0.0103350	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101	1337750105	0.0004555	1337750105	839920651
10101071004	10101	75	2017	0.0069207	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101	925245804	0.0003050	925245804	749130665
10101071005	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101	739282953	0.0002481	739282953	702352606
10101071006	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101	1132438518	0.0002440	1132438518	698610325
10101071007	10101	29	2017	0.0026760	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101	630177581	0.0001179	630177581	534004406
10101071008	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101	1472653792	0.0003131	1472653792	755088979
10101071009	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101	953731443	0.0001993	953731443	652758250
10101071010	10101	48	2017	0.0044293	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101	946206935	0.0001952	946206935	648089984
10101071011	10101	43	2017	0.0039679	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101	831458181	0.0001749	831458181	623185466
10101071012	10101	47	2017	0.0043370	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101	704347735	0.0001911	704347735	643323432
10101071014	10101	26	2017	0.0023992	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101	235140888	0.0001057	235140888	509281373
10101072014	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101	267926246	0.0001464	267926246	582957938
10101072021	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101	11824228	0.0000163	11824228	85499990
10101072028	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101	38966204	0.0000163	38966204	85499990
10101072029	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101	282437798	0.0001464	282437798	582957938
10101072036	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101	31710428	0.0000041	31710428	-228361031
10101072045	10101	7	2017	0.0006459	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101	30366766	0.0000285	30366766	212198610
10101082016	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101	32516626	0.0000529	32516626	352350862
10101082017	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101	10211833	0.0000203	10211833	136020330
10101082018	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101	167420312	0.0000529	167420312	352350862
10101082030	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101	47296910	0.0000122	47296910	20367943
10101082034	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101	17736341	0.0000203	17736341	136020330
10101082042	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101	67989308	0.0000488	67989308	334228964
10101082045	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101	33054091	0.0000244	33054091	177298453
10101092004	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101	26067047	0.0000244	26067047	177298453
10101092008	10101	83	2017	0.0076589	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101	202086798	0.0003375	202086798	772077160
10101092037	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101	74170154	0.0000447	74170154	314529338
10101092040	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101	136784814	0.0001342	136784814	563258312
10101092041	10101	44	2017	0.0040602	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101	452276703	0.0001789	452276703	628390359
10101092044	10101	21	2017	0.0019378	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101	142428195	0.0000854	142428195	460927584
10101102005	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101	39503669	0.0000041	39503669	-228361031
10101102007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101	221435534	0.0000488	221435534	334228964
10101102035	10101	22	2017	0.0020301	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101	252608497	0.0000895	252608497	471459849
10101102037	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101	44072121	0.0000122	44072121	20367943
10101102051	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101	15317749	0.0000041	15317749	-228361031
10101112025	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101	289693574	0.0000529	289693574	352350862
10101122024	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101	255833286	0.0000244	255833286	177298453
10101131001	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101	162314396	0.0003579	162314396	785320869
10101132022	10101	15	2017	0.0013841	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101	188918908	0.0000610	188918908	384749304
10101132023	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101	162045664	0.0000488	162045664	334228964
10101132027	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101	28216907	0.0000041	28216907	-228361031
10101132049	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101	506023192	0.0003131	506023192	755088979
10101142009	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101	15855214	0.0000081	15855214	-71430521
10101142015	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101	33322823	0.0000163	33322823	85499990
10101142027	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101	51596629	0.0000163	51596629	85499990
10101142038	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101	14242820	0.0000122	14242820	20367943
10101142046	10101	9	2017	0.0008305	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101	85188185	0.0000366	85188185	269096917
10101142047	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101	70676633	0.0000447	70676633	314529338
10101142049	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101	261476668	0.0002481	261476668	702352606

5.9 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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	p_variable	multi_pob_mean	est_ing	ing_medio_zona
10101011001	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101	156939747	0.0002440	156939747	698610325	1196250.6
10101011002	10101	177	2017	0.0163329	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101	790342117	0.0007198	790342117	943534119	320820.8
10101021001	10101	82	2017	0.0075667	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101	1062299350	0.0003335	1062299350	769332849	194620.0
10101021002	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101	297486815	0.0003131	297486815	755088979	682103.9
10101021003	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101	616472226	0.0002847	616472226	733510481	319751.7
10101021004	10101	99	2017	0.0091354	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101	911271717	0.0004026	911271717	811987286	239453.6
10101021005	10101	171	2017	0.0157793	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101	689029986	0.0006954	689029986	935726350	364947.9
10101031001	10101	133	2017	0.0122728	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101	1217357970	0.0005409	1217357970	878828042	194001.8
10101031002	10101	115	2017	0.0106118	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101	1273791783	0.0004677	1273791783	845905216	178461.0
10101031003	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101	1103684147	0.0003823	1103684147	800253942	194851.2
10101031004	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101	767499859	0.0003579	767499859	785320869	274972.3
10101031005	10101	146	2017	0.0134724	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101	1529087605	0.0005937	1529087605	899941806	158162.0
10101031006	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101	661081812	0.0003823	661081812	800253942	325306.5
10101031007	10101	39	2017	0.0035988	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101	615934761	0.0001586	615934761	601079836	262251.2
10101031008	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101	963405811	0.0002196	963405811	674756402	188216.6
10101031009	10101	166	2017	0.0153179	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101	1192097121	0.0006751	1192097121	929007671	209424.6
10101031010	10101	92	2017	0.0084894	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101	958299894	0.0003741	958299894	795384876	223046.8
10101031011	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101	740895347	0.0001993	740895347	652758250	236764.0
10101031012	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101	496886289	0.0003823	496886289	800253942	432803.6
10101031013	10101	73	2017	0.0067362	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101	1060149491	0.0002969	1060149491	743011296	188342.5
10101031014	10101	109	2017	0.0100581	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101	608678985	0.0004433	608678985	833773589	368112.0
10101031015	10101	31	2017	0.0028606	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101	518653616	0.0001261	518653616	549103524	284509.6
10101031016	10101	248	2017	0.0228846	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101	825277335	0.0010085	825277335	1019895055	332105.2
10101031017	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101	1044025544	0.0002440	1044025544	698610325	179822.5
10101032002	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101	34666485	0.0000081	34666485	-71430521	-553725.0
10101032011	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101	114480021	0.0000813	114480021	449881350	1056059.5
10101032019	10101	32	2017	0.0029528	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101	222779196	0.0001301	222779196	556291521	671039.2
10101041001	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101	1166836271	0.0002847	1166836271	733510481	168933.8
10101041002	10101	55	2017	0.0050752	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101	582880671	0.0002237	582880671	678910699	313006.3
10101041003	10101	774	2017	0.0714220	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101	1397946172	0.0031476	1397946172	1277573925	245592.8
10101051001	10101	246	2017	0.0227000	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101	661888009	0.0010004	661888009	1018061824	413342.2
10101051002	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101	514085165	0.0001342	514085165	563258312	294437.2
10101051003	10101	65	2017	0.0059980	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101	879292556	0.0002643	879292556	716732223	219050.2
10101051004	10101	307	2017	0.0283289	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101	976304968	0.0012485	976304968	1068213729	294030.8
10101061001	10101	1239	2017	0.1143305	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101	1823887096	0.0050386	1823887096	1384093759	203933.1
10101061002	10101	329	2017	0.0303590	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101	733370839	0.0013379	733370839	1083883073	397172.3
10101061003	10101	160	2017	0.0147642	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101	985710604	0.0006507	985710604	920672881	251001.3
10101061004	10101	110	2017	0.0101504	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101	804853669	0.0004473	804853669	835841209	279078.9
10101061005	10101	312	2017	0.0287903	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101	690911113	0.0012688	690911113	1071871367	416908.3
10101061006	10101	401	2017	0.0370029	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101	1109864993	0.0016307	1109864993	1128689033	273290.3
10101061007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101	219554407	0.0000488	219554407	334228964	409093.0
10101061008	10101	388	2017	0.0358033	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101	566756724	0.0015779	566756724	1121227680	531639.5
10101061009	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101	45147051	0.0000041	45147051	-228361031	-1359291.9
10101061010	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101	414654161	0.0000244	414654161	177298453	114905.0
10101062003	10101	10	2017	0.0009228	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101	42459726	0.0000407	42459726	292950840	1854119.2
10101062008	10101	72	2017	0.0066439	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101	156133550	0.0002928	156133550	739888448	1273474.1
10101062013	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101	153446225	0.0002481	153446225	702352606	1230039.6
10101062029	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101	12630425	0.0000041	12630425	-228361031	-4858745.3
10101062039	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101	18005074	0.0000163	18005074	85499990	1276119.2
10101071001	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101	632058708	0.0000813	632058708	449881350	191276.1
10101071002	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101	1053162447	0.0002196	1053162447	674756402	172175.7
10101071003	10101	112	2017	0.0103350	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101	1337750105	0.0004555	1337750105	839920651	168726.5
10101071004	10101	75	2017	0.0069207	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101	925245804	0.0003050	925245804	749130665	217580.8
10101071005	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101	739282953	0.0002481	739282953	702352606	255308.1
10101071006	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101	1132438518	0.0002440	1132438518	698610325	165783.2
10101071007	10101	29	2017	0.0026760	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101	630177581	0.0001179	630177581	534004406	227720.4
10101071008	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101	1472653792	0.0003131	1472653792	755088979	137790.0
10101071009	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101	953731443	0.0001993	953731443	652758250	183927.4
10101071010	10101	48	2017	0.0044293	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101	946206935	0.0001952	946206935	648089984	184064.2
10101071011	10101	43	2017	0.0039679	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101	831458181	0.0001749	831458181	623185466	201417.4
10101071012	10101	47	2017	0.0043370	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101	704347735	0.0001911	704347735	643323432	245449.6
10101071014	10101	26	2017	0.0023992	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101	235140888	0.0001057	235140888	509281373	582035.9
10101072014	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101	267926246	0.0001464	267926246	582957938	584712.1
10101072021	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101	11824228	0.0000163	11824228	85499990	1943181.6
10101072028	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101	38966204	0.0000163	38966204	85499990	589655.1
10101072029	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101	282437798	0.0001464	282437798	582957938	554669.8
10101072036	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101	31710428	0.0000041	31710428	-228361031	-1935263.0
10101072045	10101	7	2017	0.0006459	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101	30366766	0.0000285	30366766	212198610	1877863.8
10101082016	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101	32516626	0.0000529	32516626	352350862	2911990.6
10101082017	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101	10211833	0.0000203	10211833	136020330	3579482.4
10101082018	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101	167420312	0.0000529	167420312	352350862	565571.2
10101082030	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101	47296910	0.0000122	47296910	20367943	115726.9
10101082034	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101	17736341	0.0000203	17736341	136020330	2060914.1
10101082042	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101	67989308	0.0000488	67989308	334228964	1321063.1
10101082045	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101	33054091	0.0000244	33054091	177298453	1441450.8
10101092004	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101	26067047	0.0000244	26067047	177298453	1827819.1
10101092008	10101	83	2017	0.0076589	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101	202086798	0.0003375	202086798	772077160	1026698.4
10101092037	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101	74170154	0.0000447	74170154	314529338	1139599.1
10101092040	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101	136784814	0.0001342	136784814	563258312	1106597.9
10101092041	10101	44	2017	0.0040602	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101	452276703	0.0001789	452276703	628390359	373375.1
10101092044	10101	21	2017	0.0019378	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101	142428195	0.0000854	142428195	460927584	869674.7
10101102005	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101	39503669	0.0000041	39503669	-228361031	-1553476.4
10101102007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101	221435534	0.0000488	221435534	334228964	405617.7
10101102035	10101	22	2017	0.0020301	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101	252608497	0.0000895	252608497	471459849	501553.0
10101102037	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101	44072121	0.0000122	44072121	20367943	124194.8
10101102051	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101	15317749	0.0000041	15317749	-228361031	-4006333.9
10101112025	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101	289693574	0.0000529	289693574	352350862	326856.1
10101122024	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101	255833286	0.0000244	255833286	177298453	186237.9
10101131001	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101	162314396	0.0003579	162314396	785320869	1300200.1
10101132022	10101	15	2017	0.0013841	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101	188918908	0.0000610	188918908	384749304	547296.3
10101132023	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101	162045664	0.0000488	162045664	334228964	554276.9
10101132027	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101	28216907	0.0000041	28216907	-228361031	-2174867.0
10101132049	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101	506023192	0.0003131	506023192	755088979	401003.2
10101142009	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101	15855214	0.0000081	15855214	-71430521	-1210686.8
10101142015	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101	33322823	0.0000163	33322823	85499990	689516.0
10101142027	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101	51596629	0.0000163	51596629	85499990	445312.4
10101142038	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101	14242820	0.0000122	14242820	20367943	384300.8
10101142046	10101	9	2017	0.0008305	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101	85188185	0.0000366	85188185	269096917	848886.2
10101142047	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101	70676633	0.0000447	70676633	314529338	1195929.0
10101142049	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101	261476668	0.0002481	261476668	702352606	721842.3

6 Coeficientes de la regresión lineal de multi_pob sobre p_variable

Donde:

\[ Y(dependiente) = ingreso\_expandido\_por\_zona (multi\_pob)\]

\[ X(independiente) = porcentaje\_de\_poblacion\_respecto\_a\_la\_zona (p\_variable) \]

6.1 Diagrama de dispersión

scatter.smooth(x=h_y_m_comuna_corr_01$p_variable, y=h_y_m_comuna_corr_01$multi_pob, main="p_variable ~ multi_pob")

6.2 Observación de outliers mediante diagrama de caja y bigotes.

Cualquier punto que se encuentre fuera del rango +/- 1.5 * IQR se considera un valor atípico donde, IQR (rango intercuartílico) se calcula como la distancia entre los valores del percentil 25 y el percentil 75 para esa variable.

par(mfrow=c(1, 2))  # divide graph area in 2 columns
boxplot(h_y_m_comuna_corr_01$p_variable, main="p_variable", sub=paste("Outlier rows: ", boxplot.stats(h_y_m_comuna_corr_01$p_variable)$out))  # box plot for 'speed'
boxplot(h_y_m_comuna_corr_01$multi_pob, main="multi_pob", sub=paste("Outlier rows: ", boxplot.stats(h_y_m_comuna_corr_01$multi_pob)$out))

6.3 Modelo lineal

linearMod <- lm( multi_pob~p_variable , data=h_y_m_comuna_corr_01)

summary(linearMod)

## 
## Call:
## lm(formula = multi_pob ~ p_variable, data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -3.216e+09 -3.150e+08 -2.725e+08  2.788e+08  4.358e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 3.179e+08  5.044e+06   63.03   <2e-16 ***
## p_variable  8.328e+10  1.928e+09   43.19   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 508200000 on 12535 degrees of freedom
##   (134 observations deleted due to missingness)
## Multiple R-squared:  0.1295, Adjusted R-squared:  0.1294 
## F-statistic:  1865 on 1 and 12535 DF,  p-value: < 2.2e-16

\[ Y = 3.179e08 + 8.328e10 \cdot X \]

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

\[ Y = 3.179e08 + 8.328e10 \cdot p\_variable \] Esta nueva variable se llamará: est_ing

h_y_m_comuna_corr_01$est_ing <- 3.179e+08 + 8.328e+10* h_y_m_comuna_corr_01$p_variable

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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	p_variable	multi_pob_mean	est_ing	ing_medio_zona
10101011001	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101	156939747	0.0002440	156939747	338220290	1196250.6
10101011002	10101	177	2017	0.0163329	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101	790342117	0.0007198	790342117	377844856	320820.8
10101021001	10101	82	2017	0.0075667	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101	1062299350	0.0003335	1062299350	345671063	194620.0
10101021002	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101	297486815	0.0003131	297486815	343977706	682103.9
10101021003	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101	616472226	0.0002847	616472226	341607005	319751.7
10101021004	10101	99	2017	0.0091354	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101	911271717	0.0004026	911271717	351428479	239453.6
10101021005	10101	171	2017	0.0157793	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101	689029986	0.0006954	689029986	375812827	364947.9
10101031001	10101	133	2017	0.0122728	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101	1217357970	0.0005409	1217357970	362943310	194001.8
10101031002	10101	115	2017	0.0106118	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101	1273791783	0.0004677	1273791783	356847223	178461.0
10101031003	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101	1103684147	0.0003823	1103684147	349735121	194851.2
10101031004	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101	767499859	0.0003579	767499859	347703092	274972.3
10101031005	10101	146	2017	0.0134724	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101	1529087605	0.0005937	1529087605	367346039	158162.0
10101031006	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101	661081812	0.0003823	661081812	349735121	325306.5
10101031007	10101	39	2017	0.0035988	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101	615934761	0.0001586	615934761	331108189	262251.2
10101031008	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101	963405811	0.0002196	963405811	336188261	188216.6
10101031009	10101	166	2017	0.0153179	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101	1192097121	0.0006751	1192097121	374119470	209424.6
10101031010	10101	92	2017	0.0084894	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101	958299894	0.0003741	958299894	349057778	223046.8
10101031011	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101	740895347	0.0001993	740895347	334494904	236764.0
10101031012	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101	496886289	0.0003823	496886289	349735121	432803.6
10101031013	10101	73	2017	0.0067362	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101	1060149491	0.0002969	1060149491	342623020	188342.5
10101031014	10101	109	2017	0.0100581	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101	608678985	0.0004433	608678985	354815194	368112.0
10101031015	10101	31	2017	0.0028606	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101	518653616	0.0001261	518653616	328398817	284509.6
10101031016	10101	248	2017	0.0228846	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101	825277335	0.0010085	825277335	401890533	332105.2
10101031017	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101	1044025544	0.0002440	1044025544	338220290	179822.5
10101032002	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101	34666485	0.0000081	34666485	318577343	-553725.0
10101032011	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101	114480021	0.0000813	114480021	324673430	1056059.5
10101032019	10101	32	2017	0.0029528	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101	222779196	0.0001301	222779196	328737488	671039.2
10101041001	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101	1166836271	0.0002847	1166836271	341607005	168933.8
10101041002	10101	55	2017	0.0050752	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101	582880671	0.0002237	582880671	336526933	313006.3
10101041003	10101	774	2017	0.0714220	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101	1397946172	0.0031476	1397946172	580031744	245592.8
10101051001	10101	246	2017	0.0227000	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101	661888009	0.0010004	661888009	401213190	413342.2
10101051002	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101	514085165	0.0001342	514085165	329076160	294437.2
10101051003	10101	65	2017	0.0059980	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101	879292556	0.0002643	879292556	339913648	219050.2
10101051004	10101	307	2017	0.0283289	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101	976304968	0.0012485	976304968	421872152	294030.8
10101061001	10101	1239	2017	0.1143305	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101	1823887096	0.0050386	1823887096	737513993	203933.1
10101061002	10101	329	2017	0.0303590	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101	733370839	0.0013379	733370839	429322925	397172.3
10101061003	10101	160	2017	0.0147642	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101	985710604	0.0006507	985710604	372087441	251001.3
10101061004	10101	110	2017	0.0101504	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101	804853669	0.0004473	804853669	355153865	279078.9
10101061005	10101	312	2017	0.0287903	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101	690911113	0.0012688	690911113	423565509	416908.3
10101061006	10101	401	2017	0.0370029	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101	1109864993	0.0016307	1109864993	453707273	273290.3
10101061007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101	219554407	0.0000488	219554407	321964058	409093.0
10101061008	10101	388	2017	0.0358033	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101	566756724	0.0015779	566756724	449304543	531639.5
10101061009	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101	45147051	0.0000041	45147051	318238672	-1359291.9
10101061010	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101	414654161	0.0000244	414654161	319932029	114905.0
10101062003	10101	10	2017	0.0009228	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101	42459726	0.0000407	42459726	321286715	1854119.2
10101062008	10101	72	2017	0.0066439	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101	156133550	0.0002928	156133550	342284348	1273474.1
10101062013	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101	153446225	0.0002481	153446225	338558962	1230039.6
10101062029	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101	12630425	0.0000041	12630425	318238672	-4858745.3
10101062039	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101	18005074	0.0000163	18005074	319254686	1276119.2
10101071001	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101	632058708	0.0000813	632058708	324673430	191276.1
10101071002	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101	1053162447	0.0002196	1053162447	336188261	172175.7
10101071003	10101	112	2017	0.0103350	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101	1337750105	0.0004555	1337750105	355831208	168726.5
10101071004	10101	75	2017	0.0069207	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101	925245804	0.0003050	925245804	343300363	217580.8
10101071005	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101	739282953	0.0002481	739282953	338558962	255308.1
10101071006	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101	1132438518	0.0002440	1132438518	338220290	165783.2
10101071007	10101	29	2017	0.0026760	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101	630177581	0.0001179	630177581	327721474	227720.4
10101071008	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101	1472653792	0.0003131	1472653792	343977706	137790.0
10101071009	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101	953731443	0.0001993	953731443	334494904	183927.4
10101071010	10101	48	2017	0.0044293	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101	946206935	0.0001952	946206935	334156232	184064.2
10101071011	10101	43	2017	0.0039679	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101	831458181	0.0001749	831458181	332462875	201417.4
10101071012	10101	47	2017	0.0043370	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101	704347735	0.0001911	704347735	333817561	245449.6
10101071014	10101	26	2017	0.0023992	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101	235140888	0.0001057	235140888	326705459	582035.9
10101072014	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101	267926246	0.0001464	267926246	330092174	584712.1
10101072021	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101	11824228	0.0000163	11824228	319254686	1943181.6
10101072028	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101	38966204	0.0000163	38966204	319254686	589655.1
10101072029	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101	282437798	0.0001464	282437798	330092174	554669.8
10101072036	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101	31710428	0.0000041	31710428	318238672	-1935263.0
10101072045	10101	7	2017	0.0006459	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101	30366766	0.0000285	30366766	320270701	1877863.8
10101082016	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101	32516626	0.0000529	32516626	322302730	2911990.6
10101082017	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101	10211833	0.0000203	10211833	319593358	3579482.4
10101082018	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101	167420312	0.0000529	167420312	322302730	565571.2
10101082030	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101	47296910	0.0000122	47296910	318916015	115726.9
10101082034	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101	17736341	0.0000203	17736341	319593358	2060914.1
10101082042	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101	67989308	0.0000488	67989308	321964058	1321063.1
10101082045	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101	33054091	0.0000244	33054091	319932029	1441450.8
10101092004	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101	26067047	0.0000244	26067047	319932029	1827819.1
10101092008	10101	83	2017	0.0076589	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101	202086798	0.0003375	202086798	346009735	1026698.4
10101092037	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101	74170154	0.0000447	74170154	321625387	1139599.1
10101092040	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101	136784814	0.0001342	136784814	329076160	1106597.9
10101092041	10101	44	2017	0.0040602	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101	452276703	0.0001789	452276703	332801546	373375.1
10101092044	10101	21	2017	0.0019378	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101	142428195	0.0000854	142428195	325012102	869674.7
10101102005	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101	39503669	0.0000041	39503669	318238672	-1553476.4
10101102007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101	221435534	0.0000488	221435534	321964058	405617.7
10101102035	10101	22	2017	0.0020301	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101	252608497	0.0000895	252608497	325350773	501553.0
10101102037	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101	44072121	0.0000122	44072121	318916015	124194.8
10101102051	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101	15317749	0.0000041	15317749	318238672	-4006333.9
10101112025	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101	289693574	0.0000529	289693574	322302730	326856.1
10101122024	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101	255833286	0.0000244	255833286	319932029	186237.9
10101131001	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101	162314396	0.0003579	162314396	347703092	1300200.1
10101132022	10101	15	2017	0.0013841	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101	188918908	0.0000610	188918908	322980073	547296.3
10101132023	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101	162045664	0.0000488	162045664	321964058	554276.9
10101132027	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101	28216907	0.0000041	28216907	318238672	-2174867.0
10101132049	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101	506023192	0.0003131	506023192	343977706	401003.2
10101142009	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101	15855214	0.0000081	15855214	318577343	-1210686.8
10101142015	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101	33322823	0.0000163	33322823	319254686	689516.0
10101142027	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101	51596629	0.0000163	51596629	319254686	445312.4
10101142038	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101	14242820	0.0000122	14242820	318916015	384300.8
10101142046	10101	9	2017	0.0008305	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101	85188185	0.0000366	85188185	320948044	848886.2
10101142047	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101	70676633	0.0000447	70676633	321625387	1195929.0
10101142049	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101	261476668	0.0002481	261476668	338558962	721842.3

6.5 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) \]

La nueva variable se llamará: ing_medio_zona

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	p	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	p_variable	multi_pob_mean	est_ing	ing_medio_zona
10101011001	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101	156939747	0.0002440	156939747	338220290	579144.33
10101011002	10101	177	2017	0.0163329	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101	790342117	0.0007198	790342117	377844856	128474.96
10101021001	10101	82	2017	0.0075667	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101	1062299350	0.0003335	1062299350	345671063	87445.25
10101021002	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101	297486815	0.0003131	297486815	343977706	310729.63
10101021003	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101	616472226	0.0002847	616472226	341607005	148913.25
10101021004	10101	99	2017	0.0091354	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101	911271717	0.0004026	911271717	351428479	103635.65
10101021005	10101	171	2017	0.0157793	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101	689029986	0.0006954	689029986	375812827	146572.87
10101031001	10101	133	2017	0.0122728	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101	1217357970	0.0005409	1217357970	362943310	80119.94
10101031002	10101	115	2017	0.0106118	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101	1273791783	0.0004677	1273791783	356847223	75284.22
10101031003	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101	1103684147	0.0003823	1103684147	349735121	85155.86
10101031004	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101	767499859	0.0003579	767499859	347703092	121744.78
10101031005	10101	146	2017	0.0134724	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101	1529087605	0.0005937	1529087605	367346039	64559.94
10101031006	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101	661081812	0.0003823	661081812	349735121	142168.75
10101031007	10101	39	2017	0.0035988	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101	615934761	0.0001586	615934761	331108189	144462.56
10101031008	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101	963405811	0.0002196	963405811	336188261	93776.36
10101031009	10101	166	2017	0.0153179	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101	1192097121	0.0006751	1192097121	374119470	84337.12
10101031010	10101	92	2017	0.0084894	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101	958299894	0.0003741	958299894	349057778	97884.96
10101031011	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101	740895347	0.0001993	740895347	334494904	121325.68
10101031012	10101	94	2017	0.0086740	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101	496886289	0.0003823	496886289	349735121	189148.25
10101031013	10101	73	2017	0.0067362	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101	1060149491	0.0002969	1060149491	342623020	86849.94
10101031014	10101	109	2017	0.0100581	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101	608678985	0.0004433	608678985	354815194	156651.30
10101031015	10101	31	2017	0.0028606	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101	518653616	0.0001261	518653616	328398817	170154.83
10101031016	10101	248	2017	0.0228846	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101	825277335	0.0010085	825277335	401890533	130866.34
10101031017	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101	1044025544	0.0002440	1044025544	338220290	87057.99
10101032002	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101	34666485	0.0000081	34666485	318577343	2469591.81
10101032011	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101	114480021	0.0000813	114480021	324673430	762144.20
10101032019	10101	32	2017	0.0029528	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101	222779196	0.0001301	222779196	328737488	396547.03
10101041001	10101	70	2017	0.0064594	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101	1166836271	0.0002847	1166836271	341607005	78675.04
10101041002	10101	55	2017	0.0050752	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101	582880671	0.0002237	582880671	336526933	155153.03
10101041003	10101	774	2017	0.0714220	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101	1397946172	0.0031476	1397946172	580031744	111501.68
10101051001	10101	246	2017	0.0227000	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101	661888009	0.0010004	661888009	401213190	162896.14
10101051002	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101	514085165	0.0001342	514085165	329076160	172020.99
10101051003	10101	65	2017	0.0059980	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101	879292556	0.0002643	879292556	339913648	103885.59
10101051004	10101	307	2017	0.0283289	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101	976304968	0.0012485	976304968	421872152	116122.25
10101061001	10101	1239	2017	0.1143305	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101	1823887096	0.0050386	1823887096	737513993	108665.68
10101061002	10101	329	2017	0.0303590	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101	733370839	0.0013379	733370839	429322925	157318.77
10101061003	10101	160	2017	0.0147642	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101	985710604	0.0006507	985710604	372087441	101441.51
10101061004	10101	110	2017	0.0101504	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101	804853669	0.0004473	804853669	355153865	118582.26
10101061005	10101	312	2017	0.0287903	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101	690911113	0.0012688	690911113	423565509	164747.38
10101061006	10101	401	2017	0.0370029	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101	1109864993	0.0016307	1109864993	453707273	109856.48
10101061007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101	219554407	0.0000488	219554407	321964058	394080.85
10101061008	10101	388	2017	0.0358033	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101	566756724	0.0015779	566756724	449304543	213041.51
10101061009	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101	45147051	0.0000041	45147051	318238672	1894277.81
10101061010	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101	414654161	0.0000244	414654161	319932029	207344.15
10101062003	10101	10	2017	0.0009228	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101	42459726	0.0000407	42459726	321286715	2033460.22
10101062008	10101	72	2017	0.0066439	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101	156133550	0.0002928	156133550	342284348	589129.69
10101062013	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101	153446225	0.0002481	153446225	338558962	592922.88
10101062029	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101	12630425	0.0000041	12630425	318238672	6771035.56
10101062039	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101	18005074	0.0000163	18005074	319254686	4764995.31
10101071001	10101	20	2017	0.0018455	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101	632058708	0.0000813	632058708	324673430	138041.42
10101071002	10101	54	2017	0.0049829	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101	1053162447	0.0002196	1053162447	336188261	85784.20
10101071003	10101	112	2017	0.0103350	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101	1337750105	0.0004555	1337750105	355831208	71480.76
10101071004	10101	75	2017	0.0069207	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101	925245804	0.0003050	925245804	343300363	99709.66
10101071005	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101	739282953	0.0002481	739282953	338558962	123067.60
10101071006	10101	60	2017	0.0055366	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101	1132438518	0.0002440	1132438518	338220290	80261.10
10101071007	10101	29	2017	0.0026760	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101	630177581	0.0001179	630177581	327721474	139753.29
10101071008	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101	1472653792	0.0003131	1472653792	343977706	62769.65
10101071009	10101	49	2017	0.0045215	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101	953731443	0.0001993	953731443	334494904	94250.47
10101071010	10101	48	2017	0.0044293	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101	946206935	0.0001952	946206935	334156232	94903.79
10101071011	10101	43	2017	0.0039679	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101	831458181	0.0001749	831458181	332462875	107454.06
10101071012	10101	47	2017	0.0043370	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101	704347735	0.0001911	704347735	333817561	127362.67
10101071014	10101	26	2017	0.0023992	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101	235140888	0.0001057	235140888	326705459	373377.67
10101072014	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101	267926246	0.0001464	267926246	330092174	331085.43
10101072021	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101	11824228	0.0000163	11824228	319254686	7255788.32
10101072028	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101	38966204	0.0000163	38966204	319254686	2201756.46
10101072029	10101	36	2017	0.0033220	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101	282437798	0.0001464	282437798	330092174	314074.38
10101072036	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101	31710428	0.0000041	31710428	318238672	2696937.89
10101072045	10101	7	2017	0.0006459	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101	30366766	0.0000285	30366766	320270701	2834253.99
10101082016	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101	32516626	0.0000529	32516626	322302730	2663658.92
10101082017	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101	10211833	0.0000203	10211833	319593358	8410351.51
10101082018	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101	167420312	0.0000529	167420312	322302730	517339.85
10101082030	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101	47296910	0.0000122	47296910	318916015	1812022.81
10101082034	10101	5	2017	0.0004614	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101	17736341	0.0000203	17736341	319593358	4842323.60
10101082042	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101	67989308	0.0000488	67989308	321964058	1272585.21
10101082045	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101	33054091	0.0000244	33054091	319932029	2601073.41
10101092004	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101	26067047	0.0000244	26067047	319932029	3298268.34
10101092008	10101	83	2017	0.0076589	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101	202086798	0.0003375	202086798	346009735	460119.33
10101092037	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101	74170154	0.0000447	74170154	321625387	1165309.37
10101092040	10101	33	2017	0.0030451	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101	136784814	0.0001342	136784814	329076160	646515.05
10101092041	10101	44	2017	0.0040602	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101	452276703	0.0001789	452276703	332801546	197743.05
10101092044	10101	21	2017	0.0019378	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101	142428195	0.0000854	142428195	325012102	613230.38
10101102005	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101	39503669	0.0000041	39503669	318238672	2164888.92
10101102007	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101	221435534	0.0000488	221435534	321964058	390733.08
10101102035	10101	22	2017	0.0020301	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101	252608497	0.0000895	252608497	325350773	346117.84
10101102037	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101	44072121	0.0000122	44072121	318916015	1944609.84
10101102051	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101	15317749	0.0000041	15317749	318238672	5583134.59
10101112025	10101	13	2017	0.0011996	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101	289693574	0.0000529	289693574	322302730	298982.12
10101122024	10101	6	2017	0.0005537	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101	255833286	0.0000244	255833286	319932029	336063.06
10101131001	10101	88	2017	0.0081203	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101	162314396	0.0003579	162314396	347703092	575667.37
10101132022	10101	15	2017	0.0013841	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101	188918908	0.0000610	188918908	322980073	459431.11
10101132023	10101	12	2017	0.0011073	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101	162045664	0.0000488	162045664	321964058	533937.08
10101132027	10101	1	2017	0.0000923	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101	28216907	0.0000041	28216907	318238672	3030844.49
10101132049	10101	77	2017	0.0071053	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101	506023192	0.0003131	506023192	343977706	182675.36
10101142009	10101	2	2017	0.0001846	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101	15855214	0.0000081	15855214	318577343	5399615.98
10101142015	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101	33322823	0.0000163	33322823	319254686	2574634.56
10101142027	10101	4	2017	0.0003691	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101	51596629	0.0000163	51596629	319254686	1662784.82
10101142038	10101	3	2017	0.0002768	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101	14242820	0.0000122	14242820	318916015	6017283.29
10101142046	10101	9	2017	0.0008305	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101	85188185	0.0000366	85188185	320948044	1012454.40
10101142047	10101	11	2017	0.0010150	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101	70676633	0.0000447	70676633	321625387	1222910.21
10101142049	10101	61	2017	0.0056289	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101	261476668	0.0002481	261476668	338558962	347953.71

7 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