1 Las variables de ingreso a utilizar serán:
| Tipo | ||||
|---|---|---|---|---|
| Ingreso total | Ingreso autónomo | Ingreso del trabajo | ||
| año | ||||
| 2017 | ytotcor | yautcor | ytrabajocor | |
| 2015 | ytotcor | yautcor | ytrabajocor | |
| 2013 | ytotcor | yautcor | ytrabajocor | |
| 2011 | ytrabaj | yautaj | ytrabaj | |
| 2009 | ytrabaj | yautaj | ytrabaj | |
| 2006 | ytrabaj | yautaj | ytrabaj |
1.1 Lectura de bases de datos Casen
dataset_06 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2006_c.rds")
dataset_06 <- mutate_if(dataset_06, is.factor, as.character)
dataset_09 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2009_c.rds")
dataset_09 <- mutate_if(dataset_09, is.factor, as.character)
dataset_11 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2011_c.rds")
dataset_11 <- mutate_if(dataset_11, is.factor, as.character)
dataset_13 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2013_c.rds")
dataset_13 <- mutate_if(dataset_13, is.factor, as.character)
dataset_15 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2015_c.rds")
dataset_15 <- mutate_if(dataset_15, is.factor, as.character)
dataset_17 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2017_c.rds")
dataset_17 <- mutate_if(dataset_17, is.factor, as.character)
dataset_20 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2020.rds")
dataset_20 <- mutate_if(dataset_20, is.factor, as.character)1.1.1 Homologación de alfabetismo
dataset_06$E1[dataset_06$E1 == "No sabe /Sin dato"] <- NA
dataset_11$e1[dataset_11$e1 == "Sí, lee y escribe"] <- "Sí"
dataset_11$e1[dataset_11$e1 == "No, sólo lee"] <- "No"
dataset_11$e1[dataset_11$e1 == "No, ninguno"] <- "No"
dataset_11$e1[dataset_11$e1 == "No, sólo escribe"] <- "No"
dataset_13$e1[dataset_13$e1 == "Sí, lee y escribe"] <- "Sí"
dataset_13$e1[dataset_13$e1 == "No, ninguno"] <- "No"
dataset_13$e1[dataset_13$e1 == "No, sólo lee"] <- "No"
dataset_13$e1[dataset_13$e1 == "No, sólo escribe"] <- "No"
dataset_13$e1[dataset_13$e1 == "NS/NR"] <- NA
dataset_15$e1[dataset_15$e1 == "Sí, lee y escribe"] <- "Sí"
dataset_15$e1[dataset_15$e1 == "No, ninguno"] <- "No"
dataset_15$e1[dataset_15$e1 == "No, sólo lee"] <- "No"
dataset_15$e1[dataset_15$e1 == "No, sólo escribe"] <- "No"
dataset_17$e1[dataset_17$e1 == "Sí, lee y escribe"] <- "Sí"
dataset_17$e1[dataset_17$e1 == "No, sólo lee"] <- "No"
dataset_17$e1[dataset_17$e1 == "No, ninguno"] <- "No"
dataset_17$e1[dataset_17$e1 == "No sabe/responde"] <- NA
dataset_17$e1[dataset_17$e1 == "No, sólo escribe"] <- "No"1.1.2 Homologación de s13 ¿A qué sistema previsional de salud pertenece usted?
dataset_06$S1[dataset_06$S1 == "Sistema Público grupo A"] <- "Público"
dataset_06$S1[dataset_06$S1 == "Sistema Público grupo B"] <- "Público"
dataset_06$S1[dataset_06$S1 == "Sistema Público grupo C"] <- "Público"
dataset_06$S1[dataset_06$S1 == "Sistema Público grupo D"] <- "Público"
dataset_06$S1[dataset_06$S1 == "Otro Sistema"] <- "Otro"
dataset_06$S1[dataset_06$S1 == "F.F.A.A. y del orden"] <- "FF.AA."
dataset_06$S1[dataset_06$S1 == "Ninguno (particular)"] <- "Ninguno"
dataset_06$S1[dataset_06$S1 == "Sistema Público no sabe grupo"] <- "No sabe"
dataset_09$S1[dataset_09$S1 == "Sistema Público grupo A"] <- "Público"
dataset_09$S1[dataset_09$S1 == "Sistema Público grupo B"] <- "Público"
dataset_09$S1[dataset_09$S1 == "Sistema Público grupo C"] <- "Público"
dataset_09$S1[dataset_09$S1 == "Sistema Público grupo D"] <- "Público"
dataset_09$S1[dataset_09$S1 == "Otro Sistema. Especifique"] <- "Otro"
dataset_09$S1[dataset_09$S1 == "F.F.A.A. y del orden"] <- "FF.AA."
dataset_09$S1[dataset_09$S1 == "Ninguno (particular)"] <- "Ninguno"
dataset_09$S1[dataset_09$S1 == "Sistema Público no sabe grupo"] <- "No sabe"
dataset_11$s17[dataset_11$s17 == "S. Público FONASA Grupo A"] <- "Público"
dataset_11$s17[dataset_11$s17 == "S. Público FONASA Grupo B"] <- "Público"
dataset_11$s17[dataset_11$s17 == "S. Público FONASA Grupo C"] <- "Público"
dataset_11$s17[dataset_11$s17 == "S. Público FONASA Grupo D"] <- "Público"
dataset_11$s17[dataset_11$s17 == "Otro sistema"] <- "Otro"
dataset_11$s17[dataset_11$s17 == "F.F.A.A. y del Orden"] <- "FF.AA."
dataset_11$s17[dataset_11$s17 == "Ninguno (particular)"] <- "Ninguno"
dataset_11$s17[dataset_11$s17 == "S. Público FONASA No sabe grupo"] <- "No sabe"
dataset_13$s14[dataset_13$s14 == "S. Público FONASA Grupo A"] <- "Público"
dataset_13$s14[dataset_13$s14 == "S. Público FONASA Grupo B"] <- "Público"
dataset_13$s14[dataset_13$s14 == "S. Público FONASA Grupo C"] <- "Público"
dataset_13$s14[dataset_13$s14 == "S. Público FONASA Grupo D"] <- "Público"
dataset_13$s14[dataset_13$s14 == "Otro sistema"] <- "Otro"
dataset_13$s14[dataset_13$s14 == "FF.AA. y del Orden"] <- "FF.AA."
dataset_13$s14[dataset_13$s14 == "Ninguno (particular)"] <- "Ninguno"
dataset_13$s14[dataset_13$s14 == "S. Público FONASA No sabe grupo"] <- "No sabe"
dataset_15$s12[dataset_15$s12 == "Sistema Público FONASA grupo A"] <- "Público"
dataset_15$s12[dataset_15$s12 == "Sistema Público FONASA grupo B"] <- "Público"
dataset_15$s12[dataset_15$s12 == "Sistema Público FONASA grupo C"] <- "Público"
dataset_15$s12[dataset_15$s12 == "Sistema Público FONASA grupo D"] <- "Público"
dataset_15$s12[dataset_15$s12 == "Otro sistema"] <- "Otro"
dataset_15$s12[dataset_15$s12 == "FF.AA. y del Orden"] <- "FF.AA."
dataset_15$s12[dataset_15$s12 == "Ninguno (particular)"] <- "Ninguno"
dataset_15$s12[dataset_15$s12 == "Sistema Público FONASA No sabe grupo"] <- "No sabe"
dataset_17$s12[dataset_17$s12 == "Sistema Público FONASA Grupo A"] <- "Público"
dataset_17$s12[dataset_17$s12 == "Sistema Público FONASA Grupo B"] <- "Público"
dataset_17$s12[dataset_17$s12 == "Sistema Público FONASA Grupo C"] <- "Público"
dataset_17$s12[dataset_17$s12 == "Sistema Público FONASA Grupo D"] <- "Público"
dataset_17$s12[dataset_17$s12 == "Otro sistema"] <- "Otro"
dataset_17$s12[dataset_17$s12 == "FF.AA. y de Orden"] <- "FF.AA."
dataset_17$s12[dataset_17$s12 == "Ninguno (Particular)"] <- "Ninguno"
dataset_17$s12[dataset_17$s12 == "Sistema Público FONASA No sabe grupo"] <- "No sabe"
dataset_20$s13[dataset_20$s13 == "Ninguno (particular)"] <- "Ninguno"
dataset_20$s13[dataset_20$s13 == "Sistema Público FONASA"] <- "Público"
dataset_20$s13[dataset_20$s13 == "Otro sistema"] <- "Otro"
dataset_20$s13[dataset_20$s13 == "FF.AA. y del Orden"] <- "FF.AA." 2 Generación de tablas de contingencia
df_tablas <- data.frame()
for (var2 in 1:3) {
for (var1 in 1:5) {
funcion1 <- function(n){
comunales<-switch(n,"codigos_comunales_2006.rds","codigos_comunales_2009.rds","codigos_comunales_2011-2017.rds","codigos_comunales_2011-2017.rds","codigos_comunales_2011-2017.rds","codigos_comunales_2011-2017.rds","codigos_comunales_2011-2017.rds")
xx<-switch(n,"2006","2009","2011","2013","2015","2017","2020")
tanio <<- xx
switch (var1,
case = v1 <- switch(n,"S1","S1","s17","s14","s12","s12","s13"),
case = v1 <- switch(n,"O1","O1","o1","o1","o1","o1","o1"),
case = v1 <- switch(n,"O2","O2","o2","o2","o2","o2","o2"),
case = v1 <- switch(n,"O3","O3","o3","o3","o3","o3","o3"),
case = v1 <- switch(n,"O4","O4","o6","o6","o6","o6","o6")
)
if(xx==2006) {
ingreso <- switch(var2,"YTOTAJ","YAUTAJ","YTRABAJ","YOPRAJ")
eliminated <- dataset_06[!is.na(dataset_06[,c(ingreso)]),]
a <- eliminated[,c(ingreso)]
b <- eliminated$COMUNA
c <- eliminated[,c(v1)]
d <- eliminated$E1 #alfabetismo
e <- eliminated$T4 #etnia
f <- eliminated$SEXO
anio <- 2006
}
if(xx==2009) {
ingreso <- switch(var2,"YTOTAJ","YAUTAJ","YTRABAJ","YOPRAJ")
eliminated <- dataset_09[!is.na(dataset_09[,c(ingreso)]),]
a <- eliminated[,c(ingreso)]
b <- eliminated$COMUNA
c <- eliminated[,c(v1)]
d <- eliminated$E1 #alfabetismo
e <- eliminated$T5 #etnia
f <- eliminated$SEXO
anio <- 2009
}
if(xx==2011) {
ingreso <- switch(var2,"ytotaj","yautaj","ytrabaj","yopraj")
eliminated <- dataset_11[!is.na(dataset_11[,c(ingreso)]),]
a <- eliminated[,c(ingreso)]
b <- eliminated$comuna
c <- eliminated[,c(v1)]
d <- eliminated$e1 #alfabetismo
e <- eliminated$r6 #etnia
f <- eliminated$sexo
anio <- 2011
}
if(xx==2013) {
ingreso <- switch(var2,"ytotcor","yautcor","ytrabajoCor","yoprCor")
eliminated <- dataset_13[!is.na(dataset_13[,c(ingreso)]),]
a <- eliminated[,c(ingreso)]
b <- eliminated$comuna
c <- eliminated[,c(v1)]
d <- eliminated$e1 #alfabetismo
e <- eliminated$r6 #etnia
f <- eliminated$sexo
anio <- 2013
}
if(xx==2015) {
ingreso <- switch(var2,"ytotcor","yautcor","ytrabajoCor","yoprCor")
eliminated <- dataset_15[!is.na(dataset_15[,c(ingreso)]),]
a <- eliminated[,c(ingreso)]
b <- eliminated$comuna
c <- eliminated[,c(v1)]
d <- eliminated$e1 #alfabetismo
e <- eliminated$r3 #etnia
f <- eliminated$sexo
anio <- 2015
}
if(xx==2017) {
ingreso <- switch(var2,"ytotcor","yautcor","ytrabajocor","yoprcor")
eliminated <- dataset_17[!is.na(dataset_17[,c(ingreso)]),]
a <- eliminated[,c(ingreso)]
b <- eliminated$comuna
c <- eliminated[,c(v1)]
d <- eliminated$e1 #alfabetismo
e <- eliminated$r3 #etnia
f <- eliminated$sexo
anio <- 2017
}
if(xx==2020) {
ingreso <- switch(var2,"ytotcor","yautcor","ytrabajocor","yoprcor")
eliminated <- dataset_20[!is.na(dataset_20[,c(ingreso)]),]
a <- eliminated[,c(ingreso)]
b <- eliminated$comuna
c <- eliminated[,c(v1)]
d <- eliminated$sexo #alfabetismo
e <- eliminated$r3 #etnia
f <- eliminated$sexo
anio <- 2020
}
promedios_grupales <-aggregate(a, by=list(b, c, d, e,f), FUN = mean , na.rm = TRUE)
promedios_grupales_sd <-aggregate(a, by=list(b, c, d, e,f), FUN = sd , na.rm = TRUE)
promedios_grupales_gini <-aggregate(a, by=list(b, c, d, e,f), FUN = gini , na.rm = TRUE)
promedios_grupales$sd = promedios_grupales_sd$sd.a
promedios_grupales$gini = promedios_grupales_gini$gini.a
df<-promedios_grupales
df$Año = xx
################ -- frecuencia
expan<-switch(n,"EXPC","EXPC","expc_full","expc","expc_todas","expc","expc")
tabla_matp <-xtabs(eliminated[,(expan)]~b+c+d+e+f, data = eliminated)
tabla_matp <- as.data.frame(tabla_matp)
tabla_matp <-tabla_matp[!(tabla_matp$Freq == 0),]
df$freq <- tabla_matp$Freq
df <- df[complete.cases(df), ]
################
names(df)[1] <- "Comuna"
names(df)[2] <- "Variable de estudio"
names(df)[3] <- "Alfabetismo"
names(df)[4] <- "Etnia"
names(df)[5] <- "Sexo"
names(df)[6] <- "Promedio del Ingreso"
names(df)[7] <- "Desviación standard"
names(df)[8] <- "Gini"
names(df)[9] <- "Año"
direc_cod_com <- paste0("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/",comunales)
codigos_comunales <- readRDS(file = direc_cod_com)
names(codigos_comunales)[1] <- "Código"
names(codigos_comunales)[2] <- "Comuna"
tabla_df = merge( x = df, y = codigos_comunales, by = "Comuna", all.x = TRUE)
tabla_df <-tabla_df[!(tabla_df$Promedio == 0),]
tabla_df2 <<- tabla_df
# variable_in<-"ytotcor"
# ingreso_rds <- paste("e6a_",variable_in,"_",anio,"pruebas.rds", sep="")
}
data_df3 <- data.frame()
for (n in 1:7){
funcion1(n)
data_df3 <- rbind(data_df3,tabla_df2)
}
variable_e <- switch(var1,"s13","o1","o2","o3","o6")
variable_i <- switch(var2,"ytotcor","yautcor","ytrabajocor","yoprcor")
# names(data_df3)[2] <- variable_e
data_df3$var_id <- paste0(variable_i,"_",variable_e)
assign(paste0("tabla_",variable_i,"_",variable_e),data_df3)
# print(paste0("tabla_",variable_i,"_",variable_e))
}
}
tabla_final <- rbind(tabla_ytotcor_s13,tabla_ytotcor_o1,tabla_ytotcor_o2,tabla_ytotcor_o3,tabla_ytotcor_o6,tabla_yautcor_s13,tabla_yautcor_o1,tabla_yautcor_o2,tabla_yautcor_o3,tabla_yautcor_o6,tabla_ytrabajocor_s13,tabla_ytrabajocor_o1,tabla_ytrabajocor_o2,tabla_ytrabajocor_o3,tabla_ytrabajocor_o6)2.0.1 Homologación de etnia
tabla_final$Etnia[tabla_final$Etnia == "Aimara" ] <- "Aymara"
tabla_final$Etnia[tabla_final$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ] <- "No pertenece a ningún pueblo indígena"
tabla_final$Etnia[tabla_final$Etnia == "Mapuche"] <- "Mapuche"
tabla_final$Etnia[tabla_final$Etnia == "Diaguita"] <- "Diaguita"
tabla_final$Etnia[tabla_final$Etnia == "Atacameño" ] <- "Atacameño"
tabla_final$Etnia[tabla_final$Etnia == "Atacameño (Likan-Antai)" ] <- "Atacameño"
tabla_final$Etnia[tabla_final$Etnia == "Atacameño (Likán Antai)" ] <- "Atacameño"
tabla_final$Etnia[tabla_final$Etnia == "Atacameño (Likán-Antai)" ] <- "Atacameño"
tabla_final$Etnia[tabla_final$Etnia == "Quechua" ] <- "Quechua"
tabla_final$Etnia[tabla_final$Etnia == "Yámana o Yagán" ] <- "Yagán"
tabla_final$Etnia[tabla_final$Etnia == "Yagan" ] <- "Yagán"
tabla_final$Etnia[tabla_final$Etnia == "Yagán (Yámana)" ] <- "Yagán"
tabla_final$Etnia[tabla_final$Etnia == "Rapa-Nui o Pascuenses"] <- "Pascuense"
tabla_final$Etnia[tabla_final$Etnia == "Rapa-Nui"] <- "Pascuense"
tabla_final$Etnia[tabla_final$Etnia == "Rapa Nui (Pascuense)"] <- "Pascuense"
tabla_final$Etnia[tabla_final$Etnia == "Rapa Nui"] <- "Pascuense"
tabla_final$Etnia[tabla_final$Etnia == "Collas"] <- "Coya"
tabla_final$Etnia[tabla_final$Etnia == "Kawashkar o Alacalufes" ] <- "Alacalufe"
tabla_final$Etnia[tabla_final$Etnia == "Kawashkar" ] <- "Alacalufe"
tabla_final$Etnia[tabla_final$Etnia == "Kawésqar (Alacalufes)" ] <- "Alacalufe"
tabla_final$Etnia[tabla_final$Etnia == "Kawésqar" ] <- "Alacalufe"
tabla_final$Etnia[tabla_final$Etnia == "Kawaskar" ] <- "Alacalufe"
tabla_final$Etnia[tabla_final$Etnia == "Chango" ] <- "Chango"
tabla_final$Etnia[tabla_final$Etnia == "Sin dato"] <- NA
tabla_final$Etnia[tabla_final$Etnia == "NS/NR" ] <- NA
tabla_final$Etnia[tabla_final$Etnia == "No sabe/no responde" ] <- NA3 Ingreso total ytotcor
3.1 s13 ¿A qué sistema previsional de salud pertenece usted?
tabla_ytotcor_s13 <- filter(tabla_final,tabla_final$var_id == "ytotcor_s13")
names(tabla_ytotcor_s13)[2] <- str_replace_all(tabla_ytotcor_s13[1,12],"ytotcor_","")
datatable(tabla_ytotcor_s13[,c(1:11)], 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_s13'),
list(extend='pdf',
filename= 'tabla_ytotcor_s13')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)3.2 o1 La semana pasada, ¿trabajó al menos una hora?
tabla_ytotcor_o1 <- filter(tabla_final,tabla_final$var_id == "ytotcor_o1")
names(tabla_ytotcor_o1)[2] <- str_replace_all(tabla_ytotcor_o1[1,12],"ytotcor_","")
datatable(tabla_ytotcor_o1[,c(1:11)], 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_o1'),
list(extend='pdf',
filename= 'tabla_ytotcor_o1')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)3.3 o2 ¿Aunque no trabajó la semana pasada, ¿realizó alguna actividad?
tabla_ytotcor_o2 <- filter(tabla_final,tabla_final$var_id == "ytotcor_o2")
names(tabla_ytotcor_o2)[2] <- str_replace_all(tabla_ytotcor_o2[1,12],"ytotcor_","")
datatable(tabla_ytotcor_o2[,c(1:11)], 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_o2'),
list(extend='pdf',
filename= 'tabla_ytotcor_o2')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)3.4 o3 ¿Aunque no trabajó la semana pasada, ¿tenía algún empleo del cual estuvo ausente temporalmente por licencia, huelga, enfermedad, vacaciones u otra razón?
tabla_ytotcor_o3 <- filter(tabla_final,tabla_final$var_id == "ytotcor_o3")
names(tabla_ytotcor_o3)[2] <- str_replace_all(tabla_ytotcor_o3[1,12],"ytotcor_","")
datatable(tabla_ytotcor_o3[,c(1:11)], 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_o3'),
list(extend='pdf',
filename= 'tabla_ytotcor_o3')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)3.5 O6 ¿Buscó trabajo remunerado en las últimas cuatro semanas?
tabla_ytotcor_o6 <- filter(tabla_final,tabla_final$var_id == "ytotcor_o6")
names(tabla_ytotcor_o6)[2] <- str_replace_all(tabla_ytotcor_o6[1,12],"ytotcor_","")
datatable(tabla_ytotcor_o6[,c(1:11)], 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_o6'),
list(extend='pdf',
filename= 'tabla_ytotcor_o6')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)4 Ingreso autonomo yautcor
4.1 s13 ¿A qué sistema previsional de salud pertenece usted?
tabla_yautcor_s13 <- filter(tabla_final,tabla_final$var_id == "yautcor_s13")
names(tabla_yautcor_s13)[2] <- str_replace_all(tabla_yautcor_s13[1,12],"yautcor_","")
datatable(tabla_yautcor_s13[,c(1:11)], 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_yautcor_s13'),
list(extend='pdf',
filename= 'tabla_yautcor_s13')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)4.2 o1 La semana pasada, ¿trabajó al menos una hora?
tabla_yautcor_o1 <- filter(tabla_final,tabla_final$var_id == "yautcor_o1")
names(tabla_yautcor_o1)[2] <- str_replace_all(tabla_yautcor_o1[1,12],"yautcor_","")
datatable(tabla_yautcor_o1[,c(1:11)], 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_yautcor_o1'),
list(extend='pdf',
filename= 'tabla_yautcor_o1')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)4.3 o2 ¿Aunque no trabajó la semana pasada, ¿realizó alguna actividad?
tabla_yautcor_o2 <- filter(tabla_final,tabla_final$var_id == "yautcor_o2")
names(tabla_yautcor_o2)[2] <- str_replace_all(tabla_yautcor_o2[1,12],"yautcor_","")
datatable(tabla_yautcor_o2[,c(1:11)], 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_yautcor_o2'),
list(extend='pdf',
filename= 'tabla_yautcor_o2')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)4.4 o3 ¿Aunque no trabajó la semana pasada, ¿tenía algún empleo del cual estuvo ausente temporalmente por licencia, huelga, enfermedad, vacaciones u otra razón?
tabla_yautcor_o3 <- filter(tabla_final,tabla_final$var_id == "yautcor_o3")
names(tabla_yautcor_o3)[2] <- str_replace_all(tabla_yautcor_o3[1,12],"yautcor_","")
datatable(tabla_yautcor_o3[,c(1:11)], 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_yautcor_o3'),
list(extend='pdf',
filename= 'tabla_yautcor_o3')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)4.5 O6 ¿Buscó trabajo remunerado en las últimas cuatro semanas?
tabla_yautcor_o6 <- filter(tabla_final,tabla_final$var_id == "yautcor_o6")
names(tabla_yautcor_o6)[2] <- str_replace_all(tabla_yautcor_o6[1,12],"yautcor_","")
datatable(tabla_yautcor_o6[,c(1:11)], 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_yautcor_o6'),
list(extend='pdf',
filename= 'tabla_yautcor_o6')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)5 Ingreso del trabajo ytrabajocor
5.1 s13 ¿A qué sistema previsional de salud pertenece usted?
tabla_ytrabajocor_s13 <- filter(tabla_final,tabla_final$var_id == "ytrabajocor_s13")
names(tabla_ytrabajocor_s13)[2] <- str_replace_all(tabla_ytrabajocor_s13[1,12],"ytrabajocor_","")
datatable(tabla_ytrabajocor_s13[,c(1:11)], 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_ytrabajocor_s13'),
list(extend='pdf',
filename= 'tabla_ytrabajocor_s13')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)5.2 o1 La semana pasada, ¿trabajó al menos una hora?
tabla_ytrabajocor_o1 <- filter(tabla_final,tabla_final$var_id == "ytrabajocor_o1")
names(tabla_ytrabajocor_o1)[2] <- str_replace_all(tabla_ytrabajocor_o1[1,12],"ytrabajocor_","")
datatable(tabla_ytrabajocor_o1[,c(1:11)], 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_ytrabajocor_o1'),
list(extend='pdf',
filename= 'tabla_ytrabajocor_o1')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)5.3 o2 ¿Aunque no trabajó la semana pasada, ¿realizó alguna actividad?
tabla_ytrabajocor_o2 <- filter(tabla_final,tabla_final$var_id == "ytrabajocor_o2")
names(tabla_ytrabajocor_o2)[2] <- str_replace_all(tabla_ytrabajocor_o2[1,12],"ytrabajocor_","")
datatable(tabla_ytrabajocor_o2[,c(1:11)], 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_ytrabajocor_o2'),
list(extend='pdf',
filename= 'tabla_ytrabajocor_o2')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)5.4 o3 ¿Aunque no trabajó la semana pasada, ¿tenía algún empleo del cual estuvo ausente temporalmente por licencia, huelga, enfermedad, vacaciones u otra razón?
tabla_ytrabajocor_o3 <- filter(tabla_final,tabla_final$var_id == "ytrabajocor_o3")
names(tabla_ytrabajocor_o3)[2] <- str_replace_all(tabla_ytrabajocor_o3[1,12],"ytrabajocor_","")
datatable(tabla_ytrabajocor_o3[,c(1:11)], 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_ytrabajocor_o3'),
list(extend='pdf',
filename= 'tabla_ytrabajocor_o3')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)5.5 O6 ¿Buscó trabajo remunerado en las últimas cuatro semanas?
tabla_ytrabajocor_o6 <- filter(tabla_final,tabla_final$var_id == "ytrabajocor_o6")
names(tabla_ytrabajocor_o6)[2] <- str_replace_all(tabla_ytrabajocor_o6[1,12],"ytrabajocor_","")
datatable(tabla_ytrabajocor_o6[,c(1:11)], 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_ytrabajocor_o6'),
list(extend='pdf',
filename= 'tabla_ytrabajocor_o6')),
text = 'Download')), scrollX = TRUE))%>%
formatRound(columns=c("Promedio del Ingreso","Desviación standard","Gini") ,mark = "", digits=3)6 Pruebas.
Hicimos pruebas pero tuvimos problemas al no tener puntos de comparación, al parecer somos los únicos que estamos haciendo este tipo de categorizaciones. El método no es científico, no llega al mismo resultado a través de distintos procedimientos, sólo debemos confiar en lo correcto de los pasos previos.
title
title
title