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

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

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
9101011001	1	9101	35	2017
9101011002	1	9101	362	2017
9101011003	1	9101	176	2017
9101011004	1	9101	21	2017
9101011005	1	9101	257	2017
9101021001	1	9101	217	2017
9101021002	1	9101	209	2017
9101021003	1	9101	68	2017
9101021004	1	9101	37	2017
9101031001	1	9101	95	2017
9101031002	1	9101	93	2017
9101031003	1	9101	18	2017
9101031004	1	9101	22	2017
9101031005	1	9101	20	2017
9101041001	1	9101	88	2017
9101041002	1	9101	49	2017
9101041003	1	9101	107	2017
9101051001	1	9101	78	2017
9101051002	1	9101	13	2017
9101051003	1	9101	32	2017
9101051004	1	9101	40	2017
9101051005	1	9101	34	2017
9101051006	1	9101	27	2017
9101051007	1	9101	36	2017
9101061001	1	9101	213	2017
9101061002	1	9101	65	2017
9101061003	1	9101	33	2017
9101061004	1	9101	154	2017
9101061005	1	9101	47	2017
9101061006	1	9101	57	2017
9101071001	1	9101	52	2017
9101071002	1	9101	144	2017
9101072007	1	9101	2	2017
9101072010	1	9101	2	2017
9101072042	1	9101	6	2017
9101072060	1	9101	10	2017
9101081001	1	9101	32	2017
9101081002	1	9101	58	2017
9101081003	1	9101	56	2017
9101081004	1	9101	47	2017
9101081005	1	9101	14	2017
9101081006	1	9101	26	2017
9101082007	1	9101	8	2017
9101091001	1	9101	1117	2017
9101091002	1	9101	81	2017
9101091003	1	9101	218	2017
9101091004	1	9101	193	2017
9101091005	1	9101	300	2017
9101101001	1	9101	142	2017
9101101002	1	9101	222	2017
9101101003	1	9101	56	2017
9101101004	1	9101	25	2017
9101101005	1	9101	75	2017
9101101006	1	9101	113	2017
9101101007	1	9101	54	2017
9101101008	1	9101	197	2017
9101101009	1	9101	49	2017
9101102004	1	9101	114	2017
9101102006	1	9101	100	2017
9101102028	1	9101	26	2017
9101102029	1	9101	5	2017
9101102034	1	9101	1	2017
9101102057	1	9101	33	2017
9101111001	1	9101	153	2017
9101111002	1	9101	60	2017
9101111003	1	9101	10	2017
9101112013	1	9101	1	2017
9101112019	1	9101	13	2017
9101112029	1	9101	2	2017
9101112044	1	9101	1	2017
9101112045	1	9101	4	2017
9101112047	1	9101	1	2017
9101112052	1	9101	4	2017
9101112054	1	9101	6	2017
9101112062	1	9101	15	2017
9101112067	1	9101	5	2017
9101112069	1	9101	2	2017
9101112070	1	9101	7	2017
9101112071	1	9101	1	2017
9101112073	1	9101	2	2017
9101121001	1	9101	106	2017
9101121002	1	9101	40	2017
9101121003	1	9101	83	2017
9101122051	1	9101	28	2017
9101122060	1	9101	9	2017
9101122061	1	9101	3	2017
9101132033	1	9101	1	2017
9101132036	1	9101	1	2017
9101141001	1	9101	79	2017
9101141002	1	9101	22	2017
9101141003	1	9101	75	2017
9101141004	1	9101	33	2017
9101142012	1	9101	28	2017
9101142022	1	9101	1	2017
9101142024	1	9101	1	2017
9101142037	1	9101	1	2017
9101142040	1	9101	1	2017
9101142042	1	9101	10	2017
9101142054	1	9101	16	2017
9101142062	1	9101	12	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
9101011001	35	2017	09101
9101011002	362	2017	09101
9101011003	176	2017	09101
9101011004	21	2017	09101
9101011005	257	2017	09101
9101021001	217	2017	09101
9101021002	209	2017	09101
9101021003	68	2017	09101
9101021004	37	2017	09101
9101031001	95	2017	09101
9101031002	93	2017	09101
9101031003	18	2017	09101
9101031004	22	2017	09101
9101031005	20	2017	09101
9101041001	88	2017	09101
9101041002	49	2017	09101
9101041003	107	2017	09101
9101051001	78	2017	09101
9101051002	13	2017	09101
9101051003	32	2017	09101
9101051004	40	2017	09101
9101051005	34	2017	09101
9101051006	27	2017	09101
9101051007	36	2017	09101
9101061001	213	2017	09101
9101061002	65	2017	09101
9101061003	33	2017	09101
9101061004	154	2017	09101
9101061005	47	2017	09101
9101061006	57	2017	09101
9101071001	52	2017	09101
9101071002	144	2017	09101
9101072007	2	2017	09101
9101072010	2	2017	09101
9101072042	6	2017	09101
9101072060	10	2017	09101
9101081001	32	2017	09101
9101081002	58	2017	09101
9101081003	56	2017	09101
9101081004	47	2017	09101
9101081005	14	2017	09101
9101081006	26	2017	09101
9101082007	8	2017	09101
9101091001	1117	2017	09101
9101091002	81	2017	09101
9101091003	218	2017	09101
9101091004	193	2017	09101
9101091005	300	2017	09101
9101101001	142	2017	09101
9101101002	222	2017	09101
9101101003	56	2017	09101
9101101004	25	2017	09101
9101101005	75	2017	09101
9101101006	113	2017	09101
9101101007	54	2017	09101
9101101008	197	2017	09101
9101101009	49	2017	09101
9101102004	114	2017	09101
9101102006	100	2017	09101
9101102028	26	2017	09101
9101102029	5	2017	09101
9101102034	1	2017	09101
9101102057	33	2017	09101
9101111001	153	2017	09101
9101111002	60	2017	09101
9101111003	10	2017	09101
9101112013	1	2017	09101
9101112019	13	2017	09101
9101112029	2	2017	09101
9101112044	1	2017	09101
9101112045	4	2017	09101
9101112047	1	2017	09101
9101112052	4	2017	09101
9101112054	6	2017	09101
9101112062	15	2017	09101
9101112067	5	2017	09101
9101112069	2	2017	09101
9101112070	7	2017	09101
9101112071	1	2017	09101
9101112073	2	2017	09101
9101121001	106	2017	09101
9101121002	40	2017	09101
9101121003	83	2017	09101
9101122051	28	2017	09101
9101122060	9	2017	09101
9101122061	3	2017	09101
9101132033	1	2017	09101
9101132036	1	2017	09101
9101141001	79	2017	09101
9101141002	22	2017	09101
9101141003	75	2017	09101
9101141004	33	2017	09101
9101142012	28	2017	09101
9101142022	1	2017	09101
9101142024	1	2017	09101
9101142037	1	2017	09101
9101142040	1	2017	09101
9101142042	10	2017	09101
9101142054	16	2017	09101
9101142062	12	2017	09101

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
09101	9101011001	35	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101011002	362	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101011003	176	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101011004	21	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101011005	257	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101021001	217	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101021002	209	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101021003	68	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101021004	37	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031001	95	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031002	93	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031003	18	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031004	22	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031005	20	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101041001	88	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101041002	49	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101041003	107	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051001	78	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051002	13	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051003	32	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051004	40	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051005	34	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051006	27	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051007	36	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061001	213	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061002	65	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061003	33	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061004	154	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061005	47	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061006	57	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101071001	52	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101071002	144	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101072007	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101072010	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101072042	6	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101072060	10	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081001	32	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081002	58	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081003	56	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081004	47	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081005	14	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081006	26	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101082007	8	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091001	1117	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091002	81	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091003	218	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091004	193	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091005	300	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101001	142	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101002	222	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101003	56	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101004	25	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101005	75	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101006	113	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101007	54	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101008	197	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101009	49	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102004	114	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102006	100	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102028	26	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102029	5	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102034	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102057	33	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101111001	153	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101111002	60	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101111003	10	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112013	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112019	13	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112029	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112044	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112045	4	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112047	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112052	4	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112054	6	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112062	15	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112067	5	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112069	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112070	7	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112071	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112073	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101121001	106	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101121002	40	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101121003	83	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101122051	28	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101122060	9	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101122061	3	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101132033	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101132036	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101141001	79	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101141002	22	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101141003	75	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101141004	33	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142012	28	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142022	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142024	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142037	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142040	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142042	10	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142054	16	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142062	12	2017	Temuco	274649.1	2017	9101	282415	77565023896

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
09101	9101011001	35	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101011002	362	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101011003	176	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101011004	21	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101011005	257	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101021001	217	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101021002	209	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101021003	68	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101021004	37	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031001	95	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031002	93	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031003	18	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031004	22	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101031005	20	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101041001	88	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101041002	49	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101041003	107	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051001	78	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051002	13	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051003	32	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051004	40	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051005	34	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051006	27	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101051007	36	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061001	213	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061002	65	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061003	33	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061004	154	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061005	47	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101061006	57	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101071001	52	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101071002	144	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101072007	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101072010	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101072042	6	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101072060	10	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081001	32	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081002	58	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081003	56	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081004	47	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081005	14	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101081006	26	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101082007	8	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091001	1117	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091002	81	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091003	218	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091004	193	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101091005	300	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101001	142	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101002	222	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101003	56	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101004	25	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101005	75	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101006	113	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101007	54	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101008	197	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101101009	49	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102004	114	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102006	100	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102028	26	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102029	5	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102034	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101102057	33	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101111001	153	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101111002	60	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101111003	10	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112013	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112019	13	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112029	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112044	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112045	4	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112047	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112052	4	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112054	6	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112062	15	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112067	5	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112069	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112070	7	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112071	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101112073	2	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101121001	106	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101121002	40	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101121003	83	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101122051	28	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101122060	9	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101122061	3	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101132033	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101132036	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101141001	79	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101141002	22	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101141003	75	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101141004	33	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142012	28	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142022	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142024	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142037	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142040	1	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142042	10	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142054	16	2017	Temuco	274649.1	2017	9101	282415	77565023896
09101	9101142062	12	2017	Temuco	274649.1	2017	9101	282415	77565023896

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
9101011001	09101	35	2017	Temuco	274649.1	2017	9101	282415	77565023896	2220	0.0078608	09101
9101011002	09101	362	2017	Temuco	274649.1	2017	9101	282415	77565023896	3909	0.0138413	09101
9101011003	09101	176	2017	Temuco	274649.1	2017	9101	282415	77565023896	2067	0.0073190	09101
9101011004	09101	21	2017	Temuco	274649.1	2017	9101	282415	77565023896	662	0.0023441	09101
9101011005	09101	257	2017	Temuco	274649.1	2017	9101	282415	77565023896	2592	0.0091780	09101
9101021001	09101	217	2017	Temuco	274649.1	2017	9101	282415	77565023896	3196	0.0113167	09101
9101021002	09101	209	2017	Temuco	274649.1	2017	9101	282415	77565023896	2969	0.0105129	09101
9101021003	09101	68	2017	Temuco	274649.1	2017	9101	282415	77565023896	1480	0.0052405	09101
9101021004	09101	37	2017	Temuco	274649.1	2017	9101	282415	77565023896	1826	0.0064657	09101
9101031001	09101	95	2017	Temuco	274649.1	2017	9101	282415	77565023896	2594	0.0091851	09101
9101031002	09101	93	2017	Temuco	274649.1	2017	9101	282415	77565023896	4200	0.0148717	09101
9101031003	09101	18	2017	Temuco	274649.1	2017	9101	282415	77565023896	2208	0.0078183	09101
9101031004	09101	22	2017	Temuco	274649.1	2017	9101	282415	77565023896	2390	0.0084627	09101
9101031005	09101	20	2017	Temuco	274649.1	2017	9101	282415	77565023896	2992	0.0105943	09101
9101041001	09101	88	2017	Temuco	274649.1	2017	9101	282415	77565023896	4994	0.0176832	09101
9101041002	09101	49	2017	Temuco	274649.1	2017	9101	282415	77565023896	4641	0.0164333	09101
9101041003	09101	107	2017	Temuco	274649.1	2017	9101	282415	77565023896	4375	0.0154914	09101
9101051001	09101	78	2017	Temuco	274649.1	2017	9101	282415	77565023896	3142	0.0111255	09101
9101051002	09101	13	2017	Temuco	274649.1	2017	9101	282415	77565023896	2998	0.0106156	09101
9101051003	09101	32	2017	Temuco	274649.1	2017	9101	282415	77565023896	3078	0.0108989	09101
9101051004	09101	40	2017	Temuco	274649.1	2017	9101	282415	77565023896	3587	0.0127012	09101
9101051005	09101	34	2017	Temuco	274649.1	2017	9101	282415	77565023896	2751	0.0097410	09101
9101051006	09101	27	2017	Temuco	274649.1	2017	9101	282415	77565023896	2499	0.0088487	09101
9101051007	09101	36	2017	Temuco	274649.1	2017	9101	282415	77565023896	2499	0.0088487	09101
9101061001	09101	213	2017	Temuco	274649.1	2017	9101	282415	77565023896	3146	0.0111396	09101
9101061002	09101	65	2017	Temuco	274649.1	2017	9101	282415	77565023896	2322	0.0082219	09101
9101061003	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	2821	0.0099888	09101
9101061004	09101	154	2017	Temuco	274649.1	2017	9101	282415	77565023896	5347	0.0189331	09101
9101061005	09101	47	2017	Temuco	274649.1	2017	9101	282415	77565023896	2768	0.0098012	09101
9101061006	09101	57	2017	Temuco	274649.1	2017	9101	282415	77565023896	2682	0.0094967	09101
9101071001	09101	52	2017	Temuco	274649.1	2017	9101	282415	77565023896	1795	0.0063559	09101
9101071002	09101	144	2017	Temuco	274649.1	2017	9101	282415	77565023896	3047	0.0107891	09101
9101072007	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	60	0.0002125	09101
9101072010	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	43	0.0001523	09101
9101072042	09101	6	2017	Temuco	274649.1	2017	9101	282415	77565023896	59	0.0002089	09101
9101072060	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	61	0.0002160	09101
9101081001	09101	32	2017	Temuco	274649.1	2017	9101	282415	77565023896	3402	0.0120461	09101
9101081002	09101	58	2017	Temuco	274649.1	2017	9101	282415	77565023896	3965	0.0140396	09101
9101081003	09101	56	2017	Temuco	274649.1	2017	9101	282415	77565023896	3304	0.0116991	09101
9101081004	09101	47	2017	Temuco	274649.1	2017	9101	282415	77565023896	2161	0.0076519	09101
9101081005	09101	14	2017	Temuco	274649.1	2017	9101	282415	77565023896	2222	0.0078679	09101
9101081006	09101	26	2017	Temuco	274649.1	2017	9101	282415	77565023896	2903	0.0102792	09101
9101082007	09101	8	2017	Temuco	274649.1	2017	9101	282415	77565023896	79	0.0002797	09101
9101091001	09101	1117	2017	Temuco	274649.1	2017	9101	282415	77565023896	5474	0.0193828	09101
9101091002	09101	81	2017	Temuco	274649.1	2017	9101	282415	77565023896	1649	0.0058389	09101
9101091003	09101	218	2017	Temuco	274649.1	2017	9101	282415	77565023896	3045	0.0107820	09101
9101091004	09101	193	2017	Temuco	274649.1	2017	9101	282415	77565023896	2668	0.0094471	09101
9101091005	09101	300	2017	Temuco	274649.1	2017	9101	282415	77565023896	1882	0.0066640	09101
9101101001	09101	142	2017	Temuco	274649.1	2017	9101	282415	77565023896	5434	0.0192412	09101
9101101002	09101	222	2017	Temuco	274649.1	2017	9101	282415	77565023896	1589	0.0056265	09101
9101101003	09101	56	2017	Temuco	274649.1	2017	9101	282415	77565023896	326	0.0011543	09101
9101101004	09101	25	2017	Temuco	274649.1	2017	9101	282415	77565023896	3639	0.0128853	09101
9101101005	09101	75	2017	Temuco	274649.1	2017	9101	282415	77565023896	5033	0.0178213	09101
9101101006	09101	113	2017	Temuco	274649.1	2017	9101	282415	77565023896	5891	0.0208594	09101
9101101007	09101	54	2017	Temuco	274649.1	2017	9101	282415	77565023896	5050	0.0178815	09101
9101101008	09101	197	2017	Temuco	274649.1	2017	9101	282415	77565023896	6739	0.0238620	09101
9101101009	09101	49	2017	Temuco	274649.1	2017	9101	282415	77565023896	4395	0.0155622	09101
9101102004	09101	114	2017	Temuco	274649.1	2017	9101	282415	77565023896	3065	0.0108528	09101
9101102006	09101	100	2017	Temuco	274649.1	2017	9101	282415	77565023896	726	0.0025707	09101
9101102028	09101	26	2017	Temuco	274649.1	2017	9101	282415	77565023896	843	0.0029850	09101
9101102029	09101	5	2017	Temuco	274649.1	2017	9101	282415	77565023896	496	0.0017563	09101
9101102034	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	172	0.0006090	09101
9101102057	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	1762	0.0062390	09101
9101111001	09101	153	2017	Temuco	274649.1	2017	9101	282415	77565023896	5176	0.0183276	09101
9101111002	09101	60	2017	Temuco	274649.1	2017	9101	282415	77565023896	4664	0.0165147	09101
9101111003	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	1407	0.0049820	09101
9101112013	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	214	0.0007578	09101
9101112019	09101	13	2017	Temuco	274649.1	2017	9101	282415	77565023896	142	0.0005028	09101
9101112029	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	181	0.0006409	09101
9101112044	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	46	0.0001629	09101
9101112045	09101	4	2017	Temuco	274649.1	2017	9101	282415	77565023896	292	0.0010339	09101
9101112047	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	124	0.0004391	09101
9101112052	09101	4	2017	Temuco	274649.1	2017	9101	282415	77565023896	100	0.0003541	09101
9101112054	09101	6	2017	Temuco	274649.1	2017	9101	282415	77565023896	443	0.0015686	09101
9101112062	09101	15	2017	Temuco	274649.1	2017	9101	282415	77565023896	167	0.0005913	09101
9101112067	09101	5	2017	Temuco	274649.1	2017	9101	282415	77565023896	514	0.0018200	09101
9101112069	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	129	0.0004568	09101
9101112070	09101	7	2017	Temuco	274649.1	2017	9101	282415	77565023896	325	0.0011508	09101
9101112071	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	230	0.0008144	09101
9101112073	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	132	0.0004674	09101
9101121001	09101	106	2017	Temuco	274649.1	2017	9101	282415	77565023896	2796	0.0099003	09101
9101121002	09101	40	2017	Temuco	274649.1	2017	9101	282415	77565023896	2711	0.0095993	09101
9101121003	09101	83	2017	Temuco	274649.1	2017	9101	282415	77565023896	3947	0.0139759	09101
9101122051	09101	28	2017	Temuco	274649.1	2017	9101	282415	77565023896	357	0.0012641	09101
9101122060	09101	9	2017	Temuco	274649.1	2017	9101	282415	77565023896	80	0.0002833	09101
9101122061	09101	3	2017	Temuco	274649.1	2017	9101	282415	77565023896	21	0.0000744	09101
9101132033	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	36	0.0001275	09101
9101132036	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	35	0.0001239	09101
9101141001	09101	79	2017	Temuco	274649.1	2017	9101	282415	77565023896	2408	0.0085265	09101
9101141002	09101	22	2017	Temuco	274649.1	2017	9101	282415	77565023896	3217	0.0113910	09101
9101141003	09101	75	2017	Temuco	274649.1	2017	9101	282415	77565023896	4707	0.0166670	09101
9101141004	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	2780	0.0098437	09101
9101142012	09101	28	2017	Temuco	274649.1	2017	9101	282415	77565023896	136	0.0004816	09101
9101142022	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	90	0.0003187	09101
9101142024	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	57	0.0002018	09101
9101142037	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	48	0.0001700	09101
9101142040	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	218	0.0007719	09101
9101142042	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	426	0.0015084	09101
9101142054	09101	16	2017	Temuco	274649.1	2017	9101	282415	77565023896	1860	0.0065861	09101
9101142062	09101	12	2017	Temuco	274649.1	2017	9101	282415	77565023896	113	0.0004001	09101

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
9101011001	09101	35	2017	Temuco	274649.1	2017	9101	282415	77565023896	2220	0.0078608	09101	609720989
9101011002	09101	362	2017	Temuco	274649.1	2017	9101	282415	77565023896	3909	0.0138413	09101	1073603309
9101011003	09101	176	2017	Temuco	274649.1	2017	9101	282415	77565023896	2067	0.0073190	09101	567699677
9101011004	09101	21	2017	Temuco	274649.1	2017	9101	282415	77565023896	662	0.0023441	09101	181817700
9101011005	09101	257	2017	Temuco	274649.1	2017	9101	282415	77565023896	2592	0.0091780	09101	711890452
9101021001	09101	217	2017	Temuco	274649.1	2017	9101	282415	77565023896	3196	0.0113167	09101	877778505
9101021002	09101	209	2017	Temuco	274649.1	2017	9101	282415	77565023896	2969	0.0105129	09101	815433160
9101021003	09101	68	2017	Temuco	274649.1	2017	9101	282415	77565023896	1480	0.0052405	09101	406480659
9101021004	09101	37	2017	Temuco	274649.1	2017	9101	282415	77565023896	1826	0.0064657	09101	501509246
9101031001	09101	95	2017	Temuco	274649.1	2017	9101	282415	77565023896	2594	0.0091851	09101	712439750
9101031002	09101	93	2017	Temuco	274649.1	2017	9101	282415	77565023896	4200	0.0148717	09101	1153526195
9101031003	09101	18	2017	Temuco	274649.1	2017	9101	282415	77565023896	2208	0.0078183	09101	606425200
9101031004	09101	22	2017	Temuco	274649.1	2017	9101	282415	77565023896	2390	0.0084627	09101	656411335
9101031005	09101	20	2017	Temuco	274649.1	2017	9101	282415	77565023896	2992	0.0105943	09101	821750089
9101041001	09101	88	2017	Temuco	274649.1	2017	9101	282415	77565023896	4994	0.0176832	09101	1371597576
9101041002	09101	49	2017	Temuco	274649.1	2017	9101	282415	77565023896	4641	0.0164333	09101	1274646445
9101041003	09101	107	2017	Temuco	274649.1	2017	9101	282415	77565023896	4375	0.0154914	09101	1201589786
9101051001	09101	78	2017	Temuco	274649.1	2017	9101	282415	77565023896	3142	0.0111255	09101	862947454
9101051002	09101	13	2017	Temuco	274649.1	2017	9101	282415	77565023896	2998	0.0106156	09101	823397984
9101051003	09101	32	2017	Temuco	274649.1	2017	9101	282415	77565023896	3078	0.0108989	09101	845369911
9101051004	09101	40	2017	Temuco	274649.1	2017	9101	282415	77565023896	3587	0.0127012	09101	985166300
9101051005	09101	34	2017	Temuco	274649.1	2017	9101	282415	77565023896	2751	0.0097410	09101	755559658
9101051006	09101	27	2017	Temuco	274649.1	2017	9101	282415	77565023896	2499	0.0088487	09101	686348086
9101051007	09101	36	2017	Temuco	274649.1	2017	9101	282415	77565023896	2499	0.0088487	09101	686348086
9101061001	09101	213	2017	Temuco	274649.1	2017	9101	282415	77565023896	3146	0.0111396	09101	864046050
9101061002	09101	65	2017	Temuco	274649.1	2017	9101	282415	77565023896	2322	0.0082219	09101	637735196
9101061003	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	2821	0.0099888	09101	774785094
9101061004	09101	154	2017	Temuco	274649.1	2017	9101	282415	77565023896	5347	0.0189331	09101	1468548706
9101061005	09101	47	2017	Temuco	274649.1	2017	9101	282415	77565023896	2768	0.0098012	09101	760228692
9101061006	09101	57	2017	Temuco	274649.1	2017	9101	282415	77565023896	2682	0.0094967	09101	736608870
9101071001	09101	52	2017	Temuco	274649.1	2017	9101	282415	77565023896	1795	0.0063559	09101	492995124
9101071002	09101	144	2017	Temuco	274649.1	2017	9101	282415	77565023896	3047	0.0107891	09101	836855790
9101072007	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	60	0.0002125	09101	16478946
9101072010	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	43	0.0001523	09101	11809911
9101072042	09101	6	2017	Temuco	274649.1	2017	9101	282415	77565023896	59	0.0002089	09101	16204297
9101072060	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	61	0.0002160	09101	16753595
9101081001	09101	32	2017	Temuco	274649.1	2017	9101	282415	77565023896	3402	0.0120461	09101	934356218
9101081002	09101	58	2017	Temuco	274649.1	2017	9101	282415	77565023896	3965	0.0140396	09101	1088983658
9101081003	09101	56	2017	Temuco	274649.1	2017	9101	282415	77565023896	3304	0.0116991	09101	907440607
9101081004	09101	47	2017	Temuco	274649.1	2017	9101	282415	77565023896	2161	0.0076519	09101	593516692
9101081005	09101	14	2017	Temuco	274649.1	2017	9101	282415	77565023896	2222	0.0078679	09101	610270287
9101081006	09101	26	2017	Temuco	274649.1	2017	9101	282415	77565023896	2903	0.0102792	09101	797306320
9101082007	09101	8	2017	Temuco	274649.1	2017	9101	282415	77565023896	79	0.0002797	09101	21697278
9101091001	09101	1117	2017	Temuco	274649.1	2017	9101	282415	77565023896	5474	0.0193828	09101	1503429141
9101091002	09101	81	2017	Temuco	274649.1	2017	9101	282415	77565023896	1649	0.0058389	09101	452896356
9101091003	09101	218	2017	Temuco	274649.1	2017	9101	282415	77565023896	3045	0.0107820	09101	836306491
9101091004	09101	193	2017	Temuco	274649.1	2017	9101	282415	77565023896	2668	0.0094471	09101	732763783
9101091005	09101	300	2017	Temuco	274649.1	2017	9101	282415	77565023896	1882	0.0066640	09101	516889595
9101101001	09101	142	2017	Temuco	274649.1	2017	9101	282415	77565023896	5434	0.0192412	09101	1492443177
9101101002	09101	222	2017	Temuco	274649.1	2017	9101	282415	77565023896	1589	0.0056265	09101	436417410
9101101003	09101	56	2017	Temuco	274649.1	2017	9101	282415	77565023896	326	0.0011543	09101	89535605
9101101004	09101	25	2017	Temuco	274649.1	2017	9101	282415	77565023896	3639	0.0128853	09101	999448053
9101101005	09101	75	2017	Temuco	274649.1	2017	9101	282415	77565023896	5033	0.0178213	09101	1382308890
9101101006	09101	113	2017	Temuco	274649.1	2017	9101	282415	77565023896	5891	0.0208594	09101	1617957813
9101101007	09101	54	2017	Temuco	274649.1	2017	9101	282415	77565023896	5050	0.0178815	09101	1386977925
9101101008	09101	197	2017	Temuco	274649.1	2017	9101	282415	77565023896	6739	0.0238620	09101	1850860245
9101101009	09101	49	2017	Temuco	274649.1	2017	9101	282415	77565023896	4395	0.0155622	09101	1207082768
9101102004	09101	114	2017	Temuco	274649.1	2017	9101	282415	77565023896	3065	0.0108528	09101	841799473
9101102006	09101	100	2017	Temuco	274649.1	2017	9101	282415	77565023896	726	0.0025707	09101	199395242
9101102028	09101	26	2017	Temuco	274649.1	2017	9101	282415	77565023896	843	0.0029850	09101	231529186
9101102029	09101	5	2017	Temuco	274649.1	2017	9101	282415	77565023896	496	0.0017563	09101	136225951
9101102034	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	172	0.0006090	09101	47239644
9101102057	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	1762	0.0062390	09101	483931704
9101111001	09101	153	2017	Temuco	274649.1	2017	9101	282415	77565023896	5176	0.0183276	09101	1421583711
9101111002	09101	60	2017	Temuco	274649.1	2017	9101	282415	77565023896	4664	0.0165147	09101	1280963375
9101111003	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	1407	0.0049820	09101	386431275
9101112013	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	214	0.0007578	09101	58774906
9101112019	09101	13	2017	Temuco	274649.1	2017	9101	282415	77565023896	142	0.0005028	09101	39000171
9101112029	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	181	0.0006409	09101	49711486
9101112044	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	46	0.0001629	09101	12633858
9101112045	09101	4	2017	Temuco	274649.1	2017	9101	282415	77565023896	292	0.0010339	09101	80197535
9101112047	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	124	0.0004391	09101	34056488
9101112052	09101	4	2017	Temuco	274649.1	2017	9101	282415	77565023896	100	0.0003541	09101	27464909
9101112054	09101	6	2017	Temuco	274649.1	2017	9101	282415	77565023896	443	0.0015686	09101	121669549
9101112062	09101	15	2017	Temuco	274649.1	2017	9101	282415	77565023896	167	0.0005913	09101	45866399
9101112067	09101	5	2017	Temuco	274649.1	2017	9101	282415	77565023896	514	0.0018200	09101	141169634
9101112069	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	129	0.0004568	09101	35429733
9101112070	09101	7	2017	Temuco	274649.1	2017	9101	282415	77565023896	325	0.0011508	09101	89260956
9101112071	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	230	0.0008144	09101	63169292
9101112073	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	132	0.0004674	09101	36253680
9101121001	09101	106	2017	Temuco	274649.1	2017	9101	282415	77565023896	2796	0.0099003	09101	767918867
9101121002	09101	40	2017	Temuco	274649.1	2017	9101	282415	77565023896	2711	0.0095993	09101	744573694
9101121003	09101	83	2017	Temuco	274649.1	2017	9101	282415	77565023896	3947	0.0139759	09101	1084039974
9101122051	09101	28	2017	Temuco	274649.1	2017	9101	282415	77565023896	357	0.0012641	09101	98049727
9101122060	09101	9	2017	Temuco	274649.1	2017	9101	282415	77565023896	80	0.0002833	09101	21971928
9101122061	09101	3	2017	Temuco	274649.1	2017	9101	282415	77565023896	21	0.0000744	09101	5767631
9101132033	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	36	0.0001275	09101	9887367
9101132036	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	35	0.0001239	09101	9612718
9101141001	09101	79	2017	Temuco	274649.1	2017	9101	282415	77565023896	2408	0.0085265	09101	661355018
9101141002	09101	22	2017	Temuco	274649.1	2017	9101	282415	77565023896	3217	0.0113910	09101	883546136
9101141003	09101	75	2017	Temuco	274649.1	2017	9101	282415	77565023896	4707	0.0166670	09101	1292773286
9101141004	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	2780	0.0098437	09101	763524481
9101142012	09101	28	2017	Temuco	274649.1	2017	9101	282415	77565023896	136	0.0004816	09101	37352277
9101142022	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	90	0.0003187	09101	24718418
9101142024	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	57	0.0002018	09101	15654998
9101142037	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	48	0.0001700	09101	13183157
9101142040	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	218	0.0007719	09101	59873503
9101142042	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	426	0.0015084	09101	117000514
9101142054	09101	16	2017	Temuco	274649.1	2017	9101	282415	77565023896	1860	0.0065861	09101	510847315
9101142062	09101	12	2017	Temuco	274649.1	2017	9101	282415	77565023896	113	0.0004001	09101	31035348

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.985e+09 -1.029e+08 -8.153e+07 -2.917e+07  1.181e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 110117331    6853936   16.07   <2e-16 ***
## Freq.x        2893602     110432   26.20   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 236800000 on 1309 degrees of freedom
## Multiple R-squared:  0.344,  Adjusted R-squared:  0.3435 
## F-statistic: 686.6 on 1 and 1309 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.985e+09 -1.029e+08 -8.153e+07 -2.917e+07  1.181e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 110117331    6853936   16.07   <2e-16 ***
## Freq.x        2893602     110432   26.20   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 236800000 on 1309 degrees of freedom
## Multiple R-squared:  0.344,  Adjusted R-squared:  0.3435 
## F-statistic: 686.6 on 1 and 1309 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.985e+09 -1.029e+08 -8.153e+07 -2.917e+07  1.181e+09 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 110117331    6853936   16.07   <2e-16 ***
## Freq.x        2893602     110432   26.20   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 236800000 on 1309 degrees of freedom
## Multiple R-squared:  0.344,  Adjusted R-squared:  0.3435 
## F-statistic: 686.6 on 1 and 1309 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 
## -495173249 -109907047  -11403865   87820034 1106847618 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -73754641    7388407  -9.982   <2e-16 ***
## log(Freq.x) 154786245    3483303  44.437   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 184600000 on 1309 degrees of freedom
## Multiple R-squared:  0.6014, Adjusted R-squared:  0.601 
## F-statistic:  1975 on 1 and 1309 DF,  p-value: < 2.2e-16

8.4 Modelo exponencial

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

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

8.5 Modelo con raíz cuadrada

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

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

## 
## Call:
## lm(formula = multi_pob ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -1.170e+09 -5.933e+07 -1.285e+07  1.603e+07  8.952e+08 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  -59153488    6687072  -8.846   <2e-16 ***
## sqrt(Freq.x)  74973800    1551406  48.326   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 175200000 on 1309 degrees of freedom
## Multiple R-squared:  0.6408, Adjusted R-squared:  0.6405 
## F-statistic:  2335 on 1 and 1309 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 
## -40287  -2799   -927   1739  19270 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   2971.44     192.03   15.47   <2e-16 ***
## sqrt(Freq.x)  2209.58      44.55   49.60   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 5032 on 1309 degrees of freedom
## Multiple R-squared:  0.6527, Adjusted R-squared:  0.6524 
## F-statistic:  2460 on 1 and 1309 DF,  p-value: < 2.2e-16

8.7 Modelo log-raíz

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

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

## 
## Call:
## lm(formula = log(multi_pob) ~ sqrt(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -7.4244 -0.7230  0.1013  0.7612  2.6227 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  16.618438   0.042050  395.21   <2e-16 ***
## sqrt(Freq.x)  0.357163   0.009756   36.61   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.102 on 1309 degrees of freedom
## Multiple R-squared:  0.5059, Adjusted R-squared:  0.5055 
## F-statistic:  1340 on 1 and 1309 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 
## -13893.2  -3155.4     37.8   2595.8  15754.5 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  2072.04     188.02   11.02   <2e-16 ***
## log(Freq.x)  4867.31      88.64   54.91   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4697 on 1309 degrees of freedom
## Multiple R-squared:  0.6973, Adjusted R-squared:  0.697 
## F-statistic:  3015 on 1 and 1309 DF,  p-value: < 2.2e-16

8.9 Modelo log-log

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

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

## 
## Call:
## lm(formula = log(multi_pob) ~ log(Freq.x), data = h_y_m_comuna_corr_01)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -3.03877 -0.62561  0.05744  0.68774  2.52123 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 16.37057    0.03785  432.55   <2e-16 ***
## log(Freq.x)  0.85353    0.01784   47.84   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9456 on 1309 degrees of freedom
## Multiple R-squared:  0.6361, Adjusted R-squared:  0.6358 
## F-statistic:  2288 on 1 and 1309 DF,  p-value: < 2.2e-16

9 Modelo raíz-log (r-log)

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

9.1 Diagrama de dispersión sobre r-log

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

scatter.smooth(x=sqrt(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 r-log

Observemos nuevamente el resultado sobre r-log.

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 
## -13893.2  -3155.4     37.8   2595.8  15754.5 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  2072.04     188.02   11.02   <2e-16 ***
## log(Freq.x)  4867.31      88.64   54.91   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4697 on 1309 degrees of freedom
## Multiple R-squared:  0.6973, Adjusted R-squared:  0.697 
## F-statistic:  3015 on 1 and 1309 DF,  p-value: < 2.2e-16

ggplot(h_y_m_comuna_corr_01, aes(x = sqrt(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 = {2072.04}^2 + 2 \cdot 2072.04 \cdot 4867.31 \cdot \ln{X}+ 4867.31^2 \cdot ln^2X \]

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 <- 2072.04^2 + 2 * 2072.04 * 4867.31 *log(h_y_m_comuna_corr_01$Freq.x)+  4867.31^2 * (log(h_y_m_comuna_corr_01$Freq.x))^2

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
9101011001	09101	35	2017	Temuco	274649.1	2017	9101	282415	77565023896	2220	0.0078608	09101	609720989	375468950
9101011002	09101	362	2017	Temuco	274649.1	2017	9101	282415	77565023896	3909	0.0138413	09101	1073603309	945470178
9101011003	09101	176	2017	Temuco	274649.1	2017	9101	282415	77565023896	2067	0.0073190	09101	567699677	741929806
9101011004	09101	21	2017	Temuco	274649.1	2017	9101	282415	77565023896	662	0.0023441	09101	181817700	285294885
9101011005	09101	257	2017	Temuco	274649.1	2017	9101	282415	77565023896	2592	0.0091780	09101	711890452	845711163
9101021001	09101	217	2017	Temuco	274649.1	2017	9101	282415	77565023896	3196	0.0113167	09101	877778505	798495811
9101021002	09101	209	2017	Temuco	274649.1	2017	9101	282415	77565023896	2969	0.0105129	09101	815433160	788196469
9101021003	09101	68	2017	Temuco	274649.1	2017	9101	282415	77565023896	1480	0.0052405	09101	406480659	511198175
9101021004	09101	37	2017	Temuco	274649.1	2017	9101	282415	77565023896	1826	0.0064657	09101	501509246	386024133
9101031001	09101	95	2017	Temuco	274649.1	2017	9101	282415	77565023896	2594	0.0091851	09101	712439750	587440435
9101031002	09101	93	2017	Temuco	274649.1	2017	9101	282415	77565023896	4200	0.0148717	09101	1153526195	582430979
9101031003	09101	18	2017	Temuco	274649.1	2017	9101	282415	77565023896	2208	0.0078183	09101	606425200	260511717
9101031004	09101	22	2017	Temuco	274649.1	2017	9101	282415	77565023896	2390	0.0084627	09101	656411335	292995176
9101031005	09101	20	2017	Temuco	274649.1	2017	9101	282415	77565023896	2992	0.0105943	09101	821750089	277328992
9101041001	09101	88	2017	Temuco	274649.1	2017	9101	282415	77565023896	4994	0.0176832	09101	1371597576	569520386
9101041002	09101	49	2017	Temuco	274649.1	2017	9101	282415	77565023896	4641	0.0164333	09101	1274646445	441619123
9101041003	09101	107	2017	Temuco	274649.1	2017	9101	282415	77565023896	4375	0.0154914	09101	1201589786	615841128
9101051001	09101	78	2017	Temuco	274649.1	2017	9101	282415	77565023896	3142	0.0111255	09101	862947454	541841654
9101051002	09101	13	2017	Temuco	274649.1	2017	9101	282415	77565023896	2998	0.0106156	09101	823397984	211890052
9101051003	09101	32	2017	Temuco	274649.1	2017	9101	282415	77565023896	3078	0.0108989	09101	845369911	358755837
9101051004	09101	40	2017	Temuco	274649.1	2017	9101	282415	77565023896	3587	0.0127012	09101	985166300	401079121
9101051005	09101	34	2017	Temuco	274649.1	2017	9101	282415	77565023896	2751	0.0097410	09101	755559658	370020997
9101051006	09101	27	2017	Temuco	274649.1	2017	9101	282415	77565023896	2499	0.0088487	09101	686348086	328113364
9101051007	09101	36	2017	Temuco	274649.1	2017	9101	282415	77565023896	2499	0.0088487	09101	686348086	380801565
9101061001	09101	213	2017	Temuco	274649.1	2017	9101	282415	77565023896	3146	0.0111396	09101	864046050	793386140
9101061002	09101	65	2017	Temuco	274649.1	2017	9101	282415	77565023896	2322	0.0082219	09101	637735196	501315544
9101061003	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	2821	0.0099888	09101	774785094	364452009
9101061004	09101	154	2017	Temuco	274649.1	2017	9101	282415	77565023896	5347	0.0189331	09101	1468548706	706945661
9101061005	09101	47	2017	Temuco	274649.1	2017	9101	282415	77565023896	2768	0.0098012	09101	760228692	433135262
9101061006	09101	57	2017	Temuco	274649.1	2017	9101	282415	77565023896	2682	0.0094967	09101	736608870	473098339
9101071001	09101	52	2017	Temuco	274649.1	2017	9101	282415	77565023896	1795	0.0063559	09101	492995124	453859055
9101071002	09101	144	2017	Temuco	274649.1	2017	9101	282415	77565023896	3047	0.0107891	09101	836855790	689674889
9101072007	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	60	0.0002125	09101	16478946	29656762
9101072010	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	43	0.0001523	09101	11809911	29656762
9101072042	09101	6	2017	Temuco	274649.1	2017	9101	282415	77565023896	59	0.0002089	09101	16204297	116490765
9101072060	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	61	0.0002160	09101	16753595	176343406
9101081001	09101	32	2017	Temuco	274649.1	2017	9101	282415	77565023896	3402	0.0120461	09101	934356218	358755837
9101081002	09101	58	2017	Temuco	274649.1	2017	9101	282415	77565023896	3965	0.0140396	09101	1088983658	476787963
9101081003	09101	56	2017	Temuco	274649.1	2017	9101	282415	77565023896	3304	0.0116991	09101	907440607	469358123
9101081004	09101	47	2017	Temuco	274649.1	2017	9101	282415	77565023896	2161	0.0076519	09101	593516692	433135262
9101081005	09101	14	2017	Temuco	274649.1	2017	9101	282415	77565023896	2222	0.0078679	09101	610270287	222521368
9101081006	09101	26	2017	Temuco	274649.1	2017	9101	282415	77565023896	2903	0.0102792	09101	797306320	321492282
9101082007	09101	8	2017	Temuco	274649.1	2017	9101	282415	77565023896	79	0.0002797	09101	21697278	148677214
9101091001	09101	1117	2017	Temuco	274649.1	2017	9101	282415	77565023896	5474	0.0193828	09101	1503429141	1312814148
9101091002	09101	81	2017	Temuco	274649.1	2017	9101	282415	77565023896	1649	0.0058389	09101	452896356	550427263
9101091003	09101	218	2017	Temuco	274649.1	2017	9101	282415	77565023896	3045	0.0107820	09101	836306491	799761039
9101091004	09101	193	2017	Temuco	274649.1	2017	9101	282415	77565023896	2668	0.0094471	09101	732763783	766580190
9101091005	09101	300	2017	Temuco	274649.1	2017	9101	282415	77565023896	1882	0.0066640	09101	516889595	890074566
9101101001	09101	142	2017	Temuco	274649.1	2017	9101	282415	77565023896	5434	0.0192412	09101	1492443177	686103979
9101101002	09101	222	2017	Temuco	274649.1	2017	9101	282415	77565023896	1589	0.0056265	09101	436417410	804774382
9101101003	09101	56	2017	Temuco	274649.1	2017	9101	282415	77565023896	326	0.0011543	09101	89535605	469358123
9101101004	09101	25	2017	Temuco	274649.1	2017	9101	282415	77565023896	3639	0.0128853	09101	999448053	314682995
9101101005	09101	75	2017	Temuco	274649.1	2017	9101	282415	77565023896	5033	0.0178213	09101	1382308890	532990780
9101101006	09101	113	2017	Temuco	274649.1	2017	9101	282415	77565023896	5891	0.0208594	09101	1617957813	629091775
9101101007	09101	54	2017	Temuco	274649.1	2017	9101	282415	77565023896	5050	0.0178815	09101	1386977925	461719616
9101101008	09101	197	2017	Temuco	274649.1	2017	9101	282415	77565023896	6739	0.0238620	09101	1850860245	772119055
9101101009	09101	49	2017	Temuco	274649.1	2017	9101	282415	77565023896	4395	0.0155622	09101	1207082768	441619123
9101102004	09101	114	2017	Temuco	274649.1	2017	9101	282415	77565023896	3065	0.0108528	09101	841799473	631244825
9101102006	09101	100	2017	Temuco	274649.1	2017	9101	282415	77565023896	726	0.0025707	09101	199395242	599604887
9101102028	09101	26	2017	Temuco	274649.1	2017	9101	282415	77565023896	843	0.0029850	09101	231529186	321492282
9101102029	09101	5	2017	Temuco	274649.1	2017	9101	282415	77565023896	496	0.0017563	09101	136225951	98122362
9101102034	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	172	0.0006090	09101	47239644	4293350
9101102057	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	1762	0.0062390	09101	483931704	364452009
9101111001	09101	153	2017	Temuco	274649.1	2017	9101	282415	77565023896	5176	0.0183276	09101	1421583711	705260482
9101111002	09101	60	2017	Temuco	274649.1	2017	9101	282415	77565023896	4664	0.0165147	09101	1280963375	484021306
9101111003	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	1407	0.0049820	09101	386431275	176343406
9101112013	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	214	0.0007578	09101	58774906	4293350
9101112019	09101	13	2017	Temuco	274649.1	2017	9101	282415	77565023896	142	0.0005028	09101	39000171	211890052
9101112029	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	181	0.0006409	09101	49711486	29656762
9101112044	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	46	0.0001629	09101	12633858	4293350
9101112045	09101	4	2017	Temuco	274649.1	2017	9101	282415	77565023896	292	0.0010339	09101	80197535	77784716
9101112047	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	124	0.0004391	09101	34056488	4293350
9101112052	09101	4	2017	Temuco	274649.1	2017	9101	282415	77565023896	100	0.0003541	09101	27464909	77784716
9101112054	09101	6	2017	Temuco	274649.1	2017	9101	282415	77565023896	443	0.0015686	09101	121669549	116490765
9101112062	09101	15	2017	Temuco	274649.1	2017	9101	282415	77565023896	167	0.0005913	09101	45866399	232652783
9101112067	09101	5	2017	Temuco	274649.1	2017	9101	282415	77565023896	514	0.0018200	09101	141169634	98122362
9101112069	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	129	0.0004568	09101	35429733	29656762
9101112070	09101	7	2017	Temuco	274649.1	2017	9101	282415	77565023896	325	0.0011508	09101	89260956	133249805
9101112071	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	230	0.0008144	09101	63169292	4293350
9101112073	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	132	0.0004674	09101	36253680	29656762
9101121001	09101	106	2017	Temuco	274649.1	2017	9101	282415	77565023896	2796	0.0099003	09101	767918867	613574883
9101121002	09101	40	2017	Temuco	274649.1	2017	9101	282415	77565023896	2711	0.0095993	09101	744573694	401079121
9101121003	09101	83	2017	Temuco	274649.1	2017	9101	282415	77565023896	3947	0.0139759	09101	1084039974	556012018
9101122051	09101	28	2017	Temuco	274649.1	2017	9101	282415	77565023896	357	0.0012641	09101	98049727	334557474
9101122060	09101	9	2017	Temuco	274649.1	2017	9101	282415	77565023896	80	0.0002833	09101	21971928	162986412
9101122061	09101	3	2017	Temuco	274649.1	2017	9101	282415	77565023896	21	0.0000744	09101	5767631	55046407
9101132033	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	36	0.0001275	09101	9887367	4293350
9101132036	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	35	0.0001239	09101	9612718	4293350
9101141001	09101	79	2017	Temuco	274649.1	2017	9101	282415	77565023896	2408	0.0085265	09101	661355018	544732131
9101141002	09101	22	2017	Temuco	274649.1	2017	9101	282415	77565023896	3217	0.0113910	09101	883546136	292995176
9101141003	09101	75	2017	Temuco	274649.1	2017	9101	282415	77565023896	4707	0.0166670	09101	1292773286	532990780
9101141004	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	2780	0.0098437	09101	763524481	364452009
9101142012	09101	28	2017	Temuco	274649.1	2017	9101	282415	77565023896	136	0.0004816	09101	37352277	334557474
9101142022	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	90	0.0003187	09101	24718418	4293350
9101142024	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	57	0.0002018	09101	15654998	4293350
9101142037	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	48	0.0001700	09101	13183157	4293350
9101142040	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	218	0.0007719	09101	59873503	4293350
9101142042	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	426	0.0015084	09101	117000514	176343406
9101142054	09101	16	2017	Temuco	274649.1	2017	9101	282415	77565023896	1860	0.0065861	09101	510847315	242334254
9101142062	09101	12	2017	Temuco	274649.1	2017	9101	282415	77565023896	113	0.0004001	09101	31035348	200699667

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
9101011001	09101	35	2017	Temuco	274649.1	2017	9101	282415	77565023896	2220	0.0078608	09101	609720989	375468950	169130.16
9101011002	09101	362	2017	Temuco	274649.1	2017	9101	282415	77565023896	3909	0.0138413	09101	1073603309	945470178	241870.09
9101011003	09101	176	2017	Temuco	274649.1	2017	9101	282415	77565023896	2067	0.0073190	09101	567699677	741929806	358940.40
9101011004	09101	21	2017	Temuco	274649.1	2017	9101	282415	77565023896	662	0.0023441	09101	181817700	285294885	430959.04
9101011005	09101	257	2017	Temuco	274649.1	2017	9101	282415	77565023896	2592	0.0091780	09101	711890452	845711163	326277.46
9101021001	09101	217	2017	Temuco	274649.1	2017	9101	282415	77565023896	3196	0.0113167	09101	877778505	798495811	249842.24
9101021002	09101	209	2017	Temuco	274649.1	2017	9101	282415	77565023896	2969	0.0105129	09101	815433160	788196469	265475.40
9101021003	09101	68	2017	Temuco	274649.1	2017	9101	282415	77565023896	1480	0.0052405	09101	406480659	511198175	345404.17
9101021004	09101	37	2017	Temuco	274649.1	2017	9101	282415	77565023896	1826	0.0064657	09101	501509246	386024133	211404.23
9101031001	09101	95	2017	Temuco	274649.1	2017	9101	282415	77565023896	2594	0.0091851	09101	712439750	587440435	226461.23
9101031002	09101	93	2017	Temuco	274649.1	2017	9101	282415	77565023896	4200	0.0148717	09101	1153526195	582430979	138674.04
9101031003	09101	18	2017	Temuco	274649.1	2017	9101	282415	77565023896	2208	0.0078183	09101	606425200	260511717	117985.38
9101031004	09101	22	2017	Temuco	274649.1	2017	9101	282415	77565023896	2390	0.0084627	09101	656411335	292995176	122592.12
9101031005	09101	20	2017	Temuco	274649.1	2017	9101	282415	77565023896	2992	0.0105943	09101	821750089	277328992	92690.17
9101041001	09101	88	2017	Temuco	274649.1	2017	9101	282415	77565023896	4994	0.0176832	09101	1371597576	569520386	114040.93
9101041002	09101	49	2017	Temuco	274649.1	2017	9101	282415	77565023896	4641	0.0164333	09101	1274646445	441619123	95156.03
9101041003	09101	107	2017	Temuco	274649.1	2017	9101	282415	77565023896	4375	0.0154914	09101	1201589786	615841128	140763.69
9101051001	09101	78	2017	Temuco	274649.1	2017	9101	282415	77565023896	3142	0.0111255	09101	862947454	541841654	172451.19
9101051002	09101	13	2017	Temuco	274649.1	2017	9101	282415	77565023896	2998	0.0106156	09101	823397984	211890052	70677.14
9101051003	09101	32	2017	Temuco	274649.1	2017	9101	282415	77565023896	3078	0.0108989	09101	845369911	358755837	116554.85
9101051004	09101	40	2017	Temuco	274649.1	2017	9101	282415	77565023896	3587	0.0127012	09101	985166300	401079121	111814.64
9101051005	09101	34	2017	Temuco	274649.1	2017	9101	282415	77565023896	2751	0.0097410	09101	755559658	370020997	134504.18
9101051006	09101	27	2017	Temuco	274649.1	2017	9101	282415	77565023896	2499	0.0088487	09101	686348086	328113364	131297.86
9101051007	09101	36	2017	Temuco	274649.1	2017	9101	282415	77565023896	2499	0.0088487	09101	686348086	380801565	152381.58
9101061001	09101	213	2017	Temuco	274649.1	2017	9101	282415	77565023896	3146	0.0111396	09101	864046050	793386140	252188.86
9101061002	09101	65	2017	Temuco	274649.1	2017	9101	282415	77565023896	2322	0.0082219	09101	637735196	501315544	215898.17
9101061003	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	2821	0.0099888	09101	774785094	364452009	129192.49
9101061004	09101	154	2017	Temuco	274649.1	2017	9101	282415	77565023896	5347	0.0189331	09101	1468548706	706945661	132213.51
9101061005	09101	47	2017	Temuco	274649.1	2017	9101	282415	77565023896	2768	0.0098012	09101	760228692	433135262	156479.50
9101061006	09101	57	2017	Temuco	274649.1	2017	9101	282415	77565023896	2682	0.0094967	09101	736608870	473098339	176397.59
9101071001	09101	52	2017	Temuco	274649.1	2017	9101	282415	77565023896	1795	0.0063559	09101	492995124	453859055	252846.27
9101071002	09101	144	2017	Temuco	274649.1	2017	9101	282415	77565023896	3047	0.0107891	09101	836855790	689674889	226345.55
9101072007	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	60	0.0002125	09101	16478946	29656762	494279.36
9101072010	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	43	0.0001523	09101	11809911	29656762	689692.13
9101072042	09101	6	2017	Temuco	274649.1	2017	9101	282415	77565023896	59	0.0002089	09101	16204297	116490765	1974419.75
9101072060	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	61	0.0002160	09101	16753595	176343406	2890875.51
9101081001	09101	32	2017	Temuco	274649.1	2017	9101	282415	77565023896	3402	0.0120461	09101	934356218	358755837	105454.39
9101081002	09101	58	2017	Temuco	274649.1	2017	9101	282415	77565023896	3965	0.0140396	09101	1088983658	476787963	120249.17
9101081003	09101	56	2017	Temuco	274649.1	2017	9101	282415	77565023896	3304	0.0116991	09101	907440607	469358123	142057.54
9101081004	09101	47	2017	Temuco	274649.1	2017	9101	282415	77565023896	2161	0.0076519	09101	593516692	433135262	200432.79
9101081005	09101	14	2017	Temuco	274649.1	2017	9101	282415	77565023896	2222	0.0078679	09101	610270287	222521368	100144.63
9101081006	09101	26	2017	Temuco	274649.1	2017	9101	282415	77565023896	2903	0.0102792	09101	797306320	321492282	110744.84
9101082007	09101	8	2017	Temuco	274649.1	2017	9101	282415	77565023896	79	0.0002797	09101	21697278	148677214	1881990.05
9101091001	09101	1117	2017	Temuco	274649.1	2017	9101	282415	77565023896	5474	0.0193828	09101	1503429141	1312814148	239827.21
9101091002	09101	81	2017	Temuco	274649.1	2017	9101	282415	77565023896	1649	0.0058389	09101	452896356	550427263	333794.58
9101091003	09101	218	2017	Temuco	274649.1	2017	9101	282415	77565023896	3045	0.0107820	09101	836306491	799761039	262647.30
9101091004	09101	193	2017	Temuco	274649.1	2017	9101	282415	77565023896	2668	0.0094471	09101	732763783	766580190	287323.91
9101091005	09101	300	2017	Temuco	274649.1	2017	9101	282415	77565023896	1882	0.0066640	09101	516889595	890074566	472940.79
9101101001	09101	142	2017	Temuco	274649.1	2017	9101	282415	77565023896	5434	0.0192412	09101	1492443177	686103979	126261.31
9101101002	09101	222	2017	Temuco	274649.1	2017	9101	282415	77565023896	1589	0.0056265	09101	436417410	804774382	506465.94
9101101003	09101	56	2017	Temuco	274649.1	2017	9101	282415	77565023896	326	0.0011543	09101	89535605	469358123	1439748.84
9101101004	09101	25	2017	Temuco	274649.1	2017	9101	282415	77565023896	3639	0.0128853	09101	999448053	314682995	86475.13
9101101005	09101	75	2017	Temuco	274649.1	2017	9101	282415	77565023896	5033	0.0178213	09101	1382308890	532990780	105899.22
9101101006	09101	113	2017	Temuco	274649.1	2017	9101	282415	77565023896	5891	0.0208594	09101	1617957813	629091775	106788.62
9101101007	09101	54	2017	Temuco	274649.1	2017	9101	282415	77565023896	5050	0.0178815	09101	1386977925	461719616	91429.63
9101101008	09101	197	2017	Temuco	274649.1	2017	9101	282415	77565023896	6739	0.0238620	09101	1850860245	772119055	114574.72
9101101009	09101	49	2017	Temuco	274649.1	2017	9101	282415	77565023896	4395	0.0155622	09101	1207082768	441619123	100482.17
9101102004	09101	114	2017	Temuco	274649.1	2017	9101	282415	77565023896	3065	0.0108528	09101	841799473	631244825	205952.63
9101102006	09101	100	2017	Temuco	274649.1	2017	9101	282415	77565023896	726	0.0025707	09101	199395242	599604887	825902.05
9101102028	09101	26	2017	Temuco	274649.1	2017	9101	282415	77565023896	843	0.0029850	09101	231529186	321492282	381366.88
9101102029	09101	5	2017	Temuco	274649.1	2017	9101	282415	77565023896	496	0.0017563	09101	136225951	98122362	197827.34
9101102034	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	172	0.0006090	09101	47239644	4293350	24961.34
9101102057	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	1762	0.0062390	09101	483931704	364452009	206839.96
9101111001	09101	153	2017	Temuco	274649.1	2017	9101	282415	77565023896	5176	0.0183276	09101	1421583711	705260482	136255.89
9101111002	09101	60	2017	Temuco	274649.1	2017	9101	282415	77565023896	4664	0.0165147	09101	1280963375	484021306	103778.15
9101111003	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	1407	0.0049820	09101	386431275	176343406	125332.91
9101112013	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	214	0.0007578	09101	58774906	4293350	20062.38
9101112019	09101	13	2017	Temuco	274649.1	2017	9101	282415	77565023896	142	0.0005028	09101	39000171	211890052	1492183.46
9101112029	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	181	0.0006409	09101	49711486	29656762	163849.51
9101112044	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	46	0.0001629	09101	12633858	4293350	93333.69
9101112045	09101	4	2017	Temuco	274649.1	2017	9101	282415	77565023896	292	0.0010339	09101	80197535	77784716	266386.01
9101112047	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	124	0.0004391	09101	34056488	4293350	34623.79
9101112052	09101	4	2017	Temuco	274649.1	2017	9101	282415	77565023896	100	0.0003541	09101	27464909	77784716	777847.16
9101112054	09101	6	2017	Temuco	274649.1	2017	9101	282415	77565023896	443	0.0015686	09101	121669549	116490765	262958.84
9101112062	09101	15	2017	Temuco	274649.1	2017	9101	282415	77565023896	167	0.0005913	09101	45866399	232652783	1393130.44
9101112067	09101	5	2017	Temuco	274649.1	2017	9101	282415	77565023896	514	0.0018200	09101	141169634	98122362	190899.54
9101112069	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	129	0.0004568	09101	35429733	29656762	229897.38
9101112070	09101	7	2017	Temuco	274649.1	2017	9101	282415	77565023896	325	0.0011508	09101	89260956	133249805	409999.40
9101112071	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	230	0.0008144	09101	63169292	4293350	18666.74
9101112073	09101	2	2017	Temuco	274649.1	2017	9101	282415	77565023896	132	0.0004674	09101	36253680	29656762	224672.44
9101121001	09101	106	2017	Temuco	274649.1	2017	9101	282415	77565023896	2796	0.0099003	09101	767918867	613574883	219447.38
9101121002	09101	40	2017	Temuco	274649.1	2017	9101	282415	77565023896	2711	0.0095993	09101	744573694	401079121	147945.08
9101121003	09101	83	2017	Temuco	274649.1	2017	9101	282415	77565023896	3947	0.0139759	09101	1084039974	556012018	140869.53
9101122051	09101	28	2017	Temuco	274649.1	2017	9101	282415	77565023896	357	0.0012641	09101	98049727	334557474	937135.78
9101122060	09101	9	2017	Temuco	274649.1	2017	9101	282415	77565023896	80	0.0002833	09101	21971928	162986412	2037330.14
9101122061	09101	3	2017	Temuco	274649.1	2017	9101	282415	77565023896	21	0.0000744	09101	5767631	55046407	2621257.47
9101132033	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	36	0.0001275	09101	9887367	4293350	119259.72
9101132036	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	35	0.0001239	09101	9612718	4293350	122667.14
9101141001	09101	79	2017	Temuco	274649.1	2017	9101	282415	77565023896	2408	0.0085265	09101	661355018	544732131	226217.66
9101141002	09101	22	2017	Temuco	274649.1	2017	9101	282415	77565023896	3217	0.0113910	09101	883546136	292995176	91077.15
9101141003	09101	75	2017	Temuco	274649.1	2017	9101	282415	77565023896	4707	0.0166670	09101	1292773286	532990780	113233.65
9101141004	09101	33	2017	Temuco	274649.1	2017	9101	282415	77565023896	2780	0.0098437	09101	763524481	364452009	131097.85
9101142012	09101	28	2017	Temuco	274649.1	2017	9101	282415	77565023896	136	0.0004816	09101	37352277	334557474	2459981.43
9101142022	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	90	0.0003187	09101	24718418	4293350	47703.89
9101142024	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	57	0.0002018	09101	15654998	4293350	75321.93
9101142037	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	48	0.0001700	09101	13183157	4293350	89444.79
9101142040	09101	1	2017	Temuco	274649.1	2017	9101	282415	77565023896	218	0.0007719	09101	59873503	4293350	19694.26
9101142042	09101	10	2017	Temuco	274649.1	2017	9101	282415	77565023896	426	0.0015084	09101	117000514	176343406	413951.66
9101142054	09101	16	2017	Temuco	274649.1	2017	9101	282415	77565023896	1860	0.0065861	09101	510847315	242334254	130287.23
9101142062	09101	12	2017	Temuco	274649.1	2017	9101	282415	77565023896	113	0.0004001	09101	31035348	200699667	1776103.25

Guardamos:

saveRDS(h_y_m_comuna_corr_01, "casen_censo_region_09.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