0.1 Lectura de bases de datos Casen
direccion <- switch(2,"C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/","C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/")
dataset_06 <<- readRDS(paste0(direccion,"casen_2006_c.rds"))
dataset_06 <- mutate_if(dataset_06, is.factor, as.character)
dataset_09 <<- readRDS(paste0(direccion,"casen_2009_c.rds"))
dataset_09 <- mutate_if(dataset_09, is.factor, as.character)
dataset_11 <<- readRDS(paste0(direccion,"casen_2011_c.rds"))
dataset_11 <- mutate_if(dataset_11, is.factor, as.character)
dataset_13 <<- readRDS(paste0(direccion,"casen_2013_c.rds"))
dataset_13 <- mutate_if(dataset_13, is.factor, as.character)
dataset_15 <<- readRDS(paste0(direccion,"casen_2015_c.rds"))
dataset_15 <- mutate_if(dataset_15, is.factor, as.character)
dataset_17 <<- readRDS(paste0(direccion,"casen_2017_c.rds"))
dataset_17 <- mutate_if(dataset_17, is.factor, as.character)
dataset_20 <<- readRDS(paste0(direccion,"casen_2020_c.rds"))
dataset_20 <- mutate_if(dataset_20, is.factor, as.character)casen_2006 <- dataset_06
casen_2009 <- dataset_09
casen_2011 <- dataset_11
casen_2013 <- dataset_13
casen_2015 <- dataset_15
casen_2017 <- dataset_17
casen_2020 <- dataset_200.2 Tabla 001 (no es necesario homologar)
rural-urbano
0.3 Tabla 002
¿Cuál fue el nivel educacional más alto alcanzado o el nivel educacional actual?
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$EDUC)
unique_d_2006## [1] "M.HUM. INCOMPLETA" "M.TEC COMPLETA"
## [3] NA "BASICA COMPL."
## [5] "M.TEC.PROF. INCOMPLETA" "BASICA INCOM."
## [7] "M.HUM. COMPLETA" "TECNICA O UNIV. COMPLETA"
## [9] "TEC. O UNIV. INCOMPLETA." "SIN EDUC. FORMAL"
## [11] "SIN DATO"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$EDUC)
unique_d_2009## [1] "Media Humanista Completa"
## [2] "Básica Incompleta"
## [3] "Media Humanista Incompleta"
## [4] "Básica Completa"
## [5] NA
## [6] "Media Técnico Completa"
## [7] "Técnica o Universitaria Completa"
## [8] "Técnica ó Universitaria Incompleta"
## [9] "Media Técnico Profesional Incompleta"
## [10] "Sin Educación Formal"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$educ)
unique_d_2011## [1] "M. Hum. Completa"
## [2] "Básica Compl."
## [3] "Técnico Nivel Superior o Profesional Incompleta"
## [4] "M. Hum. Incompleta"
## [5] "Técnico Nivel Superior o Profesional Completa y Postgrado"
## [6] "Básica Incom."
## [7] "Sin Educ. Formal"
## [8] "M. Téc Completa"
## [9] "M. Téc. Prof. Incompleta"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$educ)
unique_d_2013## [1] "Básica Compl." "M. Téc Completa"
## [3] "M. Hum. Completa" "Técnico Nivel Superior Completo"
## [5] "Profesional Incompleto" "M. Hum. Incompleta"
## [7] "Profesional Completo" "Básica Incom."
## [9] "Sin Educ. Formal" "M. Téc. Prof. Incompleta"
## [11] "Técnico Nivel Superior Incompleta" "Postgrado Completo"
## [13] "NS/NR" "Postgrado Incompleto"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$educ)
unique_d_2015## [1] "M. Hum. Incompleta" "M. Téc Completa"
## [3] "M. Hum. Completa" "Básica Compl."
## [5] "Sin Educ. Formal" "Básica Incom."
## [7] "Profesional Completo" "Técnico Nivel Superior Completo"
## [9] "Profesional Incompleto" "M. Téc. Prof. Incompleta"
## [11] "Técnico Nivel Superior Incompleta" "Postgrado Completo"
## [13] "Postgrado Incompleto" "NS/NR"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$educ)
unique_d_2017## [1] "M. Hum. Completa" "Técnico Nivel Superior Completo"
## [3] "M. Téc Completa" "Básica Incom."
## [5] "Básica Compl." "M. Hum. Incompleta"
## [7] "Profesional Incompleto" "Profesional Completo"
## [9] "Sin Educ. Formal" "Postgrado Completo"
## [11] "M. Téc. Prof. Incompleta" "Técnico Nivel Superior Incompleta"
## [13] "Postgrado Incompleto" "NS/NR"2020
ab <- casen_2020
unique_d_2020 <- unique(ab$educ)
unique_d_2020## [1] "Media humanista completa"
## [2] "Sin educación formal"
## [3] "Básica incompleta"
## [4] "Técnico nivel superior incompleta"
## [5] "No sabe"
## [6] "Técnico nivel superior completo"
## [7] "Media técnica profesional incompleta"
## [8] "Profesional incompleto"
## [9] "Media técnica profesional completa"
## [10] "Profesional completo"
## [11] "Básica completa"
## [12] "Media humanista incompleta"
## [13] "Postgrado incompleto"
## [14] "Postgrado completo"unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "variable"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "variable"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
unique_d_2020 <- as.data.frame(unique_d_2020)
colnames(unique_d_2020)[1] <- "variable"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017 , unique_d_2020)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.4 Tabla 003
¿Cuál es el nombre de la carrera o programa de estudios? (Cod sub-área)
2015
ab <- casen_2015
unique_d_2015 <- unique(ab$e6c_cod)
unique_d_2015## [1] NA
## [2] "Pregrado área educación"
## [3] "Ciencias básicas, químicas, físicas y afines"
## [4] "Área artes gráficas, audiovisuales y musicales"
## [5] "Turismo, hotelería y gastronomía"
## [6] "Bachilleratos y carreras no bien especificadas"
## [7] "Ingeniería en obras civiles y construcción civil"
## [8] "Trabajo social y afines"
## [9] "Ciencias económicas y administrativas"
## [10] "Ingeniería naval y afines de las fuerzas armadas"
## [11] "Ciencias de la biología y afines"
## [12] "Administración y gestión"
## [13] "Área letras y humanidades"
## [14] "Ingeniería en mecánica, geología y minería"
## [15] "Ingeniería en informática y computación"
## [16] "Ciencias médicas y afines"
## [17] "Derecho y jurídica"
## [18] "Ingeniería industrial y en administración"
## [19] "Agronomía, ingeniería forestal y afines"
## [20] "Ingeniería en prevención de riesgos y afines"
## [21] "Periodismo y comunicación social"
## [22] "Ingeniería en medio ambiente y afines"
## [23] "Ciencias veterinarias y afines"
## [24] "Ciencias matemáticas y afines"
## [25] "Ingeniería en transporte y afines"
## [26] "Postgrados área educación"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$e7_subarea)
unique_d_2017## [1] NA
## [2] "Educación Comercial y Administración"
## [3] "Salud"
## [4] "Educación"
## [5] "Derecho"
## [6] "Ingeniería y Profesiones Afines"
## [7] "Artes"
## [8] "Arquitectura y Construcción"
## [9] "Ciencias Sociales y del Comportamiento"
## [10] "Bienestar"
## [11] "Servicios personales"
## [12] "No responde"
## [13] "Servicios de Seguridad"
## [14] "Agricultura"
## [15] "Tecnología de la Información y la Comunicación (TIC)"
## [16] "Lenguajes"
## [17] "Ciencias Físicas"
## [18] "Servicios de Higiene y Salud Ocupacional"
## [19] "Industria y Producción"
## [20] "Ciencias Biológicas y Afines"
## [21] "Silvicultura"
## [22] "Veterinaria"
## [23] "Servicios de Transportes"
## [24] "Humanidades"
## [25] "Periodismo e Información"
## [26] "Ciencias Naturales, Matemáticas y Estadísticas sin mayor def"
## [27] "Pesca"
## [28] "Medio Ambiente"
## [29] "Matemáticas y Estadísticas"
## [30] "Competencias Personales y Desarrollo"
## [31] "Artes y Humanidades sin mayor definición"unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2015, unique_d_2017)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.5 Tabla 005
¿Cuál es la principal razón por la cual no asiste actualmente a un jardín infantil, sala cuna, programa no convencional de educación parvularia o algún establecimiento educacional?
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$E5)
unique_d_2006## [1] NA
## [2] "No existe establecimiento cercano"
## [3] "No es necesario porque lo(a) cuidan en la casa."
## [4] "No lo aceptan"
## [5] "No veo utilidad en que asista a esta edad"
## [6] "Desconfío del cuidado que recibiría"
## [7] "El horario no me acomoda"
## [8] "Otra Razón"
## [9] "Se enfermaría mucho"
## [10] "No hay matrícula (vacantes)"
## [11] "Dificultad económica"
## [12] "Sin dato"
## [13] "Dificultad de acceso o movilización"
## [14] "Tiene una discapacidad"
## [15] "Requiere establecimiento especial"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$E4)
unique_d_2009## [1] NA
## [2] "No es necesario porque lo(a) cuidan en la casa."
## [3] "No hay matrícula (vacantes)"
## [4] "No veo utilidad en que asista a esta edad"
## [5] "No existe establecimiento cercano"
## [6] "Se enfermaría mucho"
## [7] "Otra razón. Especifique"
## [8] "Dificultad económica"
## [9] "El horario no me acomoda"
## [10] "Tiene una discapacidad"
## [11] "Dificultad de acceso o movilización"
## [12] "No lo aceptan"
## [13] "Desconfío del cuidado que recibiría"
## [14] "Requiere establecimiento especial"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$e4)
unique_d_2011## [1] NA
## [2] "No es necesario porque lo cuidan en la casa"
## [3] "No me parece necesario que asista a esta edad"
## [4] "No hay matrícula (vacantes) o no lo aceptan"
## [5] "Otra razón. Especifique"
## [6] "No existe establecimiento cercano"
## [7] "No me alcanza el puntaje de la ficha de protección social"
## [8] "Se enfermería mucho"
## [9] "Tiene discapacidad o requiere de educacional especial"
## [10] "Dificultad económica"
## [11] "Desconfío del cuidado que recibiría"
## [12] "Dificultad de acceso o movilización"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$e4)
unique_d_2013## [1] NA
## [2] "No es necesario porque lo cuidan en la casa"
## [3] "NS/NR"
## [4] "No lo aceptan"
## [5] "No me parece necesario que asista a esta edad"
## [6] "No hay matrícula (vacantes)"
## [7] "Dificultad de acceso o movilización"
## [8] "Desconfío del cuidado que recibiría"
## [9] "Se enfermería mucho"
## [10] "No existe establecimiento cercano"
## [11] "Otra razón. Especifique"
## [12] "Tiene discapacidad o requiere de educacional especial"
## [13] "No me alcanza el puntaje de la ficha de protección social para postular"
## [14] "Dificultad económica"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$e4)
unique_d_2015## [1] NA
## [2] "No es necesario porque lo cuidan en la casa"
## [3] "Desconfío del cuidado que recibiría"
## [4] "No me alcanza el puntaje de la Ficha de Protección Social (FPS) para postular"
## [5] "No me parece necesario que asista a esta edad"
## [6] "No existe establecimiento cercano"
## [7] "No hay matrícula (vacantes)"
## [8] "Dificultad económica"
## [9] "Otra razón. Especifique"
## [10] "Se enfermería mucho"
## [11] "No lo aceptan"
## [12] "Tiene discapacidad o requiere establecimiento de educacional especial"
## [13] "Dificultad de acceso o movilización"
## [14] "Sin dato"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$e4)
unique_d_2017## [1] NA
## [2] "No es necesario porque lo(a) cuidan en la casa"
## [3] "No existe establecimiento cercano"
## [4] "No me parece necesario que asista a esta edad"
## [5] "No lo aceptan"
## [6] "No sabe/no responde"
## [7] "Se enfermaría mucho"
## [8] "Dada su discapacidad, prefiero que no asista"
## [9] "Desconfío del cuidado que recibiría"
## [10] "Otra razón. Especifique"
## [11] "No hay matrícula (vacantes)"
## [12] "Dada su discapacidad, el establecimiento educacional no lo a"
## [13] "Dificultad de acceso o movilización"
## [14] "No fue priorizado por el establecimiento"
## [15] "Dificultad económica"unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "variable"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "variable"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017 )
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.6 Tabla 006
¿Cuál es la principal razón por la cual no asiste actualmente a algún establecimiento educacional?
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$E6)
unique_d_2006## [1] NA
## [2] "No le interesa"
## [3] "Ayuda en la casa o quehacer del hogar"
## [4] "Trabaja o busca trabajo"
## [5] "Prepara Prueba Selección Universitaria PSU"
## [6] "Dificultad económica"
## [7] "Terminó de estudiar"
## [8] "Embarazo"
## [9] "Maternidad o paternidad"
## [10] "Está realizando el Servicio Militar"
## [11] "Problemas de rendimiento"
## [12] "Problemas familiares"
## [13] "Otra razón"
## [14] "Tiene una discapacidad"
## [15] "Enfermedad que lo inhabilita"
## [16] "No existe establecimiento cercano"
## [17] "Requiere establecimiento especial"
## [18] "No conozco la manera para completar mis estudios"
## [19] "Sin dato"
## [20] "A mi edad ya no sirve estudiar"
## [21] "Dificultad de acceso o movilización"
## [22] "Expulsión o cancelación de matrícula"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$E5)
unique_d_2009## [1] NA
## [2] "Trabaja o busca trabajo"
## [3] "Ayuda en la casa o quehacer del hogar"
## [4] "Terminó de estudiar"
## [5] "Maternidad o paternidad"
## [6] "Dificultad económica"
## [7] "Prepara Prueba Selección Universitaria PSU"
## [8] "Enfermedad que lo inhabilita"
## [9] "No le interesa"
## [10] "Requiere establecimiento de educación especial"
## [11] "A mi edad ya no sirve estudiar"
## [12] "Problemas familiares"
## [13] "Embarazo"
## [14] "Está realizando el Servicio Militar"
## [15] "Dificultad de acceso o movilización"
## [16] "No existe establecimiento cercano"
## [17] "Tiene una discapacidad"
## [18] "Otra razón. Especifique"
## [19] "Problemas de rendimiento"
## [20] "Expulsión o cancelación de matrícula"
## [21] "No conozco la manera para completar mis estudios"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$e5)
unique_d_2011## [1] NA
## [2] "Terminó estudiar"
## [3] "Embarazo, maternidad o paternidad"
## [4] "Ayuda en la casa o quehaceres del hogar"
## [5] "Trabaja o busca trabajo"
## [6] "Enfermedad que lo inhabilita"
## [7] "Otra razón"
## [8] "Dificultad económica"
## [9] "Problemas de rendimiento"
## [10] "Problemas familiares"
## [11] "No le interesa"
## [12] "A su edad no le sirve estudiar o no conoce la manera"
## [13] "Dificultad de acceso o movilización"
## [14] "Expulsión o cancelación de matrícula"
## [15] "Tiene una discapacidad, necesita establecimiento especial"
## [16] "No existe establecimiento cercano"
## [17] "NS/NR"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$e5)
unique_d_2013## [1] NA
## [2] "Trabaja o busca trabajo"
## [3] "Terminó estudiar"
## [4] "Embarazo, maternidad o paternidad"
## [5] "Dificultad económica"
## [6] "Ayuda en la casa o quehaceres del hogar"
## [7] "NS/NR"
## [8] "Enfermedad que lo inhabilita"
## [9] "No le interesa"
## [10] "Otra razón. Especifique"
## [11] "Tiene una discapacidad o requiere establecimiento de educación especial"
## [12] "No existe establecimiento cercano"
## [13] "Expulsión o cancelación de matrícula"
## [14] "Problemas de rendimiento"
## [15] "Dificultad de acceso o movilización"
## [16] "Problemas familiares"
## [17] "A su edad no le sirve estudiar o no conoce la manera para completar sus estudios"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$e5a)
unique_d_2015## [1] NA
## [2] "Embarazo, maternidad o paternidad"
## [3] "Terminó estudiar"
## [4] "Ayuda en la casa o quehaceres del hogar"
## [5] "Trabaja o busca trabajo"
## [6] "No le interesa"
## [7] "Dificultad económica"
## [8] "Enfermedad que lo inhabilita"
## [9] "Sin dato"
## [10] "Tiene una discapacidad o requiere establecimiento de educación especial"
## [11] "Problemas de rendimiento"
## [12] "Problemas familiares"
## [13] "Expulsión o cancelación de matrícula"
## [14] "A su edad no le sirve estudiar o no conoce la manera para completar sus estudios"
## [15] "Otra razón. Especifique"
## [16] "Dificultad de acceso o movilización"
## [17] "No existe establecimiento cercano"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$e5a)
unique_d_2017## [1] NA
## [2] "Terminó de estudiar"
## [3] "Trabaja o busca trabajo"
## [4] "Embarazo, maternidad o paternidad"
## [5] "Ayuda en la casa o quehaceres del hogar"
## [6] "Otra razón. Especifique"
## [7] "No sabe/no responde"
## [8] "Dificultad económica"
## [9] "Problemas de rendimiento"
## [10] "Tiene una discapacidad o requiere establecimiento de educaci"
## [11] "No le interesa"
## [12] "Se encuentra preparando la PSU por su cuenta"
## [13] "Enfermedad que lo inhabilita"
## [14] "Problemas familiares"
## [15] "Está asistiendo a un preuniversitario"
## [16] "Expulsión o cancelación de matrícula"
## [17] "A su edad no le sirve estudiar o no conoce la manera de comp"
## [18] "Dificultad de acceso o movilización"
## [19] "No existe establemcimiento cercano"unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "variable"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "variable"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017 )
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.7 Tabla 007(falta)
0.8 Tabla 008 (no es necesario homologar)
0.9 Tabla 009 (no es necesario homologar)
0.10 Tabla 010 (no es necesario homologar)
0.11 Tabla 011 (no es necesario homologar)
0.12 Tabla 012
¿cuál es la razón o razones…? razón 1
2011
ab <- casen_2011
unique_d_2011 <- unique(ab$o7r1)
unique_d_2011## [1] "Jubilado(a), pensionado(a) o montepiada"
## [2] "Quehaceres del hogar"
## [3] NA
## [4] "Estudiante"
## [5] "Está enfermo o tiene una discapacidad"
## [6] "Busca cuando lo necesita o tiene trabajo esporádico"
## [7] "No tiene con quien dejar a otro familiar"
## [8] "No tiene con quien dejar a los niños"
## [9] "Otra razón"
## [10] "Piensa que nadie le dará trabajo"
## [11] "No tiene interés de trabajar"
## [12] "No tiene con quien dejar a adultos mayores"
## [13] "Se cansó de buscar o cree que no hay trabajo disponible"
## [14] "Está esperando resultado de gestiones ya emprendidas"
## [15] "Empezará pronto o iniciará actividad por su cuenta"
## [16] "Las reglas, horarios, distancias de trabajos no le acomodan"
## [17] "Tiene otra fuente de ingreso (seguro cesantía, rentas,etc)"
## [18] "Ofrecen sueldos muy bajos"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$o7r1)
unique_d_2013## [1] "Jubilado(a), pensionado(a) o montepiada"
## [2] NA
## [3] "Otra razón"
## [4] "Estudiante"
## [5] "Está enfermo o tiene una discapacidad"
## [6] "Quehaceres del hogar"
## [7] "Busca cuando lo necesita o tiene trabajo esporádico"
## [8] "No tiene con quien dejar a adultos mayores"
## [9] "No tiene con quien dejar a los niños"
## [10] "Se cansó de buscar o cree que no hay trabajo disponible"
## [11] "Tiene otra fuente de ingreso (seguro cesantía, mesadas, rentas, transferencias del Estado, etc.)"
## [12] "Piensa que nadie le dará trabajo (porque no cuenta con la capacitación requerida, por su edad, etc.)"
## [13] "No tiene interés de trabajar"
## [14] "Está esperando resultado de gestiones ya emprendidas"
## [15] "NS/NR"
## [16] "No tiene con quien dejar a otro familiar"
## [17] "Las reglas, horarios y distancias de los trabajos no le acomodan"
## [18] "Consiguió trabajo que empezará pronto o iniciará pronto una actividad por cuenta propia"
## [19] "Ofrecen sueldos muy bajos"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$o7r1)
unique_d_2015## [1] NA
## [2] "Quehaceres del hogar"
## [3] "Estudiante"
## [4] "Jubilado(a), pensionado(a) o montepiado(a)"
## [5] "No tiene con quien dejar a los niños"
## [6] "Está enfermo o tiene una discapacidad"
## [7] "Se cansó de buscar o cree que no hay trabajo disponible"
## [8] "No tiene interés en trabajar"
## [9] "Las reglas, horarios y distancias de los trabajos no le acomodan"
## [10] "Piensa que nadie le dará trabajo (porque no cuenta con la capacitación requerida, por su edad, etc.)"
## [11] "Otra razón"
## [12] "Está esperando resultado de gestiones ya emprendidas"
## [13] "Tiene otra fuente de ingreso (seguro cesantía, mesadas, rentas, transferencias del Estado, etc.)"
## [14] "Busca cuando lo necesita o tiene trabajo esporádico"
## [15] "Consiguió trabajo que empezará pronto o iniciará pronto una actividad por cuenta propia"
## [16] "No tiene con quien dejar a adultos mayores"
## [17] "Ofrecen sueldos muy bajos"
## [18] "No tiene con quien dejar a otro familiar"
## [19] "Sin dato"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$o7r1)
unique_d_2017## [1] NA
## [2] "Jubilado(a), pensionado(a) o montepiado(a)"
## [3] "Estudiante"
## [4] "No tiene con quien dejar a los niños"
## [5] "Está esperando resultado de gestiones ya emprendidas"
## [6] "Quehaceres del hogar"
## [7] "No tiene interés en trabajar"
## [8] "Está enfermo o tiene una discapacidad"
## [9] "Tiene otra fuente de ingreso (seguro de cesantía, mesadas, r"
## [10] "Otra razón"
## [11] "Busca cuando realmente lo necesita o tiene trabajo esporádic"
## [12] "No tiene con quien dejar a adultos mayores"
## [13] "Consiguió trabajo que empezará pronto o iniciará pronto una"
## [14] "No sabe/no responde"
## [15] "Se cansó de buscar o cree que no hay trabajo disponible"
## [16] "Piensa que nadie le dará trabajo (porque no cuenta con la ca"
## [17] "Ofrecen sueldos muy bajos"
## [18] "Las reglas, horarios y distancias de los trabajos no le acom"
## [19] "No tiene con quien dejar a otro familiar"2020
ab <- casen_2020
unique_d_2020 <- unique(ab$o7)
unique_d_2020## [1] NA
## [2] "Estudiante"
## [3] "Quehaceres del hogar"
## [4] "Jubilado(a), montepiado(a) o pensionado(a)"
## [5] "Piensa que nadie le dará trabajo porque no cuenta con la capacitación requerida, por su edad, etc."
## [6] "Otra razón. Especifique"
## [7] "Está enfermo o tiene una discapacidad"
## [8] "No tiene con quien dejar los niños"
## [9] "Está esperando resultado de gestiones ya emprendidas"
## [10] "Por temor a contagiarse de COVID-19"
## [11] "Cree que no hay trabajo disponible"
## [12] "Se cansó de buscar"
## [13] "No tiene con quien a otro familiar"
## [14] "No tiene con quien dejar a adultos mayores"
## [15] "Busca cuando realmente lo necesita o tiene trabajo esporádico"
## [16] "No tiene interés en trabajar"
## [17] "Consiguió trabajo que empezará pronto o iniciará pronto una actividad por cuenta propia"
## [18] "Ofrecen sueldos muy bajos"
## [19] "Las reglas, horarios y distancias de los trabajos no le acomodan"
## [20] "Tiene otra fuente de ingreso (Seguro de Cesantía, mesadas, rentas, transferencias del Estado, etc.)"unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
unique_d_2020 <- as.data.frame(unique_d_2020)
colnames(unique_d_2020)[1] <- "variable"
el_total <- rbind(unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017 , unique_d_2020)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.13 Tabla 013
¿cuál es la razón o razones…? razón 2
2011
ab <- casen_2011
unique_d_2011 <- unique(ab$o7r2)
unique_d_2011## [1] NA
## [2] "No tiene con quien dejar a adultos mayores"
## [3] "Busca cuando lo necesita o tiene trabajo esporádico"
## [4] "Jubilado(a), pensionado(a) o montepiada"
## [5] "Quehaceres del hogar"
## [6] "No tiene con quien dejar a los niños"
## [7] "Estudiante"
## [8] "Otra razón"
## [9] "No tiene interés de trabajar"
## [10] "Piensa que nadie le dará trabajo"
## [11] "Está enfermo o tiene una discapacidad"
## [12] "Ofrecen sueldos muy bajos"
## [13] "No tiene con quien dejar a otro familiar"
## [14] "Se cansó de buscar o cree que no hay trabajo disponible"
## [15] "Las reglas, horarios, distancias de trabajos no le acomodan"
## [16] "Tiene otra fuente de ingreso (seguro cesantía, rentas,etc)"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$o7r2)
unique_d_2013## [1] NA
## [2] "No tiene interés de trabajar"
## [3] "Jubilado(a), pensionado(a) o montepiada"
## [4] "No tiene con quien dejar a los niños"
## [5] "Quehaceres del hogar"
## [6] "Tiene otra fuente de ingreso (seguro cesantía, mesadas, rentas, transferencias del Estado, etc.)"
## [7] "Está enfermo o tiene una discapacidad"
## [8] "Se cansó de buscar o cree que no hay trabajo disponible"
## [9] "Piensa que nadie le dará trabajo (porque no cuenta con la capacitación requerida, por su edad, etc.)"
## [10] "Está esperando resultado de gestiones ya emprendidas"
## [11] "Busca cuando lo necesita o tiene trabajo esporádico"
## [12] "Las reglas, horarios y distancias de los trabajos no le acomodan"
## [13] "Estudiante"
## [14] "No tiene con quien dejar a adultos mayores"
## [15] "Otra razón"
## [16] "Ofrecen sueldos muy bajos"
## [17] "No tiene con quien dejar a otro familiar"
## [18] "Consiguió trabajo que empezará pronto o iniciará pronto una actividad por cuenta propia"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$o7r2)
unique_d_2015## [1] NA
## [2] "No tiene con quien dejar a adultos mayores"
## [3] "Jubilado(a), pensionado(a) o montepiado(a)"
## [4] "Piensa que nadie le dará trabajo (porque no cuenta con la capacitación requerida, por su edad, etc.)"
## [5] "Otra razón"
## [6] "Quehaceres del hogar"
## [7] "Se cansó de buscar o cree que no hay trabajo disponible"
## [8] "Estudiante"
## [9] "No tiene con quien dejar a los niños"
## [10] "Está enfermo o tiene una discapacidad"
## [11] "Está esperando resultado de gestiones ya emprendidas"
## [12] "No tiene interés en trabajar"
## [13] "Busca cuando lo necesita o tiene trabajo esporádico"
## [14] "No tiene con quien dejar a otro familiar"
## [15] "Tiene otra fuente de ingreso (seguro cesantía, mesadas, rentas, transferencias del Estado, etc.)"
## [16] "Las reglas, horarios y distancias de los trabajos no le acomodan"
## [17] "Ofrecen sueldos muy bajos"
## [18] "Consiguió trabajo que empezará pronto o iniciará pronto una actividad por cuenta propia"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$o7r2)
unique_d_2017## [1] NA
## [2] "Quehaceres del hogar"
## [3] "No tiene con quien dejar a los niños"
## [4] "Jubilado(a), pensionado(a) o montepiado(a)"
## [5] "Está enfermo o tiene una discapacidad"
## [6] "No tiene interés en trabajar"
## [7] "Otra razón"
## [8] "Consiguió trabajo que empezará pronto o iniciará pronto una"
## [9] "No tiene con quien dejar a otro familiar"
## [10] "Tiene otra fuente de ingreso (seguro de cesantía, mesadas, r"
## [11] "Se cansó de buscar o cree que no hay trabajo disponible"
## [12] "Busca cuando realmente lo necesita o tiene trabajo esporádic"
## [13] "Ofrecen sueldos muy bajos"
## [14] "No tiene con quien dejar a adultos mayores"
## [15] "Las reglas, horarios y distancias de los trabajos no le acom"
## [16] "Piensa que nadie le dará trabajo (porque no cuenta con la ca"
## [17] "Estudiante"
## [18] "Está esperando resultado de gestiones ya emprendidas"unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.14 Tabla 014
¿Cuál es su ocupación u oficio? (4 dígitos)
0.15 Tabla 015
En su trabajo principal, ¿tiene contrato de trabajo escrito?
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$O20)
unique_d_2006## [1] "No tiene"
## [2] "Sí, firmó"
## [3] NA
## [4] "No se acuerda o no sabe si firmó contrato"
## [5] "Si, pero no ha firmado"
## [6] "Sin dato"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$O25)
unique_d_2009## [1] NA
## [2] "No tiene"
## [3] "Sí, firmó"
## [4] "Sí, pero no ha firmado"
## [5] "No se acuerda o no sabe si firmó contrato"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$o17)
unique_d_2011## [1] NA
## [2] "Sí, firmó"
## [3] "No tiene"
## [4] "No se acuerda o no sabe si firmó contrato"
## [5] "Sí, pero no ha firmado"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$o17)
unique_d_2013## [1] NA
## [2] "Sí, firmó"
## [3] "No tiene"
## [4] "Sí, pero no ha firmado"
## [5] "No se acuerda o no sabe si firmó contrato"
## [6] "NS/NR"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$o17)
unique_d_2015## [1] NA
## [2] "Sí, firmó"
## [3] "No tiene"
## [4] "No se acuerda o No sabe si firmó contrato"
## [5] "Sí, pero no ha firmado"
## [6] "Sin dato"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$o17)
unique_d_2017## [1] "No tiene"
## [2] "Sí, firmó"
## [3] NA
## [4] "Sí, pero no ha firmado"
## [5] "No se acuerda o no sabe si firmó contrato"
## [6] "No sabe/no responde"unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "super"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "super"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "super"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "super"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "super"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "super"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'contrato_trabajo_escrito'),
list(extend='pdf',
filename= 'contrato_trabajo_escrito')),
text = 'Descargar')), scrollX = TRUE))0.16 Tabla 016
Según su contrato de trabajo, ¿su jornada de trabajo normal es…?
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$O23)
unique_d_2006## [1] "Una jornada completa" NA "Jornada parcial"
## [4] "Sin dato"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$O27)
unique_d_2009## [1] NA "Jornada completa" "Jornada parcial"
## [4] "Jornada prolongada"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$o18)
unique_d_2011## [1] NA "Jornada completa" "Otra"
## [4] "Jornada parcial" "Jornada prolongada"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$o18)
unique_d_2013## [1] NA "Jornada completa" "Jornada parcial"
## [4] "Jornada prolongada" "Otra" "NS/NR"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$o18)
unique_d_2015## [1] NA "Jornada parcial" "Jornada completa"
## [4] "Jornada prolongada" "Otra" "Sin dato"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$o18)
unique_d_2017## [1] "Jornada parcial?" "Jornada completa?" NA
## [4] "Jornada prolongada?" "Otra?" "No sabe/no responde"unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "super"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "super"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "super"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "super"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "super"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "super"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_ytotcor_e5a'),
list(extend='pdf',
filename= 'tabla_ytotcor_e5a')),
text = 'Descargar')), scrollX = TRUE))0.17 Tabla 017
¿Cotizó durante el mes pasado en algún sistema previsional..?
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$O29)
unique_d_2006## [1] "Si, AFP (Administradora de Fondos de Pensiones)"
## [2] NA
## [3] "No está afiliado"
## [4] "Está afiliado pero No está cotizando"
## [5] "No sabe / Sin dato"
## [6] "Si, INP (CANAEMPU, EMPART, SSS)"
## [7] "Si, Dirección de Previsión de Carabineros (DIPRECA)"
## [8] "Si, Caja de Previsión de la Defensa Nacional (CAPREDENA)"
## [9] "Si, otra"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$O32)
unique_d_2009## [1] "No está cotizando"
## [2] NA
## [3] "Sí, AFP (Administradora de Fondos de Pensiones) Cotización Obligatoria"
## [4] "Sí, AFP (Administradora de Fondos de Pensiones) Cotización voluntaria"
## [5] "No sabe"
## [6] "Sí, IPS ex INP, CANAEMPU, EMPART, SSS"
## [7] "Sí, Dirección de Previsión de Carabineros (DIPRECA)"
## [8] "Sí, otra. Especifique"
## [9] "Sí, Caja de Previsión de la Defensa Nacional (CAPREDENA)"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$o30)
unique_d_2011## [1] "No está cotizando"
## [2] NA
## [3] "Sí, AFP. Cotización voluntaria del trabajador independiente"
## [4] "Sí, AFP. Cotización obligatoria del trabajador dependiente"
## [5] "No sabe"
## [6] "Si, IPS ex INP. Caja de EE. Públicos, Particulares, SSS"
## [7] "Sí, Dirección de Previsión de Carabineros"
## [8] "Sí, otra"
## [9] "Sí, Caja de Previsión de la Defensa Nacional"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$o30)
unique_d_2013## [1] "No está cotizando"
## [2] "Sí, AFP. Cotización obligatoria del trabajador dependiente"
## [3] NA
## [4] "Sí, Caja de Previsión de la Defensa Nacional"
## [5] "Sí, AFP. Cotización voluntaria del trabajador independiente"
## [6] "Si, IPS ex INP. Caja de EE. Públicos, Particulares, SSS u otras"
## [7] "Sí, Dirección de Previsión de Carabineros"
## [8] "No sabe"
## [9] "Sí, otra. Especifique"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$o29)
unique_d_2015## [1] "Sí, IPS ex INP (CANAEMPU, EMPART, SSS u otras)"
## [2] NA
## [3] "No está cotizando"
## [4] "Sí, AFP. Cotización obligatoria del trabajador dependiente"
## [5] "Sí, AFP. Cotización voluntaria del trabajador independiente"
## [6] "No sabe"
## [7] "Sí, Caja de Previsión de la Defensa Nacional (CAPREDENA)"
## [8] "Sí, Dirección de Previsión de Carabineros (DIPRECA)"
## [9] "Sí, otra. Especifique"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$o29)
unique_d_2017## [1] "Sí, AFP (Administradora de Fondos de Pensiones). Cotización"
## [2] "No está cotizando"
## [3] NA
## [4] "Sí, Caja de Previsión de la Defensa Nacional (CAPREDENA)"
## [5] "No sabe"
## [6] "Sí, Dirección de Previsión de Carabineros (DIPRECA)"
## [7] "Sí, IPS ex INP [Caja Nacional de Empleados Públicos (CANAEMP"
## [8] "Sí, otra. Especifique"ab <- casen_2020
unique_d_2020 <- unique(ab$o32)
unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "super"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "super"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "super"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "super"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "super"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "super"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017, unique_d_2020)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_ytotcor_e5a'),
list(extend='pdf',
filename= 'tabla_ytotcor_e5a')),
text = 'Descargar')), scrollX = TRUE))0.18 Tabla 018
Chequeo de situación ocupacional.
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$O19)
unique_d_2006## [1] "Empleado u obrero del sector privado"
## [2] NA
## [3] "Trabajador por cuenta propia"
## [4] "Empleado u obrero de empresas públicas"
## [5] "Empleado u obrero del sector púb. (Gob. Central o Municipal)"
## [6] "Servicio Doméstico puertas afuera"
## [7] "FF.AA. y del Orden"
## [8] "Patrón o empleador"
## [9] "Familiar no remunerado"
## [10] "Servicio doméstico puertas adentro"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$O23)
unique_d_2009## [1] NA
## [2] "Servicio Doméstico puertas afuera"
## [3] "Trabajador por cuenta propia"
## [4] "Empleado u obrero del sector privado"
## [5] "Patrón o empleador"
## [6] "Empleado u obrero de empresas públicas"
## [7] "Empleado u obrero del sector público (Gob. Central o Municipal)"
## [8] "Familiar no remunerado"
## [9] "FF.AA. y del Orden"
## [10] "Servicio doméstico puertas adentro"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$o15)
unique_d_2011## [1] NA
## [2] "Patrón o empleador"
## [3] "Trabajador por cuenta propia"
## [4] "Empleado u obrero del sector privado"
## [5] "Empleado u obrero del sector público"
## [6] "Servicio doméstico puertas afuera"
## [7] "Empleado u obrero de empresas públicas"
## [8] "Familiar no remunerado"
## [9] "FF.AA. y del Orden"
## [10] "Servicio doméstico puertas adentro"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$o15)
unique_d_2013## [1] NA
## [2] "Empleado u Obrero del sector privado"
## [3] "Empleado u Obrero del sector público"
## [4] "Trabajador por cuenta propia"
## [5] "Empleado u Obrero de empresas públicas"
## [6] "Servicio doméstico puertas afuera"
## [7] "Servicio doméstico puertas adentro"
## [8] "Patrón o empleador"
## [9] "FF.AA. y del Orden"
## [10] "Familiar no remunerado"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$o15)
unique_d_2015## [1] "Trabajador por cuenta propia"
## [2] NA
## [3] "Empleado u Obrero del sector privado"
## [4] "Servicio doméstico puertas afuera"
## [5] "Empleado u Obrero del sector público (Gobierno Central o Municipal)"
## [6] "Patrón o empleador"
## [7] "Empleado u Obrero de empresas públicas"
## [8] "FF.AA. y del Orden"
## [9] "Familiar no remunerado"
## [10] "Servicio doméstico puertas adentro"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$o15)
unique_d_2017## [1] "Empleado u obrero del sector privado"
## [2] NA
## [3] "Trabajador por cuenta propia"
## [4] "Empleado u obrero del sector público (Gobierno Central o Mun"
## [5] "Patrón o empleador"
## [6] "FF.AA. y del Orden"
## [7] "Familiar no remunerado"
## [8] "Servicio doméstico puertas adentro"
## [9] "Empleado u obrero de empresas públicas"
## [10] "Servicio doméstico puertas afuera"2020
ab <- casen_2020
unique_d_2020 <- unique(ab$o15)
unique_d_2020## [1] "Trabajador por cuenta propia"
## [2] NA
## [3] "Empleado u obrero del sector privado"
## [4] "FF.AA. y del Orden"
## [5] "Servicio doméstico puertas afuera"
## [6] "Empleado u obrero del sector público (Gobierno Central o Municipal)"
## [7] "Empleado u obrero de empresas públicas"
## [8] "Patrón o empleador"
## [9] "Familiar no remunerado"
## [10] "Servicio doméstico puertas adentro"unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "super"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "super"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "super"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "super"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "super"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "super"
unique_d_2020 <- as.data.frame(unique_d_2020)
colnames(unique_d_2020)[1] <- "super"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017, unique_d_2020)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_ytotcor_e5a'),
list(extend='pdf',
filename= 'tabla_ytotcor_e5a')),
text = 'Descargar')), scrollX = TRUE))0.19 Tabla 019
Cuenta corriente
2013
ab <- casen_2013
unique_d_2013 <- unique(ab$ych1)2015
ab <- casen_2015
unique_d_2015 <- unique(ab$ch1)2017
ab <- casen_2017
unique_d_2017 <- unique(ab$ch1)unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "super"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "super"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "super"
el_total <- rbind( unique_d_2013, unique_d_2015, unique_d_2017 )
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_o32'),
list(extend='pdf',
filename= 'tabla_o32')),
text = 'Download')), scrollX = TRUE))0.20 Tabla 020 (no es necesario homologar)
Cuenta de depósitos a la vista o “CuentaRut”
0.21 Tabla 021
Cuenta de ahorro o depósito a plazo
2011
ab <- casen_2011
unique_d_2011 <- unique(ab$y29a)
unique_d_2011## [1] NA "No" "Sí"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$y27a)
unique_d_2017## [1] "No" "Si" NA
## [4] "No sabe/No responde"unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2011, unique_d_2017 )
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.22 Tabla 022
Tarjeta de crédito bancaria
2011
ab <- casen_2011
unique_d_2011 <- unique(ab$y28b)
unique_d_2011## [1] "No" "Sí" NA
## [4] "No sabe, no responde"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$y28b)
unique_d_2013## [1] "No" NA "Sí"
## [4] "No sabe/No responde"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$y27b)
unique_d_2015## [1] "No" NA "Sí" "Ns/Nr"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$y27e)
unique_d_2017## [1] "No" NA "Si"
## [4] "No sabe/No responde"unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind( unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017 )
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))Tabla 023 (no es necesario homologar)
Ingreso total : ya están en la sección ingresos.
Tabla 024 (no es necesario homologar)
Ingreso autónomo corregido : ya están en la sección ingresos.
0.23 Tabla 025
¿Cuál es la nacionalidad?
2011 2011
ab <- casen_2011
unique_d_2011 <- unique(ab$h11)
unique_d_2017## variable
## 1 No
## 2 <NA>
## 3 Si
## 4 No sabe/No responde2013 2013
ab <- casen_2013
unique_d_2013 <- unique(ab$r1a)
unique_d_2013## [1] "Chilena (exclusivamente)" "Chilena y otra (doble nacionalidad)"
## [3] "Otra nacionalidad (extranjeros)" "NS/NR"2015 2015
ab <- casen_2015
unique_d_2015 <- unique(ab$r1a)
unique_d_2015## [1] "Chilena (exclusivamente)" "Chilena y otra (doble nacionalidad)"
## [3] "Otra nacionalidad (extranjeros)" "Sin dato"2017 2017
ab <- casen_2017
unique_d_2017 <- unique(ab$r1a)
unique_d_2017## [1] "Chilena (Exclusiva)" "Otra nacionalidad. Especifique país"
## [3] "Chilena y otra (Doble nacionalidad)"unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind( unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017 )
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.24 Tabla 026
¿Cuál es esa otra nacionalidad? (código país)
2011
ab <- casen_2011
unique_d_2011 <- unique(ab$h11e_esp)
unique_d_2011## [1] NA "Ecuador" "Argentina"
## [4] "Perú" "Bolivia" "Colombia"
## [7] "Brasil" "No bien especificado" "Marruecos"
## [10] "Paraguay" "Alemania" "Uruguay"
## [13] "Guatemala" "Venezuela" "República Dominicana"
## [16] "México" "Holanda" "Estados Unidos"
## [19] "No contesta" "España" "Costa Rica"
## [22] "Francia" "Canadá" "Japón"
## [25] "Italia" "Bélgica" "Noruega"
## [28] "Suiza" "Rumanía" "Cuba"
## [31] "Honduras" "Rusia" "Hungría"
## [34] "India" "Filipinas" "Pakistán"
## [37] "China" "Indonesia" "Panamá"
## [40] "Otro país de Europa" "Otro país de Asia" "Reino Unido"
## [43] "Irlanda" "Australia" "Austria"
## [46] "Polonia" "Haití" "El Salvador"
## [49] "Libia" "Kenia" "Grecia"
## [52] "Eslovenia" "Suecia" "Siria"
## [55] "Portugal" "Serbia"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$r1a_cod)
unique_d_2013## [1] NA "Ecuador" "Suecia"
## [4] "Bolivia" "Perú" "Colombia"
## [7] "Argentina" "Pakistán" "Paraguay"
## [10] "Alemania" "Cuba" "México"
## [13] "España" "Brasil" "Estados Unidos"
## [16] "Italia" "República Dominicana" "Rumanía"
## [19] "Francia" "Venezuela" "No contesta"
## [22] "Suiza" "Reino Unido" "Canadá"
## [25] "Costa Rica" "Líbano" "Uruguay"
## [28] "Ucrania" "Haití" "Australia"
## [31] "Holanda" "Panamá" "India"
## [34] "Otro país de Africa" "Filipinas" "Rusia"
## [37] "Noruega" "Tailandia" "Nicaragua"
## [40] "China" "Honduras" "Bélgica"
## [43] "Puerto Rico" "Irlanda" "Guatemala"
## [46] "Corea del Sur" "Grecia" "Kirguistán"
## [49] "El Salvador" "Polonia" "Austria"
## [52] "Japón" "Nueva Zelanda" "Indonesia"
## [55] "Turquía" "Croacia" "Siria"
## [58] "Israel" "Jordania" "Albania"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$r1aesp_cod)
unique_d_2015## [1] NA "Colombia" "Ecuador"
## [4] "Perú" "Paraguay" "Bolivia"
## [7] "Argentina" "Haití" "República Dominicana"
## [10] "No contesta" "Uruguay" "Cuba"
## [13] "España" "Italia" "Estados Unidos"
## [16] "Brasil" "Venezuela" "Rusia"
## [19] "México" "Australia" "Holanda"
## [22] "Polonia" "Francia" "Guatemala"
## [25] "Canadá" "Costa Rica" "Bélgica"
## [28] "Suecia" "Portugal" "China"
## [31] "Serbia" "Siria" "Japón"
## [34] "Austria" "Pakistán" "India"
## [37] "Qatar" "Alemania" "El Salvador"
## [40] "Lituania" "Suiza" "Tailandia"
## [43] "Corea del Sur" "Israel" "Reino Unido"
## [46] "Dinamarca" "Nicaragua" "Turquía"
## [49] "Argelia" "Ucrania" "Filipinas"
## [52] "Marruecos" "Rumanía" "Noruega"
## [55] "Angola" "Egipto" "Hungría"
## [58] "Nueva Zelanda" "República Checa" "Panamá"
## [61] "Eslovaquia" "Etiopía"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$r1a_cod)
unique_d_2017## [1] NA "Colombia"
## [3] "Haití" "Perú"
## [5] "Bolivia" "Ecuador"
## [7] "Venezuela" "Cuba"
## [9] "Argentina" "Holanda"
## [11] "Paraguay" "México"
## [13] "El Salvador" "Estados Unidos"
## [15] "Rusia" "India"
## [17] "China" "Uruguay"
## [19] "No Responde" "España"
## [21] "Israel" "Brasil"
## [23] "Portugal" "República Dominicana"
## [25] "Rumanía" "Costa Rica"
## [27] "República Democrática Del Congo" "Italia"
## [29] "Bélgica" "Suecia"
## [31] "Alemania" "Nicaragua"
## [33] "Francia" "Noruega"
## [35] "Palestina" "Pakistán"
## [37] "Sri Lanka" "Indonesia"
## [39] "Siria" "Australia"
## [41] "Hungría" "Canadá"
## [43] "No Bien Especificado" "Sudáfrica"
## [45] "Reino Unido" "Guatemala"
## [47] "Corea Del Sur" "Honduras"
## [49] "Marruecos" "Croacia"
## [51] "Polonia" "Finlandia"
## [53] "Puerto Rico" "Nigeria"
## [55] "Ghana" "Suiza"
## [57] "Panamá" "Japón"
## [59] "Lituania" "República Checa"
## [61] "Turquía" "Filipinas"
## [63] "Serbia"unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind( unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017 )
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))Tabla 027 (no es necesario homologar)
Pueblos indígenas, ¿pertenece usted o es descendiente de alguno de ellos?
0.25 Tabla 028
¿Habla o entiende algunas de las siguientes lenguas: …
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$T5)
unique_d_2006## [1] NA "Habla y entiende"
## [3] "No habla ni entiende ninguna" "Sin dato"
## [5] "Solo entiende"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$T6)
unique_d_2009## [1] NA "No habla ni entiende ninguna"
## [3] "Habla y entiende" "Sólo entiende"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$r7)
unique_d_2011## [1] NA "Sólo entiende" "No habla ni entiende"
## [4] "Habla y entiende"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$r7)
unique_d_2013## [1] NA "No habla ni entiende" "Habla y entiende"
## [4] "Sólo entiende" "NS/NR"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$r4)
unique_d_2015## [1] NA "No habla ni entiende" "Sólo entiende"
## [4] "Habla y entiende" "Sin dato"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$r4)
unique_d_2017## [1] NA "No habla ni entiende" "Habla y entiende"
## [4] "Sólo entiende"unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "variable"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "variable"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.26 Tabla 029
¿Cuál lengua habla o entiende?
2006
ab <- casen_2006
unique_d_2006 <- unique(ab$T6)
unique_d_2006## [1] NA "Mapudungún" "Aymara" "Quechua" "Yagán"
## [6] "Rapa-nui" "Kawaskar"2009
ab <- casen_2009
unique_d_2009 <- unique(ab$T7)
unique_d_2009## [1] NA "Mapudungún" "Aymara" "Quechua" "Kawésqar"
## [6] "Yagán" "Rapa-nui"2011
ab <- casen_2011
unique_d_2011 <- unique(ab$r8)
unique_d_2011## [1] NA "Mapudungun" "Rapa Nui" "Aymara" "Quechua"
## [6] "Kawésqar" "Yagán"2013
ab <- casen_2013
unique_d_2013 <- unique(ab$r8)
unique_d_2013## [1] NA "Mapudungun" "Aymara" "Quechua" "NS/NR"
## [6] "Rapa Nui" "Kawésqar" "Yagán"2015
ab <- casen_2015
unique_d_2015 <- unique(ab$r5)
unique_d_2015## [1] NA "Mapudungun" "Aimara" "Quechua" "Rapa-Nui"
## [6] "Sin dato" "Kawashkar" "Yagán"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$r5)
unique_d_2017## [1] NA "Mapudungun" "Aimara"
## [4] "Quechua" "No sabe/no responde" "Rapa-Nui"
## [7] "Yagán" "Kawashkar"unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "variable"
unique_d_2009 <- as.data.frame(unique_d_2009)
colnames(unique_d_2009)[1] <- "variable"
unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "variable"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "variable"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2006, unique_d_2009, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.27 Tabla 030
¿Cuál de estas alternativas define mejor su orientación sexual?
2015
ab <- casen_2015
unique_d_2015 <- unique(ab$r21)
unique_d_2015## [1] NA
## [2] "Heterosexual (Atracción hacia el sexo opuesto)"
## [3] "Gay/Lesbiana (Atracción hacia el mismo sexo)"
## [4] "Sin dato"
## [5] "Bisexual (Atracción hacia ambos sexos)"
## [6] "Otra. Especifique"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$r23)
unique_d_2017## [1] "Heterosexual (Atracción hacia el sexo opuesto)"
## [2] NA
## [3] "Gay/Lesbiana (Atracción hacia el mismo sexo)"
## [4] "No sabe"
## [5] "Bisexual (Atracción hacia ambos sexos)"
## [6] "Otra. Especifique"unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2015, unique_d_2017)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))0.28 Tabla 031
En cuanto a su género, ¿usted se identifica como?
2015
ab <- casen_2015
unique_d_2015 <- unique(ab$r22)
unique_d_2015## [1] NA "Femenino" "Masculino"
## [4] "Sin dato" "Otro. Especifique"2017
ab <- casen_2017
unique_d_2017 <- unique(ab$r24)
unique_d_2017## [1] "Femenino" NA
## [3] "Masculino" "No sabe/no responde"
## [5] "Transgénero" "Prefiere no responder la pregunta"unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "variable"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "variable"
el_total <- rbind(unique_d_2015, unique_d_2017)
el_total_final <- unique(el_total)
el_total_final$observation <- 1:nrow(el_total_final)
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
options = list(dom = 'Bfrtip',
buttons = list('colvis', list(extend = 'collection',
buttons = list(
list(extend='copy'),
list(extend='excel',
filename = 'tabla_Diccionario'),
list(extend='pdf',
filename= 'tabla_Diccionario')),
text = 'Descargar')), scrollX = TRUE))