Análisis de la Encuesta CASEN 2022

Pablo Mérida, Zaida Hernandz, Julio Boza, Bill Sonco

14/10/2024

install.packages("haven")

## Installing package into 'C:/Users/Pvblo/AppData/Local/R/win-library/4.3'

## (as 'lib' is unspecified)

## package 'haven' successfully unpacked and MD5 sums checked

## Warning: cannot remove prior installation of package 'haven'

## Warning in file.copy(savedcopy, lib, recursive = TRUE): problema al copiar

## C:\Users\Pvblo\AppData\Local\R\win-library\4.3\00LOCK\haven\libs\x64\haven.dll
## a C:\Users\Pvblo\AppData\Local\R\win-library\4.3\haven\libs\x64\haven.dll:
## Permission denied

## Warning: restored 'haven'

##
## The downloaded binary packages are in
## C:\Users\Pvblo\AppData\Local\Temp\RtmpeIHub2\downloaded_packages

library(haven)

CASEN_22 <- read_dta("C:/Users/Pvblo/Desktop/Estadistica 2 RSTUDIO/CASEN_22.dta")

options(repos = c(CRAN = "https://cloud.r-project.org"))

install.packages("ggplot2")

## Installing package into 'C:/Users/Pvblo/AppData/Local/R/win-library/4.3'

## (as 'lib' is unspecified)

## package 'ggplot2' successfully unpacked and MD5 sums checked

##
## The downloaded binary packages are in
## C:\Users\Pvblo\AppData\Local\Temp\RtmpeIHub2\downloaded_packages

library(ggplot2)

install.packages("dplyr")

## Installing package into 'C:/Users/Pvblo/AppData/Local/R/win-library/4.3'

## (as 'lib' is unspecified)

## package 'dplyr' successfully unpacked and MD5 sums checked

## Warning: cannot remove prior installation of package 'dplyr'

## Warning in file.copy(savedcopy, lib, recursive = TRUE): problema al copiar

## C:\Users\Pvblo\AppData\Local\R\win-library\4.3\00LOCK\dplyr\libs\x64\dplyr.dll
## a C:\Users\Pvblo\AppData\Local\R\win-library\4.3\dplyr\libs\x64\dplyr.dll:
## Permission denied

## Warning: restored 'dplyr'

##
## The downloaded binary packages are in
## C:\Users\Pvblo\AppData\Local\Temp\RtmpeIHub2\downloaded_packages

library(dplyr)

##
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':

##
## filter, lag

## The following objects are masked from 'package:base':

##
## intersect, setdiff, setequal, union

install.packages("viridis")

## Installing package into 'C:/Users/Pvblo/AppData/Local/R/win-library/4.3'

## (as 'lib' is unspecified)

## package 'viridis' successfully unpacked and MD5 sums checked

##
## The downloaded binary packages are in
## C:\Users\Pvblo\AppData\Local\Temp\RtmpeIHub2\downloaded_packages

library(viridis)

## Loading required package: viridisLite

Verificar las primeras filas para asegurarnos de que los

datos se cargaron correctamente
head(CASEN_22)

id_vivienda folio id_persona region area cod_upm nse estrato hogar expr
<dbl> <dbl> <dbl> <dbl+lbl> <dbl+lbl> <dbl> <dbl+lbl> <dbl> <dbl> <dbl>

1000901 100090101 1 16 2 10009 4 1630324 1 43

1000901 100090101 2 16 2 10009 4 1630324 1 43

1000901 100090101 3 16 2 10009 4 1630324 1 44

1000902 100090201 1 16 2 10009 4 1630324 1 51

1000902 100090201 2 16 2 10009 4 1630324 1 51

1000902 100090201 3 16 2 10009 4 1630324 1 52

6 rows | 1-10 of 918 columns

Listar todos los nombres de las columnas

names(CASEN_22)

## [1] "id_vivienda" "folio" "id_persona"

## [4] "region" "area" "cod_upm"
## [7] "nse" "estrato" "hogar"
## [10] "expr" "expr_osig" "varstrat"
## [13] "varunit" "fecha_entrev" "p1"
## [16] "p2" "p3" "p4"
## [19] "p9" "p10" "p11"
## [22] "tot_per_h" "h1" "edad"
## [25] "mes_nac_nna" "ano_nac_nna" "sexo"
## [28] "pco1_a" "pco1_b" "pco1"
## [31] "h5_cp" "h5_sp" "h5_b1_1"
## [34] "h5_b1_2" "h5a_2" "h5_b2_1"
## [37] "h5_b2_2" "h5a_3" "h5_b3_1"
## [40] "h5_b3_2" "h5a_4" "h5b"
## [43] "ecivil" "h5_10" "h5_1a"
## [46] "h5_1b" "h5_20" "h5_2"
## [49] "n_nucleos" "nucleo" "pco2_a"
## [52] "pco2_b" "pco2" "h7a"
## [55] "h7b" "h7c" "h7d"
## [58] "h7e" "h7f" "informante"
## [61] "e1" "e3" "e4a"
## [64] "e4a_esp" "e5a" "e5a_esp"
## [67] "e5b" "e6a_asiste" "e6a_no_asiste"
## [70] "e6a" "e6b_asiste" "e6b_no_asiste"
## [73] "e6b" "e6c_completo" "e6d_preg"
## [76] "e6d_postg" "e7" "cinef13_area"
## [79] "cinef13_subarea" "e8" "e9nom"
## [82] "e9dir" "e9com_cod" "e9pais_cod"
## [85] "e9rbd" "e9rbd_sup" "e9dv"
## [88] "e9depen" "e10" "e11"
## [91] "e12a" "e12b" "e12c"
## [94] "e12d" "e12e" "e13a"
## [97] "e13b_1" "e13b_2" "e13b_3"
## [100] "e13b_4" "e13b_5" "e13b_6"
## [103] "e13b_7" "e13b_8" "e13b_9"
## [106] "e13b_10" "e13b_11" "e13b1"
## [109] "e13b2" "e13b_esp1" "e13b_esp2"
## [112] "e14a" "e14b" "e14c"
## [115] "e14d" "e14e" "e16"
## [118] "e18" "o1" "o2"
## [121] "o3" "o4" "o5"
## [124] "o6" "o7" "o7_esp"
## [127] "o8" "o9a" "o9b"
## [130] "oficio1_08" "oficio4_08" "o10"
## [133] "o11" "o12" "o14"
## [136] "o15" "o16" "o19"
## [139] "o18" "o20" "o21"
## [142] "o22" "o23" "o24"
## [145] "rama1_sub" "rama4_sub" "rama1"
## [148] "rama4" "o25" "o26a"
## [151] "o26b" "o26c" "o26d"
## [154] "o28a_hr" "o28a_min" "o28b"
## [157] "o28c" "o28c_esp" "o28d"
## [160] "o28e" "o29" "o30"
## [163] "o31" "o32" "o32_esp"
## [166] "o32b" "y1" "y2_dias"
## [169] "y2_hrs" "y3a_preg" "y3b_preg"
## [172] "y3c_preg" "y3d_preg" "y3e_preg"
## [175] "y3f_preg" "y3a" "y3ap"
## [178] "y3b" "y3bp" "y3c"
## [181] "y3cp" "y3d" "y3dp"
## [184] "y3e" "y3ep" "y3f_esp"
## [187] "y3f" "y3fp" "y4a_preg"
## [190] "y4b_preg" "y4c_preg" "y4d_preg"
## [193] "y4a" "y4b" "y4c"
## [196] "y4d_esp" "y4d" "y5a_preg"
## [199] "y5b_preg" "y5c_preg" "y5d_preg"
## [202] "y5e_preg" "y5f_preg" "y5g_preg"
## [205] "y5h_preg" "y5i_preg" "y5j_preg"
## [208] "y5k_preg" "y5l_preg" "y5a"
## [211] "y5b" "y5c" "y5d"
## [214] "y5e" "y5f" "y5g"
## [217] "y5h" "y5i" "y5j"
## [220] "y5k" "y5l" "y6"
## [223] "y7" "y8" "y9"
## [226] "y10" "y11_preg" "y11"
## [229] "y12a_preg" "y12a" "y12b_preg"
## [232] "y12b" "y13a_preg" "y13a"
## [235] "y13b_preg" "y13b" "y13c_preg"
## [238] "y13c" "y14a_preg" "y14a"
## [241] "y14b_preg" "y14b" "y14c_preg"
## [244] "y14c" "y15a_preg" "y15a"
## [247] "y15b_preg" "y15b" "y15c_preg"
## [250] "y15c" "y16a_preg" "y16a"
## [253] "y16b_preg" "y16b" "y17_preg"
## [256] "y17" "y18a_preg" "y18a"
## [259] "y18b_preg" "y18b" "y18c_preg"
## [262] "y18c" "y18d_preg" "y18d_esp"
## [265] "y18d" "y19" "y19t"
## [268] "y19n" "y20a" "y20b"
## [271] "y20c" "y20d" "y20e"
## [274] "y20amonto" "y20bmonto" "y20cmonto"
## [277] "y20dmonto" "y20emonto" "y21_canasta"
## [280] "y22_preg" "y22" "y22amonto"
## [283] "y22bmonto" "y22cmonto" "y22dmonto"
## [286] "y23a_preg" "y23a" "y23b"
## [289] "y23c" "y23bmonto" "y23cmonto"
## [292] "y24_preg" "y24" "y25a_preg"
## [295] "y25a" "y25amonto" "y25b_preg"
## [298] "y25b" "y25bmonto" "y25c"
## [301] "y25cmonto" "y25d" "y25dmonto"
## [304] "y25ep" "y25e" "y25fp"
## [307] "y25f" "y25g_preg" "y25g"
## [310] "y25h_preg" "y25hp" "y25h"
## [313] "y25i_preg" "y25imonto" "y25ip"
## [316] "y25j_preg" "y25j" "y25jmonto"
## [319] "y26d_hog" "y26d_preg" "y26d_integrantes"
## [322] "y26d_monto" "y27_preg" "y27_esp"
## [325] "y27" "y28_1b" "y28_1c"
## [328] "y28_1d" "y28_1dmonto" "y28_1e"
## [331] "y28_1f" "y28_1g" "y28_1h"
## [334] "y28_1i" "y28_1j" "y28j_esp"
## [337] "y28_2b1" "y28_2b2" "y28_3b"
## [340] "y28_4b" "y28_1c1" "y28_1c2"
## [343] "y28_1c2monto" "y28_2c1" "y28_2c2"
## [346] "y28_2c" "y28_3c" "y28_4c"
## [349] "y28_2e1" "y28_2e2" "y28_3e"
## [352] "y28_4e" "y28_2f" "y28_3f"
## [355] "y28_4f" "y28_1g1" "y28_2g1"
## [358] "y28_2g2" "y28_2g" "y28_3g"
## [361] "y28_4g" "y28_2h" "y28_3h"
## [364] "y28_4h" "y28_1i1" "y28_2i1"
## [367] "y28_2i2" "y28_2i" "y28_2j"
## [370] "y28_3j" "y28_4j" "s2"
## [373] "s2c" "s3_1" "s3_2"
## [376] "s3_3" "s3_4" "s3_5"
## [379] "s3_6" "s3_7" "s3_8"
## [382] "s3_88" "s3a1" "s3a2"
## [385] "s4" "s5" "s6"
## [388] "s7" "s7_meses" "s8"
## [391] "s9a" "s9b" "s10"
## [394] "s11a" "s11b" "s12"
## [397] "s13" "s13_fonasa" "s15"
## [400] "s16" "s17" "s17b"
## [403] "s18" "s18_esp" "s19a"
## [406] "s19b" "s19c" "s19d"
## [409] "s19e" "s20a_preg" "s20a"
## [412] "s20b" "s21a_preg" "s21a"
## [415] "s21b" "s22a_preg" "s22a"
## [418] "s22b" "s23a_preg" "s23a"
## [421] "s23b" "s24a_preg" "s24a"
## [424] "s24b" "s25a1_preg" "s25b1"
## [427] "s25a2_preg" "s25b2" "s26a"
## [430] "s26b_1" "s26b_2" "s26b_3"
## [433] "s26b_4" "s26b_5" "s26b_6"
## [436] "s26b_7" "s26b_8" "s26b_88"
## [439] "s26b_esp" "s26u" "s26c"
## [442] "s27a" "s27b" "s27c"
## [445] "s28" "s28_esp" "s29"
## [448] "s30" "s30_esp" "s31_1"
## [451] "s31_2" "s31_3" "s31_4"
## [454] "s31_5" "s31_6" "s31_7"
## [457] "s32a" "s32b" "s32c"
## [460] "s32d" "s32e" "s32f"
## [463] "s32g" "s32h" "s32i"
## [466] "s32j" "s33a" "s33b"
## [469] "s33c" "s33d" "s33e"
## [472] "s33f" "s33g" "s33h"
## [475] "s33i" "s33j" "s34a"
## [478] "s34b" "s34c" "r1a"
## [481] "r1a_esp" "r1a_esp_cod" "r1b"
## [484] "r1b_comuna_esp" "r1b_comuna_esp_cod" "r1b_pais_esp"
## [487] "r1b_pais_esp_cod" "r1c" "r1cp"
## [490] "r2" "r2_comuna_esp" "r2_comuna_esp_cod"
## [493] "r2_pais_esp" "r2_pais_esp_cod" "r3"
## [496] "r4" "r5" "r6"
## [499] "r7a" "r7b" "r7c"
## [502] "r7d" "r7e" "r7f"
## [505] "r7g" "r7h" "r7i"
## [508] "r7j" "r7k" "r8a"
## [511] "r8b" "r8c" "r8d"
## [514] "r8e" "r8f" "r8g"
## [517] "r8h" "r9a" "r9b"
## [520] "r9c" "r9d" "r9e"
## [523] "r9f" "r9g" "r9h"
## [526] "r9i" "r9j" "r9k"
## [529] "r9l" "r9m" "r9n"
## [532] "r9o" "r9p" "r9q"
## [535] "r9r" "r9s" "r9t"
## [538] "r9_esp" "r11" "r12a"
## [541] "r12b" "r13a" "r13b"
## [544] "r14" "r15" "r17a"
## [547] "r17b" "r17c" "r17d"
## [550] "r17e" "r18" "v1"
## [553] "v2" "v3" "v4"
## [556] "v5" "v6" "v7"
## [559] "v9" "v10" "v11_o1"
## [562] "v11_o2" "v12" "v12mt"
## [565] "v13" "v13_propia" "v13_arrendada"
## [568] "v13_cedida" "v13b_1" "v13b_2"
## [571] "v13b_3" "v13b_4" "v13b_5"
## [574] "v13b_6" "v13b_7" "v14"
## [577] "v15" "v16" "v17"
## [580] "v18" "v19" "v20"
## [583] "v20_esp" "v20_red" "v21"
## [586] "v22" "v23" "v23_sistema"
## [589] "v23_cajon" "v24" "v25"
## [592] "v26" "v27a" "v27b"
## [595] "v28" "v29a" "v29b"
## [598] "v30" "v31" "v32"
## [601] "v33" "v34a" "v34b"
## [604] "v34c" "v35a" "v35b"
## [607] "v35c" "v35d" "v35e"
## [610] "v35f" "v35g" "v35h"
## [613] "v35i" "v36a" "v36b"
## [616] "v36c" "v36d" "v36e"
## [619] "v37a" "v37b" "v37c"
## [622] "v37d" "v37e" "v37f"
## [625] "v37g" "v38" "os_presente"
## [628] "os1" "os1_esp" "genero"
## [631] "genero_esp" "trans" "y0101"
## [634] "y0301" "y0302" "y0303"
## [637] "y0304" "y0305" "y0306"
## [640] "y0401" "y0402" "y0403"
## [643] "y0404" "y0501" "y0502"
## [646] "y0503" "y0504" "y0505"
## [649] "y0506" "y0507" "y0508"
## [652] "y0509" "y0510" "y0511"
## [655] "y0512" "yosa" "y0701"
## [658] "y0801" "y0901" "yosi"
## [661] "y1101" "yre1" "yama"
## [664] "ymes" "yfa1" "yfa2"
## [667] "ytro" "yta1" "yta2"
## [670] "ydes" "yah1" "yah2"
## [673] "yrut" "yre2" "yre3"
## [676] "yac2" "yids" "ydon"
## [679] "ydim" "yotr" "yfam"
## [682] "y2001" "y2002" "y2003"
## [685] "y2004" "y2005" "y2101"
## [688] "y2201" "y2202" "y2203"
## [691] "y2204" "y2301" "y2302"
## [694] "y2303" "y2401" "y2501"
## [697] "y2502" "y2503" "y2504"
## [700] "y2505" "y2506" "y2507"
## [703] "y2508p" "y2508" "y2509"
## [706] "y2510" "y2604" "y2701"
## [709] "y2804" "y280201" "y280202"
## [712] "y280101" "y280301" "y280302"
## [715] "y2803" "yinv0101" "yinv0102"
## [718] "yinv02" "ymon0101" "ymon0102"
## [721] "ymon02" "yorf" "yesp0101"
## [724] "yesp0102" "yesp" "yotp"
## [727] "yaut" "ysub1" "ysub2"
## [730] "ysub" "ytot" "y0101h"
## [733] "y0301h" "y0302h" "y0303h"
## [736] "y0304h" "y0305h" "y0306h"
## [739] "y0401h" "y0402h" "y0403h"
## [742] "y0404h" "y0501h" "y0502h"
## [745] "y0503h" "y0504h" "y0505h"
## [748] "y0506h" "y0507h" "y0508h"
## [751] "y0509h" "y0510h" "y0511h"
## [754] "y0512h" "yosah" "y0701h"
## [757] "y0801h" "y0901h" "yosih"
## [760] "y1101h" "yre1h" "yamah"
## [763] "ymesh" "yfa1h" "yfa2h"
## [766] "ytroh" "yta1h" "yta2h"
## [769] "ydesh" "yah1h" "yah2h"
## [772] "yruth" "yre2h" "yre3h"
## [775] "yac2h" "yidsh" "ydonh"
## [778] "ydimh" "yotrh" "yfamh"
## [781] "y2001h" "y2002h" "y2003h"
## [784] "y2004h" "y2005h" "y2101h"
## [787] "y2201h" "y2202h" "y2203h"
## [790] "y2204h" "y2301h" "y2302h"
## [793] "y2303h" "y2401h" "y2501h"
## [796] "y2502h" "y2503h" "y2504h"
## [799] "y2505h" "y2506h" "y2507h"
## [802] "y2508h" "y2509h" "y2510h"
## [805] "y2604h" "y2701h" "y2804h"
## [808] "y280201h" "y280202h" "y280101h"
## [811] "y280301h" "y280302h" "y2803h"
## [814] "yinv0101h" "yinv0102h" "yinv02h"
## [817] "ymon0101h" "ymon0102h" "ymon02h"
## [820] "yorfh" "yesp0101h" "yesp0102h"
## [823] "yesph" "yotph" "yauth"
## [826] "ysub1h" "ysub2h" "ysubh"
## [829] "yaimh" "ytoth" "ypch"
## [832] "y0101c" "y0701c" "y280201c"
## [835] "y280301c" "y2803c" "yautcor"
## [838] "ytotcor" "y0101ch" "y0701ch"
## [841] "y280201ch" "y280301ch" "y2803ch"
## [844] "yautcorh" "yaimcorh" "ytotcorh"
## [847] "ypc" "li" "lp"
## [850] "nae" "yae" "pobreza"
## [853] "yoprcor" "yoprcorh" "ytrabajocor"
## [856] "ytrabajocorh" "ymonecorh" "ypchtrabcor"
## [859] "ypchautcor" "dau" "qaut"
## [862] "dautr" "qautr" "hh_d_asis"
## [865] "hh_d_rez" "hh_d_esc" "hh_d_mal"
## [868] "hh_d_prevs" "hh_d_acc" "hh_d_act"
## [871] "hh_d_cot" "hh_d_jub" "hh_d_hacina"
## [874] "hh_d_estado" "hh_d_habitab" "hh_d_servbas"
## [877] "hh_d_medio" "hh_d_equipo" "hh_d_tiempo"
## [880] "hh_d_accesi" "hh_d_entorno" "hh_d_hapoyo"
## [883] "hh_d_part" "hh_d_tsocial" "hh_d_seg"
## [886] "hh_d_appart" "pobreza_multi_5d" "pobreza_multi_4d"
## [889] "disc_wg" "depen_grado" "esc"
## [892] "desercion" "rezago" "asiste"
## [895] "educ" "depen" "activ"
## [898] "asal" "contrato" "cotiza"
## [901] "lugar_nac" "pueblos_indigenas" "n_ocupados"
## [904] "n_desocupados" "n_inactivos" "conyuge_jh"
## [907] "numper" "numnuc" "men18c"
## [910] "may60c" "tipohogar" "tot_hog"
## [913] "ind_hacina" "indsan" "ten_viv"
## [916] "ten_viv_f" "allega_ext" "allega_int"

Revisar la estructura de los datos

str(CASEN_22)

## tibble [202,231 × 918] (S3: tbl_df/tbl/data.frame)

## $ id_vivienda : num [1:202231] 1e+06 1e+06 1e+06 1e+06 1e+06 ...
## ..- attr(*, "label")= chr "Identificación vivienda"
## ..- attr(*, "format.stata")= chr "%7.0f"
## $ folio : num [1:202231] 1e+08 1e+08 1e+08 1e+08 1e+08 ...
## ..- attr(*, "label")= chr "Identificación hogar (id_vivienda hogar)"
## ..- attr(*, "format.stata")= chr "%9.0f"
## $ id_persona : num [1:202231] 1 2 3 1 2 3 4 1 2 3 ...
## ..- attr(*, "label")= chr "Identificador de la persona en el hogar"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ region : dbl+lbl [1:202231] 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16,...
## ..@ label : chr "Región"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:16] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:16] "Región de Tarapacá" "Región de Antofagasta" "Región de Atacama" "Regió
n de Coquimbo" ...
## $ area : dbl+lbl [1:202231] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, ...
## ..@ label : chr "Área"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Urbano" "Rural"
## $ cod_upm : num [1:202231] 10009 10009 10009 10009 10009 ...
## ..- attr(*, "label")= chr "Código Unidad Primaria de Muestreo (UPM)"
## ..- attr(*, "format.stata")= chr "%5.0f"
## $ nse : dbl+lbl [1:202231] 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, ...
## ..@ label : chr "Nivel Socioeconómico de la UPM"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:7] 1 2 3 4 5 6 7
## .. ..- attr(*, "names")= chr [1:7] "Bajo" "Medio" "Alto" "Bajo-medio" ...
## $ estrato : num [1:202231] 1630324 1630324 1630324 1630324 1630324 ...
## ..- attr(*, "label")= chr "Estrato (comuna-área-NSE)"
## ..- attr(*, "format.stata")= chr "%7.0f"
## $ hogar : num [1:202231] 1 1 1 1 1 1 1 1 1 1 ...
## ..- attr(*, "label")= chr "Orden del hogar en la vivienda"
## ..- attr(*, "format.stata")= chr "%1.0f"
## $ expr : num [1:202231] 43 43 44 51 51 52 51 42 42 42 ...
## ..- attr(*, "label")= chr "Factor de expansión regional"
## ..- attr(*, "format.stata")= chr "%4.0f"
## $ expr_osig : num [1:202231] 54 NA 122 NA 131 NA 44 101 47 NA ...
## ..- attr(*, "label")= chr "Factor de expansión orientación sexual e identidad de género"
## ..- attr(*, "format.stata")= chr "%5.0f"
## $ varstrat : num [1:202231] 751 751 751 751 751 751 751 751 751 751 ...
## ..- attr(*, "label")= chr "Estratos de varianza"
## ..- attr(*, "format.stata")= chr "%3.0f"
## $ varunit : num [1:202231] 12041 12041 12041 12041 12041 ...
## ..- attr(*, "label")= chr "Conglomerados de varianza"
## ..- attr(*, "format.stata")= chr "%5.0f"
## $ fecha_entrev : POSIXct[1:202231], format: "2023-01-28" "2023-01-28" ...
## $ p1 : dbl+lbl [1:202231] 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ...
## ..@ label : chr "p1. Indique tipo de acceso a la vivienda "
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:4] 1 2 3 4
## .. ..- attr(*, "names")= chr [1:4] "1. Casa con acceso directo" "2. Casa en condominio con acceso controlad
o" "3. Departamento con acceso directo" "4. Departamento en condominio con acceso controlado"
## $ p2 : dbl+lbl [1:202231] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, ...
## ..@ label : chr "p2. Indique estado de edificios y casas del sector"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:5] 1 2 3 4 5
## .. ..- attr(*, "names")= chr [1:5] "1. Muy bueno" "2. Bueno" "3. Satisfactorio" "4. Malo" ...
## $ p3 : dbl+lbl [1:202231] 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, ...
## ..@ label : chr "p3. Presencia de basura en el sector "
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:4] 1 2 3 4
## .. ..- attr(*, "names")= chr [1:4] "1. Mucho (observa basura en varios lugares)" "2. Más o menos (observa b
asura en 3 o 4 lugares)" "3. Poco (si observa cuidadosamente alrededor, verá uno o dos lugares con basura)" "4. N
ada (no hay basura visible)"
## $ p4 : dbl+lbl [1:202231] 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, ...
## ..@ label : chr "p4. Vandalismo, grafiti o daño deliberado a la propiedad en el sector"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:4] 1 2 3 4
## .. ..- attr(*, "names")= chr [1:4] "1. Mucho (observa 5 o más áreas con grafitis o daño deliberado)" "2. Má
s o menos (observa 3 o 4 áreas con grafitis o daño deliberado)" "3. Poco (observa una o dos áreas con grafitis o
daño deliberado)" "4. Nada (no hay señales de grafitis o daño deliberado visibles)"
## $ p9 : num [1:202231] 3 3 3 4 4 4 4 3 3 3 ...
## ..- attr(*, "label")= chr "p9. Incluyéndose a Ud., ¿cuántas personas viven habitualmente en la vivienda?"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ p10 : dbl+lbl [1:202231] 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, NA,...
## ..@ label : chr "p10. ¿Todas las personas que viven comparten presupuesto de alimentación?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Sí" "No"
## $ p11 : num [1:202231] NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "p11. Incluyendo al suyo, grupos presupuesto de alimentación separado"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ tot_per_h : num [1:202231] 3 3 3 4 4 4 4 3 3 3 ...
## ..- attr(*, "label")= chr "Total de personas en el hogar"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ h1 : dbl+lbl [1:202231] 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, ...
## ..@ label : chr "h1. Confirmación del número de personas que viven habitualmente en el hogar"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ edad : num [1:202231] 72 67 40 56 25 2 60 84 67 30 ...
## ..- attr(*, "label")= chr "Edad"
## ..- attr(*, "format.stata")= chr "%3.0f"
## $ mes_nac_nna : dbl+lbl [1:202231] NA, NA, NA, NA, NA, 10, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "mes_nac_nna. Mes de nacimiento del niño menor a 18 años"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num -88
## .. ..- attr(*, "names")= chr "No sabe"
## $ ano_nac_nna : dbl+lbl [1:202231] NA, NA, NA, NA, NA, 2020, NA, NA, N...
## ..@ label : chr "ano_nac_nna. Año de nacimiento del niño menor a 18 años"
## ..@ format.stata: chr "%4.0f"
## ..@ labels : Named num 8888
## .. ..- attr(*, "names")= chr "No sabe"
## $ sexo : dbl+lbl [1:202231] 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 2, 1, 2, 2, 2, ...
## ..@ label : chr "Sexo"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Hombre" "2. Mujer"
## $ pco1_a : dbl+lbl [1:202231] 0, 1, 0, 0, 0, NA, 1, 0, 1, 0, 1, 0, 1,...
## ..@ label : chr "pco1_a. Jefatura de hogar"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "No" "Sí"
## $ pco1_b : dbl+lbl [1:202231] 2, NA, 4, 2, 4, 10, NA, 2, NA, 4, NA, 2, NA,...
## ..@ label : chr "pco1_b. Relación con la jefatura de hogar"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:14] 2 3 4 5 6 7 8 9 10 11 ...
## .. ..- attr(*, "names")= chr [1:14] "2. Esposo(a) o pareja de distinto sexo" "3. Esposo(a) o pareja de igua
l sexo" "4. Hijo(a) de ambos" "5. Hijo(a) sólo de la jefatura" ...
## $ pco1 : dbl+lbl [1:202231] 2, 1, 4, 2, 4, 10, 1, 2, 1, 4, 1, 2, 1,...
## ..@ label : chr "pco1. Jefatura de hogar y relación con jefatura de hogar"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:15] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:15] "1. Jefatura de Hogar" "2. Esposo(a) o pareja de distinto sexo" "3. Esp
oso(a) o pareja de igual sexo" "4. Hijo(a) de ambos" ...
## $ h5_cp : dbl+lbl [1:202231] NA, NA, NA, 2, 2, 2, 2, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "h5_cp. Personas que conforman parejas dentro del hogar"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ h5_sp : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "h5_sp. Personas que conforman parejas dentro del hogar"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ h5_b1_1 : num [1:202231] NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "h5_b1_1. Identifique y seleccione los integrantes de una pareja"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ h5_b1_2 : num [1:202231] NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "h5_b1_2. Identifique y seleccione los integrantes de una pareja"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ h5a_2 : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "h5a_2. ¿Hay más parejas en el hogar?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ h5_b2_1 : num [1:202231] NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "h5_b2_1. Identifique y seleccione los integrantes de una pareja"
## ..- attr(*, "format.stata")= chr "%1.0f"
## $ h5_b2_2 : num [1:202231] NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "h5_b2_2. Identifique y seleccione los integrantes de una pareja"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ h5a_3 : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "h5a_3. ¿Hay más parejas en el hogar?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ h5_b3_1 : num [1:202231] NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "h5_b3_1. Identifique y seleccione los integrantes de una pareja"
## ..- attr(*, "format.stata")= chr "%1.0f"
## $ h5_b3_2 : num [1:202231] NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "h5_b3_2. Identifique y seleccione los integrantes de una pareja"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ h5a_4 : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "h5a_4. ¿Hay más parejas en el hogar?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ h5b : num [1:202231] 1 1 NA 1 NA NA 1 1 1 NA ...
## ..- attr(*, "label")= chr "h5b. Identificador de las parejas en el hogar"
## ..- attr(*, "format.stata")= chr "%1.0f"
## $ ecivil : dbl+lbl [1:202231] 1, 1, 5, 2, 8, NA, 2, 2, 2, 8, 1, 1, 7,...
## ..@ label : chr "ecivil. ¿Cuál es el estado conyugal o civil actual?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:8] 1 2 3 4 5 6 7 8
## .. ..- attr(*, "names")= chr [1:8] "1. Casado(a)" "2. Conviviente o pareja sin acuerdo de unión civil" "3.
Conviviente civil (con acuerdo de unión civil)" "4. Anulado(a)" ...
## $ h5_10 : dbl+lbl [1:202231] NA, NA, 1, NA, 1, 1, NA, NA, 2, 1, NA, NA, NA,...
## ..@ label : chr "h5_10. Actualmente, ¿vive el padre o la madre en el hogar?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ h5_1a : num [1:202231] NA NA 1 NA 1 2 NA NA NA 1 ...
## ..- attr(*, "label")= chr "h5_1a. ¿Me puede indicar de quién(es) es hijo(a)?"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ h5_1b : num [1:202231] NA NA 2 NA 4 NA NA NA NA 2 ...
## ..- attr(*, "label")= chr "h5_1b. ¿Me puede indicar de quién(es) es hijo(a)?"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ h5_20 : dbl+lbl [1:202231] 1, 2, 2, 2, 2, NA, 2, 2, 2, 1, 2, 2, NA,...
## ..@ label : chr "h5_20. ¿Depende económicamente de algún integrante del hogar?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ h5_2 : num [1:202231] 2 NA NA NA NA 2 NA NA NA 1 ...
## ..- attr(*, "label")= chr "h5_2. ¿Me puede indicar de quién depende económicamente?"
## ..- attr(*, "format.stata")= chr "%2.0f"
## $ n_nucleos : num [1:202231] 1 1 1 2 2 2 2 1 1 1 ...
## ..- attr(*, "label")= chr "n_nucleos. Número de núcleos en el hogar"
## ..- attr(*, "format.stata")= chr "%1.0f"
## $ nucleo : num [1:202231] 1 1 1 1 2 2 1 1 1 1 ...
## ..- attr(*, "label")= chr "nucleo. Identificador del núcleo al que pertenece la persona"
## ..- attr(*, "format.stata")= chr "%1.0f"
## $ pco2_a : dbl+lbl [1:202231] 0, 1, 0, 0, 1, NA, 1, 0, 1, 0, 1, 0, 1,...
## ..@ label : chr "pco2_a. Jefatura de núcleo"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "No" "Sí"
## $ pco2_b : dbl+lbl [1:202231] 2, NA, 4, 2, NA, 5, NA, 2, NA, 4, NA, 2, NA,...
## ..@ label : chr "pco2_b. Relación con la jefatura de núcleo"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:7] 2 3 4 5 6 13 14
## .. ..- attr(*, "names")= chr [1:7] "2. Esposo(a) o pareja de distinto sexo" "3. Esposo(a) o pareja de igual
sexo" "4. Hijo(a) de ambos" "5. Hijo(a) sólo de la jefatura" ...
## $ pco2 : dbl+lbl [1:202231] 2, 1, 4, 2, 1, 5, 1, 2, 1, 4, 1, 2, 1, 1, 2, 4, 4, ...
## ..@ label : chr "pco2. Jefatura de núcleo y relación con jefatura de núcleo"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:8] 1 2 3 4 5 6 13 14
## .. ..- attr(*, "names")= chr [1:8] "1. Jefatura de Núcleo" "2. Esposo(a) o pareja de distinto sexo" "3. Esp
oso(a) o pareja de igual sexo" "4. Hijo(a) de ambos" ...
## $ h7a : dbl+lbl [1:202231] 1, 2, 1, 3, 1, NA, 2, 1, 1, 1, 2, 3, 3,...
## ..@ label : chr "h7a. ¿Tiene dificultad para ver incluso si lleva lentes?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:6] -99 -88 1 2 3 4
## .. ..- attr(*, "names")= chr [1:6] "No responde" "No sabe" "1. No, ninguna dificultad" "2. Sí, algo de difi
cultad" ...
## $ h7b : dbl+lbl [1:202231] 1, 1, 1, 1, 1, NA, 1, 1, 1, 1, 1, 1, 2,...
## ..@ label : chr "h7b. ¿Tiene dificultad para oír incluso si utiliza un audífono?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:6] -99 -88 1 2 3 4
## .. ..- attr(*, "names")= chr [1:6] "No responde" "No sabe" "1. No, ninguna dificultad" "2. Sí, algo de difi
cultad" ...
## $ h7c : dbl+lbl [1:202231] 1, 2, 1, 1, 1, NA, 2, 2, 1, 1, 1, 3, 3,...
## ..@ label : chr "h7c. ¿Tiene dificultad para caminar o para subir escaleras?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:6] -99 -88 1 2 3 4
## .. ..- attr(*, "names")= chr [1:6] "No responde" "No sabe" "1. No, ninguna dificultad" "2. Sí, algo de difi
cultad" ...
## $ h7d : dbl+lbl [1:202231] 1, 1, 1, 1, 1, NA, 2, 2, 1, 1, 1, 2, 2,...
## ..@ label : chr "h7d. ¿Tiene dificultad para recordar o para concentrarse?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:6] -99 -88 1 2 3 4
## .. ..- attr(*, "names")= chr [1:6] "No responde" "No sabe" "1. No, ninguna dificultad" "2. Sí, algo de difi
cultad" ...
## $ h7e : dbl+lbl [1:202231] 1, 1, 1, 1, 1, NA, 1, 1, 1, 1, 1, 2, 1,...
## ..@ label : chr "h7e. ¿Tiene dificultad en su cuidado personal como para asearse o vestirse?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:6] -99 -88 1 2 3 4
## .. ..- attr(*, "names")= chr [1:6] "No responde" "No sabe" "1. No, ninguna dificultad" "2. Sí, algo de difi
cultad" ...
## $ h7f : dbl+lbl [1:202231] 1, 1, 1, 2, 1, NA, 2, 1, 1, 1, 1, 1, 2,...
## ..@ label : chr "h7f. ¿Tiene dificultad para comunicarse, comprender o ser comprendido por otros"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:6] -99 -88 1 2 3 4
## .. ..- attr(*, "names")= chr [1:6] "No responde" "No sabe" "1. No, ninguna dificultad" "2. Sí, algo de difi
cultad" ...
## $ informante : dbl+lbl [1:202231] 1, 0, 0, 0, 0, NA, 1, 0, 1, 0, 1, 0, 1,...
## ..@ label : chr "Informante de la encuesta"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "No" "Sí"
## $ e1 : dbl+lbl [1:202231] 1, 1, 1, 4, 1, NA, 1, 1, 1, 1, 1, 4, 1,...
## ..@ label : chr "e1. ¿Sabe leer y escribir?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:4] 1 2 3 4
## .. ..- attr(*, "names")= chr [1:4] "1. Sí, lee y escribe" "2. No, sólo lee" "3. No, sólo escribe" "4. No, n
inguno"
## $ e3 : dbl+lbl [1:202231] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, ...
## ..@ label : chr "e3. En el año escolar 2022, ¿asiste a algún establecimiento de educación?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ e4a : dbl+lbl [1:202231] NA, NA, NA, NA, NA, 1, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e4a. Principal razón por la cual no asiste a educ. parvularia, especial o bási"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:15] -99 -88 1 2 3 4 5 6 7 8 ...
## .. ..- attr(*, "names")= chr [1:15] "No responde" "No sabe" "1. No es necesario porque lo(a) cuidan en la c
asa" "2. No es necesario que asista a esta edad" ...
## $ e4a_esp : chr [1:202231] "" "" "" "" ...
## ..- attr(*, "label")= chr "e4a_esp. Especifique otra razón por la que no asiste"
## ..- attr(*, "format.stata")= chr "%233s"
## $ e5a : dbl+lbl [1:202231] NA, NA, NA, NA, 1, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e5a. ¿Cuál es la principal razón por la cual no asiste actualmente a educaci\xc3"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:18] -99 -88 1 2 3 4 5 6 7 8 ...
## .. ..- attr(*, "names")= chr [1:18] "No responde" "No sabe" "1. Ayuda en la casa o quehaceres del hogar"
"2. Ayuda o se dedica al cuidado de alguien" ...
## $ e5a_esp : chr [1:202231] "" "" "" "" ...
## ..- attr(*, "label")= chr "e5a_esp. Especifique otra razón por la que no asiste"
## ..- attr(*, "format.stata")= chr "%179s"
## $ e5b : dbl+lbl [1:202231] NA, NA, NA, NA, 4, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e5b. ¿Cuál fue el último año en qué asistió a algún establecimiento educa"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:7] -99 -88 1 2 3 4 5
## .. ..- attr(*, "names")= chr [1:7] "No responde" "No sabe" "1. Año 2022" "2. Año 2021 (el año pasado)" ...
## $ e6a_asiste : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e6a_asiste. ¿Cuál es el nivel educacional al que asiste?"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:11] 2 3 4 5 7 9 11 12 13 14 ...
## .. ..- attr(*, "names")= chr [1:11] "2. Sala cuna" "3. Jardín Infantil (Medio menor y Medio mayor)" "4. Pre
kínder / Kínder (Transición menor y Transición Mayor)" "5. Educación Especial (Diferencial)" ...
## $ e6a_no_asiste : dbl+lbl [1:202231] 7, 7, 12, 7, 9, 1, 9, 7, 7, 9, 6, 6, 7,...
## ..@ label : chr "e6a_no_asiste. ¿Cuál es el nivel educacional más alto al cual asistió?"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:15] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:15] "1. Nunca asistió" "2. Sala cuna" "3. Jardín Infantil (Medio menor y Me
dio mayor)" "4. Prekínder / Kínder (Transición menor y Transición Mayor)" ...
## $ e6a : dbl+lbl [1:202231] 7, 7, 12, 7, 9, 1, 9, 7, 7, 9, 6, 6, 7,...
## ..@ label : chr "e6a. ¿Cuál es el nivel educacional al que asiste o el más alto al cual asisti"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:15] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:15] "1. Nunca asistió" "2. Sala cuna" "3. Jardín Infantil (Medio menor y Me
dio mayor)" "4. Prekínder / Kínder (Transición menor y Transición Mayor)" ...
## $ e6b_asiste : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e6b_asiste. En ese nivel educacional, ¿cuál curso estudia actualmente?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num -88
## .. ..- attr(*, "names")= chr "No sabe"
## $ e6b_no_asiste : dbl+lbl [1:202231] 1, 4, 3, -88, 4, NA, 2, 4, 8, 4, ...
## ..@ label : chr "e6b_no_asiste. En ese nivel educacional, ¿cuál fue el último curso que aprob\xc3"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num -88
## .. ..- attr(*, "names")= chr "No sabe"
## $ e6b : dbl+lbl [1:202231] 1, 4, 3, -88, 4, NA, 2, 4, 8, 4, ...
## ..@ label : chr "e6b. En ese nivel educacional, ¿cuál curso estudia o cuál fue el último que"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num -88
## .. ..- attr(*, "names")= chr "No sabe"
## $ e6c_completo : dbl+lbl [1:202231] NA, NA, 1, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e6c_completo. ¿Completó el nivel anteriormente declarado?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "1. Sí" "2. No"
## $ e6d_preg : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e6d_preg. ¿Cuántos años duró la carrera previa al magíster o doctorado?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num -88
## .. ..- attr(*, "names")= chr "No sabe"
## $ e6d_postg : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e6d_postg. ¿Cuántos años duró el magíster?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num -88
## .. ..- attr(*, "names")= chr "No sabe"
## $ e7 : chr [1:202231] "" "" "técnico de nivel superior en enfermería" "" ...
## ..- attr(*, "label")= chr "e7. ¿Cuál es el nombre de la carrera o programa de estudios que cursa o cursó"
## ..- attr(*, "format.stata")= chr "%197s"
## $ cinef13_area : dbl+lbl [1:202231] NA, NA, 1, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "Clasificación Internacional Normalizada de Educación (CINE-F). Campo amplio"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:12] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:12] "Salud y Bienestar" "Ingeniería, Industria y Construcción" "Educación"
"Servicios" ...
## $ cinef13_subarea : dbl+lbl [1:202231] NA, NA, 1, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "Clasificación Internacional Normalizada de Educación (CINE-F). Campo específi"
## ..@ format.stata: chr "%2.0f"
## ..@ labels : Named num [1:29] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..- attr(*, "names")= chr [1:29] "Salud" "Ingeniería y Profesiones Afines" "Educación" "Servicios person
ales" ...
## $ e8 : dbl+lbl [1:202231] NA, NA, 2, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e8. ¿En qué tipo de institución realizó su educación superior?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:9] -99 -88 1 2 3 4 5 6 7
## .. ..- attr(*, "names")= chr [1:9] "No responde" "No sabe" "1. Centro de Formación Técnica" "2. Instituto P
rofesional" ...
## $ e9nom : chr [1:202231] "" "" "" "" ...
## ..- attr(*, "label")= chr "e9nom. Nombre del establecimiento educacional"
## ..- attr(*, "format.stata")= chr "%147s"
## $ e9dir : chr [1:202231] "" "" "" "" ...
## ..- attr(*, "label")= chr "e9dir. Dirección del establecimiento educacional"
## ..- attr(*, "format.stata")= chr "%121s"
## $ e9com_cod : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "e9com_cod. Código comuna del establecimiento educacional"
## ..@ format.stata: chr "%6.0f"
## ..@ labels : Named num [1:347] -66 1101 1107 1401 1402 ...
## .. ..- attr(*, "names")= chr [1:347] "Glosa no permite clasificación" "Iquique" "Alto Hospicio" "Pozo Almon
te" ...
## $ e9pais_cod : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e9pais_cod. Código país del establecimiento educacional"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:10] 102 410 418 501 502 503 505 506 509 513
## .. ..- attr(*, "names")= chr [1:10] "Alemania" "Estados Unidos" "Panamá" "Argentina" ...
## $ e9rbd : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, N...
## ..@ label : chr "e9rbd. Rol base de datos Mineduc"
## ..@ format.stata: chr "%6.0f"
## ..@ labels : Named num [1:20759] -99 -88 -66 1 2 3 4 5 7 8 ...
## .. ..- attr(*, "names")= chr [1:20759] "No responde" "No sabe" "Glosa no permite clasificación" "LICEO POLI
TECNICO ARICA" ...
## $ e9rbd_sup : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "e9rbd_sup. Rol base de datos Mineduc (Ed. Superior)"
## ..@ format.stata: chr "%6.0f"
## ..@ labels : Named num [1:147] -99 -88 1 2 3 4 7 9 10 11 ...
## .. ..- attr(*, "names")= chr [1:147] "No responde" "No sabe" "Universidad Gabriela Mistral" "Universidad Fi
nis Terrae" ...
## $ e9dv : chr [1:202231] "" "" "" "" ...
## ..- attr(*, "label")= chr "e9dv. Dígito verificador de RBD"
## ..- attr(*, "format.stata")= chr "%9s"
## $ e9depen : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e9depen. Dependencia administrativa del establecimiento educacional (Mineduc)"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:16] -66 1 2 3 4 5 6 7 8 9 ...
## .. ..- attr(*, "names")= chr [1:16] "No es posible clasificar" "Municipal" "Particular Subvencionado" "Part
icular Pagado" ...
## $ e10 : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e10. En 2022, ¿cuál es la dependencia administrativa del estab. educacional?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:15] -88 1 2 3 4 5 6 7 8 9 ...
## .. ..- attr(*, "names")= chr [1:15] " No sabe" "1. Municipal o Servicio Local de Educación" "2. Particular
Subvencionada" "3. Corporación de Administración Delegada" ...
## $ e11 : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e11. ¿A qué jornada asiste regularmente?"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:6] 1 2 3 4 5 6
## .. ..- attr(*, "names")= chr [1:6] "1. Jornada mañana" "2. Jornada tarde" "3. Jornada completa (mañana y ta
rde)" "4. Jornada completa con extensión de horario" ...
## $ e12a : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e12a. En el año 2022, ¿ha recibido desayuno gratuito en el estab. educacional?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:4] -99 -88 1 2
## .. ..- attr(*, "names")= chr [1:4] " No responde" " No sabe" "1. Sí" "2. No"
## $ e12b : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e12b. En el año 2022, ¿ha recibido almuerzo gratuito en el estab. educacional?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:4] -99 -88 1 2
## .. ..- attr(*, "names")= chr [1:4] " No responde" " No sabe" "1. Sí" "2. No"
## $ e12c : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e12c. En el año 2022, ¿ha recibido once gratuita en el estab. educacional?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:4] -99 -88 1 2
## .. ..- attr(*, "names")= chr [1:4] " No responde" " No sabe" "1. Sí" "2. No"
## $ e12d : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e12d. En el año 2022, ¿ha recibido colación gratuita en el estab. educacional"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:4] -99 -88 1 2
## .. ..- attr(*, "names")= chr [1:4] " No responde" " No sabe" "1. Sí" "2. No"
## $ e12e : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e12e. En el año escolar 2022, ¿ha recibido tarjeta Junaeb para alimentación?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:4] -99 -88 1 2
## .. ..- attr(*, "names")= chr [1:4] "No responde" "No sabe" "1. Sí" "2. No"
## $ e13a : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e13a. En el año escolar 2022, ¿ha recibido o recibió alguna de estas becas?"
## ..@ format.stata: chr "%3.0f"
## ..@ labels : Named num [1:4] -99 -88 1 2
## .. ..- attr(*, "names")= chr [1:4] "No responde" "No sabe" "1. Sí" "2. No"
## $ e13b_1 : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e13b_1. Recibió beca 1. Beca Indígena (Todos los estudiantes)"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "No" "Sí"
## $ e13b_2 : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e13b_2. Recibió beca 2. BARE (Ed. Media)"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "No" "Sí"
## $ e13b_3 : dbl+lbl [1:202231] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,...
## ..@ label : chr "e13b_3. Recibió beca 3. Beca Presidente de la República (Ed. Media y Superior)"
## ..@ format.stata: chr "%1.0f"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "No" "Sí"
## [list output truncated]

Verificar el tipo de las variables

str(CASEN_22$yoprcor)

## num [1:202231] NA NA 411242 NA NA ...

## - attr(*, "label")= chr "Ingreso ocupación principal corregido"
## - attr(*, "format.stata")= chr "%8.0f"

str(CASEN_22$esc)

## num [1:202231] 1 4 15 NA 12 NA 10 4 8 12 ...

## - attr(*, "label")= chr "Años de escolaridad (edad >= 15)"
## - attr(*, "format.stata")= chr "%2.0f"

Convertir a numérico si es necesario

if (!is.numeric(CASEN_22$yoprcor)) {
CASEN_22$yoprcor <- as.numeric(as.character(CASEN_22$yoprcor))
}

if (!is.numeric(CASEN_22$esc)) {
CASEN_22$esc <- as.numeric(as.character(CASEN_22$esc))
}

Verificar nuevamente la estructura después de la

conversión
str(CASEN_22$yoprcor)

## num [1:202231] NA NA 411242 NA NA ...

## - attr(*, "label")= chr "Ingreso ocupación principal corregido"
## - attr(*, "format.stata")= chr "%8.0f"

str(CASEN_22$esc)

## num [1:202231] 1 4 15 NA 12 NA 10 4 8 12 ...

## - attr(*, "label")= chr "Años de escolaridad (edad >= 15)"
## - attr(*, "format.stata")= chr "%2.0f"

1.a) Cálculo de Estadísticas Descriptivas

1.a) Cálculo de estadísticas descriptivas para ‘yoprcor’ y

‘esc’
Calcular estadísticas para ‘yoprcor’
media_yoprcor <- mean(CASEN_22$yoprcor, na.rm = TRUE)
varianza_yoprcor <- var(CASEN_22$yoprcor, na.rm = TRUE)
sd_yoprcor <- sd(CASEN_22$yoprcor, na.rm = TRUE)
mediana_yoprcor <- median(CASEN_22$yoprcor, na.rm = TRUE)

Calcular estadísticas para ‘esc’

media_esc <- mean(CASEN_22$esc, na.rm = TRUE)
varianza_esc <- var(CASEN_22$esc, na.rm = TRUE)
sd_esc <- sd(CASEN_22$esc, na.rm = TRUE)
mediana_esc <- median(CASEN_22$esc, na.rm = TRUE)

Crear una lista con los resultados

resultados <- list(
"Media yoprcor" = media_yoprcor,
"Varianza yoprcor" = varianza_yoprcor,
"Desviación Estándar yoprcor" = sd_yoprcor,
"Mediana yoprcor" = mediana_yoprcor,
"Media esc" = media_esc,
"Varianza esc" = varianza_esc,
"Desviación Estándar esc" = sd_esc,
"Mediana esc" = mediana_esc
)

Imprimir los resultados

print(resultados)

## $`Media yoprcor`
## [1] 626617.8
##
## $`Varianza yoprcor`
## [1] 486008325968
##
## $`Desviación Estándar yoprcor`
## [1] 697143
##
## $`Mediana yoprcor`
## [1] 450000
##
## $`Media esc`
## [1] 11.16742
##
## $`Varianza esc`
## [1] 18.23009
##
## $`Desviación Estándar esc`
## [1] 4.269671
##
## $`Mediana esc`
## [1] 12

B) Gráficos de PMF y CDF para Cada Variable

#A) Gráfico de PMF (Función de Masa de Probabilidad)

1.b) Gráfico de PMF para ‘yoprcor’ y ‘esc’

PMF para ‘yoprcor’
Definir un límite superior en ‘yoprcor’ para evitar valores
extremos
CASEN_22_filtrado <- CASEN_22[CASEN_22$yoprcor < 2000000, ]

Crear histograma sin valores extremos y con eje Y

formateado
ggplot(CASEN_22_filtrado, aes(x = yoprcor)) +
geom_histogram(aes(y = ..density..), binwidth = 50000, color = "black", fill = "lightblue", alpha = 0.6) +
labs(title = "Distribución de Ingreso Ocupación Principal (yoprcor)",
x = "Ingreso Ocupación Principal (yoprcor)",
y = "Densidad") +
theme_minimal() +
theme(plot.title = element_text(hjust = 0.5)) +
scale_x_continuous(labels = scales::comma) + # Formato de eje X con comas
scale_y_continuous(labels = scales::number_format(accuracy = 0.000001))

## Warning: The dot-dot notation (`..density..`) was deprecated in ggplot2 3.4.0.

## ℹ Please use `after_stat(density)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

## Warning: Removed 119947 rows containing non-finite outside the scale range
## (`stat_bin()`).

PMF para ‘esc’

ggplot(CASEN_22, aes(x = esc)) +
geom_histogram(binwidth = 1, color = "black", fill = "salmon", boundary = 0) +
labs(title = "PMF de Años de Escolaridad (esc)", x = "Años de Escolaridad (esc)", y = "Frecuencia") +
theme_minimal()

## Warning: Removed 36983 rows containing non-finite outside the scale range
## (`stat_bin()`).

b. Gráfico de CDF (Función de Distribución Acumulada)

Gráfico de CDF para ‘yoprcor’ y ‘esc’
CDF para ‘yoprcor’
ggplot(CASEN_22, aes(x = yoprcor)) +
stat_ecdf(geom = "step") +
labs(title = "CDF de yoprcor", x = "Ingreso Ocupación Principal (yoprcor)", y = "Probabilidad Acumulada") +
theme_minimal()

## Warning: Removed 119947 rows containing non-finite outside the scale range
## (`stat_ecdf()`).

# CDF para ‘esc’

ggplot(CASEN_22, aes(x = esc)) +

stat_ecdf(geom = "step") +
labs(title = "CDF de Años de Escolaridad (esc)", x = "Años de Escolaridad (esc)", y = "Probabilidad Acumulada")
+
theme_minimal()

## Warning: Removed 36983 rows containing non-finite outside the scale range
## (`stat_ecdf()`).

C) Agrupar en 3 Categorías

1.c) Agrupación en 3 categorías para ‘yoprcor’ y ‘esc’

Agrupar ‘yoprcor’ en 3 categorías
CASEN_22 <- CASEN_22 %>%
mutate(
yoprcor_cat = cut(
yoprcor,
breaks = quantile(yoprcor, probs = c(0, 1/3, 2/3, 1), na.rm = TRUE),
include.lowest = TRUE,
labels = c("Bajo", "Medio", "Alto")
)
)

Agrupar ‘esc’ en 3 categorías

CASEN_22 <- CASEN_22 %>%
mutate(
esc_cat = cut(
esc,
breaks = quantile(esc, probs = c(0, 1/3, 2/3, 1), na.rm = TRUE),
include.lowest = TRUE,
labels = c("Bajo", "Medio", "Alto")
)
)

Ver las primeras filas con las categorías

head(CASEN_22[, c("yoprcor", "yoprcor_cat", "esc", "esc_cat")])

yoprcor yoprcor_cat esc esc_cat

<dbl> <fct> <dbl> <fct>

NA NA 1 Bajo

NA NA 4 Bajo

411242 Medio 15 Alto

NA NA NA NA

NA NA 12 Medio

NA NA NA NA

6 rows

D) Graficar Joint PMF y Joint CDF

Joint PMF (Tabla de Frecuencias Conjuntas y Gráfico de

Barras)
1.d)
Joint PMF de ‘yoprcor_cat’ y ‘esc_cat’

Crear tabla de frecuencias conjuntas

joint_pmf <- table(CASEN_22$yoprcor_cat, CASEN_22$esc_cat)
print(joint_pmf)

##
## Bajo Medio Alto
## Bajo 13034 14904 8154
## Medio 4897 9831 7451
## Alto 1579 5352 16533

Gráfico de barras para Joint PMF

ggplot(CASEN_22, aes(x = yoprcor_cat, fill = esc_cat)) +
geom_bar(position = "dodge") +
labs(
title = "Joint PMF de yoprcor y Años de Escolaridad",
x = "Categoría de Ingreso Ocupación Principal",
y = "Frecuencia",
fill = "Categoría de Años de Escolaridad"
) +
theme_minimal()

### Joint CDF (Gráfico de Densidad

Conjunta)

1.d) Joint CDF de ‘yoprcor’ y ‘esc’

install.packages("plotly")

## Installing package into 'C:/Users/Pvblo/AppData/Local/R/win-library/4.3'

## (as 'lib' is unspecified)

## package 'plotly' successfully unpacked and MD5 sums checked

##
## The downloaded binary packages are in
## C:\Users\Pvblo\AppData\Local\Temp\RtmpeIHub2\downloaded_packages

library(plotly)

##
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':

##
## last_plot

## The following object is masked from 'package:stats':

##
## filter

## The following object is masked from 'package:graphics':

##
## layout

Crear una muestra de datos (filtrar para evitar demasiados

datos)
CASEN_sample <- CASEN_22[sample(1:nrow(CASEN_22), 1000), ] # Muestrea 1000 datos

Gráfico de Superficie 3D con Puntos

plot_ly(x = CASEN_sample$yoprcor, y = CASEN_sample$esc, z = CASEN_sample$yoprcor, type = "mesh3d") %>%
add_markers(x = CASEN_sample$yoprcor, y = CASEN_sample$esc, z = CASEN_sample$yoprcor,
marker = list(color = 'red', size = 2), name = "Datos") %>%
layout(
title = "Superficie 3D de Ingreso Ocupación Principal y Años de Escolaridad",
scene = list(
xaxis = list(title = "Ingreso Ocupación Principal (yoprcor)"),
yaxis = list(title = "Años de Escolaridad (esc)"),
zaxis = list(title = "Densidad")
)
)

## Warning: Ignoring 578 observations

Superficie 3D de Ingreso Ocupación Principal y Años de Escolaridad