date: 05-10-2021

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_2009){ 
d_2009$Etnia[d_2009$Etnia == "Aimara" ]  <- "Aymara"
d_2009$Etnia[d_2009$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ]  <-  "No pertenece a ningún pueblo indígena" 
d_2009$Etnia[d_2009$Etnia == "Mapuche"]  <- "Mapuche"
d_2009$Etnia[d_2009$Etnia == "Diaguita"]  <- "Diaguita"
d_2009$Etnia[d_2009$Etnia == "Atacameño (Likan-Antai)" ]  <- "Atacameño"
d_2009$Etnia[d_2009$Etnia == "Atacameño (Likán Antai)" ]  <- "Atacameño"
d_2009$Etnia[d_2009$Etnia == "Atacameño (Likán-Antai)" ]  <- "Atacameño"
d_2009$Etnia[d_2009$Etnia == "Yámana o Yagán" ]  <- "Yagán"
d_2009$Etnia[d_2009$Etnia == "Yagan" ]  <- "Yagán"
d_2009$Etnia[d_2009$Etnia == "Yagán (Yámana)" ]  <- "Yagán"
d_2009$Etnia[d_2009$Etnia == "Rapa-Nui o Pascuenses"]  <- "Pascuense"
d_2009$Etnia[d_2009$Etnia == "Rapa-Nui"]  <- "Pascuense"
d_2009$Etnia[d_2009$Etnia == "Rapa Nui (Pascuense)"]  <- "Pascuense"
d_2009$Etnia[d_2009$Etnia == "Collas"]  <- "Coya"
d_2009$Etnia[d_2009$Etnia == "Kawashkar o Alacalufes" ]  <- "Alacalufe"
d_2009$Etnia[d_2009$Etnia == "Kawashkar" ]  <- "Alacalufe"
d_2009$Etnia[d_2009$Etnia == "Kawésqar (Alacalufes)" ]  <- "Alacalufe"
d_2009$Etnia[d_2009$Etnia == "Kawésqar" ]  <- "Alacalufe"
d_2009$Etnia[d_2009$Etnia == "Kawaskar" ]  <- "Alacalufe"
d_2009$Etnia[d_2009$Etnia ==  "Sin dato"]  <- NA
d_2009$Etnia[d_2009$Etnia ==  "NS/NR"   ]  <- NA
d_2009$Etnia[d_2009$Etnia == "No sabe/no responde" ]  <- NA 
d_2009 <<- d_2009
}

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

2015

variable_2015 <- function(d_2015){
    
d_2015$Variable[d_2015$Variable==   'Agricultura'   ] <-    'Agricultura'
d_2015$Variable[d_2015$Variable==   'Agronomía, ingeniería forestal y afines'   ] <-    'Agricultura'
d_2015$Variable[d_2015$Variable==   'Arquitectura y Construcción'   ] <-    'Agricultura'
d_2015$Variable[d_2015$Variable==   'Ingeniería en obras civiles y construcción civil'  ] <-    'Arquitectura y Construcción'
d_2015$Variable[d_2015$Variable==   'Área artes gráficas, audiovisuales y musicales'    ] <-    'Artes'
d_2015$Variable[d_2015$Variable==   'Artes' ] <-    'Artes'
d_2015$Variable[d_2015$Variable==   'Artes y Humanidades sin mayor definición'  ] <-    'Artes'
d_2015$Variable[d_2015$Variable==   'Bachilleratos y carreras no bien especificadas'    ] <-    'Bachilleratos y Carreras No Bien Especificadas'
d_2015$Variable[d_2015$Variable==   'Bienestar' ] <-    'Bienestar'
d_2015$Variable[d_2015$Variable==   'Ciencias básicas, químicas, físicas y afines'  ] <-    'Ciencias Biológicas y Afines'
d_2015$Variable[d_2015$Variable==   'Ciencias Biológicas y Afines'  ] <-    'Ciencias Biológicas y Afines'
d_2015$Variable[d_2015$Variable==   'Ciencias de la biología y afines'  ] <-    'Ciencias Biológicas y Afines'
d_2015$Variable[d_2015$Variable==   'Ciencias Físicas'  ] <-    'Ciencias Físicas'
d_2015$Variable[d_2015$Variable==   'Ciencias Naturales, Matemáticas y Estadísticas sin mayor def'  ] <-    'Ciencias Naturales, Matemáticas y Estadísticas sin Mayor Definición'
d_2015$Variable[d_2015$Variable==   'Ciencias Sociales y del Comportamiento'    ] <-    'Ciencias Sociales y del Comportamiento'
d_2015$Variable[d_2015$Variable==   'Trabajo social y afines'   ] <-    'Ciencias Sociales y del Comportamiento'
d_2015$Variable[d_2015$Variable==   'Competencias Personales y Desarrollo'  ] <-    'Competencias Personales y Desarrollo'
d_2015$Variable[d_2015$Variable==   'Derecho'   ] <-    'Derecho'
d_2015$Variable[d_2015$Variable==   'Derecho y jurídica'    ] <-    'Derecho'
d_2015$Variable[d_2015$Variable==   'Educación' ] <-    'Educación'
d_2015$Variable[d_2015$Variable==   'Administración y gestión'  ] <-    'Educación Comercial y Administración'
d_2015$Variable[d_2015$Variable==   'Ciencias económicas y administrativas' ] <-    'Educación Comercial y Administración'
d_2015$Variable[d_2015$Variable==   'Educación Comercial y Administración'  ] <-    'Educación Comercial y Administración'
d_2015$Variable[d_2015$Variable==   'Área letras y humanidades' ] <-    'Humanidades'
d_2015$Variable[d_2015$Variable==   'Humanidades'   ] <-    'Humanidades'
d_2015$Variable[d_2015$Variable==   'Industria y Producción'    ] <-    'Industria y Producción'
d_2015$Variable[d_2015$Variable==   'Ingeniería en mecánica, geología y minería'    ] <-    'Ingeniería y Profesiones Afines'
d_2015$Variable[d_2015$Variable==   'Ingeniería en transporte y afines' ] <-    'Ingeniería y Profesiones Afines'
d_2015$Variable[d_2015$Variable==   'Ingeniería naval y afines de las fuerzas armadas'  ] <-    'Ingeniería y Profesiones Afines'
d_2015$Variable[d_2015$Variable==   'Ingeniería en prevención de riesgos y afines'  ] <-    'Ingeniería y Profesiones Afines'
d_2015$Variable[d_2015$Variable==   'Ingeniería industrial y en administración' ] <-    'Ingeniería y Profesiones Afines'
d_2015$Variable[d_2015$Variable==   'Ingeniería y Profesiones Afines'   ] <-    'Ingeniería y Profesiones Afines'
d_2015$Variable[d_2015$Variable==   'Lenguajes' ] <-    'Lenguajes'
d_2015$Variable[d_2015$Variable==   'Ciencias matemáticas y afines' ] <-    'Matemáticas y Estadísticas'
d_2015$Variable[d_2015$Variable==   'Matemáticas y Estadísticas'    ] <-    'Matemáticas y Estadísticas'
d_2015$Variable[d_2015$Variable==   'Ingeniería en medio ambiente y afines' ] <-    'Medio Ambiente'
d_2015$Variable[d_2015$Variable==   'Medio Ambiente'    ] <-    'Medio Ambiente'
d_2015$Variable[d_2015$Variable==   ''  ] <-    'No Sabe o No Responde'
d_2015$Variable[d_2015$Variable==   'No responde'   ] <-    'No Sabe o No Responde'
d_2015$Variable[d_2015$Variable==   'Periodismo e Información'  ] <-    'Periodismo e Información'
d_2015$Variable[d_2015$Variable==   'Periodismo y comunicación social'  ] <-    'Periodismo e Información'
d_2015$Variable[d_2015$Variable==   'Pesca' ] <-    'Pesca'
d_2015$Variable[d_2015$Variable==   'Postgrados área educación' ] <-    'Postgrado en Área de Educación'
d_2015$Variable[d_2015$Variable==   'Pregrado área educación'   ] <-    'Pregrado en Área de Educación'
d_2015$Variable[d_2015$Variable==   'Ciencias médicas y afines' ] <-    'Salud'
d_2015$Variable[d_2015$Variable==   'Salud' ] <-    'Salud'
d_2015$Variable[d_2015$Variable==   'Servicios de Higiene y Salud Ocupacional'  ] <-    'Servicios de Higiene y Salud Ocupacional'
d_2015$Variable[d_2015$Variable==   'Servicios de Seguridad'    ] <-    'Servicios de Seguridad'
d_2015$Variable[d_2015$Variable==   'Servicios de Transportes'  ] <-    'Servicios de Transportes'
d_2015$Variable[d_2015$Variable==   'Servicios personales'  ] <-    'Servicios Personales'
d_2015$Variable[d_2015$Variable==   'Silvicultura'  ] <-    'Silvicultura'
d_2015$Variable[d_2015$Variable==   'Ingeniería en informática y computación'   ] <-    'Tecnología de la Información y la Comunicación (TIC)'
d_2015$Variable[d_2015$Variable==   'Tecnología de la Información y la Comunicación (TIC)'  ] <-    'Tecnología de la Información y la Comunicación (TIC)'
d_2015$Variable[d_2015$Variable==   'Turismo, hotelería y gastronomía'  ] <-    'Turismo, Hotelería y Gastronomía'
d_2015$Variable[d_2015$Variable==   'Ciencias veterinarias y afines'    ] <-    'Veterinaria'
d_2015$Variable[d_2015$Variable==   'Veterinaria'   ] <-    'Veterinaria'

d_2015 <<- d_2015}

2017

variable_2017 <- function(d_2017){
    
d_2017$Variable[d_2017$Variable==   'Agricultura'   ] <-    'Agricultura'
d_2017$Variable[d_2017$Variable==   'Agronomía, ingeniería forestal y afines'   ] <-    'Agricultura'
d_2017$Variable[d_2017$Variable==   'Arquitectura y Construcción'   ] <-    'Agricultura'
d_2017$Variable[d_2017$Variable==   'Ingeniería en obras civiles y construcción civil'  ] <-    'Arquitectura y Construcción'
d_2017$Variable[d_2017$Variable==   'Área artes gráficas, audiovisuales y musicales'    ] <-    'Artes'
d_2017$Variable[d_2017$Variable==   'Artes' ] <-    'Artes'
d_2017$Variable[d_2017$Variable==   'Artes y Humanidades sin mayor definición'  ] <-    'Artes'
d_2017$Variable[d_2017$Variable==   'Bachilleratos y carreras no bien especificadas'    ] <-    'Bachilleratos y Carreras No Bien Especificadas'
d_2017$Variable[d_2017$Variable==   'Bienestar' ] <-    'Bienestar'
d_2017$Variable[d_2017$Variable==   'Ciencias básicas, químicas, físicas y afines'  ] <-    'Ciencias Biológicas y Afines'
d_2017$Variable[d_2017$Variable==   'Ciencias Biológicas y Afines'  ] <-    'Ciencias Biológicas y Afines'
d_2017$Variable[d_2017$Variable==   'Ciencias de la biología y afines'  ] <-    'Ciencias Biológicas y Afines'
d_2017$Variable[d_2017$Variable==   'Ciencias Físicas'  ] <-    'Ciencias Físicas'
d_2017$Variable[d_2017$Variable==   'Ciencias Naturales, Matemáticas y Estadísticas sin mayor def'  ] <-    'Ciencias Naturales, Matemáticas y Estadísticas sin Mayor Definición'
d_2017$Variable[d_2017$Variable==   'Ciencias Sociales y del Comportamiento'    ] <-    'Ciencias Sociales y del Comportamiento'
d_2017$Variable[d_2017$Variable==   'Trabajo social y afines'   ] <-    'Ciencias Sociales y del Comportamiento'
d_2017$Variable[d_2017$Variable==   'Competencias Personales y Desarrollo'  ] <-    'Competencias Personales y Desarrollo'
d_2017$Variable[d_2017$Variable==   'Derecho'   ] <-    'Derecho'
d_2017$Variable[d_2017$Variable==   'Derecho y jurídica'    ] <-    'Derecho'
d_2017$Variable[d_2017$Variable==   'Educación' ] <-    'Educación'
d_2017$Variable[d_2017$Variable==   'Administración y gestión'  ] <-    'Educación Comercial y Administración'
d_2017$Variable[d_2017$Variable==   'Ciencias económicas y administrativas' ] <-    'Educación Comercial y Administración'
d_2017$Variable[d_2017$Variable==   'Educación Comercial y Administración'  ] <-    'Educación Comercial y Administración'
d_2017$Variable[d_2017$Variable==   'Área letras y humanidades' ] <-    'Humanidades'
d_2017$Variable[d_2017$Variable==   'Humanidades'   ] <-    'Humanidades'
d_2017$Variable[d_2017$Variable==   'Industria y Producción'    ] <-    'Industria y Producción'
d_2017$Variable[d_2017$Variable==   'Ingeniería en mecánica, geología y minería'    ] <-    'Ingeniería y Profesiones Afines'
d_2017$Variable[d_2017$Variable==   'Ingeniería en transporte y afines' ] <-    'Ingeniería y Profesiones Afines'
d_2017$Variable[d_2017$Variable==   'Ingeniería naval y afines de las fuerzas armadas'  ] <-    'Ingeniería y Profesiones Afines'
d_2017$Variable[d_2017$Variable==   'Ingeniería en prevención de riesgos y afines'  ] <-    'Ingeniería y Profesiones Afines'
d_2017$Variable[d_2017$Variable==   'Ingeniería industrial y en administración' ] <-    'Ingeniería y Profesiones Afines'
d_2017$Variable[d_2017$Variable==   'Ingeniería y Profesiones Afines'   ] <-    'Ingeniería y Profesiones Afines'
d_2017$Variable[d_2017$Variable==   'Lenguajes' ] <-    'Lenguajes'
d_2017$Variable[d_2017$Variable==   'Ciencias matemáticas y afines' ] <-    'Matemáticas y Estadísticas'
d_2017$Variable[d_2017$Variable==   'Matemáticas y Estadísticas'    ] <-    'Matemáticas y Estadísticas'
d_2017$Variable[d_2017$Variable==   'Ingeniería en medio ambiente y afines' ] <-    'Medio Ambiente'
d_2017$Variable[d_2017$Variable==   'Medio Ambiente'    ] <-    'Medio Ambiente'
d_2017$Variable[d_2017$Variable==   ''  ] <-    'No Sabe o No Responde'
d_2017$Variable[d_2017$Variable==   'No responde'   ] <-    'No Sabe o No Responde'
d_2017$Variable[d_2017$Variable==   'Periodismo e Información'  ] <-    'Periodismo e Información'
d_2017$Variable[d_2017$Variable==   'Periodismo y comunicación social'  ] <-    'Periodismo e Información'
d_2017$Variable[d_2017$Variable==   'Pesca' ] <-    'Pesca'
d_2017$Variable[d_2017$Variable==   'Postgrados área educación' ] <-    'Postgrado en Área de Educación'
d_2017$Variable[d_2017$Variable==   'Pregrado área educación'   ] <-    'Pregrado en Área de Educación'
d_2017$Variable[d_2017$Variable==   'Ciencias médicas y afines' ] <-    'Salud'
d_2017$Variable[d_2017$Variable==   'Salud' ] <-    'Salud'
d_2017$Variable[d_2017$Variable==   'Servicios de Higiene y Salud Ocupacional'  ] <-    'Servicios de Higiene y Salud Ocupacional'
d_2017$Variable[d_2017$Variable==   'Servicios de Seguridad'    ] <-    'Servicios de Seguridad'
d_2017$Variable[d_2017$Variable==   'Servicios de Transportes'  ] <-    'Servicios de Transportes'
d_2017$Variable[d_2017$Variable==   'Servicios personales'  ] <-    'Servicios Personales'
d_2017$Variable[d_2017$Variable==   'Silvicultura'  ] <-    'Silvicultura'
d_2017$Variable[d_2017$Variable==   'Ingeniería en informática y computación'   ] <-    'Tecnología de la Información y la Comunicación (TIC)'
d_2017$Variable[d_2017$Variable==   'Tecnología de la Información y la Comunicación (TIC)'  ] <-    'Tecnología de la Información y la Comunicación (TIC)'
d_2017$Variable[d_2017$Variable==   'Turismo, hotelería y gastronomía'  ] <-    'Turismo, Hotelería y Gastronomía'
d_2017$Variable[d_2017$Variable==   'Ciencias veterinarias y afines'    ] <-    'Veterinaria'
d_2017$Variable[d_2017$Variable==   'Veterinaria'   ] <-    'Veterinaria'

d_2017 <<- d_2017}

1.1 Se obtiene el universo de categorías para cada año

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"

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_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 <- rbind(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'),
          list(extend='pdf',
            filename= 'tabla')),
          text = 'Download')), scrollX = TRUE))

2.1.0.1 2015

Generamos las tablas de contingencia tal como acostumbramos:

ab <- casen_2015

b <- ab$comuna
c <- ab$e6c_cod
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$cod <- d[,2]
d <- d[,c(1,8,2,3,4,5,6,7)]
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)

2.1.0.2 2017

Generamos las tablas de contingencia tal como acostumbramos:

ab <- casen_2017

b <- ab$comuna
c <- ab$e7_subarea
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$cod <- d[,2]
d <- d[,c(1,8,2,3,4,5,6,7)]
d_2017 <- d
 
d_2017 <- mutate_if(d_2017, is.factor, as.character)
alfa_variable_2006(d_2017)
etnia_variable_2006(d_2017)
variable_2017(d_2017)

Unimos y desplegamos la tabla corregida:

3 Tabla final etnia homologada

union_etnia <- rbind(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"
tab_f <- merge(x=union_etnia, y=cod_com, by="comuna") 
Etnia <- c(sort(unique(tab_f$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")

tab_f <- merge(x=tab_f, y=codigos, by="Etnia") 

tab_f$cod_sexo <- tab_f$Sexo
tab_f$cod_sexo[tab_f$cod_sexo == "Hombre"] <- "01"
tab_f$cod_sexo[tab_f$cod_sexo == "Mujer"] <- "02"

tab_f$cod_alfa <- tab_f$`Sabe leer?`
tab_f$cod_alfa[tab_f$cod_alfa == "Sí"] <- "01"
tab_f$cod_alfa[tab_f$cod_alfa == "No"] <- "02"





tab_f$cod_variable <- tab_f$Variable
tab_f$cod_var[tab_f$Variable==  'Agricultura'   ]<- '1'
tab_f$cod_var[tab_f$Variable==  'Agricultura'   ]<- '1'
tab_f$cod_var[tab_f$Variable==  'Agricultura'   ]<- '1'
tab_f$cod_var[tab_f$Variable==  'Arquitectura y Construcción'   ]<- '2'
tab_f$cod_var[tab_f$Variable==  'Artes' ]<- '3'
tab_f$cod_var[tab_f$Variable==  'Artes' ]<- '3'
tab_f$cod_var[tab_f$Variable==  'Artes' ]<- '3'
tab_f$cod_var[tab_f$Variable==  'Bachilleratos y Carreras No Bien Especificadas'    ]<- '4'
tab_f$cod_var[tab_f$Variable==  'Bienestar' ]<- '5'
tab_f$cod_var[tab_f$Variable==  'Ciencias Biológicas y Afines'  ]<- '6'
tab_f$cod_var[tab_f$Variable==  'Ciencias Biológicas y Afines'  ]<- '6'
tab_f$cod_var[tab_f$Variable==  'Ciencias Biológicas y Afines'  ]<- '6'
tab_f$cod_var[tab_f$Variable==  'Ciencias Físicas'  ]<- '7'
tab_f$cod_var[tab_f$Variable==  'Ciencias Naturales, Matemáticas y Estadísticas sin Mayor Definición'   ]<- '8'
tab_f$cod_var[tab_f$Variable==  'Ciencias Sociales y del Comportamiento'    ]<- '9'
tab_f$cod_var[tab_f$Variable==  'Ciencias Sociales y del Comportamiento'    ]<- '9'
tab_f$cod_var[tab_f$Variable==  'Competencias Personales y Desarrollo'  ]<- '10'
tab_f$cod_var[tab_f$Variable==  'Derecho'   ]<- '11'
tab_f$cod_var[tab_f$Variable==  'Derecho'   ]<- '11'
tab_f$cod_var[tab_f$Variable==  'Educación' ]<- '12'
tab_f$cod_var[tab_f$Variable==  'Educación Comercial y Administración'  ]<- '13'
tab_f$cod_var[tab_f$Variable==  'Educación Comercial y Administración'  ]<- '13'
tab_f$cod_var[tab_f$Variable==  'Educación Comercial y Administración'  ]<- '13'
tab_f$cod_var[tab_f$Variable==  'Humanidades'   ]<- '14'
tab_f$cod_var[tab_f$Variable==  'Humanidades'   ]<- '14'
tab_f$cod_var[tab_f$Variable==  'Industria y Producción'    ]<- '15'
tab_f$cod_var[tab_f$Variable==  'Ingeniería y Profesiones Afines'   ]<- '16'
tab_f$cod_var[tab_f$Variable==  'Ingeniería y Profesiones Afines'   ]<- '16'
tab_f$cod_var[tab_f$Variable==  'Ingeniería y Profesiones Afines'   ]<- '16'
tab_f$cod_var[tab_f$Variable==  'Ingeniería y Profesiones Afines'   ]<- '16'
tab_f$cod_var[tab_f$Variable==  'Ingeniería y Profesiones Afines'   ]<- '16'
tab_f$cod_var[tab_f$Variable==  'Ingeniería y Profesiones Afines'   ]<- '16'
tab_f$cod_var[tab_f$Variable==  'Lenguajes' ]<- '17'
tab_f$cod_var[tab_f$Variable==  'Matemáticas y Estadísticas'    ]<- '18'
tab_f$cod_var[tab_f$Variable==  'Matemáticas y Estadísticas'    ]<- '18'
tab_f$cod_var[tab_f$Variable==  'Medio Ambiente'    ]<- '19'
tab_f$cod_var[tab_f$Variable==  'Medio Ambiente'    ]<- '19'
tab_f$cod_var[tab_f$Variable==  'No Sabe o No Responde' ]<- '20'
tab_f$cod_var[tab_f$Variable==  'No Sabe o No Responde' ]<- '20'
tab_f$cod_var[tab_f$Variable==  'Periodismo e Información'  ]<- '21'
tab_f$cod_var[tab_f$Variable==  'Periodismo e Información'  ]<- '21'
tab_f$cod_var[tab_f$Variable==  'Pesca' ]<- '22'
tab_f$cod_var[tab_f$Variable==  'Postgrado en Área de Educación'    ]<- '23'
tab_f$cod_var[tab_f$Variable==  'Pregrado en Área de Educación' ]<- '24'
tab_f$cod_var[tab_f$Variable==  'Salud' ]<- '25'
tab_f$cod_var[tab_f$Variable==  'Salud' ]<- '25'
tab_f$cod_var[tab_f$Variable==  'Servicios de Higiene y Salud Ocupacional'  ]<- '26'
tab_f$cod_var[tab_f$Variable==  'Servicios de Seguridad'    ]<- '28'
tab_f$cod_var[tab_f$Variable==  'Servicios de Transportes'  ]<- '29'
tab_f$cod_var[tab_f$Variable==  'Servicios Personales'  ]<- '30'
tab_f$cod_var[tab_f$Variable==  'Silvicultura'  ]<- '31'
tab_f$cod_var[tab_f$Variable==  'Tecnología de la Información y la Comunicación (TIC)'  ]<- '32'
tab_f$cod_var[tab_f$Variable==  'Tecnología de la Información y la Comunicación (TIC)'  ]<- '32'
tab_f$cod_var[tab_f$Variable==  'Turismo, Hotelería y Gastronomía'  ]<- '33'
tab_f$cod_var[tab_f$Variable==  'Veterinaria'   ]<- '34'
tab_f$cod_var[tab_f$Variable==  'Veterinaria'   ]<- '34'














datatable(tab_f, 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))

4 MIGRA

4.0.1 2015

 ab <- casen_2015

b <- ab$comuna 
c <- ab$e6a 
d <- ab$r2espp_cod 
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] <- "Origen" 
 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)
fn_migra()
variable_2015(d_2015)
#

4.0.2 2017

ab <- casen_2017

b <- ab$comuna
c <- ab$e6a
d <- ab$r2_p_cod
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] <- "Origen"
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)
alfa_variable_2017(d_2017)
fn_migra()
variable_2017(d_2017)