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

De ingresos sobre una categoría de respuesta

DataIntelligence

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 (obtenidos de la multiplicación del ingreso promedio y los habitantes), ambos a nivel comunal.

Haremos el análisis sobre la región 10.

Ensayaremos diferentes modelos dentro del análisis de regresión cuya variable independiente será: “frecuencia de población que posee la variable Censal respecto a la zona” y la dependiente: “ingreso expandido por zona”

Lo anterior para elegir el que posea el mayor coeficiente de determinación y así contruir una tabla de valores predichos.

1 Variable CENSO

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

1.1 Lectura y filtrado de la tabla censal de viviendas

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

tabla_con_clave <- readRDS("censo_viviendas_con_clave_17.rds")
r3_100 <- tabla_con_clave[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

REGION	PROVINCIA	COMUNA	DC	AREA	ZC_LOC	ID_ZONA_LOC	NVIV	P01	P02	P03A	P03B	P03C	P04	P05	CANT_HOG	CANT_PER	REGION_15R	PROVINCIA_15R	COMUNA_15R	clave
15	152	15202	1	2	6	13225	1	3	1	5	3	5	1	4	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	2	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	3	1	1	5	3	5	2	3	1	4	15	152	15202	15202012006
15	152	15202	1	2	6	13225	4	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	5	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	6	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	7	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	8	3	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	9	3	1	5	3	5	1	4	1	4	15	152	15202	15202012006
15	152	15202	1	2	6	13225	10	1	1	5	3	4	1	4	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	11	1	2	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	12	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	13	1	1	5	3	4	1	4	1	3	15	152	15202	15202012006
15	152	15202	1	2	6	13225	14	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	15	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	16	1	1	5	3	5	1	3	1	3	15	152	15202	15202012006
15	152	15202	1	2	6	13225	17	1	1	5	3	5	2	4	1	8	15	152	15202	15202012006
15	152	15202	1	2	6	13225	18	3	1	5	3	5	1	1	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	19	3	1	5	3	5	1	3	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	20	1	1	5	3	5	2	1	1	2	15	152	15202	15202012006
15	152	15202	1	2	6	13225	21	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	22	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	23	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	24	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	25	1	1	5	3	5	1	4	1	2	15	152	15202	15202012006
15	152	15202	1	2	6	13225	26	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	27	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	28	3	1	5	3	5	1	4	1	5	15	152	15202	15202012006
15	152	15202	1	2	6	13225	29	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	30	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	31	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	32	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	33	1	1	5	3	5	3	4	1	4	15	152	15202	15202012006
15	152	15202	1	2	6	13225	34	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	35	3	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	36	1	1	5	3	5	3	2	1	9	15	152	15202	15202012006
15	152	15202	1	2	6	13225	37	3	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	38	1	1	5	3	5	99	4	1	1	15	152	15202	15202012006
15	152	15202	1	2	6	13225	39	1	1	5	3	5	1	4	1	2	15	152	15202	15202012006
15	152	15202	1	2	6	13225	40	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	41	1	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	42	3	3	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	43	3	1	5	3	5	2	1	1	5	15	152	15202	15202012006
15	152	15202	1	2	6	13225	44	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	6	13225	45	1	4	98	98	98	98	98	0	0	15	152	15202	15202012006
15	152	15202	1	2	8	13910	1	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	2	1	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	3	1	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	4	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	5	3	1	5	3	5	2	3	1	3	15	152	15202	15202012008
15	152	15202	1	2	8	13910	6	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	7	1	1	5	99	5	2	4	1	2	15	152	15202	15202012008
15	152	15202	1	2	8	13910	8	3	1	5	3	5	3	3	1	2	15	152	15202	15202012008
15	152	15202	1	2	8	13910	9	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	10	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	11	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	12	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	13	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	14	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	15	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	16	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	17	3	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	18	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	19	3	1	99	99	99	99	99	1	1	15	152	15202	15202012008
15	152	15202	1	2	8	13910	20	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	21	1	1	5	3	5	1	4	1	2	15	152	15202	15202012008
15	152	15202	1	2	8	13910	22	3	1	5	3	5	2	4	1	1	15	152	15202	15202012008
15	152	15202	1	2	8	13910	23	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	24	3	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	25	3	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	26	1	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	27	1	4	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	28	3	2	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	29	1	3	98	98	98	98	98	0	0	15	152	15202	15202012008
15	152	15202	1	2	8	13910	30	1	1	5	1	4	2	4	1	1	15	152	15202	15202012008
15	152	15202	1	2	12	8394	1	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	2	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	3	3	1	5	3	5	2	3	1	4	15	152	15202	15202012012
15	152	15202	1	2	12	8394	4	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	5	3	3	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	6	3	3	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	7	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	8	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	9	3	1	5	3	5	1	4	1	1	15	152	15202	15202012012
15	152	15202	1	2	12	8394	10	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	11	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	12	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	13	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	14	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	15	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	16	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	17	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	18	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	19	3	1	99	99	99	99	99	1	1	15	152	15202	15202012012
15	152	15202	1	2	12	8394	20	3	1	5	3	5	3	99	1	1	15	152	15202	15202012012
15	152	15202	1	2	12	8394	21	3	1	5	99	5	1	4	1	2	15	152	15202	15202012012
15	152	15202	1	2	12	8394	22	3	2	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	23	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012
15	152	15202	1	2	12	8394	24	3	1	5	3	5	1	2	1	2	15	152	15202	15202012012
15	152	15202	1	2	12	8394	25	3	4	98	98	98	98	98	0	0	15	152	15202	15202012012

Despleguemos los códigos de regiones de nuestra tabla:

regiones <- unique(tabla_con_clave$REGION)
regiones

##  [1] 15 14 13 12 11 10  9 16  8  7  6  5  4  3  2  1

Hagamos un subset con la 1:

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

1.2 Cálculo de frecuencias

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

Veamos los primeros 100 registros:

r3_100 <- d[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

zona	unlist.c.	unlist.d.	Freq	anio
10101011001	1	10101	60	2017
10101011002	1	10101	177	2017
10101021001	1	10101	82	2017
10101021002	1	10101	77	2017
10101021003	1	10101	70	2017
10101021004	1	10101	99	2017
10101021005	1	10101	171	2017
10101031001	1	10101	133	2017
10101031002	1	10101	115	2017
10101031003	1	10101	94	2017
10101031004	1	10101	88	2017
10101031005	1	10101	146	2017
10101031006	1	10101	94	2017
10101031007	1	10101	39	2017
10101031008	1	10101	54	2017
10101031009	1	10101	166	2017
10101031010	1	10101	92	2017
10101031011	1	10101	49	2017
10101031012	1	10101	94	2017
10101031013	1	10101	73	2017
10101031014	1	10101	109	2017
10101031015	1	10101	31	2017
10101031016	1	10101	248	2017
10101031017	1	10101	60	2017
10101032002	1	10101	2	2017
10101032011	1	10101	20	2017
10101032019	1	10101	32	2017
10101041001	1	10101	70	2017
10101041002	1	10101	55	2017
10101041003	1	10101	774	2017
10101051001	1	10101	246	2017
10101051002	1	10101	33	2017
10101051003	1	10101	65	2017
10101051004	1	10101	307	2017
10101061001	1	10101	1239	2017
10101061002	1	10101	329	2017
10101061003	1	10101	160	2017
10101061004	1	10101	110	2017
10101061005	1	10101	312	2017
10101061006	1	10101	401	2017
10101061007	1	10101	12	2017
10101061008	1	10101	388	2017
10101061009	1	10101	1	2017
10101061010	1	10101	6	2017
10101062003	1	10101	10	2017
10101062008	1	10101	72	2017
10101062013	1	10101	61	2017
10101062029	1	10101	1	2017
10101062039	1	10101	4	2017
10101071001	1	10101	20	2017
10101071002	1	10101	54	2017
10101071003	1	10101	112	2017
10101071004	1	10101	75	2017
10101071005	1	10101	61	2017
10101071006	1	10101	60	2017
10101071007	1	10101	29	2017
10101071008	1	10101	77	2017
10101071009	1	10101	49	2017
10101071010	1	10101	48	2017
10101071011	1	10101	43	2017
10101071012	1	10101	47	2017
10101071014	1	10101	26	2017
10101072014	1	10101	36	2017
10101072021	1	10101	4	2017
10101072028	1	10101	4	2017
10101072029	1	10101	36	2017
10101072036	1	10101	1	2017
10101072045	1	10101	7	2017
10101082016	1	10101	13	2017
10101082017	1	10101	5	2017
10101082018	1	10101	13	2017
10101082030	1	10101	3	2017
10101082034	1	10101	5	2017
10101082042	1	10101	12	2017
10101082045	1	10101	6	2017
10101092004	1	10101	6	2017
10101092008	1	10101	83	2017
10101092037	1	10101	11	2017
10101092040	1	10101	33	2017
10101092041	1	10101	44	2017
10101092044	1	10101	21	2017
10101102005	1	10101	1	2017
10101102007	1	10101	12	2017
10101102035	1	10101	22	2017
10101102037	1	10101	3	2017
10101102051	1	10101	1	2017
10101112025	1	10101	13	2017
10101122024	1	10101	6	2017
10101131001	1	10101	88	2017
10101132022	1	10101	15	2017
10101132023	1	10101	12	2017
10101132027	1	10101	1	2017
10101132049	1	10101	77	2017
10101142009	1	10101	2	2017
10101142015	1	10101	4	2017
10101142027	1	10101	4	2017
10101142038	1	10101	3	2017
10101142046	1	10101	9	2017
10101142047	1	10101	11	2017
10101142049	1	10101	61	2017

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

codigos <- d$unlist.d.
rango <- seq(1:nrow(d))
cadena <- paste("0",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(4),6)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
comuna_corr <- cbind(d,cadena)
comuna_corr <- comuna_corr[,-c(2,3),drop=FALSE]
names(comuna_corr)[4] <- "código" 
r3_100 <- comuna_corr[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

zona	Freq	anio	código
10101011001	60	2017	10101
10101011002	177	2017	10101
10101021001	82	2017	10101
10101021002	77	2017	10101
10101021003	70	2017	10101
10101021004	99	2017	10101
10101021005	171	2017	10101
10101031001	133	2017	10101
10101031002	115	2017	10101
10101031003	94	2017	10101
10101031004	88	2017	10101
10101031005	146	2017	10101
10101031006	94	2017	10101
10101031007	39	2017	10101
10101031008	54	2017	10101
10101031009	166	2017	10101
10101031010	92	2017	10101
10101031011	49	2017	10101
10101031012	94	2017	10101
10101031013	73	2017	10101
10101031014	109	2017	10101
10101031015	31	2017	10101
10101031016	248	2017	10101
10101031017	60	2017	10101
10101032002	2	2017	10101
10101032011	20	2017	10101
10101032019	32	2017	10101
10101041001	70	2017	10101
10101041002	55	2017	10101
10101041003	774	2017	10101
10101051001	246	2017	10101
10101051002	33	2017	10101
10101051003	65	2017	10101
10101051004	307	2017	10101
10101061001	1239	2017	10101
10101061002	329	2017	10101
10101061003	160	2017	10101
10101061004	110	2017	10101
10101061005	312	2017	10101
10101061006	401	2017	10101
10101061007	12	2017	10101
10101061008	388	2017	10101
10101061009	1	2017	10101
10101061010	6	2017	10101
10101062003	10	2017	10101
10101062008	72	2017	10101
10101062013	61	2017	10101
10101062029	1	2017	10101
10101062039	4	2017	10101
10101071001	20	2017	10101
10101071002	54	2017	10101
10101071003	112	2017	10101
10101071004	75	2017	10101
10101071005	61	2017	10101
10101071006	60	2017	10101
10101071007	29	2017	10101
10101071008	77	2017	10101
10101071009	49	2017	10101
10101071010	48	2017	10101
10101071011	43	2017	10101
10101071012	47	2017	10101
10101071014	26	2017	10101
10101072014	36	2017	10101
10101072021	4	2017	10101
10101072028	4	2017	10101
10101072029	36	2017	10101
10101072036	1	2017	10101
10101072045	7	2017	10101
10101082016	13	2017	10101
10101082017	5	2017	10101
10101082018	13	2017	10101
10101082030	3	2017	10101
10101082034	5	2017	10101
10101082042	12	2017	10101
10101082045	6	2017	10101
10101092004	6	2017	10101
10101092008	83	2017	10101
10101092037	11	2017	10101
10101092040	33	2017	10101
10101092041	44	2017	10101
10101092044	21	2017	10101
10101102005	1	2017	10101
10101102007	12	2017	10101
10101102035	22	2017	10101
10101102037	3	2017	10101
10101102051	1	2017	10101
10101112025	13	2017	10101
10101122024	6	2017	10101
10101131001	88	2017	10101
10101132022	15	2017	10101
10101132023	12	2017	10101
10101132027	1	2017	10101
10101132049	77	2017	10101
10101142009	2	2017	10101
10101142015	4	2017	10101
10101142027	4	2017	10101
10101142038	3	2017	10101
10101142046	9	2017	10101
10101142047	11	2017	10101
10101142049	61	2017	10101

2 Variable CASEN

2.1 Tabla de ingresos expandidos

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

h_y_m_2017_censo <- readRDS("ingresos_expandidos_17.rds")
tablamadre <- head(h_y_m_2017_censo,50)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

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

3 Unión Censo-Casen

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

comunas_con_ing_exp = merge( x = comuna_corr, y = h_y_m_2017_censo, by = "código", all.x = TRUE)
r3_100 <- comunas_con_ing_exp[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

código	zona	Freq	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos
10101	10101021005	171	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101021003	70	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101021004	99	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031004	88	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031001	133	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031002	115	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031003	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101011001	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031005	146	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101021002	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101102035	22	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101102037	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101102051	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101112025	13	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101122024	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101131001	88	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101132022	15	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101132023	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101132027	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101132049	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142009	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101011002	177	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101021001	82	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142038	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142046	9	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142047	11	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142049	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151001	65	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151002	136	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151003	25	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151004	7	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151005	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152002	9	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152006	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142015	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142027	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152033	36	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152049	9	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152901	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161001	10	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161002	49	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161003	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161004	27	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161005	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161006	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162006	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162010	5	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162020	23	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162031	46	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162032	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162033	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171001	25	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171002	125	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171003	531	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171004	521	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171005	153	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171006	85	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101172029	91	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101181001	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101181002	44	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101181003	33	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101181004	24	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101991999	27	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031008	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031009	166	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031010	92	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031011	49	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031012	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031013	73	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031014	109	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031015	31	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031016	248	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031017	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101032002	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152020	22	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152031	15	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101041001	70	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101041002	55	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101041003	774	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101051001	246	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101051002	33	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101051003	65	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101051004	307	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061001	1239	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061002	329	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061003	160	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061004	110	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061005	312	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061006	401	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061007	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061008	388	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061009	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061010	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062003	10	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062008	72	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062013	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062029	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062039	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101071001	20	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101071002	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388

4 Proporción poblacional zonal respecto a la comunal

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

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

Veamos los 100 primeros registros:

r3_100 <- prop_pob[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

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

5 Ingreso medio

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

r3_100 <- comunas_con_ing_exp[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

código	zona	Freq	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos
10101	10101021005	171	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101021003	70	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101021004	99	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031004	88	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031001	133	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031002	115	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031003	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101011001	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031005	146	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101021002	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101102035	22	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101102037	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101102051	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101112025	13	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101122024	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101131001	88	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101132022	15	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101132023	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101132027	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101132049	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142009	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101011002	177	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101021001	82	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142038	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142046	9	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142047	11	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142049	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151001	65	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151002	136	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151003	25	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151004	7	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101151005	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152002	9	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152006	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142015	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101142027	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152033	36	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152049	9	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152901	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161001	10	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161002	49	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161003	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161004	27	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161005	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101161006	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162006	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162010	5	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162020	23	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162031	46	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162032	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101162033	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171001	25	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171002	125	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171003	531	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171004	521	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171005	153	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101171006	85	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101172029	91	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101181001	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101181002	44	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101181003	33	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101181004	24	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101991999	27	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031008	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031009	166	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031010	92	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031011	49	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031012	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031013	73	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031014	109	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031015	31	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031016	248	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101031017	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101032002	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152020	22	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101152031	15	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101041001	70	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101041002	55	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101041003	774	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101051001	246	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101051002	33	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101051003	65	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101051004	307	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061001	1239	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061002	329	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061003	160	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061004	110	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061005	312	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061006	401	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061007	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061008	388	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061009	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101061010	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062003	10	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062008	72	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062013	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062029	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101062039	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101071001	20	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388
10101	10101071002	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388

6 Ingreso promedio expandido por zona (multi_pob)

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

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

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

h_y_m_comuna_corr_01 = merge( x = comunas_con_ing_exp, y = prop_pob, by = "zona", all.x = TRUE)
tablamadre <- head(h_y_m_comuna_corr_01,100)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

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

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

h_y_m_comuna_corr_01$multi_pob <- h_y_m_comuna_corr_01$promedio_i * h_y_m_comuna_corr_01$personas * h_y_m_comuna_corr_01$p_poblacional
tablamadre <- head(h_y_m_comuna_corr_01,100)
kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

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

7 Análisis de regresión

Aplicaremos un análisis de regresión donde:

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

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

7.1 Diagrama de dispersión

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

7.2 Outliers

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

7.3 Modelo lineal

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

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

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.389e+09 -1.087e+08 -9.243e+07 -4.358e+07  1.658e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 117759039    8244899   14.28   <2e-16 ***
## Freq.x        2498475     102975   24.26   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 257600000 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.3517, Adjusted R-squared:  0.3511 
## F-statistic: 588.7 on 1 and 1085 DF,  p-value: < 2.2e-16

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

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

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

8 Modelos alternativos

8.1 Modelo cuadrático

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

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

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^2), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.389e+09 -1.087e+08 -9.243e+07 -4.358e+07  1.658e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 117759039    8244899   14.28   <2e-16 ***
## Freq.x        2498475     102975   24.26   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 257600000 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.3517, Adjusted R-squared:  0.3511 
## F-statistic: 588.7 on 1 and 1085 DF,  p-value: < 2.2e-16

8.2 Modelo cúbico

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

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

## 
## Call:
## lm(formula = multi_pob ~ (Freq.x^3), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.389e+09 -1.087e+08 -9.243e+07 -4.358e+07  1.658e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 117759039    8244899   14.28   <2e-16 ***
## Freq.x        2498475     102975   24.26   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 257600000 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.3517, Adjusted R-squared:  0.3511 
## F-statistic: 588.7 on 1 and 1085 DF,  p-value: < 2.2e-16

8.3 Modelo logarítmico

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

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

## 
## Call:
## lm(formula = multi_pob ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -495055844 -134655746  -11909916  118472410 1390811534 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -107524437    9759643  -11.02   <2e-16 ***
## log(Freq.x)  158931945    4102993   38.74   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 207300000 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.5803, Adjusted R-squared:   0.58 
## F-statistic:  1500 on 1 and 1085 DF,  p-value: < 2.2e-16

8.4 Modelo exponencial

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

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

8.5 Modelo con raíz cuadrada

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

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

## 
## Call:
## lm(formula = multi_pob ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -895860544  -71441974  -23645220    9519234 1487084544 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -56553249    8372535  -6.755 2.33e-11 ***
## sqrt(Freq.x)  68238247    1655547  41.218  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 199700000 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.6103, Adjusted R-squared:  0.6099 
## F-statistic:  1699 on 1 and 1085 DF,  p-value: < 2.2e-16

8.6 Modelo raíz-raíz

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

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

## 
## Call:
## lm(formula = sqrt(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -29997.7  -2671.3   -911.9   1168.8  27057.0 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   3139.99     224.31   14.00   <2e-16 ***
## sqrt(Freq.x)  1976.30      44.35   44.56   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 5351 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.6466, Adjusted R-squared:  0.6463 
## F-statistic:  1985 on 1 and 1085 DF,  p-value: < 2.2e-16

8.7 Modelo log-raíz

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

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

## 
## Call:
## lm(formula = log(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -6.2919 -0.5610  0.0068  0.6461  2.6334 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.716459   0.043066  388.16   <2e-16 ***
## sqrt(Freq.x)  0.309655   0.008516   36.36   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.027 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.5493, Adjusted R-squared:  0.5489 
## F-statistic:  1322 on 1 and 1085 DF,  p-value: < 2.2e-16

8.8 Modelo raíz-log

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

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

## 
## Call:
## lm(formula = sqrt(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -13925.3  -3401.3   -301.6   2948.0  23698.2 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  1141.29     234.47   4.868  1.3e-06 ***
## log(Freq.x)  4890.10      98.57  49.609  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4979 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.694,  Adjusted R-squared:  0.6937 
## F-statistic:  2461 on 1 and 1085 DF,  p-value: < 2.2e-16

8.9 Modelo log-log

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

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

## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -2.98005 -0.59144  0.06025  0.60266  2.06871 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 16.27921    0.03952  411.88   <2e-16 ***
## log(Freq.x)  0.83440    0.01662   50.22   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.8393 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.6992, Adjusted R-squared:  0.6989 
## F-statistic:  2522 on 1 and 1085 DF,  p-value: < 2.2e-16

9 Modelo log-log (log-log)

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

9.1 Diagrama de dispersión sobre log-log

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

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

9.2 Modelo log-log

Observemos nuevamente el resultado sobre log-log.

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

## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -2.98005 -0.59144  0.06025  0.60266  2.06871 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 16.27921    0.03952  411.88   <2e-16 ***
## log(Freq.x)  0.83440    0.01662   50.22   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.8393 on 1085 degrees of freedom
##   (73 observations deleted due to missingness)
## Multiple R-squared:  0.6992, Adjusted R-squared:  0.6989 
## F-statistic:  2522 on 1 and 1085 DF,  p-value: < 2.2e-16

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

9.3 Análisis de residuos

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

9.4 Ecuación del modelo

\[ \hat Y = e^{16.27921+0.83440 \cdot ln{X}} \]

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

Esta nueva variable se llamará: est_ing

h_y_m_comuna_corr_01$est_ing <- exp(16.27921+0.83440 * log(h_y_m_comuna_corr_01$Freq.x)) 

r3_100 <- h_y_m_comuna_corr_01[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	est_ing
10101011001	10101	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101	156939747	357816593
10101011002	10101	177	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101	790342117	882429394
10101021001	10101	82	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101	1062299350	464362725
10101021002	10101	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101	297486815	440614651
10101021003	10101	70	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101	616472226	406931095
10101021004	10101	99	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101	911271717	543411818
10101021005	10101	171	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101	689029986	857399108
10101031001	10101	133	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101	1217357970	695204992
10101031002	10101	115	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101	1273791783	615768333
10101031003	10101	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101	1103684147	520413979
10101031004	10101	88	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101	767499859	492546701
10101031005	10101	146	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101	1529087605	751462124
10101031006	10101	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101	661081812	520413979
10101031007	10101	39	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101	615934761	249778688
10101031008	10101	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101	963405811	327703007
10101031009	10101	166	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101	1192097121	836429346
10101031010	10101	92	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101	958299894	511158558
10101031011	10101	49	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101	740895347	302183455
10101031012	10101	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101	496886289	520413979
10101031013	10101	73	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101	1060149491	421432153
10101031014	10101	109	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101	608678985	588843306
10101031015	10101	31	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101	518653616	206235427
10101031016	10101	248	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101	825277335	1169234322
10101031017	10101	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101	1044025544	357816593
10101032002	10101	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101	34666485	20948383
10101032011	10101	20	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101	114480021	143070634
10101032019	10101	32	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101	222779196	211771842
10101041001	10101	70	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101	1166836271	406931095
10101041002	10101	55	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101	582880671	332758916
10101041003	10101	774	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101	1397946172	3022292757
10101051001	10101	246	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101	661888009	1161361236
10101051002	10101	33	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101	514085165	217279676
10101051003	10101	65	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101	879292556	382530420
10101051004	10101	307	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101	976304968	1397138091
10101061001	10101	1239	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101	1823887096	4475378496
10101061002	10101	329	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101	733370839	1480196354
10101061003	10101	160	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101	985710604	811126866
10101061004	10101	110	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101	804853669	593347517
10101061005	10101	312	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101	690911113	1416099163
10101061006	10101	401	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101	1109864993	1745961799
10101061007	10101	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101	219554407	93420009
10101061008	10101	388	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101	566756724	1698604478
10101061009	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101	45147051	11748193
10101061010	10101	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101	414654161	52391457
10101062003	10101	10	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101	42459726	80236333
10101062008	10101	72	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101	156133550	416609633
10101062013	10101	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101	153446225	362785806
10101062029	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101	12630425	11748193
10101062039	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101	18005074	37353382
10101071001	10101	20	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101	632058708	143070634
10101071002	10101	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101	1053162447	327703007
10101071003	10101	112	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101	1337750105	602335681
10101071004	10101	75	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101	925245804	431044582
10101071005	10101	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101	739282953	362785806
10101071006	10101	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101	1132438518	357816593
10101071007	10101	29	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101	630177581	195072461
10101071008	10101	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101	1472653792	440614651
10101071009	10101	49	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101	953731443	302183455
10101071010	10101	48	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101	946206935	297028937
10101071011	10101	43	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101	831458181	270979946
10101071012	10101	47	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101	704347735	291856604
10101071014	10101	26	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101	235140888	178083972
10101072014	10101	36	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101	267926246	233641443
10101072021	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101	11824228	37353382
10101072028	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101	38966204	37353382
10101072029	10101	36	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101	282437798	233641443
10101072036	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101	31710428	11748193
10101072045	10101	7	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101	30366766	59582796
10101082016	10101	13	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101	32516626	99872381
10101082017	10101	5	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101	10211833	44997838
10101082018	10101	13	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101	167420312	99872381
10101082030	10101	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101	47296910	29381979
10101082034	10101	5	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101	17736341	44997838
10101082042	10101	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101	67989308	93420009
10101082045	10101	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101	33054091	52391457
10101092004	10101	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101	26067047	52391457
10101092008	10101	83	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101	202086798	469083150
10101092037	10101	11	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101	74170154	86877863
10101092040	10101	33	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101	136784814	217279676
10101092041	10101	44	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101	452276703	276228183
10101092044	10101	21	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101	142428195	149015297
10101102005	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101	39503669	11748193
10101102007	10101	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101	221435534	93420009
10101102035	10101	22	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101	252608497	154913247
10101102037	10101	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101	44072121	29381979
10101102051	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101	15317749	11748193
10101112025	10101	13	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101	289693574	99872381
10101122024	10101	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101	255833286	52391457
10101131001	10101	88	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101	162314396	492546701
10101132022	10101	15	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101	188918908	112538629
10101132023	10101	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101	162045664	93420009
10101132027	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101	28216907	11748193
10101132049	10101	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101	506023192	440614651
10101142009	10101	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101	15855214	20948383
10101142015	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101	33322823	37353382
10101142027	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101	51596629	37353382
10101142038	10101	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101	14242820	29381979
10101142046	10101	9	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101	85188185	73483701
10101142047	10101	11	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101	70676633	86877863
10101142049	10101	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101	261476668	362785806

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

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

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

r3_100 <- h_y_m_comuna_corr_01[c(1:100),]
kbl(r3_100) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")

zona	código.x	Freq.x	anio	comuna.x	promedio_i	año	comuna.y	personas	Ingresos_expandidos	Freq.y	p_poblacional	código.y	multi_pob	est_ing	ing_medio_zona
10101011001	10101	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	584	0.0023749	10101	156939747	357816593	612699.65
10101011002	10101	177	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2941	0.0119600	10101	790342117	882429394	300044.00
10101021001	10101	82	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3953	0.0160755	10101	1062299350	464362725	117470.97
10101021002	10101	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1107	0.0045018	10101	297486815	440614651	398025.88
10101021003	10101	70	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2294	0.0093289	10101	616472226	406931095	177389.32
10101021004	10101	99	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3391	0.0137900	10101	911271717	543411818	160251.20
10101021005	10101	171	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2564	0.0104269	10101	689029986	857399108	334399.03
10101031001	10101	133	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4530	0.0184220	10101	1217357970	695204992	153466.89
10101031002	10101	115	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4740	0.0192760	10101	1273791783	615768333	129908.93
10101031003	10101	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4107	0.0167018	10101	1103684147	520413979	126713.90
10101031004	10101	88	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2856	0.0116144	10101	767499859	492546701	172460.33
10101031005	10101	146	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	5690	0.0231393	10101	1529087605	751462124	132067.16
10101031006	10101	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2460	0.0100040	10101	661081812	520413979	211550.40
10101031007	10101	39	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2292	0.0093208	10101	615934761	249778688	108978.49
10101031008	10101	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3585	0.0145790	10101	963405811	327703007	91409.49
10101031009	10101	166	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4436	0.0180397	10101	1192097121	836429346	188554.86
10101031010	10101	92	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3566	0.0145017	10101	958299894	511158558	143342.28
10101031011	10101	49	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2757	0.0112118	10101	740895347	302183455	109605.90
10101031012	10101	94	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1849	0.0075193	10101	496886289	520413979	281456.99
10101031013	10101	73	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3945	0.0160430	10101	1060149491	421432153	106826.91
10101031014	10101	109	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2265	0.0092110	10101	608678985	588843306	259974.97
10101031015	10101	31	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1930	0.0078487	10101	518653616	206235427	106857.73
10101031016	10101	248	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3071	0.0124887	10101	825277335	1169234322	380734.07
10101031017	10101	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3885	0.0157990	10101	1044025544	357816593	92102.08
10101032002	10101	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	129	0.0005246	10101	34666485	20948383	162390.56
10101032011	10101	20	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	426	0.0017324	10101	114480021	143070634	335846.56
10101032019	10101	32	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	829	0.0033713	10101	222779196	211771842	255454.57
10101041001	10101	70	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4342	0.0176574	10101	1166836271	406931095	93719.74
10101041002	10101	55	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2169	0.0088206	10101	582880671	332758916	153415.82
10101041003	10101	774	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	5202	0.0211548	10101	1397946172	3022292757	580986.69
10101051001	10101	246	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2463	0.0100162	10101	661888009	1161361236	471523.04
10101051002	10101	33	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1913	0.0077795	10101	514085165	217279676	113580.59
10101051003	10101	65	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3272	0.0133061	10101	879292556	382530420	116910.28
10101051004	10101	307	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3633	0.0147742	10101	976304968	1397138091	384568.70
10101061001	10101	1239	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	6787	0.0276004	10101	1823887096	4475378496	659404.52
10101061002	10101	329	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2729	0.0110979	10101	733370839	1480196354	542395.15
10101061003	10101	160	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3668	0.0149165	10101	985710604	811126866	221136.00
10101061004	10101	110	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2995	0.0121796	10101	804853669	593347517	198112.69
10101061005	10101	312	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2571	0.0104554	10101	690911113	1416099163	550797.03
10101061006	10101	401	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4130	0.0167953	10101	1109864993	1745961799	422751.04
10101061007	10101	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	817	0.0033225	10101	219554407	93420009	114345.18
10101061008	10101	388	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2109	0.0085766	10101	566756724	1698604478	805407.53
10101061009	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	168	0.0006832	10101	45147051	11748193	69929.72
10101061010	10101	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1543	0.0062749	10101	414654161	52391457	33954.28
10101062003	10101	10	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	158	0.0006425	10101	42459726	80236333	507824.89
10101062008	10101	72	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	581	0.0023627	10101	156133550	416609633	717056.17
10101062013	10101	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	571	0.0023221	10101	153446225	362785806	635351.67
10101062029	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	47	0.0001911	10101	12630425	11748193	249961.55
10101062039	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	67	0.0002725	10101	18005074	37353382	557513.16
10101071001	10101	20	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2352	0.0095648	10101	632058708	143070634	60829.35
10101071002	10101	54	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3919	0.0159372	10101	1053162447	327703007	83619.04
10101071003	10101	112	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4978	0.0202438	10101	1337750105	602335681	120999.53
10101071004	10101	75	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3443	0.0140015	10101	925245804	431044582	125194.48
10101071005	10101	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2751	0.0111874	10101	739282953	362785806	131874.16
10101071006	10101	60	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	4214	0.0171369	10101	1132438518	357816593	84911.39
10101071007	10101	29	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2345	0.0095363	10101	630177581	195072461	83186.55
10101071008	10101	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	5480	0.0222853	10101	1472653792	440614651	80404.13
10101071009	10101	49	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3549	0.0144326	10101	953731443	302183455	85146.08
10101071010	10101	48	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3521	0.0143187	10101	946206935	297028937	84359.26
10101071011	10101	43	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	3094	0.0125822	10101	831458181	270979946	87582.40
10101071012	10101	47	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	2621	0.0106587	10101	704347735	291856604	111353.15
10101071014	10101	26	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	875	0.0035583	10101	235140888	178083972	203524.54
10101072014	10101	36	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	997	0.0040545	10101	267926246	233641443	234344.48
10101072021	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	44	0.0001789	10101	11824228	37353382	848940.50
10101072028	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	145	0.0005897	10101	38966204	37353382	257609.53
10101072029	10101	36	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1051	0.0042741	10101	282437798	233641443	222303.94
10101072036	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	118	0.0004799	10101	31710428	11748193	99560.96
10101072045	10101	7	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	113	0.0004595	10101	30366766	59582796	527281.38
10101082016	10101	13	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	121	0.0004921	10101	32516626	99872381	825391.58
10101082017	10101	5	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	38	0.0001545	10101	10211833	44997838	1184153.62
10101082018	10101	13	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	623	0.0025335	10101	167420312	99872381	160308.80
10101082030	10101	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	176	0.0007157	10101	47296910	29381979	166943.06
10101082034	10101	5	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	66	0.0002684	10101	17736341	44997838	681785.42
10101082042	10101	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	253	0.0010289	10101	67989308	93420009	369249.05
10101082045	10101	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	123	0.0005002	10101	33054091	52391457	425946.80
10101092004	10101	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	97	0.0003945	10101	26067047	52391457	540118.11
10101092008	10101	83	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	752	0.0030581	10101	202086798	469083150	623780.78
10101092037	10101	11	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	276	0.0011224	10101	74170154	86877863	314774.87
10101092040	10101	33	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	509	0.0020699	10101	136784814	217279676	426875.59
10101092041	10101	44	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1683	0.0068442	10101	452276703	276228183	164128.45
10101092044	10101	21	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	530	0.0021553	10101	142428195	149015297	281160.94
10101102005	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	147	0.0005978	10101	39503669	11748193	79919.68
10101102007	10101	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	824	0.0033509	10101	221435534	93420009	113373.80
10101102035	10101	22	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	940	0.0038227	10101	252608497	154913247	164801.33
10101102037	10101	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	164	0.0006669	10101	44072121	29381979	179158.41
10101102051	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	57	0.0002318	10101	15317749	11748193	206108.65
10101112025	10101	13	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1078	0.0043839	10101	289693574	99872381	92645.99
10101122024	10101	6	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	952	0.0038715	10101	255833286	52391457	55033.04
10101131001	10101	88	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	604	0.0024563	10101	162314396	492546701	815474.67
10101132022	10101	15	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	703	0.0028589	10101	188918908	112538629	160083.40
10101132023	10101	12	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	603	0.0024522	10101	162045664	93420009	154925.39
10101132027	10101	1	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	105	0.0004270	10101	28216907	11748193	111887.55
10101132049	10101	77	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	1883	0.0076575	10101	506023192	440614651	233996.10
10101142009	10101	2	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	59	0.0002399	10101	15855214	20948383	355057.34
10101142015	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	124	0.0005043	10101	33322823	37353382	301236.95
10101142027	10101	4	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	192	0.0007808	10101	51596629	37353382	194548.86
10101142038	10101	3	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	53	0.0002155	10101	14242820	29381979	554376.97
10101142046	10101	9	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	317	0.0012891	10101	85188185	73483701	231809.78
10101142047	10101	11	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	263	0.0010695	10101	70676633	86877863	330334.08
10101142049	10101	61	2017	Puerto Montt	268732.4	2017	10101	245902	66081845388	973	0.0039569	10101	261476668	362785806	372852.83

Guardamos:

saveRDS(h_y_m_comuna_corr_01, "casen_censo_region_10.rds")

12 Referencias

https://rpubs.com/osoramirez/316691

https://dataintelligencechile.shinyapps.io/casenfinal

Manual_de_usuario_Censo_2017_16R.pdf

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

Censo de Población y Vivienda

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

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