setwd("C:/Users/Adriana/Desktop/INDICE DE DESARROLLO JUVENIL/")
library(haven)
data_EDUCACION <- read_sav("906-Modulo03-EDUCACION/Enaho01A-2023-300.sav")
data_SALUD <- read_sav("906-Modulo04-SALUD/Enaho01A-2023-400.sav")
data_EMPLEO_INGRESOS <- read_sav("906-Modulo05-EMPLEO E INGRESOS/Enaho01a-2023-500.sav")Crear el ID unico por persona
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# Crear ID en cada base
data_EDUCACION <- data_EDUCACION %>% mutate(ID_UNICO = paste(CONGLOME, VIVIENDA, HOGAR, CODPERSO, sep = "_"))
data_SALUD <- data_SALUD %>% mutate(ID_UNICO = paste(CONGLOME, VIVIENDA, HOGAR, CODPERSO, sep = "_"))
data_EMPLEO_INGRESOS <- data_EMPLEO_INGRESOS %>% mutate(ID_UNICO = paste(CONGLOME, VIVIENDA, HOGAR, CODPERSO, sep = "_"))Agregar variable EDAD usando el año de nacimiento
data_SALUD$P400A3=as.numeric(data_SALUD$P400A3)
data_SALUD <- data_SALUD %>% mutate(EDAD = 2023 - data_SALUD$P400A3)
str(data_SALUD$EDAD)## num [1:112530] 44 42 10 8 61 60 39 31 30 8 ...data_SALUD_JOVENES <- data_SALUD %>% filter(EDAD >= 15 & EDAD <= 29)
# Merge 1: unir EDUCACION con SALUD
base_educacion_salud <- inner_join(data_SALUD_JOVENES, data_EDUCACION, by = "ID_UNICO")
# Merge 2: unir el resultado anterior con EMPLEO_INGRESOS
base_final_jovenes <- inner_join(base_educacion_salud, data_EMPLEO_INGRESOS, by = "ID_UNICO")str(base_final_jovenes)## tibble [25,277 × 2,867] (S3: tbl_df/tbl/data.frame)
## $ AÑO.x : chr [1:25277] "2023" "2023" "2023" "2023" ...
## ..- attr(*, "label")= chr "Año de la encuesta"
## ..- attr(*, "format.spss")= chr "A4"
## ..- attr(*, "display_width")= int 6
## $ MES.x : chr [1:25277] "01" "01" "01" "01" ...
## ..- attr(*, "label")= chr "Mes de ejecucion de la encuesta"
## ..- attr(*, "format.spss")= chr "A2"
## ..- attr(*, "display_width")= int 5
## $ CONGLOME.x : chr [1:25277] "005030" "005030" "005138" "005138" ...
## ..- attr(*, "label")= chr "Numero de conglomerado"
## ..- attr(*, "format.spss")= chr "A6"
## ..- attr(*, "display_width")= int 10
## $ VIVIENDA.x : chr [1:25277] "060" "060" "025" "028" ...
## ..- attr(*, "label")= chr "Numero de seleccion de vivienda"
## ..- attr(*, "format.spss")= chr "A3"
## ..- attr(*, "display_width")= int 10
## $ HOGAR.x : chr [1:25277] "11" "11" "11" "11" ...
## ..- attr(*, "label")= chr "Numero secuencial del Hogar"
## ..- attr(*, "format.spss")= chr "A2"
## ..- attr(*, "display_width")= int 7
## $ CODPERSO.x : chr [1:25277] "03" "04" "03" "03" ...
## ..- attr(*, "label")= chr "Codigo de la persona"
## ..- attr(*, "format.spss")= chr "A2"
## ..- attr(*, "display_width")= int 10
## $ UBIGEO.x : chr [1:25277] "010201" "010201" "010513" "010513" ...
## ..- attr(*, "label")= chr "Ubicacion geografica"
## ..- attr(*, "format.spss")= chr "A6"
## $ DOMINIO.x : dbl+lbl [1:25277] 7, 7, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6...
## ..@ label : chr "Dominio geografico"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 9
## ..@ labels : Named num [1:8] 1 2 3 4 5 6 7 8
## .. ..- attr(*, "names")= chr [1:8] "Costa Norte" "Costa Centro" "Costa Sur" "Sierra Norte" ...
## $ ESTRATO.x : dbl+lbl [1:25277] 4, 4, 7, 7, 7, 7, 7, 7, 7, 7, 3, 3, 3, 3, 3, 1, 1, 1...
## ..@ label : chr "Estrato geografico"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 9
## ..@ labels : Named num [1:8] 1 2 3 4 5 6 7 8
## .. ..- attr(*, "names")= chr [1:8] " De 500 000 a mas habitantes" " De 100 000 a 499 999 habitantes" " De 50 000 a 99 999 habitantes" " De 20 000 a 49 999 habitantes" ...
## $ CODINFOR.x : chr [1:25277] "03" "04" "03" "02" ...
## ..- attr(*, "label")= chr "Codigo de informante del capitulo 400"
## ..- attr(*, "format.spss")= chr "A2"
## ..- attr(*, "display_width")= int 10
## $ P400N : num [1:25277] 3 4 3 3 2 2 3 4 5 6 ...
## ..- attr(*, "label")= chr "Numero de persona"
## ..- attr(*, "format.spss")= chr "F2.0"
## ..- attr(*, "display_width")= int 7
## $ P400I : dbl+lbl [1:25277] 3, 4, 3, 2, 2, 2, 3, 4, 5, 6, 2, 3, 1, 5, 2, 3, 4, 2...
## ..@ label : chr "Codigo de informante"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 7
## ..@ labels : Named num 0
## .. ..- attr(*, "names")= chr "Omision"
## $ P400A1 : num [1:25277] 11 1 24 15 15 22 28 18 19 8 ...
## ..- attr(*, "label")= chr "¿En que dia, mes y año nacio? - Dia"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P400A2 : num [1:25277] 5 8 9 1 6 1 8 3 7 3 ...
## ..- attr(*, "label")= chr "¿En que dia, mes y año nacio? - Mes"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P400A3 : num [1:25277] 1997 2005 2007 2008 2008 ...
## $ P401C : dbl+lbl [1:25277] 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1...
## ..@ label : chr "¿Tiene DNI?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:3] 1 2 3
## .. ..- attr(*, "names")= chr [1:3] "Si" "No" "No sabe"
## $ P401D1 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DNI: No tiene partida de nacimiento?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No tiene partida de nacimiento"
## $ P401D2 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DNI: No lo considera importante?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 2
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No lo considera importante"
## $ P401D3 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DNI: No conoce los requisitos?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 3
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No conoce los requisitos"
## $ P401D4 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DN: No sabe donde acudir para tramitar su DNI?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 4
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No sabe donde acudir para tramitar su DNI"
## $ P401D5 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DNI: No existen oficinas del RENIEC cerca de su domicilio?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 5
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No existen oficinas del RENIEC cerca de su domicilio"
## $ P401D6 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DNI: No cuenta con los recursos economicos para tramitarlo?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 6
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No cuenta con los recursos economicos para tramitarlo"
## $ P401D7 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DNI: Esta en tramite por primera vez"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 7
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Esta en tramite por primera vez"
## $ P401D8 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DNI: Por errores en la partida de nacimiento"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 8
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Por errores en la partida de nacimiento"
## $ P401D9 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene DNI: Otro"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 9
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P401E1 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene partida de nacimiento: No tiene dinero para tramite?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No tiene dinero para tramite"
## $ P401E2 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene partida de nacimiento: Las oficinas de tramite se ubican lejos de su domicilio?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 2
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Las oficinas de tramite se ubican lejos de su domicilio"
## $ P401E3 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene partida de nacimiento: No conoce los requisitos?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 3
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No conoce los requisitos"
## $ P401E4 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene partida de nacimiento: No sabe donde acudir para tramitarla?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 4
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No sabe donde acudir para tramitarla"
## $ P401E5 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene partida de nacimiento: La persona no nacio en un Establecimiento de Salud?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 5
## .. ..- attr(*, "names")= chr [1:2] "Pase" "La persona no nacio en un establecimiento de salud"
## $ P401E6 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene partida de nacimiento: No reconocido por su padre?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 6
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No reconocido por el padre"
## $ P401E7 : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, ...
## ..@ label : chr "¿Cuales son las razones por las que no tiene partida de nacimiento: Otro?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 7
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P401F : dbl+lbl [1:25277] 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1...
## ..@ label : chr "Hace 5 años,... ¿Vivia en este distrito?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:3] 1 2 3
## .. ..- attr(*, "names")= chr [1:3] "Si" "No" "Aun no habia nacido"
## $ P401G : num [1:25277] NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "label")= chr "¿En que distrito, provincia y departamento vivia hace 5 años?"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ P401G1 : dbl+lbl [1:25277] 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, 2, 2, 1, 2, 1, 2, 2, 2...
## ..@ label : chr "Cuando usted nacio, ¿Vivia su madre en este distrito?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:3] 1 2 3
## .. ..- attr(*, "names")= chr [1:3] "Si" "No" "No sabe"
## $ P401G2 : num [1:25277] 10201 10201 10513 10513 10513 ...
## ..- attr(*, "label")= chr "¿En que distrito y provincia vivia su madre?"
## ..- attr(*, "format.spss")= chr "F6.0"
## $ P401H1 : dbl+lbl [1:25277] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2...
## ..@ label : chr "¿Tiene Ud. limitaciones de forma permanente, para: Moverse o caminar, para usar brazos o piernas?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P401H2 : dbl+lbl [1:25277] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2...
## ..@ label : chr "¿Tiene Ud. limitaciones de forma permanente, para: Ver, aun usando anteojos?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P401H3 : dbl+lbl [1:25277] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2...
## ..@ label : chr "¿Tiene Ud. limitaciones de forma permanente, para: Hablar o comunicarse, aun usando el lenguaje de señas u otro?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P401H4 : dbl+lbl [1:25277] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2...
## ..@ label : chr "¿Tiene Ud. limitaciones de forma permanente, para: Oir, aun usando audifonos ?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P401H5 : dbl+lbl [1:25277] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2...
## ..@ label : chr "¿Tiene Ud. limitaciones de forma permanente, para: Entender o aprender (Concentrarse y recordar)?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P401H6 : dbl+lbl [1:25277] 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2...
## ..@ label : chr "¿Tiene Ud. limitaciones de forma permanente, para: Relacionarse con los demas, por sus pensamientos, etc?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P401 : dbl+lbl [1:25277] 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 1, 1, 2, 1, 2, 2, 2...
## ..@ label : chr "¿Padece de alguna enfermedad o malestar cronico?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 6
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P4021 : dbl+lbl [1:25277] 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1...
## ..@ label : chr "En las ultimas 4 semanas, ¿Presento Ud. algun(a): Sintoma o malestar (Tos, dolor de cabeza, fiebre, nauseas)?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Sintoma o malestar (tos, dolor de cabeza, fiebre, nauseas)?"
## $ P4022 : dbl+lbl [1:25277] 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0...
## ..@ label : chr "En las ultimas 4 semanas, ¿Presento Ud. algun(a): Enfermedad (gripe, colitis, etc.)?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Enfermedad (gripe, colitis, etc)"
## $ P4023 : dbl+lbl [1:25277] 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0...
## ..@ label : chr "En las ultimas 4 semanas, ¿Presento Ud. algun(a): Recaida de enfermedad cronica?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Recaida de enfermedad cronica"
## $ P4024 : dbl+lbl [1:25277] 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0...
## ..@ label : chr "En las ultimas 4 semanas, ¿Presento Ud. algun(a): Accidente ?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Accidente"
## $ P4025 : dbl+lbl [1:25277] 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0...
## ..@ label : chr "En las ultimas 4 semanas, ¿Presento Ud. algun(a): No tuvo enfermedad, sintoma, recaida, accidente?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No tuvo enfermedad, sintoma, recaida, accidente"
## $ P4026 : dbl+lbl [1:25277] 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0...
## ..@ label : chr "En las ultimas 4 semanas, ¿Presento Ud. algun(a): Sintoma del COVID-19 (Fiebre, tos seca, sensacion de ahogo)"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Sintoma del COVID-19 (Fiebre, tos seca, sensacion de ahogo)"
## $ P4031 : dbl+lbl [1:25277] NA, NA, 1, NA, NA, 1, 0, NA, NA, 1, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Puesto de salud MINSA"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Puesto de salud MINSA"
## $ P4032 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Centro de salud MINSA"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Centro de salud MINSA"
## $ P4033 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Centro o puesto de salud CLAS"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Centro o puesto de salud CLAS"
## $ P4034 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Posta, policlinico, EsSalud"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Posta, policlinico EsSalud"
## $ P4035 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Hospital MINSA"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Hospital MINSA"
## $ P4036 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Hospital del seguro (EsSalud)"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Hospital del Seguro (EsSalud)"
## $ P4037 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Hospital de las FF.AA. y/o Policia Nacional"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Hospital de las FF.AA, y/o Policia Nacional"
## $ P4038 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 1, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Consultorio medico particular"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Consultorio medico particular"
## $ P4039 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Clinica particular"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Clinica particular"
## $ P40310 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 1, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Farmacia o botica"
## ..@ format.spss: chr "F2.0"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Farmacia o botica"
## $ P40311 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: En su domicilio (del paciente)"
## ..@ format.spss: chr "F2.0"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "En su domicilio (del paciente)"
## $ P40313 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 0, NA, NA, 0, 0, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: Otro"
## ..@ format.spss: chr "F2.0"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P40314 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, 1, NA, NA, 0, 1, 0, 0, ...
## ..@ label : chr "¿A donde acudio para consultar por esta enfermedad, ...?: No busco atencion"
## ..@ format.spss: chr "F2.0"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "No busco atencion"
## $ P4041 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, NA, NA, NA, 0, NA, NA, 1, ...
## ..@ label : chr "¿Quien le atendio durante la consulta?: Medico"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Medico"
## $ P4042 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, NA, NA, NA, 0, NA, NA, 0, ...
## ..@ label : chr "¿Quien le atendio durante la consulta?: Dentista/Odontologo"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Dentista/Odontologo"
## $ P4043 : dbl+lbl [1:25277] NA, NA, 1, NA, NA, 0, NA, NA, NA, 1, NA, NA, 0, ...
## ..@ label : chr "¿Quien le atendio durante la consulta?: Obstetriz"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Obstetriz"
## $ P4044 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, NA, NA, NA, 0, NA, NA, 0, ...
## ..@ label : chr "¿Quien le atendio durante la consulta?: Enfermera(o)"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Enfermero(a)"
## $ P4045 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 1, NA, NA, NA, 0, NA, NA, 0, ...
## ..@ label : chr "¿Quien le atendio durante la consulta?: Sanitario(a) (auxiliar tecnico en salud)"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Sanitario(a) (auxiliar tecnico en salud)"
## $ P4046 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, NA, NA, NA, 0, NA, NA, 0, ...
## ..@ label : chr "¿Quien le atendio durante la consulta?: Promotor(a)"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Promotor(a)"
## $ P4047 : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, NA, NA, NA, 0, NA, NA, 0, ...
## ..@ label : chr "¿Quien le atendio durante la consulta?: Otro"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P407F1 : num [1:25277] NA NA 0 NA NA 0 NA NA NA 0 ...
## ..- attr(*, "label")= chr "Desde que solicito la cita en el establecimiento de salud ..., ¿Cuanto tiempo transcurrio, hasta la fecha...?: N° Meses"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407F2 : num [1:25277] NA NA 0 NA NA 0 NA NA NA 0 ...
## ..- attr(*, "label")= chr "Desde que solicito la cita en el establecimiento de salud ..., ¿Cuanto tiempo transcurrio, hasta la fecha...?: N° Dias"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407F3 : num [1:25277] NA NA 0 NA NA 0 NA NA NA 0 ...
## ..- attr(*, "label")= chr "Desde que solicito la cita en el establecimiento de salud ..., ¿Cuanto tiempo transcurrio, hasta la fecha...?: N° Horas"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407F4 : num [1:25277] NA NA 20 NA NA 5 NA NA NA 1 ...
## ..- attr(*, "label")= chr "Desde que solicito la cita en el establecimiento de salud ..., ¿Cuanto tiempo transcurrio, hasta la fecha...?: N° Minutos"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407G1 : num [1:25277] NA NA 0 NA NA 0 NA NA NA 0 ...
## ..- attr(*, "label")= chr "Generalmente, ¿Cuanto tiempo demora para llegar al establecimiento de salud donde acudio?: N° Dias"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407G2 : num [1:25277] NA NA 0 NA NA 0 NA NA NA 0 ...
## ..- attr(*, "label")= chr "Generalmente, ¿Cuanto tiempo demora para llegar al establecimiento de salud donde acudio?: N° Horas"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407G3 : num [1:25277] NA NA 15 NA NA 2 NA NA NA 5 ...
## ..- attr(*, "label")= chr "Generalmente, ¿Cuanto tiempo demora para llegar al establecimiento de salud donde acudio?: N° Minutos"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407H : dbl+lbl [1:25277] NA, NA, 0, NA, NA, 0, NA, NA, NA, 0, NA, NA, NA, ...
## ..@ label : chr "La ultima vez que acudio al establecimiento de salud, ¿Cuanto tiempo espero por su ... consulta?: No lo atendieron"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Si lo atendieron" "No lo atendieron"
## $ P407H1 : num [1:25277] NA NA 0 NA NA 0 NA NA NA 0 ...
## ..- attr(*, "label")= chr "La ultima vez que acudio al establecimiento de salud, ¿Cuanto tiempo espero por su ... consulta?: N° Horas"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407H2 : num [1:25277] NA NA 10 NA NA 10 NA NA NA 1 ...
## ..- attr(*, "label")= chr "La ultima vez que acudio al establecimiento de salud, ¿Cuanto tiempo espero por su ... consulta? N° Minutos"
## ..- attr(*, "format.spss")= chr "F2.0"
## $ P407I : dbl+lbl [1:25277] 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2...
## ..@ label : chr "¿En las ultimas 4 semanas ¿le realizaron alguna prueba para descartar el COVID-19?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P407J : dbl+lbl [1:25277] NA, NA, NA, NA, NA, NA, NA, NA, NA, 1, NA, NA, NA, ...
## ..@ label : chr "¿Cual fue el resultado de/las pruebas/s?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:3] 1 2 3
## .. ..- attr(*, "names")= chr [1:3] "Negativo" "Positivo" "Aun no recibe resultado"
## $ P407K : dbl+lbl [1:25277] 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2...
## ..@ label : chr "¿Ha tomado medicamentos por prevencion o como parte de un tratamiento para el Covid 19?"
## ..@ format.spss : chr "F1.0"
## ..@ display_width: int 7
## ..@ labels : Named num [1:2] 1 2
## .. ..- attr(*, "names")= chr [1:2] "Si" "No"
## $ P407L1 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Cloroquina?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 1
## .. ..- attr(*, "names")= chr [1:2] "Pase" " Cloroquina"
## $ P407L2 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Hidroxicloroquina?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 2
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Hidroxicloroquina"
## $ P407L3 : dbl+lbl [1:25277] 0, NA, 0, NA, 3, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Ivermectina?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 3
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Ivermectina"
## $ P407L4 : dbl+lbl [1:25277] 4, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Azitromicina?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 4
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Azitromicina"
## $ P407L5 : dbl+lbl [1:25277] 5, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Paracetamol?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 5
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Paracetamol"
## $ P407L6 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Enoxaparina o anticoagulante?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 6
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Enoxaparina o anticoagulante"
## $ P407L7 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Corticoides (metilprednisolona o dexametasona)?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 7
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Corticoides (metilprednisolona o dexametasona)"
## $ P407L8 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Administracion de oxigeno?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 8
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Administracion de oxigeno"
## $ P407L9 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Hidratacion por via endovenosa?"
## ..@ format.spss: chr "F1.0"
## ..@ labels : Named num [1:2] 0 9
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Hidratacion por via endovenosa"
## $ P407L10 : dbl+lbl [1:25277] 10, NA, 10, NA, 10, 10, 10, 10, 10, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Remedios caseros?"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 9
## ..@ labels : Named num [1:2] 0 10
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Remedios caseros"
## $ P407L11$01 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Otro (01)"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 12
## ..@ labels : Named num [1:2] 0 11
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P407L11$02 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Otro (02)?"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 12
## ..@ labels : Named num [1:2] 0 12
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P407L11$03 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Otro (03)?"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 12
## ..@ labels : Named num [1:2] 0 13
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P407L11$04 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Otro (04)?"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 12
## ..@ labels : Named num [1:2] 0 14
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P407L11$05 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Otro (05)?"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 12
## ..@ labels : Named num [1:2] 0 15
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P407L11$06 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Otro (06)?"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 12
## ..@ labels : Named num [1:2] 0 16
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## $ P407L11$07 : dbl+lbl [1:25277] 0, NA, 0, NA, 0, 0, 0, 0, 0, NA, NA, NA, NA, ...
## ..@ label : chr "¿Los medicamentos que usted ha tomado fueron: Otro (07)?"
## ..@ format.spss : chr "F2.0"
## ..@ display_width: int 12
## ..@ labels : Named num [1:2] 0 17
## .. ..- attr(*, "names")= chr [1:2] "Pase" "Otro"
## [list output truncated]tasa de empleo:
# Crear variable "ocupado"
base_final_jovenes$ocupado <- ifelse(
base_final_jovenes$P501 == 1 |
base_final_jovenes$P502 == 1 |
base_final_jovenes$P503 == 1 |
base_final_jovenes$P5041 == 1 |
base_final_jovenes$P5042 == 1 |
base_final_jovenes$P5043 == 1 |
base_final_jovenes$P5044 == 1 |
base_final_jovenes$P5045 == 1 |
base_final_jovenes$P5046 == 1 |
base_final_jovenes$P5047 == 1 |
base_final_jovenes$P5048 == 1 |
base_final_jovenes$P5049 == 1 |
base_final_jovenes$P50410 == 1,
1, 0
)
# Crear variable "desocupado"
base_final_jovenes$desocupado <- ifelse(
(base_final_jovenes$ocupado == 0) & (
base_final_jovenes$P545 == 1 |
base_final_jovenes$P546 == 3 |
(base_final_jovenes$P547 == 1 & base_final_jovenes$P548 == 1)
),
1, 0
)
# Crear variable "PEA"
base_final_jovenes$PEA <- ifelse(
base_final_jovenes$ocupado == 1 | base_final_jovenes$desocupado == 1,
1, 0
)
# Calcular tasa de empleo
tasa_empleo <- (sum(base_final_jovenes$ocupado, na.rm = TRUE) / sum(base_final_jovenes$PEA, na.rm = TRUE)) * 100
# Calcular tasa de desempleo
tasa_desempleo <- (sum(base_final_jovenes$desocupado, na.rm = TRUE) / sum(base_final_jovenes$PEA, na.rm = TRUE)) * 100
# Mostrar resultados
cat("Tasa de Empleo: ", round(tasa_empleo, 2), "%\n")## Tasa de Empleo: 90.16 %cat("Tasa de Desempleo: ", round(tasa_desempleo, 2), "%\n")## Tasa de Desempleo: 9.84 %ALFABETIZACION:
# Paso 1: Recodear P302
base_final_jovenes$ALFABETIZACION <- ifelse(base_final_jovenes$P302 == 1, 1,
ifelse(base_final_jovenes$P302 == 2, 0, NA))
# Paso 2: Calcular tasa de alfabetismo
tasa_alfabeto <- mean(base_final_jovenes$ALFABETIZACION, na.rm = TRUE) * 100
# Paso 3: Mostrar resultado
cat("La tasa de alfabetismo en jóvenes es:", round(tasa_alfabeto, 2), "%")## La tasa de alfabetismo en jóvenes es: 56.54 %MATRICULADOS EN EDUCACION SUPERIOR
# Paso 1: Crear nueva variable: matriculado en educación superior
base_final_jovenes$SUPERIOR_MATRICULADO <- ifelse(base_final_jovenes$P308A %in% c(4, 5, 6), 1, 0)
# Paso 2: Calcular tasa
tasa_superior_matriculado <- mean(base_final_jovenes$SUPERIOR_MATRICULADO, na.rm = TRUE) * 100
# Paso 3: Mostrar resultado
cat("La tasa de jóvenes matriculados en educación superior es:", round(tasa_superior_matriculado, 2), "%")## La tasa de jóvenes matriculados en educación superior es: 20.6 %SECUNDARIA COMPLETA? SI O NO
# Paso 1: Crear variable secundaria completa o superior
base_final_jovenes$SECUNDARIA_COMPLETA <- ifelse(base_final_jovenes$P301A %in% c(6,7,8,9,10,11), 1, 0)
# Paso 2: Calcular tasa
tasa_secundaria <- mean(base_final_jovenes$SECUNDARIA_COMPLETA, na.rm = TRUE) * 100
# Paso 3: Mostrar resultado
cat("La tasa de jóvenes con secundaria completa o superior es:", round(tasa_secundaria, 2), "%")## La tasa de jóvenes con secundaria completa o superior es: 64.76 %La cuarta variable es la tasa de empleo informal en jóvenes de 15 a 24 años. EMPLEO INFORMAL
La sexta variable es la proporción de cobertura de seguro de salud en jóvenes entre 15 a 25 año TASA DE AFILIADOS A SEGURO:
# Primero, asegurarnos que esas variables sean numéricas
vars_seguro <- c("P4191", "P4192", "P4193", "P4194", "P4195", "P4196", "P4197", "P4198")
base_final_jovenes[vars_seguro] <- lapply(base_final_jovenes[vars_seguro], as.numeric)
# Crear la variable de afiliación a seguro
base_final_jovenes$AFILIADO_SEGURO <- ifelse(
rowSums(base_final_jovenes[vars_seguro] == 1, na.rm = TRUE) > 0,
1,
0
)
# Verificar
# Calcular la tasa de afiliados
tasa_afiliados_seguro <- mean(base_final_jovenes$AFILIADO_SEGURO, na.rm = TRUE) * 100
# Mostrar resultado
cat("La tasa de afiliación a algún seguro es:", round(tasa_afiliados_seguro, 2), "%")## La tasa de afiliación a algún seguro es: 86.29 %ACCESO A INTERNET: La séptima variable es el porcentaje de jóvenes con acceso a internet.
# Asegurar que P314A esté numérica
base_final_jovenes$P314A <- as.numeric(base_final_jovenes$P314A)
# Crear variable de uso de internet: 1 = sí, 0 = no
base_final_jovenes$USO_INTERNET <- ifelse(base_final_jovenes$P314A == 1, 1,
ifelse(base_final_jovenes$P314A == 2, 0, NA))
# Calcular la tasa de uso de internet
tasa_uso_internet <- mean(base_final_jovenes$USO_INTERNET, na.rm = TRUE) * 100
# Mostrar resultado
cat("La tasa de uso de Internet es:", round(tasa_uso_internet, 2), "%")## La tasa de uso de Internet es: 91.42 %