1 ETNIA
casen_2006 <- readRDS(file = "C:/Users/chris/OneDrive/Documentos/archivos_grandes/casen_2006_c.rds")
casen_2006 <- mutate_if(casen_2006, is.factor, as.character)
casen_2009 <- readRDS(file = "C:/Users/chris/OneDrive/Documentos/archivos_grandes/casen_2009_c.rds")
casen_2009 <- mutate_if(casen_2009, is.factor, as.character)
casen_2011 <- readRDS(file = "C:/Users/chris/OneDrive/Documentos/archivos_grandes/casen_2011_c.rds")
casen_2011 <- mutate_if(casen_2011, is.factor, as.character)
casen_2013 <- readRDS(file = "C:/Users/chris/OneDrive/Documentos/archivos_grandes/casen_2013_c.rds")
casen_2013 <- mutate_if(casen_2013, is.factor, as.character)
casen_2015 <- readRDS(file = "C:/Users/chris/OneDrive/Documentos/archivos_grandes/casen_2015_c.rds")
casen_2015 <- mutate_if(casen_2015, is.factor, as.character)
casen_2017 <- readRDS(file = "C:/Users/chris/OneDrive/Documentos/archivos_grandes/casen_2017_c.rds")
casen_2017 <- mutate_if(casen_2017, is.factor, as.character)
casen_2020 <- readRDS(file = "C:/Users/chris/OneDrive/Documentos/archivos_grandes/casen_2020_e1.rds")
casen_2020 <- mutate_if(casen_2020, is.factor, as.character)Homologación de alfabetismo
alfa_variable_2006 <- function(d_2006){
d_2006$`Sabe leer?`[d_2006$`Sabe leer?` == "No sabe /Sin dato"] <- NA
d_2006 <<- d_2006}
alfa_variable_2011 <- function(d_2011){
d_2011$`Sabe leer?`[d_2011$`Sabe leer?` == "Sí, lee y escribe"] <- "Sí"
d_2011$`Sabe leer?`[d_2011$`Sabe leer?` == "No, sólo lee"] <- "No"
d_2011$`Sabe leer?`[d_2011$`Sabe leer?` == "No, ninguno"] <- "No"
d_2011$`Sabe leer?`[d_2011$`Sabe leer?` == "No, sólo escribe"] <- "No"
d_2011 <<- d_2011}
alfa_variable_2013 <- function(d_2013){
d_2013$`Sabe leer?`[d_2013$`Sabe leer?` == "Sí, lee y escribe"] <- "Sí"
d_2013$`Sabe leer?`[d_2013$`Sabe leer?` == "No, sólo lee"] <- "No"
d_2013$`Sabe leer?`[d_2013$`Sabe leer?` == "No, ninguno"] <- "No"
d_2013$`Sabe leer?`[d_2013$`Sabe leer?` == "No, sólo escribe"] <- "No"
d_2013 <<- d_2013}
alfa_variable_2015 <- function(d_2015){
d_2015$`Sabe leer?`[d_2015$`Sabe leer?` == "Sí, lee y escribe"] <- "Sí"
d_2015$`Sabe leer?`[d_2015$`Sabe leer?` == "No, sólo lee"] <- "No"
d_2015$`Sabe leer?`[d_2015$`Sabe leer?` == "No, ninguno"] <- "No"
d_2015$`Sabe leer?`[d_2015$`Sabe leer?` == "No, sólo escribe"] <- "No"
d_2015 <<- d_2015}
alfa_variable_2017 <- function(d_2017){
d_2017$`Sabe leer?`[d_2017$`Sabe leer?` == "Sí, lee y escribe"] <- "Sí"
d_2017$`Sabe leer?`[d_2017$`Sabe leer?` == "No, sólo lee"] <- "No"
d_2017$`Sabe leer?`[d_2017$`Sabe leer?` == "No, ninguno"] <- "No"
d_2017$`Sabe leer?`[d_2017$`Sabe leer?` == "No, sólo escribe"] <- "No"
d_2017 <<- d_2017}
alfa_variable_2020 <- function(d_2020){
d_2020$`Sabe leer?`[d_2020$`Sabe leer?` == "Sí, lee y escribe"] <- "Sí"
d_2020$`Sabe leer?`[d_2020$`Sabe leer?` == "No, sólo lee"] <- "No"
d_2020$`Sabe leer?`[d_2020$`Sabe leer?` == "No, ninguno"] <- "No"
d_2020$`Sabe leer?`[d_2020$`Sabe leer?` == "No, sólo escribe"] <- "No"
d_2020 <<- d_2020}Homologación de etnia
#2006
etnia_variable_2006 <- function(d_2006){
d_2006$Etnia[d_2006$Etnia == "Aimara" ] <- "Aymara"
d_2006$Etnia[d_2006$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
d_2006$Etnia[d_2006$Etnia == "Mapuche"] <- "Mapuche"
d_2006$Etnia[d_2006$Etnia == "Diaguita"] <- "Diaguita"
d_2006$Etnia[d_2006$Etnia == "Atacameño (Likan-Antai)" ] <- "Atacameño"
d_2006$Etnia[d_2006$Etnia == "Atacameño (Likán Antai)" ] <- "Atacameño"
d_2006$Etnia[d_2006$Etnia == "Atacameño (Likán-Antai)" ] <- "Atacameño"
d_2006$Etnia[d_2006$Etnia == "Yámana o Yagán" ] <- "Yagán"
d_2006$Etnia[d_2006$Etnia == "Yagan" ] <- "Yagán"
d_2006$Etnia[d_2006$Etnia == "Yagán (Yámana)" ] <- "Yagán"
d_2006$Etnia[d_2006$Etnia == "Rapa-Nui o Pascuenses"] <- "Pascuense"
d_2006$Etnia[d_2006$Etnia == "Rapa-Nui"] <- "Pascuense"
d_2006$Etnia[d_2006$Etnia == "Rapa Nui (Pascuense)"] <- "Pascuense"
d_2006$Etnia[d_2006$Etnia == "Collas"] <- "Coya"
d_2006$Etnia[d_2006$Etnia == "Kawashkar o Alacalufes" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Kawashkar" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Kawésqar" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Kawaskar" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Sin dato"] <- NA
d_2006$Etnia[d_2006$Etnia == "NS/NR" ] <- NA
d_2006$Etnia[d_2006$Etnia == "No sabe/no responde" ] <- NA
d_2006 <<- d_2006
}
etnia_variable_2009 <- function(d_2006){
d_2006$Etnia[d_2006$Etnia == "Aimara" ] <- "Aymara"
d_2006$Etnia[d_2006$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
d_2006$Etnia[d_2006$Etnia == "Mapuche"] <- "Mapuche"
d_2006$Etnia[d_2006$Etnia == "Diaguita"] <- "Diaguita"
d_2006$Etnia[d_2006$Etnia == "Atacameño (Likan-Antai)" ] <- "Atacameño"
d_2006$Etnia[d_2006$Etnia == "Atacameño (Likán Antai)" ] <- "Atacameño"
d_2006$Etnia[d_2006$Etnia == "Atacameño (Likán-Antai)" ] <- "Atacameño"
d_2006$Etnia[d_2006$Etnia == "Yámana o Yagán" ] <- "Yagán"
d_2006$Etnia[d_2006$Etnia == "Yagan" ] <- "Yagán"
d_2006$Etnia[d_2006$Etnia == "Yagán (Yámana)" ] <- "Yagán"
d_2006$Etnia[d_2006$Etnia == "Rapa-Nui o Pascuenses"] <- "Pascuense"
d_2006$Etnia[d_2006$Etnia == "Rapa-Nui"] <- "Pascuense"
d_2006$Etnia[d_2006$Etnia == "Rapa Nui (Pascuense)"] <- "Pascuense"
d_2006$Etnia[d_2006$Etnia == "Collas"] <- "Coya"
d_2006$Etnia[d_2006$Etnia == "Kawashkar o Alacalufes" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Kawashkar" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Kawésqar" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Kawaskar" ] <- "Alacalufe"
d_2006$Etnia[d_2006$Etnia == "Sin dato"] <- NA
d_2006$Etnia[d_2006$Etnia == "NS/NR" ] <- NA
d_2006$Etnia[d_2006$Etnia == "No sabe/no responde" ] <- NA
d_2006 <<- d_2006
}
etnia_variable_2011 <- function(d_2011){
d_2011$Etnia[d_2011$Etnia == "Aimara" ] <- "Aymara"
d_2011$Etnia[d_2011$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
d_2011$Etnia[d_2011$Etnia == "Mapuche"] <- "Mapuche"
d_2011$Etnia[d_2011$Etnia == "Diaguita"] <- "Diaguita"
d_2011$Etnia[d_2011$Etnia == "Atacameño (Likan-Antai)" ] <- "Atacameño"
d_2011$Etnia[d_2011$Etnia == "Atacameño (Likán Antai)" ] <- "Atacameño"
d_2011$Etnia[d_2011$Etnia == "Atacameño (Likán-Antai)" ] <- "Atacameño"
d_2011$Etnia[d_2011$Etnia == "Yámana o Yagán" ] <- "Yagán"
d_2011$Etnia[d_2011$Etnia == "Yagan" ] <- "Yagán"
d_2011$Etnia[d_2011$Etnia == "Yagán (Yámana)" ] <- "Yagán"
d_2011$Etnia[d_2011$Etnia == "Rapa-Nui o Pascuenses"] <- "Pascuense"
d_2011$Etnia[d_2011$Etnia == "Rapa-Nui"] <- "Pascuense"
d_2011$Etnia[d_2011$Etnia == "Rapa Nui (Pascuense)"] <- "Pascuense"
d_2011$Etnia[d_2011$Etnia == "Collas"] <- "Coya"
d_2011$Etnia[d_2011$Etnia == "Kawashkar o Alacalufes" ] <- "Alacalufe"
d_2011$Etnia[d_2011$Etnia == "Kawashkar" ] <- "Alacalufe"
d_2011$Etnia[d_2011$Etnia == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
d_2011$Etnia[d_2011$Etnia == "Kawésqar" ] <- "Alacalufe"
d_2011$Etnia[d_2011$Etnia == "Kawaskar" ] <- "Alacalufe"
d_2011$Etnia[d_2011$Etnia == "Sin dato"] <- NA
d_2011$Etnia[d_2011$Etnia == "NS/NR" ] <- NA
d_2011$Etnia[d_2011$Etnia == "No sabe/no responde" ] <- NA
d_2011 <<- d_2011
}
etnia_variable_2013 <- function(d_2013){
d_2013$Etnia[d_2013$Etnia == "Aimara" ] <- "Aymara"
d_2013$Etnia[d_2013$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
d_2013$Etnia[d_2013$Etnia == "Mapuche"] <- "Mapuche"
d_2013$Etnia[d_2013$Etnia == "Diaguita"] <- "Diaguita"
d_2013$Etnia[d_2013$Etnia == "Atacameño (Likan-Antai)" ] <- "Atacameño"
d_2013$Etnia[d_2013$Etnia == "Atacameño (Likán Antai)" ] <- "Atacameño"
d_2013$Etnia[d_2013$Etnia == "Atacameño (Likán-Antai)" ] <- "Atacameño"
d_2013$Etnia[d_2013$Etnia == "Yámana o Yagán" ] <- "Yagán"
d_2013$Etnia[d_2013$Etnia == "Yagan" ] <- "Yagán"
d_2013$Etnia[d_2013$Etnia == "Yagán (Yámana)" ] <- "Yagán"
d_2013$Etnia[d_2013$Etnia == "Rapa-Nui o Pascuenses"] <- "Pascuense"
d_2013$Etnia[d_2013$Etnia == "Rapa-Nui"] <- "Pascuense"
d_2013$Etnia[d_2013$Etnia == "Rapa Nui (Pascuense)"] <- "Pascuense"
d_2013$Etnia[d_2013$Etnia == "Collas"] <- "Coya"
d_2013$Etnia[d_2013$Etnia == "Kawashkar o Alacalufes" ] <- "Alacalufe"
d_2013$Etnia[d_2013$Etnia == "Kawashkar" ] <- "Alacalufe"
d_2013$Etnia[d_2013$Etnia == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
d_2013$Etnia[d_2013$Etnia == "Kawésqar" ] <- "Alacalufe"
d_2013$Etnia[d_2013$Etnia == "Kawaskar" ] <- "Alacalufe"
d_2013$Etnia[d_2013$Etnia == "Sin dato"] <- NA
d_2013$Etnia[d_2013$Etnia == "NS/NR" ] <- NA
d_2013$Etnia[d_2013$Etnia == "No sabe/no responde" ] <- NA
d_2013 <<- d_2013
}
etnia_variable_2015 <- function(d_2015){
d_2015$Etnia[d_2015$Etnia == "Aimara" ] <- "Aymara"
d_2015$Etnia[d_2015$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
d_2015$Etnia[d_2015$Etnia == "Mapuche"] <- "Mapuche"
d_2015$Etnia[d_2015$Etnia == "Diaguita"] <- "Diaguita"
d_2015$Etnia[d_2015$Etnia == "Atacameño (Likan-Antai)" ] <- "Atacameño"
d_2015$Etnia[d_2015$Etnia == "Atacameño (Likán Antai)" ] <- "Atacameño"
d_2015$Etnia[d_2015$Etnia == "Atacameño (Likán-Antai)" ] <- "Atacameño"
d_2015$Etnia[d_2015$Etnia == "Yámana o Yagán" ] <- "Yagán"
d_2015$Etnia[d_2015$Etnia == "Yagan" ] <- "Yagán"
d_2015$Etnia[d_2015$Etnia == "Yagán (Yámana)" ] <- "Yagán"
d_2015$Etnia[d_2015$Etnia == "Rapa-Nui o Pascuenses"] <- "Pascuense"
d_2015$Etnia[d_2015$Etnia == "Rapa-Nui"] <- "Pascuense"
d_2015$Etnia[d_2015$Etnia == "Rapa Nui (Pascuense)"] <- "Pascuense"
d_2015$Etnia[d_2015$Etnia == "Collas"] <- "Coya"
d_2015$Etnia[d_2015$Etnia == "Kawashkar o Alacalufes" ] <- "Alacalufe"
d_2015$Etnia[d_2015$Etnia == "Kawashkar" ] <- "Alacalufe"
d_2015$Etnia[d_2015$Etnia == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
d_2015$Etnia[d_2015$Etnia == "Kawésqar" ] <- "Alacalufe"
d_2015$Etnia[d_2015$Etnia == "Kawaskar" ] <- "Alacalufe"
d_2015$Etnia[d_2015$Etnia == "Sin dato"] <- NA
d_2015$Etnia[d_2015$Etnia == "NS/NR" ] <- NA
d_2015$Etnia[d_2015$Etnia == "No sabe/no responde" ] <- NA
d_2015 <<- d_2015
}
etnia_variable_2017 <- function(d_2017){
d_2017$Etnia[d_2017$Etnia == "Aimara" ] <- "Aymara"
d_2017$Etnia[d_2017$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
d_2017$Etnia[d_2017$Etnia == "Mapuche"] <- "Mapuche"
d_2017$Etnia[d_2017$Etnia == "Diaguita"] <- "Diaguita"
d_2017$Etnia[d_2017$Etnia == "Atacameño (Likan-Antai)" ] <- "Atacameño"
d_2017$Etnia[d_2017$Etnia == "Atacameño (Likán Antai)" ] <- "Atacameño"
d_2017$Etnia[d_2017$Etnia == "Atacameño (Likán-Antai)" ] <- "Atacameño"
d_2017$Etnia[d_2017$Etnia == "Yámana o Yagán" ] <- "Yagán"
d_2017$Etnia[d_2017$Etnia == "Yagan" ] <- "Yagán"
d_2017$Etnia[d_2017$Etnia == "Yagán (Yámana)" ] <- "Yagán"
d_2017$Etnia[d_2017$Etnia == "Rapa-Nui o Pascuenses"] <- "Pascuense"
d_2017$Etnia[d_2017$Etnia == "Rapa-Nui"] <- "Pascuense"
d_2017$Etnia[d_2017$Etnia == "Rapa Nui (Pascuense)"] <- "Pascuense"
d_2017$Etnia[d_2017$Etnia == "Collas"] <- "Coya"
d_2017$Etnia[d_2017$Etnia == "Kawashkar o Alacalufes" ] <- "Alacalufe"
d_2017$Etnia[d_2017$Etnia == "Kawashkar" ] <- "Alacalufe"
d_2017$Etnia[d_2017$Etnia == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
d_2017$Etnia[d_2017$Etnia == "Kawésqar" ] <- "Alacalufe"
d_2017$Etnia[d_2017$Etnia == "Kawaskar" ] <- "Alacalufe"
d_2017$Etnia[d_2017$Etnia == "Sin dato"] <- NA
d_2017$Etnia[d_2017$Etnia == "NS/NR" ] <- NA
d_2017$Etnia[d_2017$Etnia == "No sabe/no responde" ] <- NA
d_2017 <<- d_2017
}
etnia_variable_2020 <- function(d_2020){
d_2020$Etnia[d_2020$Etnia == "Aimara" ] <- "Aymara"
d_2020$Etnia[d_2020$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
d_2020$Etnia[d_2020$Etnia == "Mapuche"] <- "Mapuche"
d_2020$Etnia[d_2020$Etnia == "Diaguita"] <- "Diaguita"
d_2020$Etnia[d_2020$Etnia == "Atacameño (Likan-Antai)" ] <- "Atacameño"
d_2020$Etnia[d_2020$Etnia == "Atacameño (Likán Antai)" ] <- "Atacameño"
d_2020$Etnia[d_2020$Etnia == "Atacameño (Likán-Antai)" ] <- "Atacameño"
d_2020$Etnia[d_2020$Etnia == "Yámana o Yagán" ] <- "Yagán"
d_2020$Etnia[d_2020$Etnia == "Yagan" ] <- "Yagán"
d_2020$Etnia[d_2020$Etnia == "Yagán (Yámana)" ] <- "Yagán"
d_2020$Etnia[d_2020$Etnia == "Rapa-Nui o Pascuenses"] <- "Pascuense"
d_2020$Etnia[d_2020$Etnia == "Rapa-Nui"] <- "Pascuense"
d_2020$Etnia[d_2020$Etnia == "Rapa Nui (Pascuense)"] <- "Pascuense"
d_2020$Etnia[d_2020$Etnia == "Collas"] <- "Coya"
d_2020$Etnia[d_2020$Etnia == "Kawashkar o Alacalufes" ] <- "Alacalufe"
d_2020$Etnia[d_2020$Etnia == "Kawashkar" ] <- "Alacalufe"
d_2020$Etnia[d_2020$Etnia == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
d_2020$Etnia[d_2020$Etnia == "Kawésqar" ] <- "Alacalufe"
d_2020$Etnia[d_2020$Etnia == "Kawaskar" ] <- "Alacalufe"
d_2020$Etnia[d_2020$Etnia == "Sin dato"] <- NA
d_2020$Etnia[d_2020$Etnia == "NS/NR" ] <- NA
d_2020$Etnia[d_2020$Etnia == "No sabe/no responde" ] <- NA
d_2020 <<- d_2020
}Homologación de migración
fn_migra <- function(){
for (i in unique(casen_2020$r2_pais_esp)) {
pais <- gsub("(^[[:space:]]+|[[:space:]]+$)", "", i)
pais <- tolower(pais)
casen_2020$r2_pais_esp[casen_2020$r2_pais_esp == i] <- str_to_title(pais)
}
casen_2011$r2p_cod[casen_2011$r2p_cod == "No contesta"] <- "NS/NR"
casen_2013$r2_p_cod[casen_2013$r2_p_cod == "No contesta"] <- "NS/NR"
casen_2015$r2espp_cod[casen_2015$r2espp_cod == "No contesta"] <- "NS/NR"
casen_2017$r2_p_cod[casen_2017$r2_p_cod == "No Bien Especificado"] <- "NS/NR"
casen_2017$r2_p_cod[casen_2017$r2_p_cod == "No Responde"] <- "NS/NR"
casen_2020$r2_pais_esp[casen_2020$r2_pais_esp == "No Bien Especificado"] <- "NS/NR"
casen_2020$r2_pais_esp[casen_2020$r2_pais_esp == ""] <- NA
}Homologación de variable
variable_2006 <- function(d_2006){
d_2006$Variable[d_2006$Variable== 'Desconfío del cuidado que recibiría' ] <- 'Desconfío del cuidado que recibiría'
d_2006$Variable[d_2006$Variable== 'Dificultad de acceso o movilización' ] <- 'Dificultad de acceso o movilización'
d_2006$Variable[d_2006$Variable== 'Dificultad económica' ] <- 'Dificultad económica'
d_2006$Variable[d_2006$Variable== 'El horario no me acomoda' ] <- 'El horario no me acomoda'
d_2006$Variable[d_2006$Variable== 'No es necesario porque lo(a) cuidan en la casa.' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2006$Variable[d_2006$Variable== 'No es necesario porque lo cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2006$Variable[d_2006$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2006$Variable[d_2006$Variable== 'No existe establecimiento cercano' ] <- 'No existe establecimiento cercano'
d_2006$Variable[d_2006$Variable== 'No hay matrícula (vacantes)' ] <- 'No hay matrícula (vacantes)'
d_2006$Variable[d_2006$Variable== 'No hay matrícula (vacantes) o no lo aceptan' ] <- 'No hay matrícula (vacantes)'
d_2006$Variable[d_2006$Variable== 'No lo aceptan' ] <- 'No lo aceptan'
d_2006$Variable[d_2006$Variable== 'Dada su discapacidad, el establecimiento educacional no lo a' ] <- 'No lo aceptan'
d_2006$Variable[d_2006$Variable== 'No fue priorizado por el establecimiento' ] <- 'No lo aceptan'
d_2006$Variable[d_2006$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2006$Variable[d_2006$Variable== 'No me alcanza el puntaje de la ficha de protección social para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2006$Variable[d_2006$Variable== 'No me alcanza el puntaje de la Ficha de Protección Social (FPS) para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2006$Variable[d_2006$Variable== '' ] <- 'No sabe o no responde'
d_2006$Variable[d_2006$Variable== 'NS/NR' ] <- 'No sabe o no responde'
d_2006$Variable[d_2006$Variable== 'No sabe/no responde' ] <- 'No sabe o no responde'
d_2006$Variable[d_2006$Variable== 'Sin dato' ] <- 'No sabe o no responde'
d_2006$Variable[d_2006$Variable== 'No veo utilidad en que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2006$Variable[d_2006$Variable== 'No me parece necesario que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2006$Variable[d_2006$Variable== 'Otra Razón' ] <- 'Otra razón'
d_2006$Variable[d_2006$Variable== 'Otra razón. Especifique' ] <- 'Otra razón'
d_2006$Variable[d_2006$Variable== 'Se enfermaría mucho' ] <- 'Se enfermaría mucho'
d_2006$Variable[d_2006$Variable== 'Se enfermería mucho' ] <- 'Se enfermaría mucho'
d_2006$Variable[d_2006$Variable== 'Tiene una discapacidad' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2006$Variable[d_2006$Variable== 'Requiere establecimiento especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2006$Variable[d_2006$Variable== 'Tiene discapacidad o requiere de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2006$Variable[d_2006$Variable== 'Tiene discapacidad o requiere establecimiento de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2006$Variable[d_2006$Variable== 'Dada su discapacidad, prefiero que no asista' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2006 <<- d_2006}
variable_2009 <- function(d_2009){
d_2009$Variable[d_2009$Variable== 'Desconfío del cuidado que recibiría' ] <- 'Desconfío del cuidado que recibiría'
d_2009$Variable[d_2009$Variable== 'Dificultad de acceso o movilización' ] <- 'Dificultad de acceso o movilización'
d_2009$Variable[d_2009$Variable== 'Dificultad económica' ] <- 'Dificultad económica'
d_2009$Variable[d_2009$Variable== 'El horario no me acomoda' ] <- 'El horario no me acomoda'
d_2009$Variable[d_2009$Variable== 'No es necesario porque lo(a) cuidan en la casa.' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2009$Variable[d_2009$Variable== 'No es necesario porque lo cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2009$Variable[d_2009$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2009$Variable[d_2009$Variable== 'No existe establecimiento cercano' ] <- 'No existe establecimiento cercano'
d_2009$Variable[d_2009$Variable== 'No hay matrícula (vacantes)' ] <- 'No hay matrícula (vacantes)'
d_2009$Variable[d_2009$Variable== 'No hay matrícula (vacantes) o no lo aceptan' ] <- 'No hay matrícula (vacantes)'
d_2009$Variable[d_2009$Variable== 'No lo aceptan' ] <- 'No lo aceptan'
d_2009$Variable[d_2009$Variable== 'Dada su discapacidad, el establecimiento educacional no lo a' ] <- 'No lo aceptan'
d_2009$Variable[d_2009$Variable== 'No fue priorizado por el establecimiento' ] <- 'No lo aceptan'
d_2009$Variable[d_2009$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2009$Variable[d_2009$Variable== 'No me alcanza el puntaje de la ficha de protección social para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2009$Variable[d_2009$Variable== 'No me alcanza el puntaje de la Ficha de Protección Social (FPS) para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2009$Variable[d_2009$Variable== '' ] <- 'No sabe o no responde'
d_2009$Variable[d_2009$Variable== 'NS/NR' ] <- 'No sabe o no responde'
d_2009$Variable[d_2009$Variable== 'No sabe/no responde' ] <- 'No sabe o no responde'
d_2009$Variable[d_2009$Variable== 'Sin dato' ] <- 'No sabe o no responde'
d_2009$Variable[d_2009$Variable== 'No veo utilidad en que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2009$Variable[d_2009$Variable== 'No me parece necesario que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2009$Variable[d_2009$Variable== 'Otra Razón' ] <- 'Otra razón'
d_2009$Variable[d_2009$Variable== 'Otra razón. Especifique' ] <- 'Otra razón'
d_2009$Variable[d_2009$Variable== 'Se enfermaría mucho' ] <- 'Se enfermaría mucho'
d_2009$Variable[d_2009$Variable== 'Se enfermería mucho' ] <- 'Se enfermaría mucho'
d_2009$Variable[d_2009$Variable== 'Tiene una discapacidad' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2009$Variable[d_2009$Variable== 'Requiere establecimiento especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2009$Variable[d_2009$Variable== 'Tiene discapacidad o requiere de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2009$Variable[d_2009$Variable== 'Tiene discapacidad o requiere establecimiento de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2009 <<- d_2009}
variable_2011 <- function(d_2011){
d_2011$Variable[d_2011$Variable== 'Desconfío del cuidado que recibiría' ] <- 'Desconfío del cuidado que recibiría'
d_2011$Variable[d_2011$Variable== 'Dificultad de acceso o movilización' ] <- 'Dificultad de acceso o movilización'
d_2011$Variable[d_2011$Variable== 'Dificultad económica' ] <- 'Dificultad económica'
d_2011$Variable[d_2011$Variable== 'El horario no me acomoda' ] <- 'El horario no me acomoda'
d_2011$Variable[d_2011$Variable== 'No es necesario porque lo(a) cuidan en la casa.' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2011$Variable[d_2011$Variable== 'No es necesario porque lo cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2011$Variable[d_2011$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2011$Variable[d_2011$Variable== 'No existe establecimiento cercano' ] <- 'No existe establecimiento cercano'
d_2011$Variable[d_2011$Variable== 'No hay matrícula (vacantes)' ] <- 'No hay matrícula (vacantes)'
d_2011$Variable[d_2011$Variable== 'No hay matrícula (vacantes) o no lo aceptan' ] <- 'No hay matrícula (vacantes)'
d_2011$Variable[d_2011$Variable== 'No lo aceptan' ] <- 'No lo aceptan'
d_2011$Variable[d_2011$Variable== 'Dada su discapacidad, el establecimiento educacional no lo a' ] <- 'No lo aceptan'
d_2011$Variable[d_2011$Variable== 'No fue priorizado por el establecimiento' ] <- 'No lo aceptan'
d_2011$Variable[d_2011$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2011$Variable[d_2011$Variable== 'No me alcanza el puntaje de la ficha de protección social para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2011$Variable[d_2011$Variable== 'No me alcanza el puntaje de la Ficha de Protección Social (FPS) para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2011$Variable[d_2011$Variable== '' ] <- 'No sabe o no responde'
d_2011$Variable[d_2011$Variable== 'NS/NR' ] <- 'No sabe o no responde'
d_2011$Variable[d_2011$Variable== 'No sabe/no responde' ] <- 'No sabe o no responde'
d_2011$Variable[d_2011$Variable== 'Sin dato' ] <- 'No sabe o no responde'
d_2011$Variable[d_2011$Variable== 'No veo utilidad en que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2011$Variable[d_2011$Variable== 'No me parece necesario que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2011$Variable[d_2011$Variable== 'Otra Razón' ] <- 'Otra razón'
d_2011$Variable[d_2011$Variable== 'Otra razón. Especifique' ] <- 'Otra razón'
d_2011$Variable[d_2011$Variable== 'Se enfermaría mucho' ] <- 'Se enfermaría mucho'
d_2011$Variable[d_2011$Variable== 'Se enfermería mucho' ] <- 'Se enfermaría mucho'
d_2011$Variable[d_2011$Variable== 'Tiene una discapacidad' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2011$Variable[d_2011$Variable== 'Requiere establecimiento especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2011$Variable[d_2011$Variable== 'Tiene discapacidad o requiere de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2011$Variable[d_2011$Variable== 'Tiene discapacidad o requiere establecimiento de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2011 <<- d_2011}
variable_2013 <- function(d_2013){
d_2013$Variable[d_2013$Variable== 'Desconfío del cuidado que recibiría' ] <- 'Desconfío del cuidado que recibiría'
d_2013$Variable[d_2013$Variable== 'Dificultad de acceso o movilización' ] <- 'Dificultad de acceso o movilización'
d_2013$Variable[d_2013$Variable== 'Dificultad económica' ] <- 'Dificultad económica'
d_2013$Variable[d_2013$Variable== 'El horario no me acomoda' ] <- 'El horario no me acomoda'
d_2013$Variable[d_2013$Variable== 'No es necesario porque lo(a) cuidan en la casa.' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2013$Variable[d_2013$Variable== 'No es necesario porque lo cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2013$Variable[d_2013$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2013$Variable[d_2013$Variable== 'No existe establecimiento cercano' ] <- 'No existe establecimiento cercano'
d_2013$Variable[d_2013$Variable== 'No hay matrícula (vacantes)' ] <- 'No hay matrícula (vacantes)'
d_2013$Variable[d_2013$Variable== 'No hay matrícula (vacantes) o no lo aceptan' ] <- 'No hay matrícula (vacantes)'
d_2013$Variable[d_2013$Variable== 'No lo aceptan' ] <- 'No lo aceptan'
d_2013$Variable[d_2013$Variable== 'Dada su discapacidad, el establecimiento educacional no lo a' ] <- 'No lo aceptan'
d_2013$Variable[d_2013$Variable== 'No fue priorizado por el establecimiento' ] <- 'No lo aceptan'
d_2013$Variable[d_2013$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2013$Variable[d_2013$Variable== 'No me alcanza el puntaje de la ficha de protección social para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2013$Variable[d_2013$Variable== 'No me alcanza el puntaje de la Ficha de Protección Social (FPS) para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2013$Variable[d_2013$Variable== '' ] <- 'No sabe o no responde'
d_2013$Variable[d_2013$Variable== 'NS/NR' ] <- 'No sabe o no responde'
d_2013$Variable[d_2013$Variable== 'No sabe/no responde' ] <- 'No sabe o no responde'
d_2013$Variable[d_2013$Variable== 'Sin dato' ] <- 'No sabe o no responde'
d_2013$Variable[d_2013$Variable== 'No veo utilidad en que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2013$Variable[d_2013$Variable== 'No me parece necesario que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2013$Variable[d_2013$Variable== 'Otra Razón' ] <- 'Otra razón'
d_2013$Variable[d_2013$Variable== 'Otra razón. Especifique' ] <- 'Otra razón'
d_2013$Variable[d_2013$Variable== 'Se enfermaría mucho' ] <- 'Se enfermaría mucho'
d_2013$Variable[d_2013$Variable== 'Se enfermería mucho' ] <- 'Se enfermaría mucho'
d_2013$Variable[d_2013$Variable== 'Tiene una discapacidad' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2013$Variable[d_2013$Variable== 'Requiere establecimiento especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2013$Variable[d_2013$Variable== 'Tiene discapacidad o requiere de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2013$Variable[d_2013$Variable== 'Tiene discapacidad o requiere establecimiento de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2013 <<- d_2013}
variable_2015 <- function(d_2015){
d_2015$Variable[d_2015$Variable== 'Desconfío del cuidado que recibiría' ] <- 'Desconfío del cuidado que recibiría'
d_2015$Variable[d_2015$Variable== 'Dificultad de acceso o movilización' ] <- 'Dificultad de acceso o movilización'
d_2015$Variable[d_2015$Variable== 'Dificultad económica' ] <- 'Dificultad económica'
d_2015$Variable[d_2015$Variable== 'El horario no me acomoda' ] <- 'El horario no me acomoda'
d_2015$Variable[d_2015$Variable== 'No es necesario porque lo(a) cuidan en la casa.' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2015$Variable[d_2015$Variable== 'No es necesario porque lo cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2015$Variable[d_2015$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2015$Variable[d_2015$Variable== 'No existe establecimiento cercano' ] <- 'No existe establecimiento cercano'
d_2015$Variable[d_2015$Variable== 'No hay matrícula (vacantes)' ] <- 'No hay matrícula (vacantes)'
d_2015$Variable[d_2015$Variable== 'No hay matrícula (vacantes) o no lo aceptan' ] <- 'No hay matrícula (vacantes)'
d_2015$Variable[d_2015$Variable== 'No lo aceptan' ] <- 'No lo aceptan'
d_2015$Variable[d_2015$Variable== 'Dada su discapacidad, el establecimiento educacional no lo a' ] <- 'No lo aceptan'
d_2015$Variable[d_2015$Variable== 'No fue priorizado por el establecimiento' ] <- 'No lo aceptan'
d_2015$Variable[d_2015$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2015$Variable[d_2015$Variable== 'No me alcanza el puntaje de la ficha de protección social para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2015$Variable[d_2015$Variable== 'No me alcanza el puntaje de la Ficha de Protección Social (FPS) para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2015$Variable[d_2015$Variable== '' ] <- 'No sabe o no responde'
d_2015$Variable[d_2015$Variable== 'NS/NR' ] <- 'No sabe o no responde'
d_2015$Variable[d_2015$Variable== 'No sabe/no responde' ] <- 'No sabe o no responde'
d_2015$Variable[d_2015$Variable== 'Sin dato' ] <- 'No sabe o no responde'
d_2015$Variable[d_2015$Variable== 'No veo utilidad en que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2015$Variable[d_2015$Variable== 'No me parece necesario que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2015$Variable[d_2015$Variable== 'Otra Razón' ] <- 'Otra razón'
d_2015$Variable[d_2015$Variable== 'Otra razón. Especifique' ] <- 'Otra razón'
d_2015$Variable[d_2015$Variable== 'Se enfermaría mucho' ] <- 'Se enfermaría mucho'
d_2015$Variable[d_2015$Variable== 'Se enfermería mucho' ] <- 'Se enfermaría mucho'
d_2015$Variable[d_2015$Variable== 'Tiene una discapacidad' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2015$Variable[d_2015$Variable== 'Requiere establecimiento especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2015$Variable[d_2015$Variable== 'Tiene discapacidad o requiere de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2015$Variable[d_2015$Variable== 'Tiene discapacidad o requiere establecimiento de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2015 <<- d_2015}
variable_2017 <- function(d_2017){
d_2017$Variable[d_2017$Variable== 'Desconfío del cuidado que recibiría' ] <- 'Desconfío del cuidado que recibiría'
d_2017$Variable[d_2017$Variable== 'Dificultad de acceso o movilización' ] <- 'Dificultad de acceso o movilización'
d_2017$Variable[d_2017$Variable== 'Dificultad económica' ] <- 'Dificultad económica'
d_2017$Variable[d_2017$Variable== 'El horario no me acomoda' ] <- 'El horario no me acomoda'
d_2017$Variable[d_2017$Variable== 'No es necesario porque lo(a) cuidan en la casa.' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2017$Variable[d_2017$Variable== 'No es necesario porque lo cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2017$Variable[d_2017$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2017$Variable[d_2017$Variable== 'No existe establecimiento cercano' ] <- 'No existe establecimiento cercano'
d_2017$Variable[d_2017$Variable== 'No hay matrícula (vacantes)' ] <- 'No hay matrícula (vacantes)'
d_2017$Variable[d_2017$Variable== 'No hay matrícula (vacantes) o no lo aceptan' ] <- 'No hay matrícula (vacantes)'
d_2017$Variable[d_2017$Variable== 'No lo aceptan' ] <- 'No lo aceptan'
d_2017$Variable[d_2017$Variable== 'Dada su discapacidad, el establecimiento educacional no lo a' ] <- 'No lo aceptan'
d_2017$Variable[d_2017$Variable== 'No fue priorizado por el establecimiento' ] <- 'No lo aceptan'
d_2017$Variable[d_2017$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2017$Variable[d_2017$Variable== 'No me alcanza el puntaje de la ficha de protección social para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2017$Variable[d_2017$Variable== 'No me alcanza el puntaje de la Ficha de Protección Social (FPS) para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2017$Variable[d_2017$Variable== '' ] <- 'No sabe o no responde'
d_2017$Variable[d_2017$Variable== 'NS/NR' ] <- 'No sabe o no responde'
d_2017$Variable[d_2017$Variable== 'No sabe/no responde' ] <- 'No sabe o no responde'
d_2017$Variable[d_2017$Variable== 'Sin dato' ] <- 'No sabe o no responde'
d_2017$Variable[d_2017$Variable== 'No veo utilidad en que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2017$Variable[d_2017$Variable== 'No me parece necesario que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2017$Variable[d_2017$Variable== 'Otra Razón' ] <- 'Otra razón'
d_2017$Variable[d_2017$Variable== 'Otra razón. Especifique' ] <- 'Otra razón'
d_2017$Variable[d_2017$Variable== 'Se enfermaría mucho' ] <- 'Se enfermaría mucho'
d_2017$Variable[d_2017$Variable== 'Se enfermería mucho' ] <- 'Se enfermaría mucho'
d_2017$Variable[d_2017$Variable== 'Tiene una discapacidad' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2017$Variable[d_2017$Variable== 'Requiere establecimiento especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2017$Variable[d_2017$Variable== 'Tiene discapacidad o requiere de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2017$Variable[d_2017$Variable== 'Tiene discapacidad o requiere establecimiento de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2017 <<- d_2017}
variable_2020 <- function(d_2020){
d_2020$Variable[d_2020$Variable== 'Desconfío del cuidado que recibiría' ] <- 'Desconfío del cuidado que recibiría'
d_2020$Variable[d_2020$Variable== 'Dificultad de acceso o movilización' ] <- 'Dificultad de acceso o movilización'
d_2020$Variable[d_2020$Variable== 'Dificultad económica' ] <- 'Dificultad económica'
d_2020$Variable[d_2020$Variable== 'El horario no me acomoda' ] <- 'El horario no me acomoda'
d_2020$Variable[d_2020$Variable== 'No es necesario porque lo(a) cuidan en la casa.' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2020$Variable[d_2020$Variable== 'No es necesario porque lo cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2020$Variable[d_2020$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 'No es necesario porque lo(a) cuidan en la casa'
d_2020$Variable[d_2020$Variable== 'No existe establecimiento cercano' ] <- 'No existe establecimiento cercano'
d_2020$Variable[d_2020$Variable== 'No hay matrícula (vacantes)' ] <- 'No hay matrícula (vacantes)'
d_2020$Variable[d_2020$Variable== 'No hay matrícula (vacantes) o no lo aceptan' ] <- 'No hay matrícula (vacantes)'
d_2020$Variable[d_2020$Variable== 'No lo aceptan' ] <- 'No lo aceptan'
d_2020$Variable[d_2020$Variable== 'Dada su discapacidad, el establecimiento educacional no lo a' ] <- 'No lo aceptan'
d_2020$Variable[d_2020$Variable== 'No fue priorizado por el establecimiento' ] <- 'No lo aceptan'
d_2020$Variable[d_2020$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2020$Variable[d_2020$Variable== 'No me alcanza el puntaje de la ficha de protección social para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2020$Variable[d_2020$Variable== 'No me alcanza el puntaje de la Ficha de Protección Social (FPS) para postular' ] <- 'No me alcanza el puntaje de la ficha de protección social'
d_2020$Variable[d_2020$Variable== '' ] <- 'No sabe o no responde'
d_2020$Variable[d_2020$Variable== 'NS/NR' ] <- 'No sabe o no responde'
d_2020$Variable[d_2020$Variable== 'No sabe/no responde' ] <- 'No sabe o no responde'
d_2020$Variable[d_2020$Variable== 'Sin dato' ] <- 'No sabe o no responde'
d_2020$Variable[d_2020$Variable== 'No veo utilidad en que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2020$Variable[d_2020$Variable== 'No me parece necesario que asista a esta edad' ] <- 'No veo utilidad en que asista a esta edad'
d_2020$Variable[d_2020$Variable== 'Otra Razón' ] <- 'Otra razón'
d_2020$Variable[d_2020$Variable== 'Otra razón. Especifique' ] <- 'Otra razón'
d_2020$Variable[d_2020$Variable== 'Se enfermaría mucho' ] <- 'Se enfermaría mucho'
d_2020$Variable[d_2020$Variable== 'Se enfermería mucho' ] <- 'Se enfermaría mucho'
d_2020$Variable[d_2020$Variable== 'Tiene una discapacidad' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2020$Variable[d_2020$Variable== 'Requiere establecimiento especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2020$Variable[d_2020$Variable== 'Tiene discapacidad o requiere de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2020$Variable[d_2020$Variable== 'Tiene discapacidad o requiere establecimiento de educacional especial' ] <- 'Tiene una discapacidad o requiere un establecimiento especial'
d_2020 <<- d_2020}1.1 Se obtiene el universo de categorías para cada año
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_2006 <- unique(ab$E4)
unique_d_2006## [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"2 Diccionario PADRE
Se unen todas las categorías de respuesta, se excluyen las repetidas y se les asocia un código:
unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[1] <- "super"
unique_d_2006 <- as.data.frame(unique_d_2006)
colnames(unique_d_2006)[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_2006, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017, unique_d_2020)
el_total <- rbind(unique_d_2006, unique_d_2006, unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017)el_total_final <- unique(el_total)2.1 Diccionario
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 = 'Download')), scrollX = TRUE))2.1.1 2006
ab <- casen_2006
b <- ab$COMUNA
c <- ab$EDUC
d <- ab$T4
e <- ab$SEXO
f <- ab$E1
cross_tab = xtabs(ab$EXPC ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f),aggregate(ab$EXPC ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f) ,ab,mean))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
d$anio <- "2006"
names(d)[1] <- "comuna"
names(d)[2] <- "Variable"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2006 <- d
d_2006 <- mutate_if(d_2006, is.factor, as.character)
alfa_variable_2006(d_2006)
etnia_variable_2006(d_2006)
variable_2006(d_2006)2.1.2 2009
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2009
b <- ab$COMUNA
c <- ab$EDUC
d <- ab$T5
e <- ab$SEXO
f <- ab$E1
cross_tab = xtabs(ab$EXPC~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f),aggregate(ab$EXPC ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f) ,ab,mean))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
d$anio <- "2009"
names(d)[1] <- "comuna"
names(d)[2] <- "Variable"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2006 <- d
d_2006$string_z <- d_2006$z
d_2006 <- mutate_if(d_2006, is.factor, as.character)
etnia_variable_2009(d_2006)
variable_2009(d_2006)2.1.3 2011
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2011
b <- ab$comuna
c <- ab$e6a
d <- ab$r6
e <- ab$sexo
f <- ab$e1
cross_tab = xtabs(ab$expc_full ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f),aggregate(ab$expc_full ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f) ,ab,mean))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
d$anio <- "2011"
names(d)[1] <- "comuna"
names(d)[2] <- "Variable"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2011 <- d
d_2011 <- mutate_if(d_2011, is.factor, as.character)
alfa_variable_2011(d_2011)
etnia_variable_2011(d_2011)
variable_2011(d_2011)2.1.4 2013
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2013
b <- ab$comuna
c <- ab$e6a
d <- ab$r6
e <- ab$sexo
f <- ab$e1
cross_tab = xtabs(ab$expc ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f),aggregate(ab$expc ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f) ,ab,mean))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
d$anio <- "2013"
names(d)[1] <- "comuna"
names(d)[2] <- "Variable"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2013 <- d
d_2013 <- mutate_if(d_2013, is.factor, as.character)
alfa_variable_2013(d_2013)
etnia_variable_2013(d_2013)
variable_2013(d_2013)2.1.5 2015
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2015
b <- ab$comuna
c <- ab$e6a
d <- ab$r3
e <- ab$sexo
f <- ab$e1
cross_tab = xtabs(ab$expc_todas ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f),aggregate(ab$expc_todas ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f) ,ab,mean))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
d$anio <- "2015"
names(d)[1] <- "comuna"
names(d)[2] <- "Variable"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2015 <- d
d_2015 <- mutate_if(d_2015, is.factor, as.character)
alfa_variable_2015(d_2015)
etnia_variable_2015(d_2015)
variable_2015(d_2015)# datatable(d_2015, 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 = 'Download')), scrollX = TRUE))2.1.6 2017
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2017
b <- ab$comuna
c <- ab$e6a
d <- ab$r3
e <- ab$sexo
f <- ab$e1
cross_tab = xtabs(ab$expc ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f),aggregate(ab$expc ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f) ,ab,mean))
tabla <- as.data.frame(cross_tab)
d <-tabla[!(tabla$Freq == 0),]
d$anio <- "2017"
names(d)[1] <- "comuna"
names(d)[2] <- "Variable"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2017 <- d
d_2017 <- mutate_if(d_2017, is.factor, as.character)
# datatable(d_2017, 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 = 'Download')), scrollX = TRUE))
d_2017 <- mutate_if(d_2017, is.factor, as.character)
alfa_variable_2017(d_2017)
etnia_variable_2017(d_2017)
variable_2017(d_2017)# datatable(d_2017, 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 = 'Download')), scrollX = TRUE))# ab <- casen_2020
#
# b <- ab$comuna
# c <- ab$e6a
# d <- ab$r3
# e <- ab$sexo
# f <- ab$e1
#
# cross_tab = xtabs(ab$expc ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f) ,aggregate(ab$expc ~ unlist(b) + unlist(c) + unlist(d) + unlist(e) + unlist(f),ab,mean))
# tabla <- as.data.frame(cross_tab)
# d <-tabla[!(tabla$Freq == 0),]
# d$anio <- "2020"
#
# names(d)[1] <- "comuna"
# names(d)[2] <- "Estudios"
# names(d)[3] <- "Etnia"
# names(d)[4] <- "Sexo"
# names(d)[5] <- "Sabe leer?"
# names(d)[6] <- "Frecuencia"
#
# d_2020 <- d
#
# d_2020 <- mutate_if(d_2020, is.factor, as.character)
# d_2020$`Sabe leer?`[d_2020$`Sabe leer?` == 0] <- "Sí"
# d_2020$`Sabe leer?`[d_2020$`Sabe leer?` == 1] <- "No"
#
# d_2020 <- mutate_if(d_2020, is.factor, as.character)
#
# alfa_variable_2020(d_2020)
# etnia_variable_2020(d_2020)
# variable_2020(d_2020)Unimos y desplegamos la tabla corregida:
3 Tabla final etnia homologada
union_etnia <- rbind(d_2006,d_2006, d_2011, d_2013, d_2015, d_2017)
union <-union_etnia#fn_etnia(union)
cod_com <- readRDS("C:/Users/chris/OneDrive/Documentos/archivos_grandes/codigos_comunales_2006-2020.rds")
names(cod_com)[2] <- "comuna"
d_2006 <- merge(x=union_etnia, y=cod_com, by="comuna")
Etnia <- c(sort(unique(d_2006$Etnia)[-6]),"No pertenece a ningún pueblo indígena",NA)
Etnia<- as.data.frame(Etnia)
Etnia$cod_etnia <- paste("00",seq(1:nrow(Etnia)), sep = "")
codigos <- Etnia$cod_etnia
rango <- seq(1:nrow(Etnia))
cadena <- paste("",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(1),4)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
codigos <- cbind(Etnia,cadena)
colnames(codigos) <- c("Etnia","cadena","cod_etnia")
d_2006 <- merge(x=d_2006, y=codigos, by="Etnia")
d_2006$cod_sexo <- d_2006$Sexo
d_2006$cod_sexo[d_2006$cod_sexo == "Hombre"] <- "01"
d_2006$cod_sexo[d_2006$cod_sexo == "Mujer"] <- "02"
d_2006$cod_alfa <- d_2006$`Sabe leer?`
d_2006$cod_alfa[d_2006$cod_alfa == "Sí"] <- "01"
d_2006$cod_alfa[d_2006$cod_alfa == "No"] <- "02"
d_2006$cod_variable <- d_2006$Variable
d_2006$Variable[d_2006$Variable == 'basica' ] <- '1'
d_2006$Variable[d_2006$Variable== 'Desconfío del cuidado que recibiría' ] <- 1
d_2006$Variable[d_2006$Variable== 'Dificultad de acceso o movilización' ] <- 2
d_2006$Variable[d_2006$Variable== 'Dificultad económica' ] <- 3
d_2006$Variable[d_2006$Variable== 'El horario no me acomoda' ] <- 4
d_2006$Variable[d_2006$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 5
d_2006$Variable[d_2006$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 5
d_2006$Variable[d_2006$Variable== 'No es necesario porque lo(a) cuidan en la casa' ] <- 5
d_2006$Variable[d_2006$Variable== 'No existe establecimiento cercano' ] <- 6
d_2006$Variable[d_2006$Variable== 'No hay matrícula (vacantes)' ] <- 7
d_2006$Variable[d_2006$Variable== 'No hay matrícula (vacantes)' ] <- 7
d_2006$Variable[d_2006$Variable== 'No lo aceptan' ] <- 8
d_2006$Variable[d_2006$Variable== 'No lo aceptan' ] <- 8
d_2006$Variable[d_2006$Variable== 'No lo aceptan' ] <- 8
d_2006$Variable[d_2006$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 9
d_2006$Variable[d_2006$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 9
d_2006$Variable[d_2006$Variable== 'No me alcanza el puntaje de la ficha de protección social' ] <- 9
d_2006$Variable[d_2006$Variable== 'No sabe o no responde' ] <- 10
d_2006$Variable[d_2006$Variable== 'No sabe o no responde' ] <- 10
d_2006$Variable[d_2006$Variable== 'No sabe o no responde' ] <- 10
d_2006$Variable[d_2006$Variable== 'No sabe o no responde' ] <- 10
d_2006$Variable[d_2006$Variable== 'No veo utilidad en que asista a esta edad' ] <- 11
d_2006$Variable[d_2006$Variable== 'No veo utilidad en que asista a esta edad' ] <- 11
d_2006$Variable[d_2006$Variable== 'Otra razón' ] <- 12
d_2006$Variable[d_2006$Variable== 'Otra razón' ] <- 12
d_2006$Variable[d_2006$Variable== 'Se enfermaría mucho' ] <- 13
d_2006$Variable[d_2006$Variable== 'Se enfermaría mucho' ] <- 13
d_2006$Variable[d_2006$Variable== 'Tiene una discapacidad o requiere un establecimiento especial' ] <- 14
d_2006$Variable[d_2006$Variable== 'Tiene una discapacidad o requiere un establecimiento especial' ] <- 14
d_2006$Variable[d_2006$Variable== 'Tiene una discapacidad o requiere un establecimiento especial' ] <- 14
d_2006$Variable[d_2006$Variable== 'Tiene una discapacidad o requiere un establecimiento especial' ] <- 14
d_2006$Variable[d_2006$Variable== 'Tiene una discapacidad o requiere un establecimiento especial' ] <- 14
datatable(d_2006, 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 = 'Download')), scrollX = TRUE))