casen_2006 <- readRDS(file = "C:/Users/chris/Desktop/archivos grandes/casen_2006_c.rds")
casen_2006 <- mutate_if(casen_2006, is.factor, as.character)
casen_2009 <- readRDS(file = "C:/Users/chris/Desktop/archivos grandes/casen_2009_c.rds")
casen_2009 <- mutate_if(casen_2009, is.factor, as.character)
casen_2011 <- readRDS(file = "C:/Users/chris/Desktop/archivos grandes/casen_2011_c.rds")
casen_2011 <- mutate_if(casen_2011, is.factor, as.character)
casen_2013 <- readRDS(file = "C:/Users/chris/Desktop/archivos grandes/casen_2013_c.rds")
casen_2013 <- mutate_if(casen_2013, is.factor, as.character)
casen_2015 <- readRDS(file = "C:/Users/chris/Desktop/archivos grandes/casen_2015_c.rds")
casen_2015 <- mutate_if(casen_2015, is.factor, as.character)
casen_2017 <- readRDS(file = "C:/Users/chris/Desktop/archivos grandes/casen_2017_c.rds")
casen_2017 <- mutate_if(casen_2017, is.factor, as.character)
casen_2020 <- readRDS(file = "C:/Users/chris/Desktop/archivos grandes/casen_2020_c.rds")
casen_2020 <- mutate_if(casen_2020, is.factor, as.character)vv <- c("ft","ft","o7r2","o7r2","o7r2","o7r2","o7")
# casen_2006 <- casen_2006[,c("EXPC", "COMUNA" ,vv[1], "T4","SEXO","E1")]
# casen_2009 <- casen_2009[,c("EXPC", "COMUNA" ,vv[2], "T5","SEXO","E1")]
casen_2011 <- casen_2011[,c("expc_full", "comuna" ,vv[3], "r6","sexo","e1","r2p_cod")]
casen_2013 <- casen_2013[,c("expc", "comuna" ,vv[4], "r6","sexo","e1","r2_p_cod")]
casen_2015 <- casen_2015[,c("expc_todas", "comuna" ,vv[5], "r3","sexo","e1","r2espp_cod")]
casen_2017 <- casen_2017[,c("expc", "comuna" ,vv[6], "r3","sexo","e1","r2_p_cod")]
# casen_2020 <- casen_2020[,c("expc", "comuna" ,vv[7], "r3","sexo","e1","r2_pais_esp")]Homologación de alfabetismo
casen_2006$E1[casen_2006$E1 == "No sabe /Sin dato"] <- NA
casen_2011$e1[casen_2011$e1 == "Sí, lee y escribe"] <- "Sí"
casen_2011$e1[casen_2011$e1 == "No, sólo lee"] <- "No"
casen_2011$e1[casen_2011$e1 == "No, ninguno"] <- "No"
casen_2011$e1[casen_2011$e1 == "No, sólo escribe"] <- "No"
casen_2013$e1[casen_2013$e1 == "Sí, lee y escribe"] <- "Sí"
casen_2013$e1[casen_2013$e1 == "No, ninguno"] <- "No"
casen_2013$e1[casen_2013$e1 == "No, sólo lee"] <- "No"
casen_2013$e1[casen_2013$e1 == "No, sólo escribe"] <- "No"
casen_2013$e1[casen_2013$e1 == "NS/NR"] <- NA
casen_2015$e1[casen_2015$e1 == "Sí, lee y escribe"] <- "Sí"
casen_2015$e1[casen_2015$e1 == "No, ninguno"] <- "No"
casen_2015$e1[casen_2015$e1 == "No, sólo lee"] <- "No"
casen_2015$e1[casen_2015$e1 == "No, sólo escribe"] <- "No"
casen_2017$e1[casen_2017$e1 == "Sí, lee y escribe"] <- "Sí"
casen_2017$e1[casen_2017$e1 == "No, sólo lee"] <- "No"
casen_2017$e1[casen_2017$e1 == "No, ninguno"] <- "No"
casen_2017$e1[casen_2017$e1 == "No sabe/responde"] <- NA
casen_2017$e1[casen_2017$e1 == "No, sólo escribe"] <- "No"
casen_2020$e1[casen_2020$e1 == 1] <- "Sí"
casen_2020$e1[casen_2020$e1 == 0] <- "No"Homologación de etnia
variable_etnia <- function(dataset){
variable <- switch(i,"T4","T5","r6","r6","r3","r3","r3")
dataset[,variable][dataset[,variable] == "Aimara" ] <- "Aymara"
dataset[,variable][dataset[,variable] == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
dataset[,variable][dataset[,variable] == "Mapuche"] <- "Mapuche"
dataset[,variable][dataset[,variable] == "Diaguita"] <- "Diaguita"
dataset[,variable][dataset[,variable] == "Atacameño (Likan-Antai)" ] <- "Atacameño"
dataset[,variable][dataset[,variable] == "Atacameño (Likán Antai)" ] <- "Atacameño"
dataset[,variable][dataset[,variable] == "Atacameño (Likán-Antai)" ] <- "Atacameño"
dataset[,variable][dataset[,variable] == "Yámana o Yagán" ] <- "Yagán"
dataset[,variable][dataset[,variable] == "Yagan" ] <- "Yagán"
dataset[,variable][dataset[,variable] == "Yagán (Yámana)" ] <- "Yagán"
dataset[,variable][dataset[,variable] == "Rapa-Nui o Pascuenses"] <- "Pascuense"
dataset[,variable][dataset[,variable] == "Rapa-Nui"] <- "Pascuense"
dataset[,variable][dataset[,variable] == "Rapa Nui (Pascuense)"] <- "Pascuense"
dataset[,variable][dataset[,variable] == "Rapa Nui"] <- "Pascuense"
dataset[,variable][dataset[,variable] == "Collas"] <- "Coya"
dataset[,variable][dataset[,variable] == "Kawashkar o Alacalufes" ] <- "Alacalufe"
dataset[,variable][dataset[,variable] == "Kawashkar" ] <- "Alacalufe"
dataset[,variable][dataset[,variable] == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
dataset[,variable][dataset[,variable] == "Kawésqar" ] <- "Alacalufe"
dataset[,variable][dataset[,variable] == "Kawaskar" ] <- "Alacalufe"
dataset[,variable][dataset[,variable] == "Sin dato"] <- NA
dataset[,variable][dataset[,variable] == "NS/NR" ] <- NA
dataset[,variable][dataset[,variable] == "No sabe/no responde" ] <- NA
# df <<- dataset
switch(i,
case = casen_2006 <<- dataset,
case = casen_2009 <<- dataset,
case = casen_2011 <<- dataset,
case = casen_2013 <<- dataset,
case = casen_2015 <<- dataset,
case = casen_2017 <<- dataset,
case = casen_2020 <<- dataset
)
}
for (i in 1:6) {
switch(i,
case = casen <- casen_2006,
case = casen <- casen_2009,
case = casen <- casen_2011,
case = casen <- casen_2013,
case = casen <- casen_2015,
case = casen <- casen_2017,
case = casen <- casen_2020
)
variable_etnia(casen)
}Homologación de migración
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
casen_2020$r2_pais_esp[casen_2020$r2_pais_esp == "No Responde"] <- "NS/NR"Homologación de variable
variable_en_estudio <- function(dataset){
variable <- switch(i,"ft","ft","o7r2","o7r2","o7r2","o7r2","")
dataset[,variable][dataset[,variable] == 'Busca cuando lo necesita o tiene trabajo esporádico'] <- 'Busca cuando lo necesita o tiene trabajo esporádico'
dataset[,variable][dataset[,variable] == 'Busca cuando realmente lo necesita o tiene trabajo esporádic'] <- 'Busca cuando lo necesita o tiene trabajo esporádico'
dataset[,variable][dataset[,variable] == 'Consiguió trabajo que empezará pronto o iniciará pronto una actividad por cuenta propia'] <- 'Empezará pronto o iniciará actividad por su cuenta'
dataset[,variable][dataset[,variable] == 'Consiguió trabajo que empezará pronto o iniciará pronto una'] <- 'Empezará pronto o iniciará actividad por su cuenta'
dataset[,variable][dataset[,variable] == 'Estudiante'] <- 'Es estudiante'
dataset[,variable][dataset[,variable] == 'Está enfermo o tiene una discapacidad'] <- 'Está enfermo o tiene una discapacidad'
dataset[,variable][dataset[,variable] == 'Está esperando resultado de gestiones ya emprendidas'] <- 'Está esperando resultado de gestiones ya emprendidas'
dataset[,variable][dataset[,variable] == 'Jubilado(a), pensionado(a) o montepiada'] <- 'Jubilado(a), pensionado(a) o montepiado(a)'
dataset[,variable][dataset[,variable] == 'Jubilado(a), pensionado(a) o montepiado(a)'] <- 'Jubilado(a), pensionado(a) o montepiado(a)'
dataset[,variable][dataset[,variable] == 'Las reglas, horarios, distancias de trabajos no le acomodan'] <- 'Las reglas, horarios y distancias de trabajos no le acomodan'
dataset[,variable][dataset[,variable] == 'Las reglas, horarios y distancias de los trabajos no le acomodan'] <- 'Las reglas, horarios y distancias de trabajos no le acomodan'
dataset[,variable][dataset[,variable] == 'Las reglas, horarios y distancias de los trabajos no le acom'] <- 'Las reglas, horarios y distancias de trabajos no le acomodan'
dataset[,variable][dataset[,variable] == 'NA'] <- 'No sabe o no responde'
dataset[,variable][dataset[,variable] == 'No tiene con quien dejar a adultos mayores'] <- 'No tiene con quien dejar a adultos mayores'
dataset[,variable][dataset[,variable] == 'No tiene con quien dejar a los niños'] <- 'No tiene con quien dejar a los niños'
dataset[,variable][dataset[,variable] == 'No tiene con quien dejar a otro familiar'] <- 'No tiene con quien dejar a otro familiar'
dataset[,variable][dataset[,variable] == 'No tiene interés de trabajar'] <- 'No tiene interés en trabajar'
dataset[,variable][dataset[,variable] == 'No tiene interés en trabajar'] <- 'No tiene interés en trabajar'
dataset[,variable][dataset[,variable] == 'Ofrecen sueldos muy bajos'] <- 'Ofrecen sueldos muy bajos'
dataset[,variable][dataset[,variable] == 'Otra razón'] <- 'Otra razón'
dataset[,variable][dataset[,variable] == 'Piensa que nadie le dará trabajo'] <- 'Piensa que nadie le dará trabajo'
dataset[,variable][dataset[,variable] == 'Piensa que nadie le dará trabajo (porque no cuenta con la capacitación requerida, por su edad, etc.)'] <- 'Piensa que nadie le dará trabajo'
dataset[,variable][dataset[,variable] == 'Piensa que nadie le dará trabajo (porque no cuenta con la ca'] <- 'Piensa que nadie le dará trabajo'
dataset[,variable][dataset[,variable] == 'Quehaceres del hogar'] <- 'Quehaceres del hogar'
dataset[,variable][dataset[,variable] == 'Se cansó de buscar o cree que no hay trabajo disponible'] <- 'Se cansó de buscar o cree que no hay trabajo disponible'
dataset[,variable][dataset[,variable] == 'Tiene otra fuente de ingreso (seguro cesantía, rentas,etc)'] <- 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'
dataset[,variable][dataset[,variable] == 'Tiene otra fuente de ingreso (seguro cesantía, mesadas, rentas, transferencias del Estado, etc.)'] <- 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'
dataset[,variable][dataset[,variable] == 'Tiene otra fuente de ingreso (seguro de cesantía, mesadas, r'] <- 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'
switch(i,
case = casen_2006 <<- dataset,
case = casen_2009 <<- dataset,
case = casen_2011 <<- dataset,
case = casen_2013 <<- dataset,
case = casen_2015 <<- dataset,
case = casen_2017 <<- dataset,
case = casen_2020 <<- dataset
)
}
for (i in 3:6) {
switch(i,
case = casen <- casen_2006,
case = casen <- casen_2009,
case = casen <- casen_2011,
case = casen <- casen_2013,
case = casen <- casen_2015,
case = casen <- casen_2017,
case = casen <- casen_2020
)
variable_en_estudio(casen)
}# carrera <- read_xlsx("C:/Users/enamo/Desktop/Shiny-R/ds_ttcc_ok/diccionarios/tabla_013_Diccionario_Trabajo_razon_2.xlsx")
# # carrera <- carrera[-c(1:1),c(1,3)]
# carrera <- carrera[-c(1:1),c(3,4)]
# names(carrera)[2] <- "Homologacion_002"
#
# dataf1 <- data.frame()
# for (n in 1:nrow(carrera)) {
# # dataf1 <- rbind(dataf1,paste0("dataset[,variable][dataset[,variable] == '",carrera[n,1],"']"," <- '",carrera[n,2],"'"))
# dataf1 <- rbind(dataf1,paste0("tab_f[,'cod_variable'][tab_f[,'cod_variable'] == '",carrera[n,1],"']"," <- '",carrera[n,2],"'")) # <- codigo numerico
# }
# dataf1 <- as.data.frame(dataf1)
# write_xlsx(dataf1,"el_total_final.xlsx")0.0.1 2011
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2011
b <- ab$comuna
c <- ab$o7r2
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] <- "razones2"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2011 <- d0.0.2 2013
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2013
b <- ab$comuna
c <- ab$o7r2
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] <- "razones2"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2013 <- d0.0.3 2015
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2015
b <- ab$comuna
c <- ab$o7r2
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] <- "razones2"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2015 <- d0.0.4 2017
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2017
b <- ab$comuna
c <- ab$o7r2
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] <- "razones2"
names(d)[3] <- "Etnia"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2017 <- dUnimos y desplegamos la tabla corregida:
1 Tabla final etnia homologada
union_etnia <- rbind(d_2011, d_2013, d_2015, d_2017)
union_etnia <- mutate_if(union_etnia, is.factor, as.character)#fn_etnia(union)
cod_com <- readRDS("C:/Users/chris/Desktop/archivos grandes/codigos_comunales_2006-2020.rds")
names(cod_com)[2] <- "comuna"
tab_f <- merge(x=union_etnia, y=cod_com, by="comuna")
tab_f$cod_etnia[tab_f$Etnia == "Alacalufe" ] <- "01"
tab_f$cod_etnia[tab_f$Etnia == "Atacameño" ] <- "02"
tab_f$cod_etnia[tab_f$Etnia == "Aymara" ] <- "03"
tab_f$cod_etnia[tab_f$Etnia == "Chango" ] <- "04"
tab_f$cod_etnia[tab_f$Etnia == "Coya" ] <- "05"
tab_f$cod_etnia[tab_f$Etnia == "Diaguita" ] <- "06"
tab_f$cod_etnia[tab_f$Etnia == "Mapuche" ] <- "07"
tab_f$cod_etnia[tab_f$Etnia == "Pascuense" ] <- "08"
tab_f$cod_etnia[tab_f$Etnia == "Quechua" ] <- "09"
tab_f$cod_etnia[tab_f$Etnia == "Yagán" ] <- "10"
tab_f$cod_etnia[tab_f$Etnia == "No pertenece a ningún pueblo indígena" ] <- "11"
tab_f$cod_etnia[tab_f$Etnia == NA ] <- "12"
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$razones2
# dataset <- tab_f
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Busca cuando lo necesita o tiene trabajo esporádico'] <- '1'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Busca cuando lo necesita o tiene trabajo esporádico'] <- '1'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Empezará pronto o iniciará actividad por su cuenta'] <- '2'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Empezará pronto o iniciará actividad por su cuenta'] <- '2'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Es estudiante'] <- '3'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Está enfermo o tiene una discapacidad'] <- '4'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Está esperando resultado de gestiones ya emprendidas'] <- '5'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Jubilado(a), pensionado(a) o montepiado(a)'] <- '6'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Jubilado(a), pensionado(a) o montepiado(a)'] <- '6'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Las reglas, horarios y distancias de trabajos no le acomodan'] <- '7'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Las reglas, horarios y distancias de trabajos no le acomodan'] <- '7'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Las reglas, horarios y distancias de trabajos no le acomodan'] <- '7'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No sabe o no responde'] <- '8'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene con quien dejar a adultos mayores'] <- '9'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene con quien dejar a los niños'] <- '10'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene con quien dejar a otro familiar'] <- '11'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene interés en trabajar'] <- '12'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene interés en trabajar'] <- '12'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Ofrecen sueldos muy bajos'] <- '13'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Otra razón'] <- '14'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Piensa que nadie le dará trabajo'] <- '15'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Piensa que nadie le dará trabajo'] <- '15'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Piensa que nadie le dará trabajo'] <- '15'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Quehaceres del hogar'] <- '16'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Se cansó de buscar o cree que no hay trabajo disponible'] <- '17'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'] <- '18'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'] <- '18'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'] <- '18'
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))2 MIGRA
2.0.1 2011
Generamos las tablas de contingencia tal como acostumbramos:
ab <- casen_2011
b <- ab$comuna
c <- ab$o7r2
d <- ab$r2p_cod
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] <- "razones2"
names(d)[3] <- "Origen"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2011 <- d2.0.2 2013
ab <- casen_2013
b <- ab$comuna
c <- ab$o7r2
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 <- "2013"
names(d)[1] <- "comuna"
names(d)[2] <- "razones2"
names(d)[3] <- "Origen"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2013 <- d2.0.3 2015
ab <- casen_2015
b <- ab$comuna
c <- ab$o7r2
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] <- "razones2"
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 2.0.4 2017
ab <- casen_2017
b <- ab$comuna
c <- ab$o7r2
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] <- "razones2"
names(d)[3] <- "Origen"
names(d)[4] <- "Sexo"
names(d)[5] <- "Sabe leer?"
names(d)[6] <- "Frecuencia"
names(d)[7] <- "Año"
d_2017 <- dUnimos y desplegamos la tabla corregida:
3 Tabla final inmigración homologada
union_etnia <- rbind(d_2011, d_2013, d_2015, d_2017)
union <- mutate_if(union_etnia, is.factor, as.character)union$cod_sexo <- union$Sexo
union$cod_sexo[union$cod_sexo == "Hombre"] <- "01"
union$cod_sexo[union$cod_sexo == "Mujer"] <- "02"
union$cod_alfa <- union$`Sabe leer?`
union$cod_alfa[union$cod_alfa == "Sí"] <- "01"
union$cod_alfa[union$cod_alfa == "No"] <- "02"
union$cod_variable <- union$razones2
tab_f <- union
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Busca cuando lo necesita o tiene trabajo esporádico'] <- '1'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Busca cuando lo necesita o tiene trabajo esporádico'] <- '1'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Empezará pronto o iniciará actividad por su cuenta'] <- '2'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Empezará pronto o iniciará actividad por su cuenta'] <- '2'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Es estudiante'] <- '3'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Está enfermo o tiene una discapacidad'] <- '4'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Está esperando resultado de gestiones ya emprendidas'] <- '5'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Jubilado(a), pensionado(a) o montepiado(a)'] <- '6'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Jubilado(a), pensionado(a) o montepiado(a)'] <- '6'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Las reglas, horarios y distancias de trabajos no le acomodan'] <- '7'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Las reglas, horarios y distancias de trabajos no le acomodan'] <- '7'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Las reglas, horarios y distancias de trabajos no le acomodan'] <- '7'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No sabe o no responde'] <- '8'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene con quien dejar a adultos mayores'] <- '9'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene con quien dejar a los niños'] <- '10'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene con quien dejar a otro familiar'] <- '11'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene interés en trabajar'] <- '12'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'No tiene interés en trabajar'] <- '12'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Ofrecen sueldos muy bajos'] <- '13'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Otra razón'] <- '14'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Piensa que nadie le dará trabajo'] <- '15'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Piensa que nadie le dará trabajo'] <- '15'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Piensa que nadie le dará trabajo'] <- '15'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Quehaceres del hogar'] <- '16'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Se cansó de buscar o cree que no hay trabajo disponible'] <- '17'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'] <- '18'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'] <- '18'
tab_f[,'cod_variable'][tab_f[,'cod_variable'] == 'Tiene otra fuente de ingreso (seguro de cesantía, rentas,etc)'] <- '18'
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))