Insumo Informe Hospital Roberto del Río

#evitar que ocupe curl
#options(renv.download.override = utils::download.file)


#arriba puse algunas opciones para que por defecto escondiera el código
#también cargue algunos estilo .css para que el texto me apareciera justificado, entre otras cosas.
local({r <- getOption("repos")
       r["CRAN"] <- "http://cran.r-project.org" 
       options(repos=r)
})

clipboard <- function(x, sep="\t", row.names=FALSE, col.names=TRUE){
     con <- pipe("xclip -selection clipboard -i", open="w")
     write.table(x, con, sep=sep, row.names=row.names, col.names=col.names)
     close(con)
}

`%>%` <- magrittr::`%>%`
copy_names <- function(x,row.names=FALSE,col.names=TRUE,dec=",",...) {
  library(dplyr)
  if(class(ungroup(x))[1]=="tbl_df"){
    if(options()$OutDec=="."){
      options(OutDec = dec)
      write.table(format(data.frame(x)),"clipboard",sep="\t",row.names=FALSE,col.names=col.names,...)
      options(OutDec = ".")
      return(x)
    } else {
      options(OutDec = ",")
      write.table(format(data.frame(x)),"clipboard",sep="\t",row.names=FALSE,col.names=col.names,...)
      options(OutDec = ",")
      return(x)    
    }
  } else {
    if(options()$OutDec=="."){
      options(OutDec = dec)
      write.table(format(x),"clipboard",sep="\t",row.names=FALSE,col.names=col.names,...)
      options(OutDec = ".")
      return(x)
    } else {
      options(OutDec = ",")
      write.table(format(x),"clipboard",sep="\t",row.names=FALSE,col.names=col.names,...)
      options(OutDec = ",")
      return(x)       
    }
  }
}  

unlink('analisis_compilación2_cache', recursive = TRUE)
if(!require(pacman)){install.packages("pacman")}

pacman::p_unlock(lib.loc = .libPaths()) #para no tener problemas reinstalando paquetes
knitr::opts_chunk$set(
    echo = TRUE,
    message = FALSE,
    warning = FALSE
)
#dejo los paquetes estadísticos que voy a utilizar

if(!require(plotly)){install.packages("plotly")}
if(!require(lubridate)){install.packages("lubridate")}
if(!require(htmlwidgets)){install.packages("htmlwidgets")}
#if(!require(tidyverse)){install.packages("tidyverse")}
if(!require(gganimate)){install.packages("gganimate")}
if(!require(readr)){install.packages("readr")}
if(!require(stringr)){install.packages("stringr")}
if(!require(data.table)){install.packages("data.table")}
if(!require(DT)){install.packages("DT")}
if(!require(ggplot2)){install.packages("ggplot2")}
if(!require(lattice)){install.packages("lattice")}
if(!require(zoo)){install.packages("zoo")}
if(!require(janitor)){install.packages("janitor")}
if(!require(rjson)){install.packages("rjson")}
if(!require(estimatr)){install.packages("estimatr")} 
if(!require(textreg)){install.packages("textreg")}
if(!require(sjPlot)){install.packages("sjPlot")}
if(!require(foreign)){install.packages("foreign")}
if(!require(lmtest)){install.packages("lmtest")}
if(!require(Epi)){install.packages("Epi")}
if(!require(splines)){install.packages("splines")}
if(!require(vcd)){install.packages("vcd")}
if(!require(MASS)){install.packages("MASS")}
if(!require(ggsci)){install.packages("ggsci")}
if(!require(Hmisc)){install.packages("Hmisc")}
if(!require(compareGroups)){install.packages("compareGroups")}
if(!require(dplyr)){install.packages("dplyr")}
if(!require(ggforce)){install.packages("ggforce")}
if(!require(doParallel)){install.packages("doParallel")}
if(!require(SCtools)){install.packages("SCtools")}
if(!require(rio)){install.packages("rio")}
if(!require(rbokeh)){install.packages("rbokeh")}
if(!require(altair)){install.packages("altair")}
if(!require(sqldf)){install.packages("sqldf")} 
if(!require(devtools)){install.packages("devtools")}
if(!require(ExPanDaR)){install.packages("ExPanDaR")}
if(!require(skimr)){install.packages("skimr")}
if(!require(tm)){install.packages("tm")} 
if(!require(wordcloud2)){install.packages("wordcloud2")}
if(!require(wordcloud)){install.packages("wordcloud")}
if(!require(RColorBrewer)){install.packages("RColorBrewer")}
if(!require(psych)){install.packages("psych")}
if(!require(GPArotation)){install.packages("GPArotation")}
if(!require(mvtnorm)){install.packages("mvtnorm")}
if(!require(polycor)){install.packages("polycor")}
if(!require(MVN)){install.packages("MVN")}
if(!require(ggcorrplot)){install.packages("ggcorrplot")}
if(!require(radiant)){install.packages("radiant")}
if(!require(homals)){install.packages("homals")}
if(!require(nFactors)){install.packages("nFactors")}
if(!require(ggiraph)){install.packages("ggiraph")}
if(!require(factoextra)){install.packages("factoextra")}
if(!require(finalfit)){install.packages("finalfit")}


# Calculate the number of cores
#no_cores <- detectCores() - 1
##cl<-makeCluster(no_cores)
#registerDoParallel(cl)
# sudo apt -y install libfontconfig1-dev
# sudo apt-get install libxml2-dev
#Sys.setlocale(category = "LC_ALL", locale = "english")
#locale("es", decimal_mark = ",")

#Hospital R.A.V de Curanilahue
#Hospital Santa Isabel de Lebu
#SS Arauco
#Hospital San Vicente de Arauco
#Hospital de Contulmo
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1))),
       #haven::read_sav("Encuesta sobre las experiencias de las y los trabajadores de la salud .sav"),
       readr::read_csv(e,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8")),
       envir = .GlobalEnv)
paste0("Nombre archivo: enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))

## [1] "Nombre archivo: enc_trab_sal_rob_del_ri"

#get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1))))

1 Compilación de Base de Datos

En primer lugar, bajamos los datos yutilizamos un nombre para las columnas más fácil de procesar por los distintos programas informáticos de análisis estadístico.

#Ver als etiquetas y las variables
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
names_df<-data.frame()

for (i in 1:length(names(get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1))))))){
names_df<-rbind(names_df,cbind(names(get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))))[i],attr(get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1))))[[i]],"label")))
}
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
#get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))) %>% 
    #dplyr::select(-CollectorNm) %>% <
    #janitor::clean_names() %>% names() %>% data.frame() %>%   View()

tryCatch(
    get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))) %>% 
      dplyr::select(-CollectorNm) %>% 
      janitor::clean_names() %>% 
      dplyr::rename(
          'resp_id' = 'respondent_id',
          'collector_id' = 'collector_id',
          'date_created' = 'date_created',
          'date_mod' = 'date_modified',
          'ip' = 'ip_address',
          'email' = 'email_address',
          'cons_inf' = 'q0001',
          'subdir' = 'q0002',
          'subdir_otr' = 'q0002_other',
          'correo_final' = 'q0003_0009',
          'p3_siente_1' = 'q0004_0001',
          'p3_siente_2' = 'q0004_0002',
          'p3_siente_3' = 'q0004_0003',
          'p3_siente_4' = 'q0004_0004',
          'p3_siente_5' = 'q0004_0005',
          'p3_siente_6' = 'q0004_0006',
          'p4_afront_1' = 'q0005_0001',
          'p4_afront_2' = 'q0005_0002',
          'p4_afront_3' = 'q0005_0003',
          'p5_animo_1' = 'q0006_0001',
          'p5_animo_2' = 'q0006_0002',
          'p5_animo_3' = 'q0006_0003',
          'p5_animo_4' = 'q0006_0004',
          'p6_exp_c19_pac_cont' = 'q0007',
          'p7_exp_c19_trab_cont' = 'q0008',
          'p8_exp_c19_cerca_cont' = 'q0009',
          'p9_exp_c19_exp_sit_dg_01' = 'q0010_0001',
          'p9_exp_c19_exp_sit_dg_02' = 'q0010_0002',
          'p9_exp_c19_exp_sit_dg_03' = 'q0010_0003',
          'p9_exp_c19_exp_sit_dg_04' = 'q0010_0004',
          'p9_exp_c19_exp_sit_dg_05' = 'q0010_0005',
          'p9_exp_c19_exp_sit_dg_06' = 'q0010_0006',
          'p9_exp_c19_exp_sit_dg_07' = 'q0010_0007',
          'p9_exp_c19_exp_sit_dg_08' = 'q0010_0008',
          'p9_exp_c19_exp_sit_dg_09' = 'q0010_0009',
          'p9_exp_c19_exp_sit_dg_10' = 'q0010_0010',
          'p9_exp_c19_exp_sit_dg_11' = 'q0010_0011',
          'p10_exp_c19_preocupa_llevar' = 'q0011',
          'p11_exp_c19_miedo_pand' = 'q0012',
          'p12_contr_cont_imp_nec_01' = 'q0013_0001',
          'p12_contr_cont_imp_nec_02' = 'q0013_0002',
          'p12_contr_cont_imp_nec_03' = 'q0013_0003',
          'p12_contr_cont_imp_nec_04' = 'q0013_0004',
          'p12_contr_cont_imp_nec_05' = 'q0013_0005',
          'p12_contr_cont_imp_nec_06' = 'q0013_0006',
          'p12_contr_cont_imp_nec_07' = 'q0013_0007',
          'p12_contr_cont_imp_nec_08' = 'q0013_0008',
          'p12_contr_cont_imp_nec_09' = 'q0013_0009',
          'p12_contr_cont_imp_nec_10' = 'q0013_0010',
          'p12_contr_cont_imp_nec_11' = 'q0013_0011',
          'p12_contr_cont_imp_nec_12' = 'q0013_0012',
          'p12_contr_cont_imp_nec_13' = 'q0013_0013',
          'p12_contr_cont_imp_nec_otr' = 'q0013_other',
          'p13_contr_cont_imp_disp_01' = 'q0014_0001',
          'p13_contr_cont_imp_disp_02' = 'q0014_0002',
          'p13_contr_cont_imp_disp_03' = 'q0014_0003',
          'p13_contr_cont_imp_disp_04' = 'q0014_0004',
          'p13_contr_cont_imp_disp_05' = 'q0014_0005',
          'p13_contr_cont_imp_disp_06' = 'q0014_0006',
          'p13_contr_cont_imp_disp_07' = 'q0014_0007',
          'p13_contr_cont_imp_disp_08' = 'q0014_0008',
          'p13_contr_cont_imp_disp_09' = 'q0014_0009',
          'p13_contr_cont_imp_disp_10' = 'q0014_0010',
          'p13_contr_cont_imp_disp_11' = 'q0014_0011',
          'p14_contr_cont_cap_epp' = 'q0015',
          'p15_contr_cont_14a_eval_cap' = 'q0016',
          'p16_contr_cont_conf_epps' = 'q0017',
          'p17_contr_cont_restr_epp_1' = 'q0018_0001',
          'p17_contr_cont_restr_epp_2' = 'q0018_0002',
          'p17_contr_cont_restr_epp_3' = 'q0018_0003',
          'p17_contr_cont_restr_epp_4' = 'q0018_0004',
          'p17_contr_cont_restr_epp_5' = 'q0018_0005',
          'p17_contr_cont_restr_epp_6' = 'q0018_0006',
          'p17_contr_cont_restr_epp_7' = 'q0018_0007',
          'p17_contr_cont_restr_epp_otr' = 'q0018_other',
          'p18_contr_cont_conf_eval_ri' = 'q0019',
          'p19_contr_cont_nieg_epp' = 'q0020',
          'p20_contr_cont_med_pev_1' = 'q0021_0001',
          'p20_contr_cont_med_pev_2' = 'q0021_0002',
          'p20_contr_cont_med_pev_3' = 'q0021_0003',
          'p20_contr_cont_med_pev_4' = 'q0021_0004',
          'p20_contr_cont_med_pev_5' = 'q0021_0005',
          'p20_contr_cont_med_pev_6' = 'q0021_0006',
          'p20_contr_cont_med_pev_7' = 'q0021_0007',
          'p20_contr_cont_med_pev_8' = 'q0021_0008',
          'p20_contr_cont_med_pev_9' = 'q0021_0009',
          'p21_cond_trab_hr_trabajada' = 'q0022',
          'p22_cond_trab_hr_trabara' = 'q0023',
          'p23_cond_trab_pert_sind' = 'q0024',
          'p24_cond_trab_23a_sind_nom' = 'q0025',
          'p25_cond_trab_23b_cargo_sin' = 'q0026',
          'p26_cond_trab_ent_protec_1' = 'q0027_0001',
          'p26_cond_trab_ent_protec_2' = 'q0027_0002',
          'p26_cond_trab_ent_protec_3' = 'q0027_0003',
          'p26_cond_trab_ent_protec_4' = 'q0027_0004',
          'p27_cond_trab_sup_jef' = 'q0028',
          'p28_cond_trab_sis_trab' = 'q0029',
          'p29_cond_trab_28c_sis_mix_0' = 'q0030',
          'p29_cond_trab_28c_sis_mix' = 'q0031',
          'p30_cond_trab_28c_sis_mix_a' = 'q0032',
          'p31_cond_trab_unidad' = 'q0033',
          'p31_cond_trab_otr' = 'q0033_other',
          'p32_cond_trab_est' = 'q0034',
          'p33_cond_trab_sit_cont' = 'q0035',
          'p33_cond_trab_sit_cont_otr' = 'q0035_other',
          'p34_cond_trab_tiemp_trab' = 'q0036',
          'p35_cond_trab_tareas' = 'q0037',
          'p36_cond_trab_reasig' = 'q0038',
          'p37_cond_trab_num_est' = 'q0039',
          'p38_cond_trab_sal_psi' = 'q0040',
          'p39_cond_trab_cult_org' = 'q0041',
          'p40_cond_trab_istas_01' = 'q0042_0001',
          'p40_cond_trab_istas_02' = 'q0042_0002',
          'p40_cond_trab_istas_03' = 'q0042_0003',
          'p40_cond_trab_istas_04' = 'q0042_0004',
          'p40_cond_trab_istas_05' = 'q0042_0005',
          'p40_cond_trab_istas_06' = 'q0043_0001',
          'p40_cond_trab_istas_07' = 'q0043_0002',
          'p40_cond_trab_istas_08' = 'q0043_0003',
          'p40_cond_trab_istas_09' = 'q0043_0004',
          'p40_cond_trab_istas_10' = 'q0043_0005',
          'p42_resiliencia_1' = 'q0044_0001',
          'p42_resiliencia_2' = 'q0044_0002',
          'p42_resiliencia_3' = 'q0044_0003',
          'p43_demo_edad' = 'q0045',
          'p44_demo_educacion' = 'q0046',
          'p45_demo_id_personal_1' = 'q0047_0001',
          'p45_demo_id_personal_2' = 'q0047_0002',
          'p45_demo_id_personal_3' = 'q0047_0003',
          'p45_demo_id_personal_4' = 'q0047_0004',
          'p45_demo_id_personal_5' = 'q0047_0005',
          'p45_demo_id_personal_6' = 'q0047_0006',
          'p45_demo_id_personal_7' = 'q0047_0007',
          'p45_demo_id_personal_8' = 'q0047_0008',
          'p46_demo_tiempo_viaje' = 'q0048',
          'p47_demo_medio_transp_01' = 'q0049_0001',
          'p47_demo_medio_transp_02' = 'q0049_0002',
          'p47_demo_medio_transp_03' = 'q0049_0003',
          'p47_demo_medio_transp_04' = 'q0049_0004',
          'p47_demo_medio_transp_05' = 'q0049_0005',
          'p47_demo_medio_transp_06' = 'q0049_0006',
          'p47_demo_medio_transp_07' = 'q0049_0007',
          'p47_demo_medio_transp_08' = 'q0049_0008',
          'p47_demo_medio_transp_09' = 'q0049_0009',
          'p47_demo_medio_transp_10' = 'q0049_0010',
          'p47_demo_medio_transp_otr' = 'q0049_other',
          'p50_com_finales' = 'q0050'
        ) %>% 
      dplyr::mutate(across(where(is.character), ~stringr::str_remove(stringr::str_trim(.), "\\.$"))) %>% 
      haven::as_factor() %>% 
      data.frame() %>% 
      assign(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 2, nchar(input2)-1)),"_2"),
             .,
             envir=.GlobalEnv),
    error=function(e) 
  get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))) %>% 
    janitor::clean_names() %>% 
    dplyr::rename(
   'resp_id' = 'response_id',
   'date_created' = 'date_created',
   'date_mod' = 'date_modified',
   'ip' = 'ip_address',
   'duration' = 'duration_sec',
   'resp_status' = 'response_status',
   'email' = 'email',
   'primer_nombre' = 'first_name',
   'ultimo_nombre' = 'last_name',
   'collector_id' = 'collector_id',
   'collector_type' = 'collector_type',
   'custom_value' = 'custom_value',
   'cons_inf' = 'yo_habiendo_sido_informado_del_objetivo_de_esta_investigacion_y_de_las_condiciones_de_mi_participacion',
   'subdir_otr' = 'indique_en_la_subdireccion_o_unidad_mayor_en_la_que_se_desempena_principalmente_al_interior_del_establecimiento_de_salud',
   'correo_final' = 'favor_ingrese_su_correo_eletronico_este_solo_sera_utilizado_para_los_fines_indicados_en_el_consentimiento_direccion_de_correo_electronico',
   'p3_siente_1' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_agotado_fisicamente',
   'p3_siente_2' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_agotado_emocionalmente',
   'p3_siente_3' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_estresado',
   'p3_siente_4' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_irritable',
   'p3_siente_5' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_con_dificultades_para_descansar_al_dormir',
   'p3_siente_6' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_con_problemas_para_mantener_el_sueno_al_dormir',
   'p4_afront_1' = 'en_la_ultima_semana_y_a_consecuencia_de_la_situacion_sanitaria_me_he_sentido_distante_y_desconectado_de_mi_mismo_y_mi_entorno',
   'p4_afront_2' = 'en_la_ultima_semana_y_a_consecuencia_de_la_situacion_sanitaria_me_he_sentido_sobresaltado_en_guardia_o_me_alarmo_facilmente',
   'p4_afront_3' = 'en_la_ultima_semana_y_a_consecuencia_de_la_situacion_sanitaria_me_he_sentido_irritable_al_punto_de_reaccionar_bruscamente',
   'p5_animo_1' = 'senale_con_que_frecuencia_ha_experimentado_las_siguientes_situaciones_en_los_ultimos_7_dias_me_he_sentido_nervioso_ansioso_o_con_los_nervios_de_punta',
   'p5_animo_2' = 'senale_con_que_frecuencia_ha_experimentado_las_siguientes_situaciones_en_los_ultimos_7_dias_no_he_podido_dejar_de_preocuparme',
   'p5_animo_3' = 'senale_con_que_frecuencia_ha_experimentado_las_siguientes_situaciones_en_los_ultimos_7_dias_he_sentido_falta_de_interes_o_poca_satisfaccion_en_hacer_cosas',
   'p5_animo_4' = 'senale_con_que_frecuencia_ha_experimentado_las_siguientes_situaciones_en_los_ultimos_7_dias_me_he_sentido_decaido_deprimido_o_desesperanzado',
   'p6_exp_c19_pac_cont' = 'cuantos_pacientes_contagiados_con_covid_19_con_sospecha_y_o_confirmado_hay_en_total_en_su_lugar_de_trabajo_principal_en_la_ultima_semana',
   'p7_exp_c19_trab_cont' = 'cuantos_trabajadores_contagiados_con_covid_19_con_sospecha_y_o_confirmado_hay_en_total_en_su_lugar_de_trabajo_principal_en_la_ultima_semana',
   'p8_exp_c19_cerca_cont' = 'que_tan_cercano_es_el_contacto_que_usted_tiene_con_pacientes_con_covid_19',
   'p9_exp_c19_exp_sit_dg_01' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_han_dicho_que_tuvo_contacto_con_un_paciente_covid_19_en_el_trabajo',
   'p9_exp_c19_exp_sit_dg_02' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_han_dicho_que_tuvo_contacto_con_un_paciente_covid_19_fuera_del_trabajo',
   'p9_exp_c19_exp_sit_dg_03' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_solicitaron_que_trabajara_a_pesar_de_la_exposicion_a_covid_19',
   'p9_exp_c19_exp_sit_dg_04' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_experimento_sintomas_similares_a_los_de_covid_19',
   'p9_exp_c19_exp_sit_dg_05' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_solicitaron_que_trabajara_a_pesar_de_los_sintomas',
   'p9_exp_c19_exp_sit_dg_06' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_dijeron_que_trabajara_a_pesar_de_no_contar_con_ep_ps',
   'p9_exp_c19_exp_sit_dg_07' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_solicitaron_que_se_aislara',
   'p9_exp_c19_exp_sit_dg_08' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_se_hizo_el_examen_para_descartar_covid_19',
   'p9_exp_c19_exp_sit_dg_09' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_dio_positivo_en_el_examen_para_descartar_covid_19',
   'p9_exp_c19_exp_sit_dg_10' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_presento_formularios_de_compensacion_por_contraer_covid_19_en_el_trabajo_seguro_de_vida_enfermedad_laboral',
   'p9_exp_c19_exp_sit_dg_11' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_ninguna_de_las_anteriores',
   'p10_exp_c19_preocupa_llevar' = 'se_ha_sentido_preocupado_por_llevar_el_virus_desde_el_trabajo_a_aquellos_con_los_que_vives_y_o_amigos',
   'p11_exp_c19_miedo_pand' = 'como_califica_su_nivel_de_miedo_de_la_situacion_de_pandemia_al_dia_de_hoy',
   'p12_contr_cont_imp_nec_01' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_guantes',
   'p12_contr_cont_imp_nec_02' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_protector_de_ojos_lentes',
   'p12_contr_cont_imp_nec_03' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_protector_facial',
   'p12_contr_cont_imp_nec_04' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_overol',
   'p12_contr_cont_imp_nec_05' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_desinfectante_de_manos',
   'p12_contr_cont_imp_nec_06' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_mascarilla_quirurgica',
   'p12_contr_cont_imp_nec_07' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_mascarilla_n95',
   'p12_contr_cont_imp_nec_08' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_respirador_de_aire_impulsado',
   'p12_contr_cont_imp_nec_09' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_delantal_pechera',
   'p12_contr_cont_imp_nec_10' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_cofia',
   'p12_contr_cont_imp_nec_11' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_cubre_calzado',
   'p12_contr_cont_imp_nec_12' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_ninguno_de_los_anteriores',
   'p12_contr_cont_imp_nec_13' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_otro_especifique',
   'p13_contr_cont_imp_disp_01' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_guantes',
   'p13_contr_cont_imp_disp_02' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_protector_de_ojos',
   'p13_contr_cont_imp_disp_03' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_protector_facial',
   'p13_contr_cont_imp_disp_04' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_overol',
   'p13_contr_cont_imp_disp_05' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_desinfectante_de_manos',
   'p13_contr_cont_imp_disp_06' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_mascarilla_quirurgica',
   'p13_contr_cont_imp_disp_07' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_mascarilla_n95',
   'p13_contr_cont_imp_disp_08' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_respiradores_de_particulas_de_aire_impulsado',
   'p13_contr_cont_imp_disp_09' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_delantal_pechera',
   'p13_contr_cont_imp_disp_10' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_cofia',
   'p13_contr_cont_imp_disp_11' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_cubre_calzado',
   'p14_contr_cont_cap_epp' = 'ha_participado_en_alguna_capacitacion_sobre_el_uso_correcto_de_ep_ps',
   'p15_contr_cont_14a_eval_cap' = 'como_evaluaria_la_eficacia_de_las_capacitaciones_recibidas_para_trabajar_de_forma_segura_con_el_covid_19',
   'p16_contr_cont_conf_epps' = 'cuan_confiado_se_siente_al_ponerse_y_quitarse_los_ep_ps_de_manera_segura',
   'p17_contr_cont_restr_epp_1' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_mi_empleador_se_ha_rehusado_a_dar_cierto_tipo_de_epp',
   'p17_contr_cont_restr_epp_2' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_necesito_permiso_para_utilizar_algun_epp_especifico',
   'p17_contr_cont_restr_epp_3' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_no_se_me_permite_reutilizar_mi_propio_epp',
   'p17_contr_cont_restr_epp_4' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_no_se_me_permite_reutilizar_ep_ps_utilizados_previamente_por_otros',
   'p17_contr_cont_restr_epp_5' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_mi_empleador_no_ha_impuesto_restricciones_al_uso_de_ep_ps',
   'p17_contr_cont_restr_epp_6' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_no_aplica',
   'p17_contr_cont_restr_epp_7' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_otro_especifique',
   'p18_contr_cont_conf_eval_ri' = 'cuan_confiado_se_siente_para_evaluar_su_riesgo_personal_y_determinar_la_pertinencia_de_sus_ep_ps',
   'p19_contr_cont_nieg_epp' = 'si_se_le_niega_el_epp_apropiado_seleccione_la_afirmacion_que_mejor_exprese_su_sentir_frente_al_ejercer_su_derecho_a_negarse_a_realizar_un_trabajo_inseguro',
   'p20_contr_cont_med_pev_1' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_evaluacion_pacientes_en_la_entrada_al_recinto_de_salud',
   'p20_contr_cont_med_pev_2' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_uso_obligatorio_de_mascarillas_en_pacientes_sintomaticos',
   'p20_contr_cont_med_pev_3' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_aislacion_de_pacientes_con_sintomas_respiratorios',
   'p20_contr_cont_med_pev_4' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_restriccion_del_acceso_y_flujo_de_pacientes_con_covid_en_el_recinto_de_salud',
   'p20_contr_cont_med_pev_5' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_funcionamiento_de_sistemas_de_ventilacion',
   'p20_contr_cont_med_pev_6' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_habilitacion_de_salas_de_aislamiento_de_infecciones_aereas',
   'p20_contr_cont_med_pev_7' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_habilitacion_de_camarin_o_espacios_de_higiene_del_personal',
   'p20_contr_cont_med_pev_8' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_mecanismos_de_limpieza_de_ropa_e_indumentaria',
   'p20_contr_cont_med_pev_9' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_procesos_de_eliminacion_de_residuos',
   'p21_cond_trab_hr_trabajada' = 'cuantas_horas_trabajo_la_semana_pasada_en_su_lugar_de_trabajo_principal_en_numeros',
   'p22_cond_trab_hr_trabara' = 'cuantas_horas_cree_que_trabajara_esta_semana_en_su_lugar_de_trabajo_principal',
   'p23_cond_trab_pert_sind' = 'usted_pertenece_a_un_sindicato_o_gremio_de_trabajadores_en_su_lugar_de_trabajo_principal',
   'p24_cond_trab_23a_sind_nom' = 'en_cual_sindicato_gremio_usted_forma_parte_en_su_lugar_de_trabajo_principal',
   'p25_cond_trab_23b_cargo_sin' = 'tiene_usted_algun_cargo_de_representacion_sindical_en_su_lugar_de_trabajo_principal',
   'p26_cond_trab_ent_protec_1' = 'en_funcion_de_su_experiencia_en_su_lugar_de_trabajo_principal_en_que_grado_esta_de_acuerdo_con_que_las_siguientes_entidades_estan_haciendo_todo_lo_posible_para_proteger_al_personal_sindicato_gremio',
   'p26_cond_trab_ent_protec_2' = 'en_funcion_de_su_experiencia_en_su_lugar_de_trabajo_principal_en_que_grado_esta_de_acuerdo_con_que_las_siguientes_entidades_estan_haciendo_todo_lo_posible_para_proteger_al_personal_empleador',
   'p26_cond_trab_ent_protec_3' = 'en_funcion_de_su_experiencia_en_su_lugar_de_trabajo_principal_en_que_grado_esta_de_acuerdo_con_que_las_siguientes_entidades_estan_haciendo_todo_lo_posible_para_proteger_al_personal_gobierno',
   'p26_cond_trab_ent_protec_4' = 'en_funcion_de_su_experiencia_en_su_lugar_de_trabajo_principal_en_que_grado_esta_de_acuerdo_con_que_las_siguientes_entidades_estan_haciendo_todo_lo_posible_para_proteger_al_personal_comite_paritario_de_salud_y_seguridad',
   'p27_cond_trab_sup_jef' = 'tiene_usted_algun_cargo_de_supervision_jefatura_o_gerencia_en_su_lugar_de_trabajo_principal',
   'p28_cond_trab_sis_trab' = 'donde_trabaja_actualmente',
   'p29_cond_trab_28c_sis_mix_0' = 'en_que_tipo_de_centro_de_salud_trabaja_principalmente',
   'p29_cond_trab_28c_sis_mix' = 'en_que_tipo_de_centro_de_salud_trabaja_publico',
   'p30_cond_trab_28c_sis_mix_a' = 'en_que_tipo_de_centro_de_salud_trabaja_ademas',
   'p31_cond_trab_unidad' = 'en_que_unidad_se_desempena',
   'p32_cond_trab_est' = 'estamento',
   'p33_cond_trab_sit_cont' = 'situacion_contractual',
   'p34_cond_trab_tiemp_trab' = 'cuanto_tiempo_ha_trabajado_para_su_actual_empleo_y_principal_en_anos',
   'p35_cond_trab_tareas' = 'describa_brevemente_el_tipo_de_tareas_que_implica_su_trabajo_actual',
   'p36_cond_trab_reasig' = 'actualmente_esta_desempenando_sus_labores_habituales_o_ha_sido_reasignado_en_funcion_de_la_actual_crisis_sanitaria_en_su_lugar_de_trabajo_principal',
   'p37_cond_trab_num_est' = 'cuantos_trabajadores_estima_que_se_desempenan_en_su_lugar_de_trabajo_principal',
   'p38_cond_trab_sal_psi' = 'como_calificaria_la_salud_psicologica_de_las_personas_con_las_que_trabaja_en_su_lugar_de_trabajo_principal',
   'p39_cond_trab_cult_org' = 'cuan_de_acuerdo_esta_con_la_siguiente_afirmacion_la_cultura_de_mi_organizacion_tolera_comportamientos_que_perjudican_la_salud_mental_de_los_trabajadores',
   'p40_cond_trab_istas_01' = 'en_su_trabajo_principal_usted_tiene_que_trabajar_muy_rapido_para_entregar_tareas_solicitadas_en_poco_tiempo',
   'p40_cond_trab_istas_02' = 'en_su_trabajo_principal_usted_trabaja_a_un_ritmo_acelerado_durante_la_jornada',
   'p40_cond_trab_istas_03' = 'en_su_trabajo_principal_usted_recibe_toda_la_informacion_que_necesita_para_realizar_bien_su_trabajo',
   'p40_cond_trab_istas_04' = 'en_su_trabajo_principal_usted_se_le_exigen_cosas_contradictorias_en_el_trabajo',
   'p40_cond_trab_istas_05' = 'en_su_trabajo_principal_usted_tiene_que_hacer_tareas_que_usted_cree_que_deberian_hacerse_de_otra_manera',
   'p40_cond_trab_istas_06' = 'en_su_trabajo_principal_su_superior_directo_esta_dispuesto_a_escuchar_sus_problemas_en_el_trabajo',
   'p40_cond_trab_istas_07' = 'en_su_trabajo_principal_recibe_ayuda_y_apoyo_de_su_superior_directo',
   'p40_cond_trab_istas_08' = 'en_su_trabajo_principal_recibe_ayuda_y_apoyo_para_el_trabajo_de_sus_companeras_o_companeros_de_trabajo',
   'p40_cond_trab_istas_09' = 'en_su_trabajo_principal_hay_un_buen_ambiente_entre_usted_y_sus_companeros_y_companeras_de_trabajo',
   'p40_cond_trab_istas_10' = 'en_su_trabajo_principal_recibe_ayuda_y_apoyo_de_su_familia_amigos_fuera_del_lugar_de_trabajo',
   'p42_resiliencia_1' = 'de_los_enunciados_a_continuacion_indique_la_opcion_que_mejor_se_aplique_a_usted_puedo_confiar_en_mis_habilidades_en_situaciones_dificiles',
   'p42_resiliencia_2' = 'de_los_enunciados_a_continuacion_indique_la_opcion_que_mejor_se_aplique_a_usted_soy_capaz_de_resolver_la_mayoria_de_los_problemas_por_mi_cuenta',
   'p42_resiliencia_3' = 'de_los_enunciados_a_continuacion_indique_la_opcion_que_mejor_se_aplique_a_usted_usualmente_puedo_resolver_bien_las_tareas_desafiantes_y_complejas',
   'p43_demo_edad' = 'que_edad_tiene_en_numeros',
   'p44_demo_educacion' = 'cual_es_el_ultimo_nivel_educacional_que_usted_completo',
   'p45_demo_id_personal_1' = 'de_los_siguientes_elementos_cuales_reflejan_su_identidad_personal_marque_todas_las_que_correspondan_mujer',
   'p45_demo_id_personal_2' = 'de_los_siguientes_elementos_cuales_reflejan_su_identidad_personal_marque_todas_las_que_correspondan_hombre',
   'p45_demo_id_personal_3' = 'de_los_siguientes_elementos_cuales_reflejan_su_identidad_personal_marque_todas_las_que_correspondan_lgbtiq',
   'p45_demo_id_personal_4' = 'de_los_siguientes_elementos_cuales_reflejan_su_identidad_personal_marque_todas_las_que_correspondan_pueblo_originario',
   'p45_demo_id_personal_5' = 'de_los_siguientes_elementos_cuales_reflejan_su_identidad_personal_marque_todas_las_que_correspondan_migrante',
   'p45_demo_id_personal_6' = 'de_los_siguientes_elementos_cuales_reflejan_su_identidad_personal_marque_todas_las_que_correspondan_perteneciente_a_alguna_etnia',
   'p45_demo_id_personal_7' = 'de_los_siguientes_elementos_cuales_reflejan_su_identidad_personal_marque_todas_las_que_correspondan_persona_en_situacion_de_discapacidad',
   'p45_demo_id_personal_8' = 'de_los_siguientes_elementos_cuales_reflejan_su_identidad_personal_marque_todas_las_que_correspondan_prefiero_no_decirlo',
   'p46_demo_tiempo_viaje' = 'esta_semana_cuanto_tiempo_duro_un_viaje_tipico_de_ida_y_vuelta_a_su_lugar_de_trabajo_principal_considere_un_solo_trayecto',
   'p47_demo_medio_transp_01' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_propio_vehiculo',
   'p47_demo_medio_transp_02' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_compartio_el_auto_con_otros',
   'p47_demo_medio_transp_03' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_micro',
   'p47_demo_medio_transp_04' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_metro',
   'p47_demo_medio_transp_05' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_caminando',
   'p47_demo_medio_transp_06' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_bicicleta',
   'p47_demo_medio_transp_07' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_bus_interurbanos_o_regionales',
   'p47_demo_medio_transp_08' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_no_aplica',
   'p47_demo_medio_transp_09' = 'como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_otro_especifique',
   'p47_demo_medio_transp_10' ='como_llego_a_su_lugar_de_trabajo_principal_esta_semana_marque_las_alternativas_que_correspondan_taxi_colectivo',
   'p50_com_finales' = 'favor_indique_cualquier_comentario_y_o_sugerencia_que_pueda_contribuir_a_hacer_su_trabajo_mas_eficaz_o_a_mejorar_sus_condiciones_de_trabajo'
        ) %>% 
    dplyr::mutate(across(where(is.character), ~stringr::str_remove(stringr::str_trim(.), "\\.$"))) %>% 
    data.frame() %>%    
        assign(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2"),
               .,
               envir=.GlobalEnv)  
)

Posteriormente, le añadimos los nombres de las variables a la base de datos.

#Put labels with the original names
#attr(get(paste0("enc_trab_sal",gsub("\\.","_",substr(input2, 2, nchar(input2)-1)),"_2")),"variable.labels")<-names_df[-1,2]
tryCatch( 
attributes(get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2")))$variable.labels<-names_df[-1,2]
  , error=function(e) 
attributes(get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2")))$variable.labels<-names_df
    )

Las variables fueron recodificadas y estandarizadas de acuerdo a cómo se exhiben en el cuestionario, incluyendo las etiquetas que no se encuentran presentes debido a que nadie ha contestado en alguna de esas categorías.

#p19_contr_cont_nieg_epp  p32_cond_trab_est p14_contr_cont_cap_epp
####PROBLEMÁTICOS
get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2")) %>%
  dplyr::mutate(cons_inf=ifelse(grepl("Sí,acepto participar",as.character(cons_inf)),"Sí","No")) %>% 
  dplyr::mutate(across(where(is.character), ~stringr::str_remove(stringr::str_trim(.), "\\.$"))) %>% 
  dplyr::mutate(across(where(is.factor), ~stringr::str_remove(stringr::str_trim(as.character(.)), "\\.$"))) %>% 
  dplyr::mutate_at(vars(starts_with("p3_siente_")),~parse_factor(as.character(.),levels=c('Nunca', 'Sólo unas pocas <br>veces', 'Algunas veces', 'La mayoría de las veces', 'Siempre'),ordered =T,trim_ws=T,include_na =F)) %>%   
  dplyr::mutate_at(vars(starts_with("p4_afront_")),~parse_factor(as.character(.),levels=c('Nada', 'Un poco', 'Regular', 'Bastante', 'Mucho'),ordered =T,trim_ws=T,include_na =F)) %>%   
  dplyr::mutate_at(vars(starts_with("p5_animo_")),~parse_factor(as.character(.),levels=c('Nunca', 'Algunos días', 'Más de la mitad de los días', 'Casi todos los días'),ordered =T,trim_ws=T,include_na =F)) %>%
  dplyr::mutate_at(.vars=vars(starts_with("p3_siente"),starts_with("p4_afront"),starts_with("p5_animo")),
                    .funs = list(`num_sm`=~as.numeric(.))) %>% 
  dplyr::mutate(ptjes_sm = rowSums(dplyr::select(., ends_with("_num_sm")),na.rm=T),
                requiere_atencion=factor(ifelse(ptjes_sm>=48,1,0))) %>% 
  #janitor::tabyl(p23_cond_trab_pert_sind)
  dplyr::select(-ends_with("num_sm")) %>% 
  dplyr::mutate_at(vars(p23_cond_trab_pert_sind,
                          p25_cond_trab_23b_cargo_sin,
                          p27_cond_trab_sup_jef),
                   ~parse_factor(ifelse(as.character(stringr::str_remove(., "\\.$"))=="Si.","Sí",as.character(stringr::str_remove(., "\\.$"))), levels = c('Sí', 'No'))) %>% 
  #janitor::tabyl(p23_cond_trab_pert_sind)
  dplyr::mutate(p6_exp_c19_pac_cont=ifelse(grepl("11",p6_exp_c19_pac_cont),"11 a 30",p6_exp_c19_pac_cont)) %>% 
  dplyr::mutate(p6_exp_c19_pac_cont= parse_factor(p6_exp_c19_pac_cont,levels=c('Ninguno', '1 a 10', '11 a 30', '31 a 100', '101 a 200', 'Más de 200'),ordered =T,trim_ws=T,include_na =F)) %>% 
  dplyr::mutate(p7_exp_c19_trab_cont= parse_factor(p7_exp_c19_trab_cont,levels=c('Ninguno', 'Sólo uno', '2 a 10', '11 a 25', '26 a 50', 'Más de 50'),ordered =T,trim_ws=T,include_na =F)) %>% 
  #janitor::tabyl(p7_exp_c19_trab_cont)
  dplyr::mutate(p8_exp_c19_cerca_cont= parse_factor(p8_exp_c19_cerca_cont,levels=c('Trabajo en contacto directo con pacientes', 'Trabajo a menos de dos metros de pacientes', 'Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia)', 'Trabajo en el mismo piso/sala/departamento', 'Como parte de mi trabajo visito un piso/sala/departamento', 'Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19', 'Ninguno que yo esté en conocimiento'),ordered =T,trim_ws=T,include_na =F)) %>% 
  
  #dplyr::mutate_at(vars(starts_with("p9_exp_c19_exp_sit_dg_")),~ifelse(!is.na(.),TRUE,FALSE)) %>%   
  #janitor::tabyl(p8_exp_c19_cerca_cont)
  dplyr::mutate(p10_exp_c19_preocupa_llevar= parse_factor(p10_exp_c19_preocupa_llevar,levels=c('Nada', 'Un poco', 'Bastante', 'Mucho', 'No aplica'),ordered =T,trim_ws=T,include_na =F)) %>% 
  #janitor::tabyl(p10_exp_c19_preocupa_llevar)
  dplyr::mutate(p11_exp_c19_miedo_pand=parse_factor(p11_exp_c19_miedo_pand,levels=c('1 (Poco o nada)', '2', '3', '4', '5', '6', '7', '8', '9', '10 (Tanto miedo como nunca he sentido)'),ordered =T,trim_ws=T,include_na =F)) %>% 
  #janitor::tabyl(p11_exp_c19_miedo_pand)
  dplyr::mutate(p11_exp_c19_miedo_pand_rec=factor(ifelse(parse_number(as.character(p11_exp_c19_miedo_pand))>5,1,0),labels=c("Ausencia de Miedo","Miedo"))) %>% 
  #janitor::tabyl(p11_exp_c19_miedo_pand_rec)
  #dplyr::mutate_at(vars(starts_with("p12_contr_cont_imp_nec_")),~ifelse(!is.na(.),TRUE,FALSE)) %>%   
  #janitor::tabyl(p12_contr_cont_imp_nec_01)
  dplyr::mutate_at(c(paste0("p13_contr_cont_imp_disp_",sprintf("%02d", 1:11))),~parse_factor(as.character(.),levels=c('Suficiente', 'Insuficiente', 'No Aplica'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p13_contr_cont_imp_disp_01)
  dplyr::mutate(p14_contr_cont_cap_epp=parse_factor(p14_contr_cont_cap_epp,levels=c('Sí, en el último mes', 'Sí, en los últimos 6 meses', 'Sí, el año pasado', 'Sí, hace 1-2 años', 'Sí, hace 2-5 años', 'Sí, hace más de 5 años', 'No he sido capacitado'),ordered =T,trim_ws=T,include_na =F, locale=locale(encoding = "UTF-8"))) %>%   
  #janitor::tabyl(p14_contr_cont_cap_epp_01) # %>% 
  dplyr::mutate(p15_contr_cont_14a_eval_cap=parse_factor(p15_contr_cont_14a_eval_cap,levels=c('Excelente', 'Buena', 'Regular', 'Mala'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p15_contr_cont_14a_eval_cap) # %>% 
  dplyr::mutate(p16_contr_cont_conf_epps=parse_factor(p16_contr_cont_conf_epps,levels=c('Nada', 'Poco', 'Algo', 'Bastante', 'Totalmente', 'No aplica'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p16_contr_cont_conf_epps) # %>% 
  #dplyr::mutate_at(vars(starts_with("p17_contr_cont_restr_epp_")),~ifelse(!is.na(.),TRUE,FALSE)) %>%   
  dplyr::mutate(p18_contr_cont_conf_eval_ri=parse_factor(p18_contr_cont_conf_eval_ri,levels=c('Nada', 'Poco', 'Algo', 'Bastante', 'Totalmente', 'No aplica'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p18_contr_cont_conf_eval_ri) # %>%   
  dplyr::mutate(p19_contr_cont_nieg_epp=dplyr::case_when(grepl("^Quiz",p19_contr_cont_nieg_epp)~'Quizás, en una situación extrema podría negarme a trabajar',grepl("no es posible ",p19_contr_cont_nieg_epp)~'Definitivamente, no es posible negarme a trabajar',grepl("no dudar",p19_contr_cont_nieg_epp)~'Definitivamente, no dudaría en negarme a trabajar',grepl("improbable",p19_contr_cont_nieg_epp)~'Es improbable que pueda negarme a trabajar', grepl("^Probablemente", p19_contr_cont_nieg_epp)~'Probablemente, podría negarme a trabajar si considero que el riesgo es significativo',grepl("^Negarme", p19_contr_cont_nieg_epp)~'Negarme a trabajar no es una opción legalmente disponible para mí')
    )%>% 
  dplyr::mutate(p19_contr_cont_nieg_epp=parse_factor(p19_contr_cont_nieg_epp,levels=c('Negarme a trabajar no es una opción legalmente disponible para mí', 'Definitivamente, no es posible negarme a trabajar', 'Es improbable que pueda negarme a trabajar', 'Quizás, en una situación extrema podría negarme a trabajar', 'Probablemente, podría negarme a trabajar si considero que el riesgo es significativo', 'Definitivamente, no dudaría en negarme a trabajar'),ordered =T,trim_ws=T,include_na =F, locale=locale(encoding = "Latin1"))) %>%   
  #janitor::tabyl(p19_contr_cont_nieg_epp) # %>%   
  dplyr::mutate_at(vars(starts_with("p20_contr_cont_med_pev_")),
                   ~dplyr::case_when(grepl("^Apropiadas y",.)~'Apropiadas y bien implementadas',grepl("pero mal",.)~'Apropiadas pero mal implementadas',grepl("^Inap",.)~"Inapropiadas",grepl("^Defi",.)~"Deficientes",grepl("sabe$",.)~"No sabe",grepl("aplica$",.)~"No aplica")) %>%
  dplyr::mutate_at(vars(starts_with("p20_contr_cont_med_pev_")),~parse_factor(as.character(.),levels=c('Apropiadas y bien implementadas', 'Apropiadas pero mal implementadas', 'Inapropiadas', 'Deficientes', 'No sabe', 'No aplica'),locale = locale(encoding = "Latin1"),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p20_contr_cont_med_pev_1) # %>%   
  #dplyr::mutate_at(vars(starts_with("p26_cond_trab_ent_protec_")),
  #                 ~dplyr::case_when(grepl("^Apropiadas y",.)~'Apropiadas y bien implementadas',grepl("pero mal",.)~'Apropiadas pero mal implementadas',grepl("^Inap",.)~"Inapropiadas",grepl("^Defi",.)~"Deficientes",grepl("sabe$",.)~"No sabe",grepl("aplica$",.)~"No aplica")) %>%
  dplyr::mutate_at(vars(starts_with("p26_cond_trab_ent_protec_")),~parse_factor(as.character(.),levels=c('Totalmente de acuerdo', 'De acuerdo', 'Ni de acuerdo ni en desacuerdo', 'En desacuerdo', 'Totalmente en desacuerdo'),locale = locale(encoding = "Latin1"),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p26_cond_trab_ent_protec_1) # %>%   
  dplyr::mutate(p28_cond_trab_sis_trab=parse_factor(p28_cond_trab_sis_trab,levels=c('Sistema público', 'Sistema privado', 'Sistema público y privado'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p28_cond_trab_sis_trab) # %>%   
  #"p29_cond_trab_28c_sis_mix_0","p29_cond_trab_28c_sis_mix","p30_cond_trab_28c_sis_mix_a"
  dplyr::mutate_at(vars(p29_cond_trab_28c_sis_mix_0),~factor(dplyr::case_when(grepl("primaria",.)~'Atención primaria (Consultorio, CESFAM, SAPU, SAR)',grepl("secundaria",.)~'Atención secundaria (CRS, CDT, COSAM)',grepl("terciaria",.)~'Atención terciaria (Hospital, SAMU)',grepl("reguladores",.)~'Autoridad sanitaria u Organismos reguladores (SEREMI, Servicios de salud, Dir. del Servicio, Nivel Central, Corporación de salud)'))) %>% 
  #dplyr::mutate_at(vars(p29_cond_trabp_28a_sis_pub,p29_cond_trab_28c_sis_mix),~parse_factor(as.character(.),levels=c('Atención primaria (Consultorio, CESFAM, SAPU, SAR)', 'Atención secundaria (CRS, CDT, COSAM)', 'Atención terciaria (Hospital, SAMU)', 'Autoridad sanitaria u Organismos reguladores (SEREMI, Servicios de salud, Dir. del Servicio, Nivel Central, Corporación de salud)'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p29_cond_trabp_28a_sis_pub)
  dplyr::mutate_at(vars(p29_cond_trab_28c_sis_mix,p30_cond_trab_28c_sis_mix_a),~factor(dplyr::case_when(grepl("ambulatoria",.)~'Atención ambulatoria (consulta privada, centro médico,mutual,etc)',grepl("^Clínica",.)~'Clínica'))) %>% 
  #janitor::tabyl(p29_cond_trab_28b_sis_priv)
  #_#_#_#_#_#_#_#_#_#_
  #p31_cond_trab_unidad - en_que_unidad_se_desempena. Muchas categorías otros. Deberá recodificarse posteriormente
  #surveymonkey_accionsalududp_df %>%
  #  janitor::tabyl(p31_cond_trab_unidad)
  #_#_#_#_#_#_#_#_#_#_
  dplyr::mutate(p32_cond_trab_est=dplyr::case_when(grepl("Arsenalero",p32_cond_trab_est)~"Técnicos (e.j., TENS, Arsenalero, etc.)",grepl("Aux",p32_cond_trab_est)~"Auxiliar",grepl("Adm",p32_cond_trab_est)~"Administrativo",grepl("Para",p32_cond_trab_est)~"Paramédicos",grepl("Enfer",p32_cond_trab_est)~"Enfermeros",grepl("^Médicos",p32_cond_trab_est)~"Médicos",grepl("Otros Profesionales",p32_cond_trab_est)~"Otros Profesionales No Médicos")) %>% 
  dplyr::mutate(p32_cond_trab_est=parse_factor(as.character(p32_cond_trab_est),levels=c('Auxiliar', 'Administrativo', 'Técnicos (e.j., TENS, Arsenalero, etc.)', 'Paramédicos', 'Enfermeros', 'Médicos', 'Otros Profesionales No Médicos'),ordered =T,trim_ws=T,include_na =F, locale=locale(encoding = "Latin1"))) %>%   
  #janitor::tabyl(p32_cond_trab_est)
  #_#_#_#_#_#_#_#_#_#_
  #p33_cond_trab_sit_cont - situacion_contractual. Muchas categorías otros. Deberá recodificarse posteriormente
  #surveymonkey_accionsalududp_df %>%
  #  janitor::tabyl(p33_cond_trab_sit_cont)
  #_#_#_#_#_#_#_#_#_#
#dplyr::mutate(p36_cond_trab_reasig=dplyr::case_when(grepl("Arsenalero",p36_cond_trab_reasig)~"Técnicos (e.j., TENS, Arsenalero, etc.)",grepl("Aux",p36_cond_trab_reasig)~"Auxiliar",grepl("Adm",p36_cond_trab_reasig)~"Administrativo",grepl("Para",p32_cond_trab_est)~"Paramédicos",grepl("Enfer",p36_cond_trab_reasig)~"Enfermeros",grepl("^Médicos",p36_cond_trab_reasig)~"Médicos",grepl("Otros Profesionales",p36_cond_trab_reasig)~"Otros Profesionales No Médicos")) %>% 
  #Mantengo las mismas labores, pero en un área distinta Mantengo las mismas labores, pero en un área distinta
  dplyr::mutate(p36_cond_trab_reasig=parse_factor(as.character(p36_cond_trab_reasig),levels=c('Mantengo las mismas labores', 'Mantengo las mismas labores, pero en un área distinta', 'Mantengo las mismas labores, pero en un lugar físico distinto', 'Mantengo las mismas labores, pero en área y lugar físico distintos', 'Distintas labores, pero en la misma área', 'Distintas labores, pero en el mismo lugar físico','Labores, área y lugar físico distintos'),ordered =T,trim_ws=T,include_na =F)) %>%   
 #janitor::tabyl(p36_cond_trab_reasig) 
  dplyr::mutate(p37_cond_trab_num_est=ifelse(grepl("250",p37_cond_trab_num_est),'250 a 999',p37_cond_trab_num_est)) %>% 
  dplyr::mutate(p37_cond_trab_num_est=parse_factor(as.character(p37_cond_trab_num_est),levels=c('Menos de 20', '21 a 49', '50 a 99', '100 a 249', '250 a 999', '1.000 a 5.000', 'Más de 5.000'),ordered =T,trim_ws=T,include_na =F)) %>%   
 #janitor::tabyl(p37_cond_trab_num_est)  
  dplyr::mutate(p38_cond_trab_sal_psi=parse_factor(as.character(p38_cond_trab_sal_psi),levels=c('Excelente', 'Buena', 'Regular', 'Mala'),ordered =T,trim_ws=T,include_na =F)) %>%
  #janitor::tabyl(p38_cond_trab_sal_psi)  
  dplyr::mutate(p39_cond_trab_cult_org=parse_factor(as.character(p39_cond_trab_cult_org),levels=c('Totalmente de acuerdo', 'De acuerdo', 'Neutral', 'En desacuerdo', 'Totalmente en desacuerdo'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p39_cond_trab_cult_org)  
  dplyr::mutate_at(vars(starts_with("p40_cond_trab_istas_")),~parse_factor(as.character(.),levels=c('Siempre', 'La mayoría <br>de las veces', 'Algunas veces', 'Sólo unas <br>pocas veces', 'Nunca'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p40_cond_trab_istas_01)  
  dplyr::mutate_at(vars(starts_with("p42_resiliencia_")),~parse_factor(as.character(.),levels=c('Incorrecto', 'Apenas cierto', 'Más bien cierto', 'Cierto'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p42_resiliencia_01) %>% 
  dplyr::mutate(p44_demo_educacion=parse_factor(as.character(p44_demo_educacion),levels=c('Ninguna educación escolar', 'Básica Completa', 'Media Completa', 'Técnica Completa', 'Universitaria Completa', 'Postgrado (Especialización, Magíster o Doctorado)'),ordered =T,trim_ws=T,include_na =F)) %>%   
  #janitor::tabyl(p44_demo_educacion) %>%
  #dplyr::mutate_at(vars(starts_with("p45_demo_id_personal_")),~ifelse(!is.na(.),TRUE,FALSE)) %>%   
  dplyr::mutate(p46_demo_tiempo_viaje=ifelse(grepl("^40",p46_demo_tiempo_viaje),'40 minutos a 59 minutos',p46_demo_tiempo_viaje)) %>% 
  #dplyr::mutate(p46_demo_tiempo_viaje=ifelse(grepl("250",p46_demo_tiempo_viaje),'250 a 999',p46_demo_tiempo_viaje)) %>% 
  dplyr::mutate(p46_demo_tiempo_viaje=parse_factor(as.character(p46_demo_tiempo_viaje),levels=c('Menos de 20 minutos', '20 a 39 minutos', '40 minutos a 59 minutos', '1 a 1.5 horas', '1.6 a 2 horas', 'Más de 2 horas', 'No aplica'),ordered=T,trim_ws=T,include_na =F)) %>% 
  #dplyr::mutate_at(vars(starts_with("p47_demo_medio_transp_")),~ifelse(!is.na(.),TRUE,FALSE)) %>%   
  dplyr::mutate_at(vars(p21_cond_trab_hr_trabajada,p22_cond_trab_hr_trabara,p34_cond_trab_tiemp_trab,p43_demo_edad),~as.numeric(.)) %>%   
  #janitor::tabyl(p46_demo_tiempo_viaje)# %>% 
  #janitor::tabyl(p48_demo_zona)# %>% 
  #dplyr::mutate(p49_demo_comuna_trabajo=factor(p49_demo_comuna_trabajo))%>% 
  assign("surveymonkey_accionsalududp_df2_ins",.,envir=.GlobalEnv)
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels<-names(surveymonkey_accionsalududp_df2_ins)
tryCatch(
  for (i in 1:nrow(names_df)){
    attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-names_df[i,]
  }, error = function(e)
{
for (i in 1:length(names_df[-1,2])){
      attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<- names_df[-1,2][[i]]
  }
})

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="ptjes_sm") attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-"Puntajes de dimensiones de Salud Mental"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="requiere_atencion")attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<- "Indicios de mayor impacto en la salud psicológica(Mayor o igual a 48 puntos)"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="p11_exp_c19_miedo_pand_rec") attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<- "¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado)"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="ptjes_sm"){ attr(surveymonkey_accionsalududp_df2_ins[i],"label")<-"Puntajes de dimensiones de Salud Mental"
  }
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="requiere_atencion") 
attr(surveymonkey_accionsalududp_df2_ins[i],"label")<- "Indicios de mayor impacto en la salud psicológica(Mayor o igual a 48 puntos)"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="p11_exp_c19_miedo_pand_rec") 
attr(surveymonkey_accionsalududp_df2_ins[i],"label")<-"¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado)"
}
#attr(surveymonkey_accionsalududp_df2$p11_exp_c19_miedo_pand_rec,"variable.labels")<-names(surveymonkey_accionsalududp)

2 Exploración de Datos

options(knitr.kable.NA = '')
surveymonkey_accionsalududp_df2_ins%>% dplyr::select(-(resp_id:correo_final))%>%
  dplyr::select(-p12_contr_cont_imp_nec_13, -p17_contr_cont_restr_epp_7,
                -p31_cond_trab_unidad,-p33_cond_trab_sit_cont,
                  -p35_cond_trab_tareas,-p47_demo_medio_transp_09,
                -p24_cond_trab_23a_sind_nom,
                  -p50_com_finales) %>% 
                #-p31_cond_trab_otr, #no hay otros en SPSS
                #-p33_cond_trab_sit_cont_otr) %>%  #no hay otros en SPSS
  dplyr::select(-starts_with("p00"),-starts_with("q000")) %>% 
  skimr::skim() %>% 
  tibble::as_tibble() %>%
  dplyr::mutate(complete_rate=scales::percent(complete_rate)) %>% 
  dplyr::select(-numeric.hist) %>% 
  knitr::kable(.,format = "html", format.args = list(decimal.mark = ".", big.mark = ","),
               caption = paste0("Table 1. Summary of Variables"),#,
               col.names = c("Tipo","Variable","Perdidos","% Completos",
                            "Ordenado","Valores únicos","Más frecuentes","Media (lógico)","N (lógico)","Media", "Desv.Est.","Min","Perc. 25", "Mediana", "Perc. 75", "Max"),
align =c("c","l",rep('c', 101))) %>%
  kableExtra::kable_styling(bootstrap_options = c("striped", "hover"),font_size = 9) %>%
  kableExtra::scroll_box(width = "100%", height = "375px")

Table 1. Summary of Variables

Tipo	Variable	Perdidos	% Completos	Ordenado	Valores únicos	Más frecuentes	Media (lógico)	N (lógico)	Media	Desv.Est.	Min	Perc. 25	Mediana	Perc. 75	Max
factor	p3_siente_1	22	78.85%	TRUE	4	La : 37, Alg: 31, Sól: 8, Sie: 6
factor	p3_siente_2	22	78.85%	TRUE	5	Alg: 34, La : 32, Sól: 10, Sie: 5
factor	p3_siente_3	22	78.85%	TRUE	5	Alg: 33, La : 31, Sól: 11, Sie: 6
factor	p3_siente_4	22	78.85%	TRUE	5	Alg: 36, Sól: 27, La : 11, Nun: 6
factor	p3_siente_5	22	78.85%	TRUE	5	Alg: 28, La : 20, Sie: 16, Sól: 14
factor	p3_siente_6	22	78.85%	TRUE	5	Alg: 29, La : 19, Sie: 13, Sól: 12
factor	p4_afront_1	23	77.88%	TRUE	5	Un : 22, Reg: 22, Bas: 20, Nad: 13
factor	p4_afront_2	23	77.88%	TRUE	5	Reg: 31, Bas: 17, Un : 16, Nad: 11
factor	p4_afront_3	23	77.88%	TRUE	5	Un : 34, Nad: 22, Reg: 18, Bas: 5
factor	p5_animo_1	24	76.92%	TRUE	4	Alg: 50, Más: 15, Nun: 9, Cas: 6
factor	p5_animo_2	24	76.92%	TRUE	4	Más: 33, Alg: 31, Cas: 10, Nun: 6
factor	p5_animo_3	24	76.92%	TRUE	4	Alg: 43, Más: 16, Nun: 13, Cas: 8
factor	p5_animo_4	24	76.92%	TRUE	4	Alg: 38, Más: 25, Nun: 13, Cas: 4
factor	p6_exp_c19_pac_cont	26	75.00%	TRUE	5	Nin: 43, 1 a: 30, 11 : 3, 31 : 1
factor	p7_exp_c19_trab_cont	26	75.00%	TRUE	5	Nin: 32, 2 a: 22, Sól: 20, 11 : 3
factor	p8_exp_c19_cerca_cont	26	75.00%	TRUE	7	Tra: 23, Com: 17, Com: 16, Tra: 10
factor	p10_exp_c19_preocupa_llevar	26	75.00%	TRUE	4	Muc: 50, Bas: 18, Un : 9, Nad: 1
factor	p11_exp_c19_miedo_pand	26	75.00%	TRUE	10	5: 16, 7: 14, 6: 13, 8: 12
factor	p13_contr_cont_imp_disp_01	29	72.12%	TRUE	3	Suf: 46, Ins: 19, No : 10
factor	p13_contr_cont_imp_disp_02	29	72.12%	TRUE	3	Ins: 42, Suf: 21, No : 12
factor	p13_contr_cont_imp_disp_03	29	72.12%	TRUE	3	Suf: 39, Ins: 29, No : 7
factor	p13_contr_cont_imp_disp_04	29	72.12%	TRUE	3	No : 47, Ins: 19, Suf: 9
factor	p13_contr_cont_imp_disp_05	29	72.12%	TRUE	3	Suf: 62, Ins: 11, No : 2
factor	p13_contr_cont_imp_disp_06	29	72.12%	TRUE	3	Suf: 52, Ins: 22, No : 1
factor	p13_contr_cont_imp_disp_07	29	72.12%	TRUE	3	Ins: 44, Suf: 24, No : 7
factor	p13_contr_cont_imp_disp_08	29	72.12%	TRUE	2	No : 56, Ins: 19, Suf: 0
factor	p13_contr_cont_imp_disp_09	29	72.12%	TRUE	3	Suf: 46, Ins: 18, No : 11
factor	p13_contr_cont_imp_disp_10	29	72.12%	TRUE	3	Ins: 32, Suf: 24, No : 19
factor	p13_contr_cont_imp_disp_11	29	72.12%	TRUE	3	No : 45, Ins: 28, Suf: 2
factor	p14_contr_cont_cap_epp	29	72.12%	TRUE	6	Sí,: 32, Sí,: 27, No : 10, Sí,: 3
factor	p15_contr_cont_14a_eval_cap	39	62.50%	TRUE	3	Bue: 32, Reg: 29, Exc: 4, Mal: 0
factor	p16_contr_cont_conf_epps	32	69.23%	TRUE	5	Bas: 41, Alg: 17, Tot: 8, Poc: 5
factor	p18_contr_cont_conf_eval_ri	32	69.23%	TRUE	4	Bas: 40, Alg: 21, Poc: 6, Tot: 5
factor	p19_contr_cont_nieg_epp	32	69.23%	TRUE	6	Qui: 17, Pro: 17, Def: 11, Es : 10
factor	p20_contr_cont_med_pev_1	36	65.38%	TRUE	6	Def: 23, Apr: 19, Apr: 17, Ina: 4
factor	p20_contr_cont_med_pev_2	36	65.38%	TRUE	6	Apr: 31, Apr: 18, No : 7, Def: 6
factor	p20_contr_cont_med_pev_3	36	65.38%	TRUE	6	Apr: 40, Apr: 11, No : 5, No : 5
factor	p20_contr_cont_med_pev_4	36	65.38%	TRUE	6	Apr: 32, Apr: 18, No : 8, Def: 6
factor	p20_contr_cont_med_pev_5	36	65.38%	TRUE	6	Def: 27, Ina: 13, No : 9, Apr: 8
factor	p20_contr_cont_med_pev_6	36	65.38%	TRUE	6	Apr: 20, Def: 14, Apr: 11, No : 9
factor	p20_contr_cont_med_pev_7	36	65.38%	TRUE	6	Def: 30, Apr: 11, Ina: 11, No : 7
factor	p20_contr_cont_med_pev_8	36	65.38%	TRUE	6	Def: 21, No : 19, Apr: 9, No : 9
factor	p20_contr_cont_med_pev_9	36	65.38%	TRUE	6	Apr: 28, No : 17, Apr: 9, Def: 8
factor	p23_cond_trab_pert_sind	0	100.00%	FALSE	3	Sí: 54, NA: 36, No: 14
factor	p25_cond_trab_23b_cargo_sin	0	100.00%	FALSE	3	NA: 50, No: 49, Sí: 5
factor	p26_cond_trab_ent_protec_1	39	62.50%	TRUE	5	Ni : 24, De : 20, En : 11, Tot: 7
factor	p26_cond_trab_ent_protec_2	39	62.50%	TRUE	5	Ni : 24, De : 20, En : 15, Tot: 5
factor	p26_cond_trab_ent_protec_3	39	62.50%	TRUE	5	En : 31, Tot: 15, Ni : 12, De : 5
factor	p26_cond_trab_ent_protec_4	39	62.50%	TRUE	5	Ni : 32, En : 14, De : 13, Tot: 5
factor	p27_cond_trab_sup_jef	0	100.00%	FALSE	3	No: 47, NA: 39, Sí: 18
factor	p28_cond_trab_sis_trab	39	62.50%	TRUE	2	Sis: 58, Sis: 7, Sis: 0
factor	p29_cond_trab_28c_sis_mix_0	47	54.81%	FALSE	2	Ate: 55, Ate: 2
factor	p29_cond_trab_28c_sis_mix	104	0.00%	FALSE	0	:
factor	p30_cond_trab_28c_sis_mix_a	97	6.73%	FALSE	2	Clí: 6, Ate: 1
factor	p32_cond_trab_est	45	56.73%	TRUE	5	Enf: 17, Méd: 17, Otr: 15, Téc: 8
factor	p36_cond_trab_reasig	45	56.73%	TRUE	7	Man: 43, Man: 5, Dis: 4, Lab: 3
factor	p37_cond_trab_num_est	45	56.73%	TRUE	6	21 : 16, 50 : 15, Men: 10, 100: 7
factor	p38_cond_trab_sal_psi	46	55.77%	TRUE	3	Reg: 35, Mal: 16, Bue: 7, Exc: 0
factor	p39_cond_trab_cult_org	46	55.77%	TRUE	5	De : 24, Tot: 14, Neu: 14, En : 4
factor	p40_cond_trab_istas_01	46	55.77%	TRUE	5	Alg: 22, La : 17, Sie: 13, Sól: 5
factor	p40_cond_trab_istas_02	46	55.77%	TRUE	5	La : 30, Sie: 13, Alg: 10, Sól: 4
factor	p40_cond_trab_istas_03	46	55.77%	TRUE	4	La : 29, Alg: 18, Sie: 6, Sól: 5
factor	p40_cond_trab_istas_04	46	55.77%	TRUE	5	Alg: 24, Sól: 15, Nun: 9, La : 6
factor	p40_cond_trab_istas_05	46	55.77%	TRUE	5	Alg: 28, Sól: 12, La : 11, Sie: 5
factor	p40_cond_trab_istas_06	46	55.77%	TRUE	5	Sie: 21, La : 20, Alg: 8, Sól: 7
factor	p40_cond_trab_istas_07	46	55.77%	TRUE	5	Sie: 19, La : 19, Alg: 11, Sól: 5
factor	p40_cond_trab_istas_08	46	55.77%	TRUE	4	La : 25, Sie: 17, Alg: 13, Sól: 3
factor	p40_cond_trab_istas_09	46	55.77%	TRUE	5	La : 25, Alg: 16, Sie: 13, Sól: 2
factor	p40_cond_trab_istas_10	46	55.77%	TRUE	4	Sie: 38, La : 13, Alg: 6, Nun: 1
factor	p42_resiliencia_1	47	54.81%	TRUE	3	Cie: 36, Más: 20, Ape: 1, Inc: 0
factor	p42_resiliencia_2	47	54.81%	TRUE	3	Cie: 35, Más: 20, Ape: 2, Inc: 0
factor	p42_resiliencia_3	47	54.81%	TRUE	3	Cie: 32, Más: 22, Ape: 3, Inc: 0
factor	p44_demo_educacion	47	54.81%	TRUE	3	Uni: 24, Pos: 23, Téc: 10, Nin: 0
factor	p46_demo_tiempo_viaje	47	54.81%	TRUE	6	40 : 21, 20 : 15, 1 a: 10, 1.6: 6
factor	requiere_atencion	0	100.00%	FALSE	2	0: 97, 1: 7
factor	p11_exp_c19_miedo_pand_rec	26	75.00%	FALSE	2	Mie: 49, Aus: 29
logical	p9_exp_c19_exp_sit_dg_01	26	75.00%				0.4871795	FAL: 40, TRU: 38
logical	p9_exp_c19_exp_sit_dg_02	26	75.00%				0.2179487	FAL: 61, TRU: 17
logical	p9_exp_c19_exp_sit_dg_03	26	75.00%				0.2820513	FAL: 56, TRU: 22
logical	p9_exp_c19_exp_sit_dg_04	26	75.00%				0.4615385	FAL: 42, TRU: 36
logical	p9_exp_c19_exp_sit_dg_05	26	75.00%				0.1153846	FAL: 69, TRU: 9
logical	p9_exp_c19_exp_sit_dg_06	26	75.00%				0.2179487	FAL: 61, TRU: 17
logical	p9_exp_c19_exp_sit_dg_07	26	75.00%				0.2820513	FAL: 56, TRU: 22
logical	p9_exp_c19_exp_sit_dg_08	26	75.00%				0.5897436	TRU: 46, FAL: 32
logical	p9_exp_c19_exp_sit_dg_09	26	75.00%				0.1923077	FAL: 63, TRU: 15
logical	p9_exp_c19_exp_sit_dg_10	26	75.00%				0.0897436	FAL: 71, TRU: 7
logical	p9_exp_c19_exp_sit_dg_11	26	75.00%				0.1538462	FAL: 66, TRU: 12
logical	p12_contr_cont_imp_nec_01	29	72.12%				0.6933333	TRU: 52, FAL: 23
logical	p12_contr_cont_imp_nec_02	29	72.12%				0.5466667	TRU: 41, FAL: 34
logical	p12_contr_cont_imp_nec_03	29	72.12%				0.6000000	TRU: 45, FAL: 30
logical	p12_contr_cont_imp_nec_04	29	72.12%				0.0666667	FAL: 70, TRU: 5
logical	p12_contr_cont_imp_nec_05	29	72.12%				0.9200000	TRU: 69, FAL: 6
logical	p12_contr_cont_imp_nec_06	29	72.12%				0.8266667	TRU: 62, FAL: 13
logical	p12_contr_cont_imp_nec_07	29	72.12%				0.8000000	TRU: 60, FAL: 15
logical	p12_contr_cont_imp_nec_08	29	72.12%				0.0000000	FAL: 75
logical	p12_contr_cont_imp_nec_09	29	72.12%				0.7066667	TRU: 53, FAL: 22
logical	p12_contr_cont_imp_nec_10	29	72.12%				0.5466667	TRU: 41, FAL: 34
logical	p12_contr_cont_imp_nec_11	29	72.12%				0.1200000	FAL: 66, TRU: 9
logical	p12_contr_cont_imp_nec_12	29	72.12%				0.0000000	FAL: 75
logical	p17_contr_cont_restr_epp_1	32	69.23%				0.2222222	FAL: 56, TRU: 16
logical	p17_contr_cont_restr_epp_2	32	69.23%				0.1944444	FAL: 58, TRU: 14
logical	p17_contr_cont_restr_epp_3	32	69.23%				0.0555556	FAL: 68, TRU: 4
logical	p17_contr_cont_restr_epp_4	32	69.23%				0.2361111	FAL: 55, TRU: 17
logical	p17_contr_cont_restr_epp_5	32	69.23%				0.2916667	FAL: 51, TRU: 21
logical	p17_contr_cont_restr_epp_6	32	69.23%				0.1944444	FAL: 58, TRU: 14
logical	p45_demo_id_personal_1	47	54.81%				0.8947368	TRU: 51, FAL: 6
logical	p45_demo_id_personal_2	47	54.81%				0.1052632	FAL: 51, TRU: 6
logical	p45_demo_id_personal_3	47	54.81%				0.0526316	FAL: 54, TRU: 3
logical	p45_demo_id_personal_4	104	0.00%					:
logical	p45_demo_id_personal_5	47	54.81%				0.0000000	FAL: 57
logical	p45_demo_id_personal_6	47	54.81%				0.0350877	FAL: 55, TRU: 2
logical	p45_demo_id_personal_7	47	54.81%				0.0000000	FAL: 57
logical	p45_demo_id_personal_8	47	54.81%				0.0000000	FAL: 57
logical	p47_demo_medio_transp_01	47	54.81%				0.5087719	TRU: 29, FAL: 28
logical	p47_demo_medio_transp_02	47	54.81%				0.0877193	FAL: 52, TRU: 5
logical	p47_demo_medio_transp_03	47	54.81%				0.1754386	FAL: 47, TRU: 10
logical	p47_demo_medio_transp_04	47	54.81%				0.3684211	FAL: 36, TRU: 21
logical	p47_demo_medio_transp_05	47	54.81%				0.1754386	FAL: 47, TRU: 10
logical	p47_demo_medio_transp_06	47	54.81%				0.0000000	FAL: 57
logical	p47_demo_medio_transp_07	47	54.81%				0.0000000	FAL: 57
logical	p47_demo_medio_transp_10	47	54.81%				0.0701754	FAL: 53, TRU: 4
logical	p47_demo_medio_transp_08	47	54.81%				0.0000000	FAL: 57
numeric	p21_cond_trab_hr_trabajada	36	65.38%						46.19118	12.42080	22	44.00	44	50.0	72
numeric	p22_cond_trab_hr_trabara	36	65.38%						46.01471	11.88564	22	44.00	44	50.0	73
numeric	p34_cond_trab_tiemp_trab	45	56.73%						11.49153	10.92667	1	3.00	7	20.5	39
numeric	p43_demo_edad	47	54.81%						39.73684	12.80280	25	29.00	35	50.0	66
numeric	ptjes_sm	0	100.00%						28.58654	16.69638	0	23.75	33	41.0	56

2.1 Nube palabras comentarios finales

#-p12_contr_cont_imp_nec_13, -p17_contr_cont_restr_epp_7,
               # -p31_cond_trab_unidad,-p33_cond_trab_sit_cont,
               #   -p35_cond_trab_tareas,-p47_demo_medio_transp_09,
               # -p24_cond_trab_23a_sind_nom,
              #    -p50_com_finales

corpus <- Corpus(VectorSource(surveymonkey_accionsalududp_df2_ins$p50_com_finales)) # formato de texto
d  <- tm_map(corpus, tolower)

## Warning in tm_map.SimpleCorpus(corpus, tolower): transformation drops documents

d  <- tm_map(d, stripWhitespace)

## Warning in tm_map.SimpleCorpus(d, stripWhitespace): transformation drops
## documents

d <- tm_map(d, removePunctuation)

## Warning in tm_map.SimpleCorpus(d, removePunctuation): transformation drops
## documents

d <- tm_map(d, removeNumbers)

## Warning in tm_map.SimpleCorpus(d, removeNumbers): transformation drops documents

d <- tm_map(d, removeWords, stopwords("spanish"))

## Warning in tm_map.SimpleCorpus(d, removeWords, stopwords("spanish")):
## transformation drops documents

d <- tm_map(d, removeWords, "menos")

## Warning in tm_map.SimpleCorpus(d, removeWords, "menos"): transformation drops
## documents

d <- tm_map(d, removeWords, c("usted", "pues", "tal", "tan", "así", "dijo", "cómo", "sino", "entonces", "aunque", "don", "doña","hacia","mayor","algún","importante","mayores","cada","conductas","tambien","piense","realmente","ello","mostrara","sólo", "ser","tener","mejorar","mas","manera","actualmente","mejor","casos"))

## Warning in tm_map.SimpleCorpus(d, removeWords, c("usted", "pues", "tal", :
## transformation drops documents

tdm <- TermDocumentMatrix(d)
m <- as.matrix(tdm) #lo vuelve una matriz
v <- sort(rowSums(m),decreasing=TRUE) #lo ordena y suma
df <- data.frame(word = names(v),freq=v) # lo nombra y le da formato de data.frame
#findFreqTerms(tdm)
#
#https://rpubs.com/brandonkopp/creating-word-clouds-in-r
wordcloud::wordcloud(words = df$word, freq = df$freq, 
          max.words=100, random.order=FALSE, rot.per=0.35, 
          colors=brewer.pal(8, "Greys"))

Figura 1. Nube de Palabras, Observaciones

# labs(caption="Nota. Se excluyen palabras secundarias tales como adjetivos ('tan','importante'), verbos ('dijo','ser','tener'), y otros.")

df %>%
  mutate(perc = (freq/sum(freq))*100) %>%
  .[1:10, ] %>%
  ggplot(aes(word, perc)) +
  geom_bar(stat = "identity", color = "black", fill = "grey70") +
  geom_text(aes(hjust = 1.3, label = round(perc, 2))) + 
  coord_flip() +
  theme_sjplot()+
  labs(x = "Palabras", y = "Porcentaje de uso")

Figura 2. Barra de Diez Primeras Palabras, Porcentajes

p<-ggplot(surveymonkey_accionsalududp_df2_ins,aes(x=ptjes_sm), alpha=.7)+
  geom_histogram_interactive(bins=20)+
  #   geom_vline(aes(xintercept=30), color="darkred", linetype="dashed")+
  #   geom_vline(aes(xintercept=45), color="darkmagenta", linetype="solid")+
  #   geom_vline(aes(xintercept=60), color="darkblue", linetype="dotted")+
  sjPlot::theme_sjplot2() +
  #facet_wrap(~motivodeegreso_mod_imp)+
labs(y = "Frecuencia",x="Suma de Puntajes",caption="Nota. Puntajes cero se deben a valores perdidos;Línea vertical= Ptje. 48")+
  scale_y_continuous(breaks=seq(0,20,2))+
  scale_x_continuous(breaks=seq(0,60,10))+
  geom_vline(xintercept = 48, col = 2, lty = 2)
# xlim(c(-1,2000))
tooltip_css <- "background-color:gray;color:white;font-style:italic;padding:10px;border-radius:10px 20px 10px 20px;"
ggiraph(code = {print(p)}, tooltip_extra_css = tooltip_css, tooltip_opacity = .75)

## Warning: package 'gdtools' was built under R version 4.0.3

Figura 3. Histograma de Frecuencias, Puntajes Ítems de Salud Mental

2.2 Perdidas

Contamos los datos perdidos por cada usuario en cada variable.

surveymonkey_accionsalududp_df2_cor<-
surveymonkey_accionsalududp_df2_ins %>%
  rowwise %>%
  dplyr::mutate_at(.vars = vars(p3_siente_1:p47_demo_medio_transp_09), # si fuera de SPSS, debiese ser p47_demo_medio_transp_otr
                   .funs = list(`nas`=~ifelse(is.na(.), 1, 0))) %>% 
  dplyr::ungroup() %>% 
  rowwise %>%
  dplyr::mutate(suma_parcial = sum(c_across(p3_siente_1_nas:p47_demo_medio_transp_09_nas))) %>% #si fuera SPSS, debiese ser p47_demo_medio_transp_otr_nas
  dplyr::select(-ends_with("_nas"))

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#Agregar etiquetas
for (i in 1:length(attributes(surveymonkey_accionsalududp_df2_ins)$"variable.labels")){
attributes(surveymonkey_accionsalududp_df2_cor)$"variable.labels"[i]<-
  attributes(surveymonkey_accionsalududp_df2_ins)$"variable.labels"[[i]]
}
for (i in 1:length(surveymonkey_accionsalududp_df2_cor)){
if(attributes(surveymonkey_accionsalududp_df2_cor)$name[i]=="suma_parcial") 
attributes(surveymonkey_accionsalududp_df2_cor)$variable.labels[i]<-"Suma de Valores Perdidos en Variables de Interés"
}

p<-ggplot(surveymonkey_accionsalududp_df2_cor,aes(x=suma_parcial), alpha=.7)+
  geom_histogram_interactive(bins=40)+
  #   geom_vline(aes(xintercept=30), color="darkred", linetype="dashed")+
  #   geom_vline(aes(xintercept=45), color="darkmagenta", linetype="solid")+
  #   geom_vline(aes(xintercept=60), color="darkblue", linetype="dotted")+
  sjPlot::theme_sjplot2() +
  #facet_wrap(~motivodeegreso_mod_imp)+
labs(y = "Frecuencia",x="Suma de Puntajes",caption="Línea vertical= Máximo de 8 valores perdidos atribuibles a combinaciones de respuesta por defecto")+
  scale_y_continuous(breaks=seq(0,nrow(surveymonkey_accionsalududp_df2_cor),5))+
  scale_x_continuous(breaks=seq(0,160,10))+
  geom_vline(xintercept = 9, col = 2, lty = 2)
# xlim(c(-1,2000))
tooltip_css <- "background-color:gray;color:white;font-style:italic;padding:10px;border-radius:10px 20px 10px 20px;"
ggiraph(code = {print(p)}, tooltip_extra_css = tooltip_css, tooltip_opacity = .75)

Figura 4. Histograma de Frecuencias, Valores perdidos en variables de interés

.

surveymonkey_accionsalududp_df2_cor<-
  surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate(suma_parcial= dplyr::case_when(suma_parcial<9~NA_real_,TRUE~suma_parcial))
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#Agregar etiquetas
for (i in 1:length(attributes(surveymonkey_accionsalududp_df2_ins)$"variable.labels")){
attributes(surveymonkey_accionsalududp_df2_cor)$"variable.labels"[i]<-
  attributes(surveymonkey_accionsalududp_df2_ins)$"variable.labels"[[i]]
}

for (i in 1:length(surveymonkey_accionsalududp_df2_cor)){
if(attributes(surveymonkey_accionsalududp_df2_cor)$name[i]=="suma_parcial") 
attributes(surveymonkey_accionsalududp_df2_cor)$variable.labels[i]<-"Suma de Valores Perdidos en Variables de Interés"
}
cols_labels<-
rbind.data.frame(text=names(surveymonkey_accionsalududp_df2_cor),
    labels=unlist(attributes(surveymonkey_accionsalududp_df2_cor)$"variable.labels")) %>% t() %>% data.table(keep.rownames=F)

ggplot(surveymonkey_accionsalududp_df2_cor, aes(x= factor(resp_status) , y = suma_parcial)) +#no hay resp status
geom_jitter(col = "grey70") + # plot individual points in grey
stat_summary(fun.data = "mean_cl_normal") + # add mean and 95% CIs
labs(x = "Estatus de completitud", y = "Suma de valores perdidos") + # label axes
theme_bw() # change themes

## Warning: Removed 57 rows containing non-finite values (stat_summary).

## Warning: Removed 57 rows containing missing values (geom_point).

Figura 5. Valores perdidos en variables de interés por Estado de Respuesta

.

#38 parciales
#surveymonkey_accionsalududp_df2_cor %>% 
#    dplyr::filter(resp_status=="partial") %>% select(suma_parcial) %>%  summary()
#  suma_parcial   
# Min.   : 30.00  
# 1st Qu.: 70.25  
# Median :118.00  
# Mean   :102.37  
# 3rd Qu.:131.00  
# Max.   :131.00  
cols_partial<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::select(p3_siente_1:p47_demo_medio_transp_09) %>% dim() #si fuera desde SPSS, sería p47_demo_medio_transp_otr

surveymonkey_accionsalududp_df2_cor<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate(surv=cols_partial[2]-suma_parcial)

cols<-surveymonkey_accionsalududp_df2_cor %>%
    #dplyr::filter(resp_status=="partial") %>%  
    dplyr::select(p3_siente_1:p47_demo_medio_transp_09) %>% names() #si fuera desde SPSS, sería p47_demo_medio_transp_otr

tot<-
surveymonkey_accionsalududp_df2_cor %>%
  # dplyr::filter(resp_status=="partial") %>% 
  nrow()
#Ordenar variables
missing.values <- 
  surveymonkey_accionsalududp_df2_cor %>%
  #dplyr::filter(resp_status=="partial") %>%  
  dplyr::select(p3_siente_1:p47_demo_medio_transp_09) %>% #si fuera desde SPSS, sería p47_demo_medio_transp_otr
    tidyr::gather(key = "key", value = "val") %>%
    dplyr::mutate(is.missing = is.na(val)) %>%
    dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
    dplyr::group_by(key, is.missing,V2) %>%
    dplyr::rename("label"="V2") %>% 
    dplyr::summarise(num.missing = n()) %>%
    dplyr::filter(is.missing==T) %>%
    dplyr::mutate(perc_miss=num.missing/tot) %>% 
    dplyr::select(-is.missing) %>% 
    dplyr::mutate(key=factor(key,levels=cols,ordered=T)) %>% 
    dplyr::ungroup() %>% 
    dplyr::group_by(key) %>% 
    dplyr::mutate(label= max(label,na.rm=T)) %>% 
    dplyr::ungroup() %>% 
    dplyr::group_by(key) %>% 
    dplyr::slice(1) %>% 
    dplyr::ungroup()

## Warning: attributes are not identical across measure variables;
## they will be dropped

    #dplyr::mutate(label=paste(stringi::stri_wrap(label, width=20),"<br>"))
    #arrange(desc(num.missing)) 

missing.values <-
missing.values[order(factor(missing.values$key, levels=unique(cols))),] %>%
  data.frame()

for (i in 1:nrow(missing.values)){
  missing.values$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(missing.values$label[i], width =40), "<br>"), collapse='')
}

missing.values$label_text<-paste0("Código: ",missing.values$key,"<br>Etiqueta:",missing.values$label,"<br>Perdidos: ",scales::percent(missing.values$perc_miss))

#<div style="border: 1px solid #ddd; padding: 5px; overflow-y: scroll; height:400px; overflow-x: scroll; width:100%">
plot_miss<-
missing.values %>%
  dplyr::ungroup() %>% 
 # slice(1:29) %>% 
  ggplot() +
    geom_bar(aes(x=factor(key), y=perc_miss, label= label_text), stat = 'identity') +
    labs(x='variable', y="Porcentaje de perdidos", caption=paste0("Nota. Porcentaje de perdidos del total (",tot,")")) +
  #theme(axis.text.x = element_text(angle = 45, hjust = 1, size=6))+
  theme(axis.text.x = element_blank())+
  scale_y_continuous(limits=c(0,1))+
  sjPlot::theme_sjplot()

## Warning: Ignoring unknown aesthetics: label

  ggplotly(plot_miss, tooltip = c("label_text"))%>% layout(xaxis= list(showticklabels = FALSE), height = 600, width=800)

## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()

Figura 6. Gráfico de Barras de Porcentaje de Completición por Variables

  #</div>

2.3 Descriptivo

#rm(list=ls());gc()

library(compareGroups)

surveymonkey_accionsalududp_df2_cor_table<-
  surveymonkey_accionsalududp_df2_cor %>% 
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
##:#:#:#:#:#:#:#:#:SALUD MENTAL:#:#:#:#:#:##:#:#:#:#:#:#  
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
 # dplyr::mutate_at(.vars=vars(starts_with("p20_contr_cont_med_pev_")),.funs = list("simpler" =  ~factor(dplyr::case_when(as.numeric(.)>4~NA_real_,T~as.numeric(.)),labels=c("Apropiadas y bien implementadas","Apropiadas pero mal implementadas","Inapropiadas","Deficientes"))))  %>% 
      rowwise %>%
    dplyr::mutate_at(.vars = vars(p3_siente_1:p3_siente_6), # si fuera de SPSS, debiese ser p47_demo_medio_transp_otr
                   .funs = list(`p3_num`=~(as.numeric(.)-1)*25)) %>% 
    dplyr::mutate_at(.vars = vars(p4_afront_1:p4_afront_3), # si fuera de SPSS, debiese ser p47_demo_medio_transp_otr
                   .funs = list(`p4_num`=~as.numeric(.)-1)) %>% 
    dplyr::mutate_at(.vars = vars(p5_animo_1:p5_animo_4), # si fuera de SPSS, debiese ser p47_demo_medio_transp_otr
                   .funs = list(`p5_num`=~as.numeric(.)-1)) %>% 
  #http://medicinafamiliar.uc.cl/html/poems/tamizaje.html
  #https://journals.sagepub.com/doi/10.1177/0706743720961729
  #desde Nunca (0), Sólo unas pocas veces (25), Algunas veces (50), La mayoría de las veces (75), Siempre (100).
    dplyr::mutate(agotamiento_estres_irritabilidad = sum(c_across(ends_with("p3_num")),na.rm=F)) %>%
  #obtener agrupaciones conformes a una distribución teórica en terciles y 2) que los grupos “verde” y “rojo” estuvieran máximamente equilibrados.
    dplyr::mutate(estres_postraumatico = sum(c_across(ends_with("p4_num")),na.rm=F)) %>%
  dplyr::ungroup() %>% 
    dplyr::mutate(agotamiento_estres_irritabilidad_ptje= agotamiento_estres_irritabilidad) %>% 
    dplyr::mutate(estres_postraumatico_ptje= estres_postraumatico) %>% 
    dplyr::mutate(agotamiento_estres_irritabilidad_q75=factor(dplyr::case_when(agotamiento_estres_irritabilidad_ptje>=375~
                                                                        "Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad",is.na(agotamiento_estres_irritabilidad_ptje)~NA_character_,T~"Cuartiles 1 a 3"))) %>% 
  dplyr::mutate(estres_postraumatico_q75=factor(dplyr::case_when(estres_postraumatico_ptje>=5~
                                                                        "Cuartil de mayor ptje. Estrés Postraumático",is.na(estres_postraumatico_ptje)~NA_character_,T~"Cuartiles 1 a 3"))) %>% 
    dplyr::mutate(agotamiento_estres_irritabilidad= dplyr::ntile(agotamiento_estres_irritabilidad,3)) %>% 
  
    dplyr::mutate(estres_postraumatico= dplyr::ntile(estres_postraumatico,4)) %>% 
    dplyr::mutate(estres_postraumatico= factor(if_else(estres_postraumatico>=4,"Indicadores de Estrés Post-traumático","Ausencia de Indicadores de Estrés Post-traumático",NA_character_))) %>% 
   rowwise %>%
  #http://medicinafamiliar.uc.cl/html/poems/tamizaje.html
    dplyr::mutate(tamizaje_ans = sum(c_across(c("p5_animo_1_p5_num","p5_animo_2_p5_num")),na.rm=F)) %>%
    dplyr::mutate(tamizaje_dep = sum(c_across(c("p5_animo_3_p5_num","p5_animo_4_p5_num")),na.rm=F)) %>%
  dplyr::ungroup() %>% 
    dplyr::mutate(tamizaje_ans=factor(if_else(tamizaje_ans>=3,"Indicadores de Sintomatología Ansiosa","Ausencia de Indicadores de Sintomatología Ansiosa",NA_character_))) %>% 
    dplyr::mutate(tamizaje_dep=factor(if_else(tamizaje_dep>=3,"Indicadores de Sintomatología Depresiva","Ausencia de Indicadores de Sintomatología Depresiva",NA_character_))) %>% 
  #table(surveymonkey_accionsalududp_df2_cor_table$agotamiento_estres_irritabilidad)
  #table(surveymonkey_accionsalududp_df2_cor_table$estres_postraumatico)
  #table(surveymonkey_accionsalududp_df2_cor_table$agotamiento_estres_irritabilidad)
  #table(surveymonkey_accionsalududp_df2_cor_table$tamizaje_dep)
  
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
##:#:#:#:#:#:#:#:#:EXP A COVID-19:#:#:#:#:#:##:#:#:#:#:#:#  
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
  
# ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?
  dplyr::mutate(p8_exp_c19_cerca_cont_rec= 
                  factor(dplyr::case_when(grepl("Trabajo en contacto directo con pacientes",
                  p8_exp_c19_cerca_cont)~"Contacto directo y estrecho con pacientes (menos de dos metros)",
                                          grepl("Trabajo a menos de dos metros",
                  p8_exp_c19_cerca_cont)~"Contacto directo y estrecho con pacientes (menos de dos metros)",
                is.na(p8_exp_c19_cerca_cont)~NA_character_,
                  T~"Menor o ningún contacto con pacientes"))) %>% 
  
# ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas)
    #Nota. Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo(1), 
    #Le han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo(2), 
    #Le solicitaron que trabajara a pesar de la exposición a COVID-19(3), 
    #Experimentó síntomas similares a los de COVID-19(4), 
    #Le solicitaron que trabajara a pesar de los síntomas(5), 
    #Le dijeron que trabajara a pesar de no contar con EPPs(6), 
    #Le solicitaron que se aislara(7), 
    #Se hizo el examen para descartar COVID-19(8), 
    #Dio positivo en el examen para descartar COVID-19(9), 
    #Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral)(10).
  rowwise() %>% 
  dplyr::mutate_at(.vars=vars(c(paste0("p9_exp_c19_exp_sit_dg_0",1:9),"p9_exp_c19_exp_sit_dg_10")),.funs = ~as.numeric(.)) %>% 
  dplyr::mutate(ptjes_p9 = sum(c_across(c(paste0("p9_exp_c19_exp_sit_dg_0",1:9),"p9_exp_c19_exp_sit_dg_10")),na.rm=T)) %>%
  dplyr::ungroup() %>% 
  dplyr::mutate(ptjes_p9=ordered(ifelse(ptjes_p9>3,"Más de 3",as.character(ptjes_p9)),
                                 levels = c("1", "2", "3","Más de 3"))) %>% 
  #janitor::tabyl(ptjes_p9)
# '¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?'
   ##- Bastante Mucho
 dplyr::mutate(p10_exp_c19_preocupa_llevar_rec= 
                 factor(dplyr::case_when(grepl("Bastante",p10_exp_c19_preocupa_llevar)~"Bastante/Mucho",
                 grepl("Mucho",p10_exp_c19_preocupa_llevar)~"Bastante/Mucho",
                 is.na(p10_exp_c19_preocupa_llevar)~NA_character_,
                 T~"Un poco/Nada/No aplica"))) %>% 
  
  #surveymonkey_accionsalududp_df2_cor %>% janitor::tabyl(p10_exp_c19_preocupa_llevar)
  # ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?
  dplyr::mutate(p11_exp_c19_miedo_pand_rec=
                factor(dplyr::case_when(grepl("Ausencia",p11_exp_c19_miedo_pand_rec)~"Predomina la ausencia de miedo",
                                 grepl("Miedo",p11_exp_c19_miedo_pand_rec)~"Predomina el miedo",TRUE~NA_character_)))%>%
  #janitor::tabyl(p11_exp_c19_miedo_pand_rec)

#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
##:#:#:#:#:#:#:#:#:"DISPONIBILIDAD Y ADECUACIÓN DE LAS MEDIDAS DE CONTROL DE CONTAGIO EN SU TRABAJO":#:#:#:#:#:#
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
  
  #Capacitación uso de EPP's
  #- "No he sido capacitado
  dplyr::mutate(p14_contr_cont_cap_epp_rec= 
                 factor(dplyr::case_when(grepl("No he sido",p14_contr_cont_cap_epp)~"No ha sido capacitado",
                 is.na(p14_contr_cont_cap_epp)~NA_character_,
                 T~"Ha sido capacitado"))) %>% 
  #surveymonkey_accionsalududp_df2_cor %>% janitor::tabyl(p10_exp_c19_preocupa_llevar)
# Eficacia capacitaciones
   #- "Mala"
  dplyr::mutate(p15_contr_cont_14a_eval_cap_rec= 
                 factor(dplyr::case_when(grepl("Mala",p15_contr_cont_14a_eval_cap)~"Mala",
                 is.na(p15_contr_cont_14a_eval_cap)~NA_character_,
                 T~"Regular a Excelente"))) %>% 
# Confianza ponerse y quitarse EPPs
  #- Bastante o Totalmente
  dplyr::mutate(p16_contr_cont_conf_epps_rec= 
                 factor(dplyr::case_when(grepl("Bastante",p16_contr_cont_conf_epps)~"Totalmente/Bastante",
                                         grepl("Totalmente",p16_contr_cont_conf_epps)~"Totalmente/Bastante",
                 is.na(p16_contr_cont_conf_epps)~NA_character_,
                 T~"Nada/Poco/Algo/No aplica"))) %>% 
#¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP's? (Marque las opciones que apliquen a su experiencia) (nro. respuestas)
  rowwise() %>% 
  dplyr::mutate_at(.vars=vars(paste0("p17_contr_cont_restr_epp_",1:5)),.funs = ~as.numeric(.)) %>% 
  #dplyr::mutate(ptjes_p9= rowSums(dplyr::select(.,starts_with("p9_exp_c19_exp_sit_dg_")),na.rm=T)) %>% 
  dplyr::mutate(ptjes_p17 = sum(c_across(paste0("p17_contr_cont_restr_epp_",1:5)),na.rm=T)) %>%
  dplyr::ungroup() %>% 
  dplyr::mutate(ptjes_p17=ordered(if_else(ptjes_p17>3,"Más de 3",as.character(ptjes_p17),NA_character_),
                                  levels = c("1", "2", "3","Más de 3"))) %>% 

#Mi empleador se ha rehusado a dar cierto tipo de EPP 
  dplyr::mutate(p17_contr_cont_restr_epp_1_rec=factor(if_else(p17_contr_cont_restr_epp_1==TRUE,"Empleador se ha rehusado a dar cierto tipo de EPP","No se constata esta situación",NA_character_))) %>% 
  #janitor::tabyl(p17_contr_cont_restr_epp_1_rec)
#surveymonkey_accionsalududp_df2_cor %>% janitor::tabyl(p17_contr_cont_restr_epp_1)
#janitor::tabyl(p17_contr_cont_restr_epp_1_rec)

# Confianza a evaluar riesgo personal y determinar la pertinencia de EPPs
   #- "Poco" "Nada"
    dplyr::mutate(p18_contr_cont_conf_eval_ri_rec= 
                 factor(dplyr::case_when(grepl("Poco",p18_contr_cont_conf_eval_ri)~"Poco/Nada",
                                         grepl("Nada",p18_contr_cont_conf_eval_ri)~"Poco/Nada",
                 is.na(p18_contr_cont_conf_eval_ri)~NA_character_,
                 T~"Algo/Bastante/Totalente/No aplica"))) %>% 

# Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro
  #- "Definitivamente, no es posible negarme a trabajar" 
  #. "Negarme a trabajar no es una opción legalmente disponible para mí"

    dplyr::mutate(p19_contr_cont_nieg_epp_rec= 
                 factor(dplyr::case_when(grepl("Definitivamente, no",p19_contr_cont_nieg_epp)~"Incapacidad para negarse a trabajo inseguro",
                                         grepl("Negarme a trabajar",p19_contr_cont_nieg_epp)~"Incapacidad para negarse a trabajo inseguro",
                                         grepl("Es improbable que",p19_contr_cont_nieg_epp)~"Incapacidad para negarse a trabajo inseguro",
                 is.na(p19_contr_cont_nieg_epp)~NA_character_,
                 T~"Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse"))) %>% 

# ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo?"
    ##Evaluación pacientes en la entrada al recinto de salud.',
    ##Uso obligatorio de mascarillas en pacientes sintomáticos.',
    ##Aislación de pacientes con síntomas respiratorios.',
    ##Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.',
    ##Funcionamiento de sistemas de ventilación.',
    ##Habilitación de salas de aislamiento de infecciones aéreas.',
    ##Habilitación de camarín o espacios de higiene del personal.',
    ##Mecanismos de limpieza de ropa e indumentaria.',
    ##Procesos de eliminación de residuos.',

    #- 'Inapropiadas(3)' y 'Deficientes(4)'

dplyr::mutate_at(.vars = vars(starts_with("p20_contr_cont_med_pev_")), # 
                   .funs = list(`p20_rec`=~factor(dplyr::case_when(grepl("Inapropiadas",as.character(.))~"Inapropiadas/Deficientes",grepl("Deficientes",as.character(.))~"Inapropiadas/Deficientes",is.na(.)~NA_character_,T~"Apropiadas/No sabe/No aplica")))) %>% 
#surveymonkey_accionsalududp_df2_cor %>% janitor::tabyl(p20_contr_cont_med_pev_1)
#janitor::tabyl(p20_contr_cont_med_pev_1_p20_num)
  
#entidades están haciendo todo lo posible para proteger al personal?
  #'En desacuerdo(4) y Totalmente en desacuerdo(5)'

dplyr::mutate_at(.vars = vars(starts_with("p26_cond_trab_ent_protec_")), # 
                   .funs = list(`p26_rec`=~factor(dplyr::case_when(grepl("En desacuerdo$",as.character(.))~"Desacuerdo/Totalmente en desacuerdo",grepl("Totalmente en desacuerdo",as.character(.))~"Desacuerdo/Totalmente en desacuerdo",is.na(.)~NA_character_,T~"Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo")))) %>%   
  
#janitor::tabyl(p26_cond_trab_ent_protec_1_p26_num)
#surveymonkey_accionsalududp_df2_cor %>% janitor::tabyl(p26_cond_trab_ent_protec_1)

#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
##:#:#:#:#:#:#:#:#:"PREGUNTAS SOBRE SU ACTUAL ENTORNO PSICOSOCIAL DE TRABAJO":#:#:#:#:#:#
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_

#'¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?'
## - "Mantengo las mismas labores vs. El resto (cambiar labores o área)" 

dplyr::mutate(p36_cond_trab_reasig_rec=factor(dplyr::case_when(grepl("Mantengo las mismas labores$",as.character(p36_cond_trab_reasig))~"Mantiene las mismas labores en la misma área",is.na(p36_cond_trab_reasig)~NA_character_,T~"Cambia área, labores o ambos producto de la pandemia"))) %>%   

#'¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?'
## - "Mala", p38_cond_trab_sal_psi 
dplyr::mutate(p38_cond_trab_sal_psi_rec=factor(dplyr::case_when(grepl("Mala",as.character(p38_cond_trab_sal_psi))~"Mala",is.na(p38_cond_trab_sal_psi)~NA_character_,T~"Excelente/Buena/Regular"))) %>%     

#'¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores'
#c('Totalmente de acuerdo', 'De acuerdo'
  dplyr::mutate(p39_cond_trab_cult_org_rec=factor(dplyr::case_when(grepl("Totalmente de acuerdo",as.character(p39_cond_trab_cult_org))~"De acuerdo/Totalmente de acuerdo",
                                                                   grepl("De acuerdo",as.character(p39_cond_trab_cult_org))~"De acuerdo/Totalmente de acuerdo",
  is.na(p39_cond_trab_cult_org)~NA_character_,
  T~"Neutral/En desacuerdo/Totalmente en desacuerdo"))) %>%     
#janitor::tabyl(p39_cond_trab_cult_org_rec)

#ISTAS

#Exigencias psicológicas cuantitativas (CU),
#Work Pace (WP1) es homologable a CU
#Calidad de relación son superiores (RS)
#Calidad de relación con compañeros de trabajo (RC),
#Conflicto de rol (CR)
  
#En su trabajo principal, usted:
# ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?', (CU1)
# 'En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?', (WP2)
# ¿Recibe toda la información que necesita para realizar bien su trabajo?', (RS2)
# ¿Se le exigen cosas contradictorias en el trabajo?', (CR2)
# ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?',(CR3)
# Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?',(RS4) 
# ¿Recibe ayuda y apoyo de su superior directo?', (RS5)
# ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?',(RC3)
# ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?', (RC4)
# ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo?',

#starts_with() val==1~"Nunca(1) vs. Sólo unas pocas veces(2)- Siempre(5)"

#Para cada centro de salud se realizó un análisis descriptivo a fin de obtener frecuencias y las prevalencias de riesgos psicosociales altos (mayores a 50%),

dplyr::mutate_at(.vars = vars(starts_with("p40_cond_trab_istas_")), # 
                   .funs = list(`p40_rec`=~factor(dplyr::case_when(grepl("La mayoría",as.character(.))~"La mayoría de las veces/Siempre",grepl("Siempre",as.character(.))~"La mayoría de las veces/Siempre",is.na(.)~NA_character_,T~"Nunca/Sólo unas pocas veces/Algunas veces")))) %>% 
  dplyr::mutate_at(.vars = vars(c(paste0("p40_cond_trab_istas_0",1:9),"p40_cond_trab_istas_10")), # 
                   .funs = list(`p40_num`=~as.numeric(factor(., levels = rev(levels(.))))-1)) %>%
  #janitor::tabyl(p40_cond_trab_istas_01_p40_num)
  rowwise() %>% 
  dplyr::mutate(p40_istas_ex_psi = sum(c_across(c("p40_cond_trab_istas_01_p40_num",
                                                  "p40_cond_trab_istas_02_p40_num")),na.rm=F)) %>%
  dplyr::mutate(p40_istas_rel_su = sum(c_across(c("p40_cond_trab_istas_03_p40_num",
                                                  "p40_cond_trab_istas_06_p40_num",
                                                  "p40_cond_trab_istas_07_p40_num")),na.rm=F)) %>%
  dplyr::mutate(p40_istas_con_rol = sum(c_across(c("p40_cond_trab_istas_04_p40_num",
                                                  "p40_cond_trab_istas_05_p40_num")),na.rm=F)) %>%
  dplyr::mutate(p40_istas_rel_comp = sum(c_across(c("p40_cond_trab_istas_08_p40_num",
                                                  "p40_cond_trab_istas_09_p40_num")),na.rm=F)) %>%
  dplyr::ungroup() %>% 
  #janitor::tabyl(p40_cond_trab_istas_01_p40_rec)

#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
##:#:#:#:#:#:#:#:#:"RESILIENCIA":#:#:#:#:#:#:#:#:##:#:##:#:##:#:##:#:##:#:##:#:##:#:##:#:##:#:##:#:##:#:#
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_

  dplyr::mutate_at(.vars = vars(starts_with("p42_resiliencia_")), # 
                   .funs = list(`p42_rec`=~factor(dplyr::case_when(grepl("Más bien cierto",as.character(.))~"Más bien cierto/Cierto",grepl("Cierto$",as.character(.))~"Más bien cierto/Cierto", is.na(.)~NA_character_,T~"Apenas cierto/Incorrecto")))) %>% 
   #janitor::tabyl(p42_resiliencia_1_p42_rec)
    dplyr::mutate_at(.vars = vars(paste0("p42_resiliencia_",1:3)), # 
                   .funs = list(`p42_num`=~as.numeric(.)-1)) %>%
   rowwise() %>% 
  dplyr::mutate(p42_res_total = sum(c_across(c("p42_resiliencia_1_p42_num",
                                             "p42_resiliencia_2_p42_num",
                                             "p42_resiliencia_3_p42_num")),na.rm=F)) %>% 
  dplyr::ungroup() %>% 
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
  dplyr::mutate(p27_cond_trab_sup_jef = factor(if_else(grepl("NA",p27_cond_trab_sup_jef),NA_character_,as.character(p27_cond_trab_sup_jef)))) %>% 
dplyr::mutate(p45_demo_sexo = dplyr::case_when(
  p45_demo_id_personal_1==T & p45_demo_id_personal_2==T~NA_character_,
  p45_demo_id_personal_1==T~"Mujer",
  p45_demo_id_personal_2==T~"Hombre",
  T~NA_character_)) %>% 
    dplyr::mutate(sit_contractual=ordered(dplyr::case_when(grepl("Contrata",p33_cond_trab_sit_cont)~"Contrata",
                                                                                                                grepl("Becario/Interno/Practicante",p33_cond_trab_sit_cont)~"Becario/Interno/Practicante",
                                                 grepl("plazo fijo",p33_cond_trab_sit_cont)~"Otros",
                                                 grepl("Remplazo",p33_cond_trab_sit_cont)~"Otros",
                                                 grepl("reemplazo",p33_cond_trab_sit_cont)~"Otros",
                                                 grepl("Titulares",p33_cond_trab_sit_cont)~"Titulares",
                                                 grepl("Honorarios",p33_cond_trab_sit_cont)~"Honorarios",
                                                 is.na(p33_cond_trab_sit_cont)~NA_character_,
                                                 T~"Otros"),levels=c("Titulares", 
                                                                     "Contrata", 
                                                                     "Honorarios",
                                                                     "Becario/Interno/Practicante",
                                                                     "Otros"))) %>% 
  dplyr::mutate(estamento=factor(dplyr::case_when(p32_cond_trab_est=="Auxiliar"~"Técnicos y Auxiliares",
                                           p32_cond_trab_est=="Administrativo"~"Administrativo",
                                           p32_cond_trab_est=="Paramédicos"~"Técnicos y Auxiliares",
                                           p32_cond_trab_est=="Técnicos (e.j., TENS, Arsenalero, etc.)"~"Técnicos y Auxiliares",
                                           p32_cond_trab_est=="Médicos"~"Médicos",
                                           p32_cond_trab_est=="Enfermeros"~"Enfermeros",
                                           p32_cond_trab_est=="Otros Profesionales No Médicos"~"Otros Profesionales No Médicos", T~as.character(p32_cond_trab_est))))
  
  #janitor::tabyl(p45_demo_sexo)
                
#surveymonkey_accionsalududp_df2_cor_table %>% janitor::tabyl(p45_demo_id_personal_1)
#surveymonkey_accionsalududp_df2_cor_table %>% janitor::tabyl(p32_cond_trab_est)
#surveymonkey_accionsalududp_df2_cor_table %>% janitor::tabyl(p27_cond_trab_sup_jef)

#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
for (i in 1:length(surveymonkey_accionsalududp_df2_cor)){
  x<-cols_labels$V1[i]
  attr(surveymonkey_accionsalududp_df2_cor_table[[x]],"label")<-cols_labels$V2[i]
}

## Error: Must extract column with a single valid subscript.
## x Subscript `x` can't be `NA`.

attr(surveymonkey_accionsalududp_df2_cor_table$p45_demo_sexo,"label")<-'Sexo (Recodificación Binaria)'
attr(surveymonkey_accionsalududp_df2_cor_table$p3_siente_1_p3_num,"label")<-'En los últimos 7 días, ¿cuán a menudo me he sentido...? | Agotado Físicamente (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p3_siente_2_p3_num,"label")<-'En los últimos 7 días, ¿cuán a menudo me he sentido...? | Agotado Emocionalmente (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p3_siente_3_p3_num,"label")<-'En los últimos 7 días, ¿cuán a menudo me he sentido...? | Estresado (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p3_siente_4_p3_num,"label")<-'En los últimos 7 días, ¿cuán a menudo me he sentido...? | Irritable (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p3_siente_5_p3_num,"label")<-'En los últimos 7 días, ¿cuán a menudo me he sentido...? | Con dificultades para descansar al dormir (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p3_siente_6_p3_num,"label")<-'En los últimos 7 días, ¿cuán a menudo me he sentido...? | Con problemas para mantener el sueño al dormir (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p4_afront_1_p4_num,"label")<-'En la última semana y a consecuencia de la situación sanitaria, me he sentido... | Distante y desconectado de mi mismo y mi entorno (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p4_afront_2_p4_num,"label")<-'En la última semana y a consecuencia de la situación sanitaria, me he sentido... | Sobresaltado, en guardia o me alarmo fácilmente (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p4_afront_3_p4_num,"label")<-'En la última semana y a consecuencia de la situación sanitaria, me he sentido... | Irritable al punto de reaccionar bruscamente (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p5_animo_1_p5_num,"label")<-'Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido Nervioso, ansioso o con los nervios de punta (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p5_animo_2_p5_num,"label")<-'Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p5_animo_3_p5_num,"label")<-'Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas (Numérico)'
attr(surveymonkey_accionsalududp_df2_cor_table$p5_animo_4_p5_num,"label")<-'Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado (Numérico)'

attr(surveymonkey_accionsalududp_df2_cor_table$agotamiento_estres_irritabilidad,"label")<-'Sentimiento de Agotamiento, estrés e irritabilidad (terciles)'
attr(surveymonkey_accionsalududp_df2_cor_table$estres_postraumatico,"label")<-'Estrés Postraumático (4° Cuartil)'
attr(surveymonkey_accionsalududp_df2_cor_table$agotamiento_estres_irritabilidad_ptje,"label")<-'Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad'
attr(surveymonkey_accionsalududp_df2_cor_table$estres_postraumatico_ptje,"label")<-'Ptjes. Estrés Postraumático'
attr(surveymonkey_accionsalududp_df2_cor_table$agotamiento_estres_irritabilidad_q75,"label")<-'Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General)'
attr(surveymonkey_accionsalududp_df2_cor_table$estres_postraumatico_q75,"label")<-'Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General)'
attr(surveymonkey_accionsalududp_df2_cor_table$tamizaje_ans,"label")<-'Sintomatología ansiosa'
attr(surveymonkey_accionsalududp_df2_cor_table$tamizaje_dep,"label")<-'Sintomatología depresiva'
attr(surveymonkey_accionsalududp_df2_cor_table$p8_exp_c19_cerca_cont_rec,"label")<-'¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$ptjes_p9,"label")<-'¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas)'
attr(surveymonkey_accionsalududp_df2_cor_table$p10_exp_c19_preocupa_llevar_rec,"label")<-'¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p14_contr_cont_cap_epp_rec,"label")<-'¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p15_contr_cont_14a_eval_cap_rec,"label")<-'¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p16_contr_cont_conf_epps_rec,"label")<-'¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$ptjes_p17,"label")<-'¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas)'
attr(surveymonkey_accionsalududp_df2_cor_table$p17_contr_cont_restr_epp_1_rec,"label")<-'Mi empleador se ha rehusado a dar cierto tipo de EPP'
attr(surveymonkey_accionsalududp_df2_cor_table$p18_contr_cont_conf_eval_ri_rec,"label")<-'¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p19_contr_cont_nieg_epp_rec,"label")<-'Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro (dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_1_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_2_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_3_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_4_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_5_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_6_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_7_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_8_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p20_contr_cont_med_pev_9_p20_rec,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p26_cond_trab_ent_protec_1_p26_rec,"label")<-'En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p26_cond_trab_ent_protec_2_p26_rec,"label")<- 'En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Empleador (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p26_cond_trab_ent_protec_3_p26_rec,"label")<-'En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p26_cond_trab_ent_protec_4_p26_rec,"label")<-'En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p36_cond_trab_reasig_rec,"label")<-'¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p38_cond_trab_sal_psi_rec,"label")<-'¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p39_cond_trab_cult_org_rec,"label")<-'¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_01_p40_rec,"label")<-'En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_02_p40_rec,"label")<-'En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_03_p40_rec,"label")<-'En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_04_p40_rec,"label")<-'En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_05_p40_rec,"label")<-'En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_06_p40_rec,"label")<-'En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_07_p40_rec,"label")<-'En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_08_p40_rec,"label")<-'En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_09_p40_rec,"label")<-'En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_10_p40_rec,"label")<-'En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada)'

attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_01_p40_num,"label")<-'En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_02_p40_num,"label")<-'En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_03_p40_num,"label")<-'En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_04_p40_num,"label")<-'En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_05_p40_num,"label")<-'En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_06_p40_num,"label")<-'En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_07_p40_num,"label")<-'En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_08_p40_num,"label")<-'En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_09_p40_num,"label")<-'En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_cond_trab_istas_10_p40_num,"label")<-'En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Numérica)'

attr(surveymonkey_accionsalududp_df2_cor_table$p40_istas_ex_psi,"label")<-'Suma ítems Exigencias Psicológicas ISTAS21'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_istas_rel_su,"label")<-'Suma ítems Calidad Relación con Superiores ISTAS21'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_istas_con_rol,"label")<-'Suma ítems Conflicto de Rol ISTAS21'
attr(surveymonkey_accionsalududp_df2_cor_table$p40_istas_rel_comp,"label")<-'Suma ítems Relación con Compañeros de Trabajo ISTAS21'
attr(surveymonkey_accionsalududp_df2_cor_table$p42_resiliencia_1_p42_rec,"label")<-'De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p42_resiliencia_2_p42_rec,"label")<-'De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p42_resiliencia_3_p42_rec,"label")<-'De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada)'
attr(surveymonkey_accionsalududp_df2_cor_table$p42_resiliencia_1_p42_num,"label")<-'De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p42_resiliencia_2_p42_num,"label")<-'De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p42_resiliencia_3_p42_num,"label")<-'De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Numérica)'
attr(surveymonkey_accionsalududp_df2_cor_table$p42_res_total,"label")<-'Suma puntajes de resilencia'


  #janitor::tabyl(p20_contr_cont_med_pev_1_simpler)
  table1_all <- suppressWarnings(compareGroups( ~ 
             agotamiento_estres_irritabilidad+
             estres_postraumatico+
             agotamiento_estres_irritabilidad_ptje+
             estres_postraumatico_ptje+
              agotamiento_estres_irritabilidad_q75+
              estres_postraumatico_q75+
             tamizaje_ans+
             tamizaje_dep+
            p8_exp_c19_cerca_cont_rec+
            ptjes_p9+
            p10_exp_c19_preocupa_llevar_rec+
            p11_exp_c19_miedo_pand_rec+
            p14_contr_cont_cap_epp_rec+
            p15_contr_cont_14a_eval_cap_rec+
            p16_contr_cont_conf_epps_rec+
            ptjes_p17+
            p17_contr_cont_restr_epp_1_rec+
            p18_contr_cont_conf_eval_ri_rec+
            p19_contr_cont_nieg_epp_rec+
            p20_contr_cont_med_pev_1_p20_rec+
            p20_contr_cont_med_pev_2_p20_rec+
            p20_contr_cont_med_pev_3_p20_rec+
            p20_contr_cont_med_pev_4_p20_rec+
            p20_contr_cont_med_pev_5_p20_rec+
            p20_contr_cont_med_pev_6_p20_rec+
            p20_contr_cont_med_pev_7_p20_rec+
            p20_contr_cont_med_pev_8_p20_rec+
            p20_contr_cont_med_pev_9_p20_rec+
            p26_cond_trab_ent_protec_1_p26_rec+
            p26_cond_trab_ent_protec_2_p26_rec+
            p26_cond_trab_ent_protec_3_p26_rec+
            p26_cond_trab_ent_protec_4_p26_rec+
            p36_cond_trab_reasig_rec+
            p38_cond_trab_sal_psi_rec+
            p39_cond_trab_cult_org_rec+
            p40_cond_trab_istas_01_p40_rec+
            p40_cond_trab_istas_02_p40_rec+
            p40_cond_trab_istas_03_p40_rec+
            p40_cond_trab_istas_04_p40_rec+
            p40_cond_trab_istas_05_p40_rec+
            p40_cond_trab_istas_06_p40_rec+
            p40_cond_trab_istas_07_p40_rec+
            p40_cond_trab_istas_08_p40_rec+
            p40_cond_trab_istas_09_p40_rec+
            p40_cond_trab_istas_10_p40_rec+
            p40_istas_ex_psi+
            p40_istas_rel_su+
            p40_istas_con_rol+
            p40_istas_rel_comp+
            p42_resiliencia_1_p42_rec+
            p42_resiliencia_2_p42_rec+
            p42_resiliencia_3_p42_rec+
            p42_res_total+
             p3_siente_1+
             p3_siente_2+
             p3_siente_3+
             p3_siente_4+
             p3_siente_5+
             p3_siente_6+
             p4_afront_1+
             p4_afront_2+
             p4_afront_3+
             p5_animo_1+
             p5_animo_2+
             p5_animo_3+
             p5_animo_4+
             p6_exp_c19_pac_cont+
             p7_exp_c19_trab_cont+
             p8_exp_c19_cerca_cont+
             p9_exp_c19_exp_sit_dg_01+
             p9_exp_c19_exp_sit_dg_02+
             p9_exp_c19_exp_sit_dg_03+
             p9_exp_c19_exp_sit_dg_04+
             p9_exp_c19_exp_sit_dg_05+
             p9_exp_c19_exp_sit_dg_06+
             p9_exp_c19_exp_sit_dg_07+
             p9_exp_c19_exp_sit_dg_08+
             p9_exp_c19_exp_sit_dg_09+
             p9_exp_c19_exp_sit_dg_10+
             p9_exp_c19_exp_sit_dg_11+
             p10_exp_c19_preocupa_llevar+
             p11_exp_c19_miedo_pand+
             p12_contr_cont_imp_nec_01+
             p12_contr_cont_imp_nec_02+
             p12_contr_cont_imp_nec_03+
             p12_contr_cont_imp_nec_04+
             p12_contr_cont_imp_nec_05+
             p12_contr_cont_imp_nec_06+
             p12_contr_cont_imp_nec_07+
             p12_contr_cont_imp_nec_08+
             p12_contr_cont_imp_nec_09+
             p12_contr_cont_imp_nec_10+
             p12_contr_cont_imp_nec_11+
             p12_contr_cont_imp_nec_12+
             p13_contr_cont_imp_disp_01+
             p13_contr_cont_imp_disp_02+
             p13_contr_cont_imp_disp_03+
             p13_contr_cont_imp_disp_04+
             p13_contr_cont_imp_disp_05+
             p13_contr_cont_imp_disp_06+
             p13_contr_cont_imp_disp_07+
             p13_contr_cont_imp_disp_08+
             p13_contr_cont_imp_disp_09+
             p13_contr_cont_imp_disp_10+
             p13_contr_cont_imp_disp_11+
             p14_contr_cont_cap_epp+
             p15_contr_cont_14a_eval_cap+
             p16_contr_cont_conf_epps+
             p17_contr_cont_restr_epp_1+
             p17_contr_cont_restr_epp_2+
             p17_contr_cont_restr_epp_3+
             p17_contr_cont_restr_epp_4+
             p17_contr_cont_restr_epp_6+
             p17_contr_cont_restr_epp_7+
             p18_contr_cont_conf_eval_ri+
             p19_contr_cont_nieg_epp+
             p20_contr_cont_med_pev_1+
             p20_contr_cont_med_pev_2+
             p20_contr_cont_med_pev_3+
             p20_contr_cont_med_pev_4+
             p20_contr_cont_med_pev_5+
             p20_contr_cont_med_pev_6+
             p20_contr_cont_med_pev_7+
             p20_contr_cont_med_pev_8+
             p20_contr_cont_med_pev_9+
             p26_cond_trab_ent_protec_1+
             p26_cond_trab_ent_protec_2+
             p26_cond_trab_ent_protec_3+
             p26_cond_trab_ent_protec_4+
             #p28_cond_trab_sis_trab+
             #p32_cond_trab_est+
             #p33_cond_trab_sit_cont+
             p36_cond_trab_reasig+
             #p37_cond_trab_num_est+
             p38_cond_trab_sal_psi+
             p39_cond_trab_cult_org+
             p40_cond_trab_istas_01+
             p40_cond_trab_istas_02+
             p40_cond_trab_istas_03+
             p40_cond_trab_istas_04+
             p40_cond_trab_istas_05+
             p40_cond_trab_istas_06+
             p40_cond_trab_istas_07+
             p40_cond_trab_istas_08+
             p40_cond_trab_istas_09+
             p40_cond_trab_istas_10+
             p42_resiliencia_1+
             p42_resiliencia_2+
             p42_resiliencia_3, 
           method= c(
             agotamiento_estres_irritabilidad=3,
             estres_postraumatico=3,
             agotamiento_estres_irritabilidad_ptje=2,
             estres_postraumatico_ptje=2,
             agotamiento_estres_irritabilidad_q75=3,
              estres_postraumatico_q75=3,
             tamizaje_ans=3,
             tamizaje_dep=3,
              p8_exp_c19_cerca_cont_rec=3,
              ptjes_p9=2,
              p10_exp_c19_preocupa_llevar_rec=3,
              p11_exp_c19_miedo_pand_rec=3,
              p14_contr_cont_cap_epp_rec=3,
              p15_contr_cont_14a_eval_cap_rec=3,
              p16_contr_cont_conf_epps_rec=3,
              ptjes_p17=2,
              p17_contr_cont_restr_epp_1_rec=3,
              p18_contr_cont_conf_eval_ri_rec=3,
              p19_contr_cont_nieg_epp_rec=3,
              p20_contr_cont_med_pev_1_p20_rec=3,
              p20_contr_cont_med_pev_2_p20_rec=3,
              p20_contr_cont_med_pev_3_p20_rec=3,
              p20_contr_cont_med_pev_4_p20_rec=3,
              p20_contr_cont_med_pev_5_p20_rec=3,
              p20_contr_cont_med_pev_6_p20_rec=3,
              p20_contr_cont_med_pev_7_p20_rec=3,
              p20_contr_cont_med_pev_8_p20_rec=3,
              p20_contr_cont_med_pev_9_p20_rec=3,
              p26_cond_trab_ent_protec_1_p26_rec=3,
              p26_cond_trab_ent_protec_2_p26_rec=3,
              p26_cond_trab_ent_protec_3_p26_rec=3,
              p26_cond_trab_ent_protec_4_p26_rec=3,
              p36_cond_trab_reasig_rec=3,
              p38_cond_trab_sal_psi_rec=3,
              p39_cond_trab_cult_org_rec=3,
              p40_cond_trab_istas_01_p40_rec=3,
              p40_cond_trab_istas_02_p40_rec=3,
              p40_cond_trab_istas_03_p40_rec=3,
              p40_cond_trab_istas_04_p40_rec=3,
              p40_cond_trab_istas_05_p40_rec=3,
              p40_cond_trab_istas_06_p40_rec=3,
              p40_cond_trab_istas_07_p40_rec=3,
              p40_cond_trab_istas_08_p40_rec=3,
              p40_cond_trab_istas_09_p40_rec=3,
              p40_cond_trab_istas_10_p40_rec=3,
              p40_istas_ex_psi=2,
              p40_istas_rel_su=2,
              p40_istas_con_rol=2,
              p40_istas_rel_comp=2,
              p42_resiliencia_1_p42_rec=3,
              p42_resiliencia_2_p42_rec=3,
              p42_resiliencia_3_p42_rec=3,
              p42_res_total=2,
               p3_siente_1=3,
               p3_siente_2=3,
               p3_siente_3=3,
               p3_siente_4=3,
               p3_siente_5=3,
               p3_siente_6=3,
               p4_afront_1=3,
               p4_afront_2=3,
               p4_afront_3=3,
               p5_animo_1=3,
               p5_animo_2=3,
               p5_animo_3=3,
               p5_animo_4=3,
               agotamiento_estres_irritabilidad=2,
               estres_postraumatico=2,
               tamizaje_ans=3,
               tamizaje_dep=3,
               p6_exp_c19_pac_cont=3,
               p7_exp_c19_trab_cont=3,
               p8_exp_c19_cerca_cont=3,
               p9_exp_c19_exp_sit_dg_01=3,
               p9_exp_c19_exp_sit_dg_02=3,
               p9_exp_c19_exp_sit_dg_03=3,
               p9_exp_c19_exp_sit_dg_04=3,
               p9_exp_c19_exp_sit_dg_05=3,
               p9_exp_c19_exp_sit_dg_06=3,
               p9_exp_c19_exp_sit_dg_07=3,
               p9_exp_c19_exp_sit_dg_08=3,
               p9_exp_c19_exp_sit_dg_09=3,
               p9_exp_c19_exp_sit_dg_10=3,
               p9_exp_c19_exp_sit_dg_11=3,
               p10_exp_c19_preocupa_llevar=3,
               p11_exp_c19_miedo_pand=3,
               p12_contr_cont_imp_nec_01=3,
               p12_contr_cont_imp_nec_02=3,
               p12_contr_cont_imp_nec_03=3,
               p12_contr_cont_imp_nec_04=3,
               p12_contr_cont_imp_nec_05=3,
               p12_contr_cont_imp_nec_06=3,
               p12_contr_cont_imp_nec_07=3,
               p12_contr_cont_imp_nec_08=3,
               p12_contr_cont_imp_nec_09=3,
               p12_contr_cont_imp_nec_10=3,
               p12_contr_cont_imp_nec_11=3,
               p12_contr_cont_imp_nec_12=3,
               p13_contr_cont_imp_disp_01=3,
               p13_contr_cont_imp_disp_02=3,
               p13_contr_cont_imp_disp_03=3,
               p13_contr_cont_imp_disp_04=3,
               p13_contr_cont_imp_disp_05=3,
               p13_contr_cont_imp_disp_06=3,
               p13_contr_cont_imp_disp_07=3,
               p13_contr_cont_imp_disp_08=3,
               p13_contr_cont_imp_disp_09=3,
               p13_contr_cont_imp_disp_10=3,
               p13_contr_cont_imp_disp_11=3,
               p14_contr_cont_cap_epp=3,
               p15_contr_cont_14a_eval_cap=3,
               p16_contr_cont_conf_epps=3,
               p17_contr_cont_restr_epp_1=3,
               p17_contr_cont_restr_epp_2=3,
               p17_contr_cont_restr_epp_3=3,
               p17_contr_cont_restr_epp_4=3,
               p17_contr_cont_restr_epp_6=3,
               p17_contr_cont_restr_epp_7=3,
               p18_contr_cont_conf_eval_ri=3,
               p19_contr_cont_nieg_epp=3,
               p20_contr_cont_med_pev_1=3,
               p20_contr_cont_med_pev_2=3,
               p20_contr_cont_med_pev_3=3,
               p20_contr_cont_med_pev_4=3,
               p20_contr_cont_med_pev_5=3,
               p20_contr_cont_med_pev_6=3,
               p20_contr_cont_med_pev_7=3,
               p20_contr_cont_med_pev_8=3,
               p20_contr_cont_med_pev_9=3,
               p26_cond_trab_ent_protec_1=3,
               p26_cond_trab_ent_protec_2=3,
               p26_cond_trab_ent_protec_3=3,
               p26_cond_trab_ent_protec_4=3,
               #p28_cond_trab_sis_trab=3,
               #p32_cond_trab_est=3,
               #p33_cond_trab_sit_cont=3,
               p36_cond_trab_reasig=3,
               #p37_cond_trab_num_est=3,
               p38_cond_trab_sal_psi=3,
               p39_cond_trab_cult_org=3,
               p40_cond_trab_istas_01=3,
               p40_cond_trab_istas_02=3,
               p40_cond_trab_istas_03=3,
               p40_cond_trab_istas_04=3,
               p40_cond_trab_istas_05=3,
               p40_cond_trab_istas_06=3,
               p40_cond_trab_istas_07=3,
               p40_cond_trab_istas_08=3,
               p40_cond_trab_istas_09=3,
               p40_cond_trab_istas_10=3,
               p42_resiliencia_1=3,
               p42_resiliencia_2=3,
               p42_resiliencia_3=3),
    data = surveymonkey_accionsalududp_df2_cor_table,
    include.miss = F, #baja el número de casos
    p.corrected=T,
    chisq.test.perm=T,
    chisq.test.seed=1234,
    var.equal=T)
  )

restab1_all <- createTable(table1_all, show.p.overall = T)

pvals1 <- getResults(table1_all)
#p.adjust(pvals, method = "BH")
export2md(restab1_all, size=10, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Table 1. Descriptivo Aplicación Hospital SS Arauco",
          col.names=c("Variables", "SS Arauco", "N")
         )%>%
  kableExtra::add_footnote(c("Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;", 
                             "Variables categóricas son presentadas como el recuento y el porcentaje"), notation = "none")%>%
  kableExtra::scroll_box(width = "100%", height = "800px")

Table 1. Descriptivo Aplicación Hospital SS Arauco

Variables	SS Arauco	N
	N=82
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):		82
1	28 (34.1%)
2	27 (32.9%)
3	27 (32.9%)
Estrés Postraumático (4° Cuartil):		81
Ausencia de Indicadores de Estrés Post-traumático	61 (75.3%)
Indicadores de Estrés Post-traumático	20 (24.7%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	350 [250;400]	82
Ptjes. Estrés Postraumático	5.00 [3.00;7.00]	81
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):		82
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	37 (45.1%)
Cuartiles 1 a 3	45 (54.9%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):		81
Cuartil de mayor ptje. Estrés Postraumático	43 (53.1%)
Cuartiles 1 a 3	38 (46.9%)
Sintomatología ansiosa:		80
Ausencia de Indicadores de Sintomatología Ansiosa	34 (42.5%)
Indicadores de Sintomatología Ansiosa	46 (57.5%)
Sintomatología depresiva:		80
Ausencia de Indicadores de Sintomatología Depresiva	45 (56.2%)
Indicadores de Sintomatología Depresiva	35 (43.8%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):		78
Contacto directo y estrecho con pacientes (menos de dos metros)	25 (32.1%)
Menor o ningún contacto con pacientes	53 (67.9%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):		66
1	16 (24.2%)
2	10 (15.2%)
3	9 (13.6%)
Más de 3	31 (47.0%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):		78
Bastante/Mucho	68 (87.2%)
Un poco/Nada/No aplica	10 (12.8%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):		78
Predomina el miedo	49 (62.8%)
Predomina la ausencia de miedo	29 (37.2%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):		75
Ha sido capacitado	65 (86.7%)
No ha sido capacitado	10 (13.3%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): Regular a Excelente	65 (100%)	65
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):		72
Nada/Poco/Algo/No aplica	23 (31.9%)
Totalmente/Bastante	49 (68.1%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas):		58
1	47 (81.0%)
2	9 (15.5%)
3	1 (1.72%)
Más de 3	1 (1.72%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:		72
Empleador se ha rehusado a dar cierto tipo de EPP	16 (22.2%)
No se constata esta situación	56 (77.8%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada):		72
Algo/Bastante/Totalente/No aplica	66 (91.7%)
Poco/Nada	6 (8.33%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro (dicotomizada):		72
Incapacidad para negarse a trabajo inseguro	38 (52.8%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	34 (47.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):		68
Apropiadas/No sabe/No aplica	41 (60.3%)
Inapropiadas/Deficientes	27 (39.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada):		68
Apropiadas/No sabe/No aplica	60 (88.2%)
Inapropiadas/Deficientes	8 (11.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):		68
Apropiadas/No sabe/No aplica	61 (89.7%)
Inapropiadas/Deficientes	7 (10.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud (Dicotomizada):		68
Apropiadas/No sabe/No aplica	59 (86.8%)
Inapropiadas/Deficientes	9 (13.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):		68
Apropiadas/No sabe/No aplica	28 (41.2%)
Inapropiadas/Deficientes	40 (58.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada):		68
Apropiadas/No sabe/No aplica	48 (70.6%)
Inapropiadas/Deficientes	20 (29.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada):		68
Apropiadas/No sabe/No aplica	27 (39.7%)
Inapropiadas/Deficientes	41 (60.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):		68
Apropiadas/No sabe/No aplica	42 (61.8%)
Inapropiadas/Deficientes	26 (38.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada):		68
Apropiadas/No sabe/No aplica	57 (83.8%)
Inapropiadas/Deficientes	11 (16.2%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada):		65
Desacuerdo/Totalmente en desacuerdo	14 (21.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	51 (78.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Empleador (Dicotomizada):		65
Desacuerdo/Totalmente en desacuerdo	16 (24.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	49 (75.4%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada):		65
Desacuerdo/Totalmente en desacuerdo	46 (70.8%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	19 (29.2%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada):		65
Desacuerdo/Totalmente en desacuerdo	19 (29.2%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	46 (70.8%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal? (Dicotomizada):		59
Cambia área, labores o ambos producto de la pandemia	16 (27.1%)
Mantiene las mismas labores en la misma área	43 (72.9%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada):		58
Excelente/Buena/Regular	42 (72.4%)
Mala	16 (27.6%)
¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada):		58
De acuerdo/Totalmente de acuerdo	38 (65.5%)
Neutral/En desacuerdo/Totalmente en desacuerdo	20 (34.5%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):		58
La mayoría de las veces/Siempre	30 (51.7%)
Nunca/Sólo unas pocas veces/Algunas veces	28 (48.3%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):		58
La mayoría de las veces/Siempre	43 (74.1%)
Nunca/Sólo unas pocas veces/Algunas veces	15 (25.9%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):		58
La mayoría de las veces/Siempre	35 (60.3%)
Nunca/Sólo unas pocas veces/Algunas veces	23 (39.7%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):		58
La mayoría de las veces/Siempre	10 (17.2%)
Nunca/Sólo unas pocas veces/Algunas veces	48 (82.8%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada):		58
La mayoría de las veces/Siempre	16 (27.6%)
Nunca/Sólo unas pocas veces/Algunas veces	42 (72.4%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):		58
La mayoría de las veces/Siempre	41 (70.7%)
Nunca/Sólo unas pocas veces/Algunas veces	17 (29.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):		58
La mayoría de las veces/Siempre	38 (65.5%)
Nunca/Sólo unas pocas veces/Algunas veces	20 (34.5%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):		58
La mayoría de las veces/Siempre	42 (72.4%)
Nunca/Sólo unas pocas veces/Algunas veces	16 (27.6%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada):		58
La mayoría de las veces/Siempre	38 (65.5%)
Nunca/Sólo unas pocas veces/Algunas veces	20 (34.5%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):		58
La mayoría de las veces/Siempre	51 (87.9%)
Nunca/Sólo unas pocas veces/Algunas veces	7 (12.1%)
Suma ítems Exigencias Psicológicas ISTAS21	6.00 [4.00;7.00]	58
Suma ítems Calidad Relación con Superiores ISTAS21	9.00 [7.00;10.8]	58
Suma ítems Conflicto de Rol ISTAS21	4.00 [2.00;4.75]	58
Suma ítems Relación con Compañeros de Trabajo ISTAS21	6.00 [5.00;7.00]	58
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles (Dicotomizada):		57
Apenas cierto/Incorrecto	1 (1.75%)
Más bien cierto/Cierto	56 (98.2%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada):		57
Apenas cierto/Incorrecto	2 (3.51%)
Más bien cierto/Cierto	55 (96.5%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada):		57
Apenas cierto/Incorrecto	3 (5.26%)
Más bien cierto/Cierto	54 (94.7%)
Suma puntajes de resilencia	8.00 [7.00;9.00]	57
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:		82
Sólo unas pocas <br>veces	8 (9.76%)
Algunas veces	31 (37.8%)
La mayoría de las veces	37 (45.1%)
Siempre	6 (7.32%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:		82
Nunca	1 (1.22%)
Sólo unas pocas <br>veces	10 (12.2%)
Algunas veces	34 (41.5%)
La mayoría de las veces	32 (39.0%)
Siempre	5 (6.10%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:		82
Nunca	1 (1.22%)
Sólo unas pocas <br>veces	11 (13.4%)
Algunas veces	33 (40.2%)
La mayoría de las veces	31 (37.8%)
Siempre	6 (7.32%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:		82
Nunca	6 (7.32%)
Sólo unas pocas <br>veces	27 (32.9%)
Algunas veces	36 (43.9%)
La mayoría de las veces	11 (13.4%)
Siempre	2 (2.44%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:		82
Nunca	4 (4.88%)
Sólo unas pocas <br>veces	14 (17.1%)
Algunas veces	28 (34.1%)
La mayoría de las veces	20 (24.4%)
Siempre	16 (19.5%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:		82
Nunca	9 (11.0%)
Sólo unas pocas <br>veces	12 (14.6%)
Algunas veces	29 (35.4%)
La mayoría de las veces	19 (23.2%)
Siempre	13 (15.9%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.:		81
Nada	13 (16.0%)
Un poco	22 (27.2%)
Regular	22 (27.2%)
Bastante	20 (24.7%)
Mucho	4 (4.94%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.:		81
Nada	11 (13.6%)
Un poco	16 (19.8%)
Regular	31 (38.3%)
Bastante	17 (21.0%)
Mucho	6 (7.41%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:		81
Nada	22 (27.2%)
Un poco	34 (42.0%)
Regular	18 (22.2%)
Bastante	5 (6.17%)
Mucho	2 (2.47%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido Nervioso, ansioso o con los nervios de punta.:		80
Nunca	9 (11.2%)
Algunos días	50 (62.5%)
Más de la mitad de los días	15 (18.8%)
Casi todos los días	6 (7.50%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:		80
Nunca	6 (7.50%)
Algunos días	31 (38.8%)
Más de la mitad de los días	33 (41.2%)
Casi todos los días	10 (12.5%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas.:		80
Nunca	13 (16.2%)
Algunos días	43 (53.8%)
Más de la mitad de los días	16 (20.0%)
Casi todos los días	8 (10.0%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado.:		80
Nunca	13 (16.2%)
Algunos días	38 (47.5%)
Más de la mitad de los días	25 (31.2%)
Casi todos los días	4 (5.00%)
¿Cuántos PACIENTES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:		78
Ninguno	43 (55.1%)
1 a 10	30 (38.5%)
11 a 30	3 (3.85%)
31 a 100	1 (1.28%)
101 a 200	1 (1.28%)
¿Cuántos TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:		78
Ninguno	32 (41.0%)
Sólo uno	20 (25.6%)
2 a 10	22 (28.2%)
11 a 25	3 (3.85%)
Más de 50	1 (1.28%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:		78
Trabajo en contacto directo con pacientes	23 (29.5%)
Trabajo a menos de dos metros de pacientes	2 (2.56%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia)	1 (1.28%)
Trabajo en el mismo piso/sala/departamento	10 (12.8%)
Como parte de mi trabajo visito un piso/sala/departamento	16 (20.5%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	17 (21.8%)
Ninguno que yo esté en conocimiento	9 (11.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.:		78
0	40 (51.3%)
1	38 (48.7%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.:		78
0	61 (78.2%)
1	17 (21.8%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de la exposición a COVID-19.:		78
0	56 (71.8%)
1	22 (28.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.:		78
0	42 (53.8%)
1	36 (46.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de los síntomas.:		78
0	69 (88.5%)
1	9 (11.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le dijeron que trabajara a pesar de no contar con EPP’s.:		78
0	61 (78.2%)
1	17 (21.8%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que se aislara.:		78
0	56 (71.8%)
1	22 (28.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Se hizo el examen para descartar COVID-19.:		78
0	32 (41.0%)
1	46 (59.0%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.:		78
0	63 (80.8%)
1	15 (19.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:		78
0	71 (91.0%)
1	7 (8.97%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.:		78
FALSE	66 (84.6%)
TRUE	12 (15.4%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:		78
Nada	1 (1.28%)
Un poco	9 (11.5%)
Bastante	18 (23.1%)
Mucho	50 (64.1%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:		78
1 (Poco o nada)	1 (1.28%)
2	1 (1.28%)
3	4 (5.13%)
4	7 (8.97%)
5	16 (20.5%)
6	13 (16.7%)
7	14 (17.9%)
8	12 (15.4%)
9	8 (10.3%)
10 (Tanto miedo como nunca he sentido)	2 (2.56%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:		75
FALSE	23 (30.7%)
TRUE	52 (69.3%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):		75
FALSE	34 (45.3%)
TRUE	41 (54.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:		75
FALSE	30 (40.0%)
TRUE	45 (60.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:		75
FALSE	70 (93.3%)
TRUE	5 (6.67%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:		75
FALSE	6 (8.00%)
TRUE	69 (92.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:		75
FALSE	13 (17.3%)
TRUE	62 (82.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:		75
FALSE	15 (20.0%)
TRUE	60 (80.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	75 (100%)	75
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:		75
FALSE	22 (29.3%)
TRUE	53 (70.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:		75
FALSE	34 (45.3%)
TRUE	41 (54.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:		75
FALSE	66 (88.0%)
TRUE	9 (12.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	75 (100%)	75
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.:		75
Suficiente	46 (61.3%)
Insuficiente	19 (25.3%)
No Aplica	10 (13.3%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector de ojos.:		75
Suficiente	21 (28.0%)
Insuficiente	42 (56.0%)
No Aplica	12 (16.0%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.:		75
Suficiente	39 (52.0%)
Insuficiente	29 (38.7%)
No Aplica	7 (9.33%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.:		75
Suficiente	9 (12.0%)
Insuficiente	19 (25.3%)
No Aplica	47 (62.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Desinfectante de manos.:		75
Suficiente	62 (82.7%)
Insuficiente	11 (14.7%)
No Aplica	2 (2.67%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla quirúrgica.:		75
Suficiente	52 (69.3%)
Insuficiente	22 (29.3%)
No Aplica	1 (1.33%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla N95.:		75
Suficiente	24 (32.0%)
Insuficiente	44 (58.7%)
No Aplica	7 (9.33%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Respiradores de partículas de aire impulsado.:		75
Insuficiente	19 (25.3%)
No Aplica	56 (74.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Delantal/Pechera.:		75
Suficiente	46 (61.3%)
Insuficiente	18 (24.0%)
No Aplica	11 (14.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cofia.:		75
Suficiente	24 (32.0%)
Insuficiente	32 (42.7%)
No Aplica	19 (25.3%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cubre calzado.:		75
Suficiente	2 (2.67%)
Insuficiente	28 (37.3%)
No Aplica	45 (60.0%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:		75
Sí, en el último mes	2 (2.67%)
Sí, en los últimos 6 meses	27 (36.0%)
Sí, el año pasado	32 (42.7%)
Sí, hace 2-5 años	3 (4.00%)
Sí, hace más de 5 años	1 (1.33%)
No he sido capacitado	10 (13.3%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:		65
Excelente	4 (6.15%)
Buena	32 (49.2%)
Regular	29 (44.6%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:		72
Poco	5 (6.94%)
Algo	17 (23.6%)
Bastante	41 (56.9%)
Totalmente	8 (11.1%)
No aplica	1 (1.39%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Mi empleador se ha rehusado a dar cierto tipo de EPP.:		72
0	56 (77.8%)
1	16 (22.2%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Necesito permiso para utilizar algún EPP específico.:		72
0	58 (80.6%)
1	14 (19.4%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar mi propio EPP.:		72
0	68 (94.4%)
1	4 (5.56%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar EPP’s utilizados previamente por otros.:		72
0	55 (76.4%)
1	17 (23.6%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica:		72
FALSE	58 (80.6%)
TRUE	14 (19.4%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Otro (especifique).:		5
He comprado mis EPP´S	1 (20.0%)
La mascarilla hay que hacerla durar 7 dias	1 (20.0%)
Reutilizar por 7 días la mascarilla kn95 y guardarla al terminar el turno	1 (20.0%)
si no trabajan no pagan	1 (20.0%)
Uso restringido de epp	1 (20.0%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:		72
Poco	6 (8.33%)
Algo	21 (29.2%)
Bastante	40 (55.6%)
Totalmente	5 (6.94%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro::		72
Negarme a trabajar no es una opción legalmente disponible para mí	8 (11.1%)
Definitivamente, no es posible negarme a trabajar	9 (12.5%)
Es improbable que pueda negarme a trabajar	10 (13.9%)
Quizás, en una situación extrema podría negarme a trabajar	17 (23.6%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	17 (23.6%)
Definitivamente, no dudaría en negarme a trabajar	11 (15.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.:		68
Apropiadas y bien implementadas	17 (25.0%)
Apropiadas pero mal implementadas	19 (27.9%)
Inapropiadas	4 (5.88%)
Deficientes	23 (33.8%)
No sabe	4 (5.88%)
No aplica	1 (1.47%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.:		68
Apropiadas y bien implementadas	31 (45.6%)
Apropiadas pero mal implementadas	18 (26.5%)
Inapropiadas	2 (2.94%)
Deficientes	6 (8.82%)
No sabe	4 (5.88%)
No aplica	7 (10.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.:		68
Apropiadas y bien implementadas	40 (58.8%)
Apropiadas pero mal implementadas	11 (16.2%)
Inapropiadas	4 (5.88%)
Deficientes	3 (4.41%)
No sabe	5 (7.35%)
No aplica	5 (7.35%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.:		68
Apropiadas y bien implementadas	32 (47.1%)
Apropiadas pero mal implementadas	18 (26.5%)
Inapropiadas	3 (4.41%)
Deficientes	6 (8.82%)
No sabe	8 (11.8%)
No aplica	1 (1.47%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:		68
Apropiadas y bien implementadas	8 (11.8%)
Apropiadas pero mal implementadas	6 (8.82%)
Inapropiadas	13 (19.1%)
Deficientes	27 (39.7%)
No sabe	9 (13.2%)
No aplica	5 (7.35%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:		68
Apropiadas y bien implementadas	20 (29.4%)
Apropiadas pero mal implementadas	11 (16.2%)
Inapropiadas	6 (8.82%)
Deficientes	14 (20.6%)
No sabe	9 (13.2%)
No aplica	8 (11.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.:		68
Apropiadas y bien implementadas	6 (8.82%)
Apropiadas pero mal implementadas	11 (16.2%)
Inapropiadas	11 (16.2%)
Deficientes	30 (44.1%)
No sabe	7 (10.3%)
No aplica	3 (4.41%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:		68
Apropiadas y bien implementadas	9 (13.2%)
Apropiadas pero mal implementadas	5 (7.35%)
Inapropiadas	5 (7.35%)
Deficientes	21 (30.9%)
No sabe	19 (27.9%)
No aplica	9 (13.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:		68
Apropiadas y bien implementadas	28 (41.2%)
Apropiadas pero mal implementadas	9 (13.2%)
Inapropiadas	3 (4.41%)
Deficientes	8 (11.8%)
No sabe	17 (25.0%)
No aplica	3 (4.41%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Sindicato/gremio.:		65
Totalmente de acuerdo	7 (10.8%)
De acuerdo	20 (30.8%)
Ni de acuerdo ni en desacuerdo	24 (36.9%)
En desacuerdo	11 (16.9%)
Totalmente en desacuerdo	3 (4.62%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Empleador.:		65
Totalmente de acuerdo	5 (7.69%)
De acuerdo	20 (30.8%)
Ni de acuerdo ni en desacuerdo	24 (36.9%)
En desacuerdo	15 (23.1%)
Totalmente en desacuerdo	1 (1.54%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Gobierno.:		65
Totalmente de acuerdo	2 (3.08%)
De acuerdo	5 (7.69%)
Ni de acuerdo ni en desacuerdo	12 (18.5%)
En desacuerdo	31 (47.7%)
Totalmente en desacuerdo	15 (23.1%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.:		65
Totalmente de acuerdo	1 (1.54%)
De acuerdo	13 (20.0%)
Ni de acuerdo ni en desacuerdo	32 (49.2%)
En desacuerdo	14 (21.5%)
Totalmente en desacuerdo	5 (7.69%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?:		59
Mantengo las mismas labores	43 (72.9%)
Mantengo las mismas labores, pero en un área distinta	5 (8.47%)
Mantengo las mismas labores, pero en un lugar físico distinto	1 (1.69%)
Mantengo las mismas labores, pero en área y lugar físico distintos	1 (1.69%)
Distintas labores, pero en la misma área	4 (6.78%)
Distintas labores, pero en el mismo lugar físico	2 (3.39%)
Labores, área y lugar físico distintos	3 (5.08%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?:		58
Buena	7 (12.1%)
Regular	35 (60.3%)
Mala	16 (27.6%)
¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.:		58
Totalmente de acuerdo	14 (24.1%)
De acuerdo	24 (41.4%)
Neutral	14 (24.1%)
En desacuerdo	4 (6.90%)
Totalmente en desacuerdo	2 (3.45%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:		58
Siempre	13 (22.4%)
La mayoría <br>de las veces	17 (29.3%)
Algunas veces	22 (37.9%)
Sólo unas <br>pocas veces	5 (8.62%)
Nunca	1 (1.72%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:		58
Siempre	13 (22.4%)
La mayoría <br>de las veces	30 (51.7%)
Algunas veces	10 (17.2%)
Sólo unas <br>pocas veces	4 (6.90%)
Nunca	1 (1.72%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:		58
Siempre	6 (10.3%)
La mayoría <br>de las veces	29 (50.0%)
Algunas veces	18 (31.0%)
Sólo unas <br>pocas veces	5 (8.62%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:		58
Siempre	4 (6.90%)
La mayoría <br>de las veces	6 (10.3%)
Algunas veces	24 (41.4%)
Sólo unas <br>pocas veces	15 (25.9%)
Nunca	9 (15.5%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:		58
Siempre	5 (8.62%)
La mayoría <br>de las veces	11 (19.0%)
Algunas veces	28 (48.3%)
Sólo unas <br>pocas veces	12 (20.7%)
Nunca	2 (3.45%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:		58
Siempre	21 (36.2%)
La mayoría <br>de las veces	20 (34.5%)
Algunas veces	8 (13.8%)
Sólo unas <br>pocas veces	7 (12.1%)
Nunca	2 (3.45%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:		58
Siempre	19 (32.8%)
La mayoría <br>de las veces	19 (32.8%)
Algunas veces	11 (19.0%)
Sólo unas <br>pocas veces	5 (8.62%)
Nunca	4 (6.90%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:		58
Siempre	17 (29.3%)
La mayoría <br>de las veces	25 (43.1%)
Algunas veces	13 (22.4%)
Sólo unas <br>pocas veces	3 (5.17%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:		58
Siempre	13 (22.4%)
La mayoría <br>de las veces	25 (43.1%)
Algunas veces	16 (27.6%)
Sólo unas <br>pocas veces	2 (3.45%)
Nunca	2 (3.45%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:		58
Siempre	38 (65.5%)
La mayoría <br>de las veces	13 (22.4%)
Algunas veces	6 (10.3%)
Nunca	1 (1.72%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles.:		57
Apenas cierto	1 (1.75%)
Más bien cierto	20 (35.1%)
Cierto	36 (63.2%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.:		57
Apenas cierto	2 (3.51%)
Más bien cierto	20 (35.1%)
Cierto	35 (61.4%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas.:		57
Apenas cierto	3 (5.26%)
Más bien cierto	22 (38.6%)
Cierto	32 (56.1%)
Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;
Variables categóricas son presentadas como el recuento y el porcentaje

#janitor::tabyl(p20_contr_cont_med_pev_1_simpler)
#   p27_cond_trab_sup_jef
table2_sex <- suppressWarnings(compareGroups(p45_demo_sexo ~ 
            agotamiento_estres_irritabilidad+
            estres_postraumatico+
            agotamiento_estres_irritabilidad_ptje+
            estres_postraumatico_ptje+
            agotamiento_estres_irritabilidad_q75+
            estres_postraumatico_q75+
            tamizaje_ans+
            tamizaje_dep+
            p8_exp_c19_cerca_cont_rec+
            ptjes_p9+
            p10_exp_c19_preocupa_llevar_rec+
            p11_exp_c19_miedo_pand_rec+
            p14_contr_cont_cap_epp_rec+
            p15_contr_cont_14a_eval_cap_rec+
            p16_contr_cont_conf_epps_rec+
            ptjes_p17+
            p17_contr_cont_restr_epp_1_rec+
            p18_contr_cont_conf_eval_ri_rec+
            p19_contr_cont_nieg_epp_rec+
            p20_contr_cont_med_pev_1_p20_rec+
            p20_contr_cont_med_pev_2_p20_rec+
            p20_contr_cont_med_pev_3_p20_rec+
            p20_contr_cont_med_pev_4_p20_rec+
            p20_contr_cont_med_pev_5_p20_rec+
            p20_contr_cont_med_pev_6_p20_rec+
            p20_contr_cont_med_pev_7_p20_rec+
            p20_contr_cont_med_pev_8_p20_rec+
            p20_contr_cont_med_pev_9_p20_rec+
            p26_cond_trab_ent_protec_1_p26_rec+
            p26_cond_trab_ent_protec_2_p26_rec+
            p26_cond_trab_ent_protec_3_p26_rec+
            p26_cond_trab_ent_protec_4_p26_rec+
            p36_cond_trab_reasig_rec+
            p38_cond_trab_sal_psi_rec+
            p39_cond_trab_cult_org_rec+
            p40_cond_trab_istas_01_p40_rec+
            p40_cond_trab_istas_02_p40_rec+
            p40_cond_trab_istas_03_p40_rec+
            p40_cond_trab_istas_04_p40_rec+
            p40_cond_trab_istas_05_p40_rec+
            p40_cond_trab_istas_06_p40_rec+
            p40_cond_trab_istas_07_p40_rec+
            p40_cond_trab_istas_08_p40_rec+
            p40_cond_trab_istas_09_p40_rec+
            p40_cond_trab_istas_10_p40_rec+
            p40_istas_ex_psi+
            p40_istas_rel_su+
            p40_istas_con_rol+
            p40_istas_rel_comp+
            p42_resiliencia_1_p42_rec+
            p42_resiliencia_2_p42_rec+
            p42_resiliencia_3_p42_rec+
            p42_res_total+
             p3_siente_1+
             p3_siente_2+
             p3_siente_3+
             p3_siente_4+
             p3_siente_5+
             p3_siente_6+
             p4_afront_1+
             p4_afront_2+
             p4_afront_3+
             p5_animo_1+
             p5_animo_2+
             p5_animo_3+
             p5_animo_4+
             p6_exp_c19_pac_cont+
             p7_exp_c19_trab_cont+
             p8_exp_c19_cerca_cont+
             p9_exp_c19_exp_sit_dg_01+
             p9_exp_c19_exp_sit_dg_02+
             p9_exp_c19_exp_sit_dg_03+
             p9_exp_c19_exp_sit_dg_04+
             p9_exp_c19_exp_sit_dg_05+
             p9_exp_c19_exp_sit_dg_06+
             p9_exp_c19_exp_sit_dg_07+
             p9_exp_c19_exp_sit_dg_08+
             p9_exp_c19_exp_sit_dg_09+
             p9_exp_c19_exp_sit_dg_10+
             p9_exp_c19_exp_sit_dg_11+
             p10_exp_c19_preocupa_llevar+
             p11_exp_c19_miedo_pand+
             p12_contr_cont_imp_nec_01+
             p12_contr_cont_imp_nec_02+
             p12_contr_cont_imp_nec_03+
             p12_contr_cont_imp_nec_04+
             p12_contr_cont_imp_nec_05+
             p12_contr_cont_imp_nec_06+
             p12_contr_cont_imp_nec_07+
             p12_contr_cont_imp_nec_08+
             p12_contr_cont_imp_nec_09+
             p12_contr_cont_imp_nec_10+
             p12_contr_cont_imp_nec_11+
             p12_contr_cont_imp_nec_12+
             p13_contr_cont_imp_disp_01+
             p13_contr_cont_imp_disp_02+
             p13_contr_cont_imp_disp_03+
             p13_contr_cont_imp_disp_04+
             p13_contr_cont_imp_disp_05+
             p13_contr_cont_imp_disp_06+
             p13_contr_cont_imp_disp_07+
             p13_contr_cont_imp_disp_08+
             p13_contr_cont_imp_disp_09+
             p13_contr_cont_imp_disp_10+
             p13_contr_cont_imp_disp_11+
             p14_contr_cont_cap_epp+
             p15_contr_cont_14a_eval_cap+
             p16_contr_cont_conf_epps+
             p17_contr_cont_restr_epp_1+
             p17_contr_cont_restr_epp_2+
             p17_contr_cont_restr_epp_3+
             p17_contr_cont_restr_epp_4+
             p17_contr_cont_restr_epp_6+
             p17_contr_cont_restr_epp_7+
             p18_contr_cont_conf_eval_ri+
             p19_contr_cont_nieg_epp+
             p20_contr_cont_med_pev_1+
             p20_contr_cont_med_pev_2+
             p20_contr_cont_med_pev_3+
             p20_contr_cont_med_pev_4+
             p20_contr_cont_med_pev_5+
             p20_contr_cont_med_pev_6+
             p20_contr_cont_med_pev_7+
             p20_contr_cont_med_pev_8+
             p20_contr_cont_med_pev_9+
             p26_cond_trab_ent_protec_1+
             p26_cond_trab_ent_protec_2+
             p26_cond_trab_ent_protec_3+
             p26_cond_trab_ent_protec_4+
             #p28_cond_trab_sis_trab+
             #p32_cond_trab_est+
             #p33_cond_trab_sit_cont+
             p36_cond_trab_reasig+
             #p37_cond_trab_num_est+
             p38_cond_trab_sal_psi+
             p39_cond_trab_cult_org+
             p40_cond_trab_istas_01+
             p40_cond_trab_istas_02+
             p40_cond_trab_istas_03+
             p40_cond_trab_istas_04+
             p40_cond_trab_istas_05+
             p40_cond_trab_istas_06+
             p40_cond_trab_istas_07+
             p40_cond_trab_istas_08+
             p40_cond_trab_istas_09+
             p40_cond_trab_istas_10+
             p42_resiliencia_1+
             p42_resiliencia_2+
             p42_resiliencia_3, 
           method= c(
              agotamiento_estres_irritabilidad=3,
              estres_postraumatico=3,
              agotamiento_estres_irritabilidad_ptje=2,
              estres_postraumatico_ptje=2,
              agotamiento_estres_irritabilidad_q75=3,
              estres_postraumatico_q75=3,
              tamizaje_ans=3,
              tamizaje_dep=3,
              p8_exp_c19_cerca_cont_rec=3,
              ptjes_p9=2,
              p10_exp_c19_preocupa_llevar_rec=3,
              p11_exp_c19_miedo_pand_rec=3,
              p14_contr_cont_cap_epp_rec=3,
              p15_contr_cont_14a_eval_cap_rec=3,
              p16_contr_cont_conf_epps_rec=3,
              ptjes_p17=2,
              p17_contr_cont_restr_epp_1_rec=3,
              p18_contr_cont_conf_eval_ri_rec=3,
              p19_contr_cont_nieg_epp_rec=3,
              p20_contr_cont_med_pev_1_p20_rec=3,
              p20_contr_cont_med_pev_2_p20_rec=3,
              p20_contr_cont_med_pev_3_p20_rec=3,
              p20_contr_cont_med_pev_4_p20_rec=3,
              p20_contr_cont_med_pev_5_p20_rec=3,
              p20_contr_cont_med_pev_6_p20_rec=3,
              p20_contr_cont_med_pev_7_p20_rec=3,
              p20_contr_cont_med_pev_8_p20_rec=3,
              p20_contr_cont_med_pev_9_p20_rec=3,
              p26_cond_trab_ent_protec_1_p26_rec=3,
              p26_cond_trab_ent_protec_2_p26_rec=3,
              p26_cond_trab_ent_protec_3_p26_rec=3,
              p26_cond_trab_ent_protec_4_p26_rec=3,
              p36_cond_trab_reasig_rec=3,
              p38_cond_trab_sal_psi_rec=3,
              p39_cond_trab_cult_org_rec=3,
              p40_cond_trab_istas_01_p40_rec=3,
              p40_cond_trab_istas_02_p40_rec=3,
              p40_cond_trab_istas_03_p40_rec=3,
              p40_cond_trab_istas_04_p40_rec=3,
              p40_cond_trab_istas_05_p40_rec=3,
              p40_cond_trab_istas_06_p40_rec=3,
              p40_cond_trab_istas_07_p40_rec=3,
              p40_cond_trab_istas_08_p40_rec=3,
              p40_cond_trab_istas_09_p40_rec=3,
              p40_cond_trab_istas_10_p40_rec=3,
              p40_istas_ex_psi=2,
              p40_istas_rel_su=2,
              p40_istas_con_rol=2,
              p40_istas_rel_comp=2,
              p42_resiliencia_1_p42_rec=3,
              p42_resiliencia_2_p42_rec=3,
              p42_resiliencia_3_p42_rec=3,
              p42_res_total=2,
               p3_siente_1=3,
               p3_siente_2=3,
               p3_siente_3=3,
               p3_siente_4=3,
               p3_siente_5=3,
               p3_siente_6=3,
               p4_afront_1=3,
               p4_afront_2=3,
               p4_afront_3=3,
               p5_animo_1=3,
               p5_animo_2=3,
               p5_animo_3=3,
               p5_animo_4=3,
               agotamiento_estres_irritabilidad=2,
               estres_postraumatico=2,
               tamizaje_ans=3,
               tamizaje_dep=3,
               p6_exp_c19_pac_cont=3,
               p7_exp_c19_trab_cont=3,
               p8_exp_c19_cerca_cont=3,
               p9_exp_c19_exp_sit_dg_01=3,
               p9_exp_c19_exp_sit_dg_02=3,
               p9_exp_c19_exp_sit_dg_03=3,
               p9_exp_c19_exp_sit_dg_04=3,
               p9_exp_c19_exp_sit_dg_05=3,
               p9_exp_c19_exp_sit_dg_06=3,
               p9_exp_c19_exp_sit_dg_07=3,
               p9_exp_c19_exp_sit_dg_08=3,
               p9_exp_c19_exp_sit_dg_09=3,
               p9_exp_c19_exp_sit_dg_10=3,
               p9_exp_c19_exp_sit_dg_11=3,
               p10_exp_c19_preocupa_llevar=3,
               p11_exp_c19_miedo_pand=3,
               p12_contr_cont_imp_nec_01=3,
               p12_contr_cont_imp_nec_02=3,
               p12_contr_cont_imp_nec_03=3,
               p12_contr_cont_imp_nec_04=3,
               p12_contr_cont_imp_nec_05=3,
               p12_contr_cont_imp_nec_06=3,
               p12_contr_cont_imp_nec_07=3,
               p12_contr_cont_imp_nec_08=3,
               p12_contr_cont_imp_nec_09=3,
               p12_contr_cont_imp_nec_10=3,
               p12_contr_cont_imp_nec_11=3,
               p12_contr_cont_imp_nec_12=3,
               p13_contr_cont_imp_disp_01=3,
               p13_contr_cont_imp_disp_02=3,
               p13_contr_cont_imp_disp_03=3,
               p13_contr_cont_imp_disp_04=3,
               p13_contr_cont_imp_disp_05=3,
               p13_contr_cont_imp_disp_06=3,
               p13_contr_cont_imp_disp_07=3,
               p13_contr_cont_imp_disp_08=3,
               p13_contr_cont_imp_disp_09=3,
               p13_contr_cont_imp_disp_10=3,
               p13_contr_cont_imp_disp_11=3,
               p14_contr_cont_cap_epp=3,
               p15_contr_cont_14a_eval_cap=3,
               p16_contr_cont_conf_epps=3,
               p17_contr_cont_restr_epp_1=3,
               p17_contr_cont_restr_epp_2=3,
               p17_contr_cont_restr_epp_3=3,
               p17_contr_cont_restr_epp_4=3,
               p17_contr_cont_restr_epp_6=3,
               p17_contr_cont_restr_epp_7=3,
               p18_contr_cont_conf_eval_ri=3,
               p19_contr_cont_nieg_epp=3,
               p20_contr_cont_med_pev_1=3,
               p20_contr_cont_med_pev_2=3,
               p20_contr_cont_med_pev_3=3,
               p20_contr_cont_med_pev_4=3,
               p20_contr_cont_med_pev_5=3,
               p20_contr_cont_med_pev_6=3,
               p20_contr_cont_med_pev_7=3,
               p20_contr_cont_med_pev_8=3,
               p20_contr_cont_med_pev_9=3,
               p26_cond_trab_ent_protec_1=3,
               p26_cond_trab_ent_protec_2=3,
               p26_cond_trab_ent_protec_3=3,
               p26_cond_trab_ent_protec_4=3,
               #p28_cond_trab_sis_trab=3,
               #p32_cond_trab_est=3,
               #p33_cond_trab_sit_cont=3,
               p36_cond_trab_reasig=3,
               #p37_cond_trab_num_est=3,
               p38_cond_trab_sal_psi=3,
               p39_cond_trab_cult_org=3,
               p40_cond_trab_istas_01=3,
               p40_cond_trab_istas_02=3,
               p40_cond_trab_istas_03=3,
               p40_cond_trab_istas_04=3,
               p40_cond_trab_istas_05=3,
               p40_cond_trab_istas_06=3,
               p40_cond_trab_istas_07=3,
               p40_cond_trab_istas_08=3,
               p40_cond_trab_istas_09=3,
               p40_cond_trab_istas_10=3,
               p42_resiliencia_1=3,
               p42_resiliencia_2=3,
               p42_resiliencia_3=3),
    data = surveymonkey_accionsalududp_df2_cor_table,
    include.miss = F, #baja el número de casos
    p.corrected=T,
    chisq.test.perm=T,
    chisq.test.seed=1234,
    var.equal=T)
  )


restab2_sex <- createTable(table2_sex, show.p.overall = T)

pvals2 <- getResults(table2_sex)
#p.adjust(pvals, method = "BH")
export2md(restab2_sex, size=10, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Tabla 2. Descriptivo Aplicación Hospital Roberto del Río por Sexo",
          col.names=c("Variables", "Hombres", "Mujeres", "Sig.")
         )%>%
  kableExtra::add_footnote(c("Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;", 
                             "Variables categóricas son presentadas como el recuento y el porcentaje"), notation = "none")%>%
  kableExtra::scroll_box(width = "100%", height = "800px")

Tabla 2. Descriptivo Aplicación Hospital Roberto del Río por Sexo

Variables	Hombres	Mujeres	Sig.
	N=6	N=51
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):			0.481
1	2 (33.3%)	18 (35.3%)
2	3 (50.0%)	14 (27.5%)
3	1 (16.7%)	19 (37.3%)
Estrés Postraumático (4° Cuartil):			1.000
Ausencia de Indicadores de Estrés Post-traumático	4 (66.7%)	38 (74.5%)
Indicadores de Estrés Post-traumático	2 (33.3%)	13 (25.5%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	362 [294;375]	350 [250;400]	0.725
Ptjes. Estrés Postraumático	5.50 [4.25;6.75]	5.00 [2.50;7.00]	0.456
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):			1.000
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	3 (50.0%)	24 (47.1%)
Cuartiles 1 a 3	3 (50.0%)	27 (52.9%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):			0.668
Cuartil de mayor ptje. Estrés Postraumático	4 (66.7%)	26 (51.0%)
Cuartiles 1 a 3	2 (33.3%)	25 (49.0%)
Sintomatología ansiosa:			1.000
Ausencia de Indicadores de Sintomatología Ansiosa	2 (33.3%)	21 (41.2%)
Indicadores de Sintomatología Ansiosa	4 (66.7%)	30 (58.8%)
Sintomatología depresiva:			0.206
Ausencia de Indicadores de Sintomatología Depresiva	5 (83.3%)	27 (52.9%)
Indicadores de Sintomatología Depresiva	1 (16.7%)	24 (47.1%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):			0.405
Contacto directo y estrecho con pacientes (menos de dos metros)	1 (16.7%)	19 (37.3%)
Menor o ningún contacto con pacientes	5 (83.3%)	32 (62.7%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):			0.065
1	0 (0.00%)	11 (25.6%)
2	3 (50.0%)	5 (11.6%)
3	0 (0.00%)	8 (18.6%)
Más de 3	3 (50.0%)	19 (44.2%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):			0.588
Bastante/Mucho	6 (100%)	44 (86.3%)
Un poco/Nada/No aplica	0 (0.00%)	7 (13.7%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):			0.651
Predomina el miedo	3 (50.0%)	33 (64.7%)
Predomina la ausencia de miedo	3 (50.0%)	18 (35.3%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):			0.588
Ha sido capacitado	6 (100%)	44 (86.3%)
No ha sido capacitado	0 (0.00%)	7 (13.7%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): Regular a Excelente	6 (100%)	44 (100%)	.
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):			0.659
Nada/Poco/Algo/No aplica	1 (16.7%)	15 (29.4%)
Totalmente/Bastante	5 (83.3%)	36 (70.6%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas):			1.000
1	5 (83.3%)	34 (81.0%)
2	1 (16.7%)	6 (14.3%)
3	0 (0.00%)	1 (2.38%)
Más de 3	0 (0.00%)	1 (2.38%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:			0.593
Empleador se ha rehusado a dar cierto tipo de EPP	2 (33.3%)	10 (19.6%)
No se constata esta situación	4 (66.7%)	41 (80.4%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada):			1.000
Algo/Bastante/Totalente/No aplica	6 (100%)	47 (92.2%)
Poco/Nada	0 (0.00%)	4 (7.84%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro (dicotomizada):			0.676
Incapacidad para negarse a trabajo inseguro	4 (66.7%)	28 (54.9%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	2 (33.3%)	23 (45.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):			0.661
Apropiadas/No sabe/No aplica	3 (50.0%)	32 (62.7%)
Inapropiadas/Deficientes	3 (50.0%)	19 (37.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	5 (83.3%)	45 (88.2%)
Inapropiadas/Deficientes	1 (16.7%)	6 (11.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):			0.638
Apropiadas/No sabe/No aplica	6 (100%)	46 (90.2%)
Inapropiadas/Deficientes	0 (0.00%)	5 (9.80%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	5 (83.3%)	44 (86.3%)
Inapropiadas/Deficientes	1 (16.7%)	7 (13.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	2 (33.3%)	21 (41.2%)
Inapropiadas/Deficientes	4 (66.7%)	30 (58.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	4 (66.7%)	38 (74.5%)
Inapropiadas/Deficientes	2 (33.3%)	13 (25.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	3 (50.0%)	22 (43.1%)
Inapropiadas/Deficientes	3 (50.0%)	29 (56.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):			0.173
Apropiadas/No sabe/No aplica	2 (33.3%)	34 (66.7%)
Inapropiadas/Deficientes	4 (66.7%)	17 (33.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	5 (83.3%)	44 (86.3%)
Inapropiadas/Deficientes	1 (16.7%)	7 (13.7%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada):			0.306
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	14 (27.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	6 (100%)	37 (72.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Empleador (Dicotomizada):			0.325
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	11 (21.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	6 (100%)	40 (78.4%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada):			0.646
Desacuerdo/Totalmente en desacuerdo	3 (50.0%)	35 (68.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	3 (50.0%)	16 (31.4%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada):			0.659
Desacuerdo/Totalmente en desacuerdo	1 (16.7%)	15 (29.4%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	5 (83.3%)	36 (70.6%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal? (Dicotomizada):			0.659
Cambia área, labores o ambos producto de la pandemia	1 (16.7%)	15 (29.4%)
Mantiene las mismas labores en la misma área	5 (83.3%)	36 (70.6%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada):			1.000
Excelente/Buena/Regular	4 (66.7%)	38 (74.5%)
Mala	2 (33.3%)	13 (25.5%)
¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada):			1.000
De acuerdo/Totalmente de acuerdo	4 (66.7%)	33 (64.7%)
Neutral/En desacuerdo/Totalmente en desacuerdo	2 (33.3%)	18 (35.3%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	3 (50.0%)	26 (51.0%)
Nunca/Sólo unas pocas veces/Algunas veces	3 (50.0%)	25 (49.0%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):			0.670
La mayoría de las veces/Siempre	5 (83.3%)	37 (72.5%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (16.7%)	14 (27.5%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	4 (66.7%)	31 (60.8%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (33.3%)	20 (39.2%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):			0.570
La mayoría de las veces/Siempre	0 (0.00%)	9 (17.6%)
Nunca/Sólo unas pocas veces/Algunas veces	6 (100%)	42 (82.4%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	2 (33.3%)	13 (25.5%)
Nunca/Sólo unas pocas veces/Algunas veces	4 (66.7%)	38 (74.5%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):			0.659
La mayoría de las veces/Siempre	5 (83.3%)	36 (70.6%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (16.7%)	15 (29.4%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):			0.646
La mayoría de las veces/Siempre	5 (83.3%)	33 (64.7%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (16.7%)	18 (35.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):			0.163
La mayoría de las veces/Siempre	6 (100%)	35 (68.6%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	16 (31.4%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada):			0.647
La mayoría de las veces/Siempre	3 (50.0%)	34 (66.7%)
Nunca/Sólo unas pocas veces/Algunas veces	3 (50.0%)	17 (33.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):			0.146
La mayoría de las veces/Siempre	4 (66.7%)	46 (90.2%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (33.3%)	5 (9.80%)
Suma ítems Exigencias Psicológicas ISTAS21	5.50 [5.00;6.00]	6.00 [4.00;7.00]	0.916
Suma ítems Calidad Relación con Superiores ISTAS21	9.00 [9.00;9.75]	9.00 [7.00;11.0]	0.581
Suma ítems Conflicto de Rol ISTAS21	3.50 [3.00;4.75]	4.00 [2.00;4.00]	0.915
Suma ítems Relación con Compañeros de Trabajo ISTAS21	5.50 [5.00;6.75]	6.00 [5.00;7.00]	0.781
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles (Dicotomizada):			1.000
Apenas cierto/Incorrecto	0 (0.00%)	1 (1.96%)
Más bien cierto/Cierto	6 (100%)	50 (98.0%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada):			1.000
Apenas cierto/Incorrecto	0 (0.00%)	2 (3.92%)
Más bien cierto/Cierto	6 (100%)	49 (96.1%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada):			1.000
Apenas cierto/Incorrecto	0 (0.00%)	3 (5.88%)
Más bien cierto/Cierto	6 (100%)	48 (94.1%)
Suma puntajes de resilencia	8.00 [7.25;8.75]	8.00 [6.00;9.00]	0.827
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:			0.945
Sólo unas pocas <br>veces	1 (16.7%)	5 (9.80%)
Algunas veces	3 (50.0%)	21 (41.2%)
La mayoría de las veces	2 (33.3%)	19 (37.3%)
Siempre	0 (0.00%)	6 (11.8%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:			0.326
Nunca	0 (0.00%)	1 (1.96%)
Sólo unas pocas <br>veces	2 (33.3%)	4 (7.84%)
Algunas veces	2 (33.3%)	24 (47.1%)
La mayoría de las veces	2 (33.3%)	18 (35.3%)
Siempre	0 (0.00%)	4 (7.84%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:			0.477
Sólo unas pocas <br>veces	0 (0.00%)	8 (15.7%)
Algunas veces	4 (66.7%)	19 (37.3%)
La mayoría de las veces	2 (33.3%)	19 (37.3%)
Siempre	0 (0.00%)	5 (9.80%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:			0.308
Nunca	0 (0.00%)	4 (7.84%)
Sólo unas pocas <br>veces	2 (33.3%)	17 (33.3%)
Algunas veces	3 (50.0%)	20 (39.2%)
La mayoría de las veces	0 (0.00%)	9 (17.6%)
Siempre	1 (16.7%)	1 (1.96%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:			0.034
Nunca	1 (16.7%)	0 (0.00%)
Sólo unas pocas <br>veces	0 (0.00%)	11 (21.6%)
Algunas veces	3 (50.0%)	16 (31.4%)
La mayoría de las veces	0 (0.00%)	13 (25.5%)
Siempre	2 (33.3%)	11 (21.6%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:			0.428
Nunca	1 (16.7%)	4 (7.84%)
Sólo unas pocas <br>veces	0 (0.00%)	9 (17.6%)
Algunas veces	3 (50.0%)	18 (35.3%)
La mayoría de las veces	2 (33.3%)	9 (17.6%)
Siempre	0 (0.00%)	11 (21.6%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.:			0.731
Nada	0 (0.00%)	9 (17.6%)
Un poco	2 (33.3%)	14 (27.5%)
Regular	3 (50.0%)	15 (29.4%)
Bastante	1 (16.7%)	11 (21.6%)
Mucho	0 (0.00%)	2 (3.92%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.:			0.506
Nada	0 (0.00%)	7 (13.7%)
Un poco	1 (16.7%)	11 (21.6%)
Regular	2 (33.3%)	19 (37.3%)
Bastante	3 (50.0%)	10 (19.6%)
Mucho	0 (0.00%)	4 (7.84%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:			0.046
Nada	1 (16.7%)	14 (27.5%)
Un poco	4 (66.7%)	19 (37.3%)
Regular	0 (0.00%)	13 (25.5%)
Bastante	0 (0.00%)	5 (9.80%)
Mucho	1 (16.7%)	0 (0.00%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido Nervioso, ansioso o con los nervios de punta.:			0.597
Nunca	0 (0.00%)	5 (9.80%)
Algunos días	5 (83.3%)	33 (64.7%)
Más de la mitad de los días	0 (0.00%)	9 (17.6%)
Casi todos los días	1 (16.7%)	4 (7.84%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:			0.504
Nunca	1 (16.7%)	3 (5.88%)
Algunos días	1 (16.7%)	21 (41.2%)
Más de la mitad de los días	3 (50.0%)	22 (43.1%)
Casi todos los días	1 (16.7%)	5 (9.80%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas.:			0.583
Nunca	0 (0.00%)	6 (11.8%)
Algunos días	5 (83.3%)	29 (56.9%)
Más de la mitad de los días	1 (16.7%)	10 (19.6%)
Casi todos los días	0 (0.00%)	6 (11.8%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado.:			0.203
Nunca	0 (0.00%)	7 (13.7%)
Algunos días	5 (83.3%)	26 (51.0%)
Más de la mitad de los días	0 (0.00%)	15 (29.4%)
Casi todos los días	1 (16.7%)	3 (5.88%)
¿Cuántos PACIENTES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:			1.000
Ninguno	3 (50.0%)	27 (52.9%)
1 a 10	3 (50.0%)	20 (39.2%)
11 a 30	0 (0.00%)	2 (3.92%)
31 a 100	0 (0.00%)	1 (1.96%)
101 a 200	0 (0.00%)	1 (1.96%)
¿Cuántos TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:			0.059
Ninguno	1 (16.7%)	23 (45.1%)
Sólo uno	4 (66.7%)	10 (19.6%)
2 a 10	0 (0.00%)	16 (31.4%)
11 a 25	1 (16.7%)	1 (1.96%)
Más de 50	0 (0.00%)	1 (1.96%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:			0.683
Trabajo en contacto directo con pacientes	1 (16.7%)	17 (33.3%)
Trabajo a menos de dos metros de pacientes	0 (0.00%)	2 (3.92%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia)	0 (0.00%)	1 (1.96%)
Trabajo en el mismo piso/sala/departamento	2 (33.3%)	6 (11.8%)
Como parte de mi trabajo visito un piso/sala/departamento	2 (33.3%)	9 (17.6%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	1 (16.7%)	11 (21.6%)
Ninguno que yo esté en conocimiento	0 (0.00%)	5 (9.80%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.:			0.005
0	0 (0.00%)	31 (60.8%)
1	6 (100%)	20 (39.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.:			1.000
0	5 (83.3%)	39 (76.5%)
1	1 (16.7%)	12 (23.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de la exposición a COVID-19.:			0.320
0	3 (50.0%)	38 (74.5%)
1	3 (50.0%)	13 (25.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.:			1.000
0	3 (50.0%)	30 (58.8%)
1	3 (50.0%)	21 (41.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de los síntomas.:			1.000
0	5 (83.3%)	47 (92.2%)
1	1 (16.7%)	4 (7.84%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le dijeron que trabajara a pesar de no contar con EPP’s.:			0.593
0	4 (66.7%)	41 (80.4%)
1	2 (33.3%)	10 (19.6%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que se aislara.:			1.000
0	4 (66.7%)	37 (72.5%)
1	2 (33.3%)	14 (27.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Se hizo el examen para descartar COVID-19.:			0.651
0	3 (50.0%)	18 (35.3%)
1	3 (50.0%)	33 (64.7%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.:			1.000
0	5 (83.3%)	42 (82.4%)
1	1 (16.7%)	9 (17.6%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:			1.000
0	5 (83.3%)	47 (92.2%)
1	1 (16.7%)	4 (7.84%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.:			0.575
FALSE	6 (100%)	43 (84.3%)
TRUE	0 (0.00%)	8 (15.7%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:			0.633
Nada	0 (0.00%)	1 (1.96%)
Un poco	0 (0.00%)	6 (11.8%)
Bastante	1 (16.7%)	12 (23.5%)
Mucho	5 (83.3%)	32 (62.7%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:			0.432
1 (Poco o nada)	0 (0.00%)	1 (1.96%)
3	1 (16.7%)	3 (5.88%)
4	0 (0.00%)	4 (7.84%)
5	2 (33.3%)	10 (19.6%)
6	0 (0.00%)	9 (17.6%)
7	1 (16.7%)	11 (21.6%)
8	0 (0.00%)	8 (15.7%)
9	2 (33.3%)	5 (9.80%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:			0.156
FALSE	0 (0.00%)	19 (37.3%)
TRUE	6 (100%)	32 (62.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):			0.415
FALSE	2 (33.3%)	27 (52.9%)
TRUE	4 (66.7%)	24 (47.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:			1.000
FALSE	3 (50.0%)	22 (43.1%)
TRUE	3 (50.0%)	29 (56.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:			0.276
FALSE	5 (83.3%)	49 (96.1%)
TRUE	1 (16.7%)	2 (3.92%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:			1.000
FALSE	1 (16.7%)	4 (7.84%)
TRUE	5 (83.3%)	47 (92.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:			1.000
FALSE	1 (16.7%)	10 (19.6%)
TRUE	5 (83.3%)	41 (80.4%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:			1.000
FALSE	1 (16.7%)	11 (21.6%)
TRUE	5 (83.3%)	40 (78.4%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	6 (100%)	51 (100%)	.
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:			0.163
FALSE	0 (0.00%)	16 (31.4%)
TRUE	6 (100%)	35 (68.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:			0.663
FALSE	4 (66.7%)	25 (49.0%)
TRUE	2 (33.3%)	26 (51.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:			0.607
FALSE	6 (100%)	45 (88.2%)
TRUE	0 (0.00%)	6 (11.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	6 (100%)	51 (100%)	.
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.:			0.207
Suficiente	6 (100%)	32 (62.7%)
Insuficiente	0 (0.00%)	11 (21.6%)
No Aplica	0 (0.00%)	8 (15.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector de ojos.:			1.000
Suficiente	2 (33.3%)	14 (27.5%)
Insuficiente	3 (50.0%)	27 (52.9%)
No Aplica	1 (16.7%)	10 (19.6%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.:			0.744
Suficiente	4 (66.7%)	27 (52.9%)
Insuficiente	2 (33.3%)	17 (33.3%)
No Aplica	0 (0.00%)	7 (13.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.:			0.050
Suficiente	2 (33.3%)	5 (9.80%)
Insuficiente	3 (50.0%)	10 (19.6%)
No Aplica	1 (16.7%)	36 (70.6%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Desinfectante de manos.:			0.436
Suficiente	6 (100%)	40 (78.4%)
Insuficiente	0 (0.00%)	10 (19.6%)
No Aplica	0 (0.00%)	1 (1.96%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla quirúrgica.:			0.262
Suficiente	6 (100%)	35 (68.6%)
Insuficiente	0 (0.00%)	15 (29.4%)
No Aplica	0 (0.00%)	1 (1.96%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla N95.:			0.244
Suficiente	4 (66.7%)	17 (33.3%)
Insuficiente	2 (33.3%)	29 (56.9%)
No Aplica	0 (0.00%)	5 (9.80%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Respiradores de partículas de aire impulsado.:			0.593
Insuficiente	2 (33.3%)	10 (19.6%)
No Aplica	4 (66.7%)	41 (80.4%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Delantal/Pechera.:			0.109
Suficiente	6 (100%)	28 (54.9%)
Insuficiente	0 (0.00%)	14 (27.5%)
No Aplica	0 (0.00%)	9 (17.6%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cofia.:			1.000
Suficiente	2 (33.3%)	16 (31.4%)
Insuficiente	2 (33.3%)	19 (37.3%)
No Aplica	2 (33.3%)	16 (31.4%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cubre calzado.:			1.000
Suficiente	0 (0.00%)	1 (1.96%)
Insuficiente	2 (33.3%)	16 (31.4%)
No Aplica	4 (66.7%)	34 (66.7%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:			0.500
Sí, en el último mes	0 (0.00%)	2 (3.92%)
Sí, en los últimos 6 meses	4 (66.7%)	16 (31.4%)
Sí, el año pasado	2 (33.3%)	23 (45.1%)
Sí, hace 2-5 años	0 (0.00%)	3 (5.88%)
No he sido capacitado	0 (0.00%)	7 (13.7%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:			1.000
Excelente	1 (16.7%)	3 (6.82%)
Buena	3 (50.0%)	24 (54.5%)
Regular	2 (33.3%)	17 (38.6%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:			0.910
Poco	0 (0.00%)	3 (5.88%)
Algo	1 (16.7%)	11 (21.6%)
Bastante	5 (83.3%)	31 (60.8%)
Totalmente	0 (0.00%)	5 (9.80%)
No aplica	0 (0.00%)	1 (1.96%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Mi empleador se ha rehusado a dar cierto tipo de EPP.:			0.593
0	4 (66.7%)	41 (80.4%)
1	2 (33.3%)	10 (19.6%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Necesito permiso para utilizar algún EPP específico.:			1.000
0	5 (83.3%)	40 (78.4%)
1	1 (16.7%)	11 (21.6%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar mi propio EPP.:			1.000
0	6 (100%)	48 (94.1%)
1	0 (0.00%)	3 (5.88%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar EPP’s utilizados previamente por otros.:			0.310
0	3 (50.0%)	39 (76.5%)
1	3 (50.0%)	12 (23.5%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica:			0.575
FALSE	6 (100%)	43 (84.3%)
TRUE	0 (0.00%)	8 (15.7%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Otro (especifique).:			.
He comprado mis EPP´S	0 (.%)	1 (25.0%)
La mascarilla hay que hacerla durar 7 dias	0 (.%)	1 (25.0%)
Reutilizar por 7 días la mascarilla kn95 y guardarla al terminar el turno	0 (.%)	1 (25.0%)
Uso restringido de epp	0 (.%)	1 (25.0%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:			0.720
Poco	0 (0.00%)	4 (7.84%)
Algo	1 (16.7%)	16 (31.4%)
Bastante	4 (66.7%)	28 (54.9%)
Totalmente	1 (16.7%)	3 (5.88%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro::			0.882
Negarme a trabajar no es una opción legalmente disponible para mí	0 (0.00%)	7 (13.7%)
Definitivamente, no es posible negarme a trabajar	1 (16.7%)	5 (9.80%)
Es improbable que pueda negarme a trabajar	1 (16.7%)	8 (15.7%)
Quizás, en una situación extrema podría negarme a trabajar	1 (16.7%)	10 (19.6%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	1 (16.7%)	13 (25.5%)
Definitivamente, no dudaría en negarme a trabajar	2 (33.3%)	8 (15.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.:			0.424
Apropiadas y bien implementadas	2 (33.3%)	13 (25.5%)
Apropiadas pero mal implementadas	0 (0.00%)	16 (31.4%)
Inapropiadas	1 (16.7%)	3 (5.88%)
Deficientes	2 (33.3%)	16 (31.4%)
No sabe	1 (16.7%)	3 (5.88%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.:			0.503
Apropiadas y bien implementadas	2 (33.3%)	26 (51.0%)
Apropiadas pero mal implementadas	3 (50.0%)	10 (19.6%)
Inapropiadas	0 (0.00%)	2 (3.92%)
Deficientes	1 (16.7%)	4 (7.84%)
No sabe	0 (0.00%)	4 (7.84%)
No aplica	0 (0.00%)	5 (9.80%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.:			1.000
Apropiadas y bien implementadas	4 (66.7%)	30 (58.8%)
Apropiadas pero mal implementadas	1 (16.7%)	9 (17.6%)
Inapropiadas	0 (0.00%)	4 (7.84%)
Deficientes	0 (0.00%)	1 (1.96%)
No sabe	1 (16.7%)	3 (5.88%)
No aplica	0 (0.00%)	4 (7.84%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.:			0.174
Apropiadas y bien implementadas	4 (66.7%)	26 (51.0%)
Apropiadas pero mal implementadas	0 (0.00%)	13 (25.5%)
Inapropiadas	1 (16.7%)	1 (1.96%)
Deficientes	0 (0.00%)	6 (11.8%)
No sabe	1 (16.7%)	5 (9.80%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:			0.956
Apropiadas y bien implementadas	1 (16.7%)	5 (9.80%)
Apropiadas pero mal implementadas	0 (0.00%)	5 (9.80%)
Inapropiadas	1 (16.7%)	12 (23.5%)
Deficientes	3 (50.0%)	18 (35.3%)
No sabe	1 (16.7%)	8 (15.7%)
No aplica	0 (0.00%)	3 (5.88%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:			0.965
Apropiadas y bien implementadas	2 (33.3%)	16 (31.4%)
Apropiadas pero mal implementadas	1 (16.7%)	8 (15.7%)
Inapropiadas	1 (16.7%)	4 (7.84%)
Deficientes	1 (16.7%)	9 (17.6%)
No sabe	1 (16.7%)	7 (13.7%)
No aplica	0 (0.00%)	7 (13.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.:			0.203
Apropiadas y bien implementadas	2 (33.3%)	3 (5.88%)
Apropiadas pero mal implementadas	1 (16.7%)	10 (19.6%)
Inapropiadas	0 (0.00%)	9 (17.6%)
Deficientes	3 (50.0%)	20 (39.2%)
No sabe	0 (0.00%)	6 (11.8%)
No aplica	0 (0.00%)	3 (5.88%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:			0.199
Apropiadas y bien implementadas	1 (16.7%)	7 (13.7%)
Apropiadas pero mal implementadas	1 (16.7%)	3 (5.88%)
Inapropiadas	0 (0.00%)	4 (7.84%)
Deficientes	4 (66.7%)	13 (25.5%)
No sabe	0 (0.00%)	16 (31.4%)
No aplica	0 (0.00%)	8 (15.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:			0.817
Apropiadas y bien implementadas	4 (66.7%)	20 (39.2%)
Apropiadas pero mal implementadas	0 (0.00%)	8 (15.7%)
Inapropiadas	0 (0.00%)	2 (3.92%)
Deficientes	1 (16.7%)	5 (9.80%)
No sabe	1 (16.7%)	13 (25.5%)
No aplica	0 (0.00%)	3 (5.88%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Sindicato/gremio.:			0.349
Totalmente de acuerdo	0 (0.00%)	5 (9.80%)
De acuerdo	4 (66.7%)	15 (29.4%)
Ni de acuerdo ni en desacuerdo	2 (33.3%)	17 (33.3%)
En desacuerdo	0 (0.00%)	11 (21.6%)
Totalmente en desacuerdo	0 (0.00%)	3 (5.88%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Empleador.:			0.440
Totalmente de acuerdo	0 (0.00%)	5 (9.80%)
De acuerdo	3 (50.0%)	16 (31.4%)
Ni de acuerdo ni en desacuerdo	3 (50.0%)	19 (37.3%)
En desacuerdo	0 (0.00%)	11 (21.6%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Gobierno.:			0.676
Totalmente de acuerdo	0 (0.00%)	2 (3.92%)
De acuerdo	1 (16.7%)	4 (7.84%)
Ni de acuerdo ni en desacuerdo	2 (33.3%)	10 (19.6%)
En desacuerdo	3 (50.0%)	24 (47.1%)
Totalmente en desacuerdo	0 (0.00%)	11 (21.6%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.:			0.429
Totalmente de acuerdo	0 (0.00%)	1 (1.96%)
De acuerdo	3 (50.0%)	9 (17.6%)
Ni de acuerdo ni en desacuerdo	2 (33.3%)	26 (51.0%)
En desacuerdo	1 (16.7%)	11 (21.6%)
Totalmente en desacuerdo	0 (0.00%)	4 (7.84%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?:			0.470
Mantengo las mismas labores	5 (83.3%)	36 (70.6%)
Mantengo las mismas labores, pero en un área distinta	0 (0.00%)	5 (9.80%)
Mantengo las mismas labores, pero en un lugar físico distinto	0 (0.00%)	1 (1.96%)
Mantengo las mismas labores, pero en área y lugar físico distintos	0 (0.00%)	1 (1.96%)
Distintas labores, pero en la misma área	0 (0.00%)	4 (7.84%)
Distintas labores, pero en el mismo lugar físico	1 (16.7%)	1 (1.96%)
Labores, área y lugar físico distintos	0 (0.00%)	3 (5.88%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?:			1.000
Buena	1 (16.7%)	6 (11.8%)
Regular	3 (50.0%)	32 (62.7%)
Mala	2 (33.3%)	13 (25.5%)
¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.:			0.736
Totalmente de acuerdo	2 (33.3%)	11 (21.6%)
De acuerdo	2 (33.3%)	22 (43.1%)
Neutral	1 (16.7%)	13 (25.5%)
En desacuerdo	1 (16.7%)	3 (5.88%)
Totalmente en desacuerdo	0 (0.00%)	2 (3.92%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:			0.952
Siempre	1 (16.7%)	11 (21.6%)
La mayoría <br>de las veces	2 (33.3%)	15 (29.4%)
Algunas veces	3 (50.0%)	19 (37.3%)
Sólo unas <br>pocas veces	0 (0.00%)	5 (9.80%)
Nunca	0 (0.00%)	1 (1.96%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:			1.000
Siempre	1 (16.7%)	11 (21.6%)
La mayoría <br>de las veces	4 (66.7%)	26 (51.0%)
Algunas veces	1 (16.7%)	9 (17.6%)
Sólo unas <br>pocas veces	0 (0.00%)	4 (7.84%)
Nunca	0 (0.00%)	1 (1.96%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:			0.691
Siempre	0 (0.00%)	6 (11.8%)
La mayoría <br>de las veces	4 (66.7%)	25 (49.0%)
Algunas veces	2 (33.3%)	15 (29.4%)
Sólo unas <br>pocas veces	0 (0.00%)	5 (9.80%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:			0.961
Siempre	0 (0.00%)	4 (7.84%)
La mayoría <br>de las veces	0 (0.00%)	5 (9.80%)
Algunas veces	3 (50.0%)	21 (41.2%)
Sólo unas <br>pocas veces	2 (33.3%)	13 (25.5%)
Nunca	1 (16.7%)	8 (15.7%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:			0.388
Siempre	1 (16.7%)	4 (7.84%)
La mayoría <br>de las veces	1 (16.7%)	9 (17.6%)
Algunas veces	2 (33.3%)	26 (51.0%)
Sólo unas <br>pocas veces	1 (16.7%)	11 (21.6%)
Nunca	1 (16.7%)	1 (1.96%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:			0.951
Siempre	3 (50.0%)	18 (35.3%)
La mayoría <br>de las veces	2 (33.3%)	18 (35.3%)
Algunas veces	1 (16.7%)	7 (13.7%)
Sólo unas <br>pocas veces	0 (0.00%)	6 (11.8%)
Nunca	0 (0.00%)	2 (3.92%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:			0.937
Siempre	2 (33.3%)	17 (33.3%)
La mayoría <br>de las veces	3 (50.0%)	16 (31.4%)
Algunas veces	1 (16.7%)	10 (19.6%)
Sólo unas <br>pocas veces	0 (0.00%)	4 (7.84%)
Nunca	0 (0.00%)	4 (7.84%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:			0.483
Siempre	2 (33.3%)	15 (29.4%)
La mayoría <br>de las veces	4 (66.7%)	20 (39.2%)
Algunas veces	0 (0.00%)	13 (25.5%)
Sólo unas <br>pocas veces	0 (0.00%)	3 (5.88%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:			0.777
Siempre	1 (16.7%)	12 (23.5%)
La mayoría <br>de las veces	2 (33.3%)	22 (43.1%)
Algunas veces	3 (50.0%)	13 (25.5%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (3.92%)
Nunca	0 (0.00%)	2 (3.92%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:			0.166
Siempre	4 (66.7%)	33 (64.7%)
La mayoría <br>de las veces	0 (0.00%)	13 (25.5%)
Algunas veces	2 (33.3%)	4 (7.84%)
Nunca	0 (0.00%)	1 (1.96%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles.:			1.000
Apenas cierto	0 (0.00%)	1 (1.96%)
Más bien cierto	2 (33.3%)	18 (35.3%)
Cierto	4 (66.7%)	32 (62.7%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.:			0.732
Apenas cierto	0 (0.00%)	2 (3.92%)
Más bien cierto	3 (50.0%)	17 (33.3%)
Cierto	3 (50.0%)	32 (62.7%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas.:			0.460
Apenas cierto	0 (0.00%)	3 (5.88%)
Más bien cierto	1 (16.7%)	21 (41.2%)
Cierto	5 (83.3%)	27 (52.9%)
Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;
Variables categóricas son presentadas como el recuento y el porcentaje

#janitor::tabyl(p20_contr_cont_med_pev_1_simpler)
#   p27_cond_trab_sup_jef
table3_sup_jef <- suppressWarnings(compareGroups(p27_cond_trab_sup_jef ~ 
            agotamiento_estres_irritabilidad+
            estres_postraumatico+
            agotamiento_estres_irritabilidad_ptje+
            estres_postraumatico_ptje+
            agotamiento_estres_irritabilidad_q75+
            estres_postraumatico_q75+
            tamizaje_ans+
            tamizaje_dep+
            p8_exp_c19_cerca_cont_rec+
            ptjes_p9+
            p10_exp_c19_preocupa_llevar_rec+
            p11_exp_c19_miedo_pand_rec+
            p14_contr_cont_cap_epp_rec+
            p15_contr_cont_14a_eval_cap_rec+
            p16_contr_cont_conf_epps_rec+
            ptjes_p17+
            p17_contr_cont_restr_epp_1_rec+
            p18_contr_cont_conf_eval_ri_rec+
            p19_contr_cont_nieg_epp_rec+
            p20_contr_cont_med_pev_1_p20_rec+
            p20_contr_cont_med_pev_2_p20_rec+
            p20_contr_cont_med_pev_3_p20_rec+
            p20_contr_cont_med_pev_4_p20_rec+
            p20_contr_cont_med_pev_5_p20_rec+
            p20_contr_cont_med_pev_6_p20_rec+
            p20_contr_cont_med_pev_7_p20_rec+
            p20_contr_cont_med_pev_8_p20_rec+
            p20_contr_cont_med_pev_9_p20_rec+
            p26_cond_trab_ent_protec_1_p26_rec+
            p26_cond_trab_ent_protec_2_p26_rec+
            p26_cond_trab_ent_protec_3_p26_rec+
            p26_cond_trab_ent_protec_4_p26_rec+
            p36_cond_trab_reasig_rec+
            p38_cond_trab_sal_psi_rec+
            p39_cond_trab_cult_org_rec+
            p40_cond_trab_istas_01_p40_rec+
            p40_cond_trab_istas_02_p40_rec+
            p40_cond_trab_istas_03_p40_rec+
            p40_cond_trab_istas_04_p40_rec+
            p40_cond_trab_istas_05_p40_rec+
            p40_cond_trab_istas_06_p40_rec+
            p40_cond_trab_istas_07_p40_rec+
            p40_cond_trab_istas_08_p40_rec+
            p40_cond_trab_istas_09_p40_rec+
            p40_cond_trab_istas_10_p40_rec+
            p40_istas_ex_psi+
            p40_istas_rel_su+
            p40_istas_con_rol+
            p40_istas_rel_comp+
            p42_resiliencia_1_p42_rec+
            p42_resiliencia_2_p42_rec+
            p42_resiliencia_3_p42_rec+
            p42_res_total+
             p3_siente_1+
             p3_siente_2+
             p3_siente_3+
             p3_siente_4+
             p3_siente_5+
             p3_siente_6+
             p4_afront_1+
             p4_afront_2+
             p4_afront_3+
             p5_animo_1+
             p5_animo_2+
             p5_animo_3+
             p5_animo_4+
             p6_exp_c19_pac_cont+
             p7_exp_c19_trab_cont+
             p8_exp_c19_cerca_cont+
             p9_exp_c19_exp_sit_dg_01+
             p9_exp_c19_exp_sit_dg_02+
             p9_exp_c19_exp_sit_dg_03+
             p9_exp_c19_exp_sit_dg_04+
             p9_exp_c19_exp_sit_dg_05+
             p9_exp_c19_exp_sit_dg_06+
             p9_exp_c19_exp_sit_dg_07+
             p9_exp_c19_exp_sit_dg_08+
             p9_exp_c19_exp_sit_dg_09+
             p9_exp_c19_exp_sit_dg_10+
             p9_exp_c19_exp_sit_dg_11+
             p10_exp_c19_preocupa_llevar+
             p11_exp_c19_miedo_pand+
             p12_contr_cont_imp_nec_01+
             p12_contr_cont_imp_nec_02+
             p12_contr_cont_imp_nec_03+
             p12_contr_cont_imp_nec_04+
             p12_contr_cont_imp_nec_05+
             p12_contr_cont_imp_nec_06+
             p12_contr_cont_imp_nec_07+
             p12_contr_cont_imp_nec_08+
             p12_contr_cont_imp_nec_09+
             p12_contr_cont_imp_nec_10+
             p12_contr_cont_imp_nec_11+
             p12_contr_cont_imp_nec_12+
             p13_contr_cont_imp_disp_01+
             p13_contr_cont_imp_disp_02+
             p13_contr_cont_imp_disp_03+
             p13_contr_cont_imp_disp_04+
             p13_contr_cont_imp_disp_05+
             p13_contr_cont_imp_disp_06+
             p13_contr_cont_imp_disp_07+
             p13_contr_cont_imp_disp_08+
             p13_contr_cont_imp_disp_09+
             p13_contr_cont_imp_disp_10+
             p13_contr_cont_imp_disp_11+
             p14_contr_cont_cap_epp+
             p15_contr_cont_14a_eval_cap+
             p16_contr_cont_conf_epps+
             p17_contr_cont_restr_epp_1+
             p17_contr_cont_restr_epp_2+
             p17_contr_cont_restr_epp_3+
             p17_contr_cont_restr_epp_4+
             p17_contr_cont_restr_epp_6+
             p17_contr_cont_restr_epp_7+
             p18_contr_cont_conf_eval_ri+
             p19_contr_cont_nieg_epp+
             p20_contr_cont_med_pev_1+
             p20_contr_cont_med_pev_2+
             p20_contr_cont_med_pev_3+
             p20_contr_cont_med_pev_4+
             p20_contr_cont_med_pev_5+
             p20_contr_cont_med_pev_6+
             p20_contr_cont_med_pev_7+
             p20_contr_cont_med_pev_8+
             p20_contr_cont_med_pev_9+
             p26_cond_trab_ent_protec_1+
             p26_cond_trab_ent_protec_2+
             p26_cond_trab_ent_protec_3+
             p26_cond_trab_ent_protec_4+
             #p28_cond_trab_sis_trab+
             #p32_cond_trab_est+
             #p33_cond_trab_sit_cont+
             p36_cond_trab_reasig+
             #p37_cond_trab_num_est+
             p38_cond_trab_sal_psi+
             p39_cond_trab_cult_org+
             p40_cond_trab_istas_01+
             p40_cond_trab_istas_02+
             p40_cond_trab_istas_03+
             p40_cond_trab_istas_04+
             p40_cond_trab_istas_05+
             p40_cond_trab_istas_06+
             p40_cond_trab_istas_07+
             p40_cond_trab_istas_08+
             p40_cond_trab_istas_09+
             p40_cond_trab_istas_10+
             p42_resiliencia_1+
             p42_resiliencia_2+
             p42_resiliencia_3, 
           method= c(
              agotamiento_estres_irritabilidad=3,
              estres_postraumatico=3,
              agotamiento_estres_irritabilidad_ptje=2,
              estres_postraumatico_ptje=2,
              agotamiento_estres_irritabilidad_q75=3,
              estres_postraumatico_q75=3,
              tamizaje_ans=3,
              tamizaje_dep=3,
              p8_exp_c19_cerca_cont_rec=3,
              ptjes_p9=2,
              p10_exp_c19_preocupa_llevar_rec=3,
              p14_contr_cont_cap_epp_rec=3,
              p15_contr_cont_14a_eval_cap_rec=3,
              p16_contr_cont_conf_epps_rec=3,
              ptjes_p17=2,
              p17_contr_cont_restr_epp_1_rec=3,
              p18_contr_cont_conf_eval_ri_rec=3,
              p19_contr_cont_nieg_epp_rec=3,
              p20_contr_cont_med_pev_1_p20_rec=3,
              p20_contr_cont_med_pev_2_p20_rec=3,
              p20_contr_cont_med_pev_3_p20_rec=3,
              p20_contr_cont_med_pev_4_p20_rec=3,
              p20_contr_cont_med_pev_5_p20_rec=3,
              p20_contr_cont_med_pev_6_p20_rec=3,
              p20_contr_cont_med_pev_7_p20_rec=3,
              p20_contr_cont_med_pev_8_p20_rec=3,
              p20_contr_cont_med_pev_9_p20_rec=3,
              p26_cond_trab_ent_protec_1_p26_rec=3,
              p26_cond_trab_ent_protec_2_p26_rec=3,
              p26_cond_trab_ent_protec_3_p26_rec=3,
              p26_cond_trab_ent_protec_4_p26_rec=3,
              p36_cond_trab_reasig_rec=3,
              p38_cond_trab_sal_psi_rec=3,
              p39_cond_trab_cult_org_rec=3,
              p40_cond_trab_istas_01_p40_rec=3,
              p40_cond_trab_istas_02_p40_rec=3,
              p40_cond_trab_istas_03_p40_rec=3,
              p40_cond_trab_istas_04_p40_rec=3,
              p40_cond_trab_istas_05_p40_rec=3,
              p40_cond_trab_istas_06_p40_rec=3,
              p40_cond_trab_istas_07_p40_rec=3,
              p40_cond_trab_istas_08_p40_rec=3,
              p40_cond_trab_istas_09_p40_rec=3,
              p40_cond_trab_istas_10_p40_rec=3,
              p40_istas_ex_psi=2,
              p40_istas_rel_su=2,
              p40_istas_con_rol=2,
              p40_istas_rel_comp=2,
              p42_resiliencia_1_p42_rec=3,
              p42_resiliencia_2_p42_rec=3,
              p42_resiliencia_3_p42_rec=3,
              p42_res_total=2,
               p3_siente_1=3,
               p3_siente_2=3,
               p3_siente_3=3,
               p3_siente_4=3,
               p3_siente_5=3,
               p3_siente_6=3,
               p4_afront_1=3,
               p4_afront_2=3,
               p4_afront_3=3,
               p5_animo_1=3,
               p5_animo_2=3,
               p5_animo_3=3,
               p5_animo_4=3,
               agotamiento_estres_irritabilidad=2,
               estres_postraumatico=2,
               tamizaje_ans=3,
               tamizaje_dep=3,
               p6_exp_c19_pac_cont=3,
               p7_exp_c19_trab_cont=3,
               p8_exp_c19_cerca_cont=3,
               p9_exp_c19_exp_sit_dg_01=3,
               p9_exp_c19_exp_sit_dg_02=3,
               p9_exp_c19_exp_sit_dg_03=3,
               p9_exp_c19_exp_sit_dg_04=3,
               p9_exp_c19_exp_sit_dg_05=3,
               p9_exp_c19_exp_sit_dg_06=3,
               p9_exp_c19_exp_sit_dg_07=3,
               p9_exp_c19_exp_sit_dg_08=3,
               p9_exp_c19_exp_sit_dg_09=3,
               p9_exp_c19_exp_sit_dg_10=3,
               p9_exp_c19_exp_sit_dg_11=3,
               p10_exp_c19_preocupa_llevar=3,
               p11_exp_c19_miedo_pand=3,
               p12_contr_cont_imp_nec_01=3,
               p12_contr_cont_imp_nec_02=3,
               p12_contr_cont_imp_nec_03=3,
               p12_contr_cont_imp_nec_04=3,
               p12_contr_cont_imp_nec_05=3,
               p12_contr_cont_imp_nec_06=3,
               p12_contr_cont_imp_nec_07=3,
               p12_contr_cont_imp_nec_08=3,
               p12_contr_cont_imp_nec_09=3,
               p12_contr_cont_imp_nec_10=3,
               p12_contr_cont_imp_nec_11=3,
               p12_contr_cont_imp_nec_12=3,
               p13_contr_cont_imp_disp_01=3,
               p13_contr_cont_imp_disp_02=3,
               p13_contr_cont_imp_disp_03=3,
               p13_contr_cont_imp_disp_04=3,
               p13_contr_cont_imp_disp_05=3,
               p13_contr_cont_imp_disp_06=3,
               p13_contr_cont_imp_disp_07=3,
               p13_contr_cont_imp_disp_08=3,
               p13_contr_cont_imp_disp_09=3,
               p13_contr_cont_imp_disp_10=3,
               p13_contr_cont_imp_disp_11=3,
               p14_contr_cont_cap_epp=3,
               p15_contr_cont_14a_eval_cap=3,
               p16_contr_cont_conf_epps=3,
               p17_contr_cont_restr_epp_1=3,
               p17_contr_cont_restr_epp_2=3,
               p17_contr_cont_restr_epp_3=3,
               p17_contr_cont_restr_epp_4=3,
               p17_contr_cont_restr_epp_6=3,
               p17_contr_cont_restr_epp_7=3,
               p18_contr_cont_conf_eval_ri=3,
               p19_contr_cont_nieg_epp=3,
               p20_contr_cont_med_pev_1=3,
               p20_contr_cont_med_pev_2=3,
               p20_contr_cont_med_pev_3=3,
               p20_contr_cont_med_pev_4=3,
               p20_contr_cont_med_pev_5=3,
               p20_contr_cont_med_pev_6=3,
               p20_contr_cont_med_pev_7=3,
               p20_contr_cont_med_pev_8=3,
               p20_contr_cont_med_pev_9=3,
               p26_cond_trab_ent_protec_1=3,
               p26_cond_trab_ent_protec_2=3,
               p26_cond_trab_ent_protec_3=3,
               p26_cond_trab_ent_protec_4=3,
               #p28_cond_trab_sis_trab=3,
               #p32_cond_trab_est=3,
               #p33_cond_trab_sit_cont=3,
               p36_cond_trab_reasig=3,
               #p37_cond_trab_num_est=3,
               p38_cond_trab_sal_psi=3,
               p39_cond_trab_cult_org=3,
               p40_cond_trab_istas_01=3,
               p40_cond_trab_istas_02=3,
               p40_cond_trab_istas_03=3,
               p40_cond_trab_istas_04=3,
               p40_cond_trab_istas_05=3,
               p40_cond_trab_istas_06=3,
               p40_cond_trab_istas_07=3,
               p40_cond_trab_istas_08=3,
               p40_cond_trab_istas_09=3,
               p40_cond_trab_istas_10=3,
               p42_resiliencia_1=3,
               p42_resiliencia_2=3,
               p42_resiliencia_3=3),
    data = surveymonkey_accionsalududp_df2_cor_table,
    include.miss = F, #baja el número de casos
    p.corrected=T,
    chisq.test.perm=T,
    chisq.test.seed=1234,
    var.equal=T)
  )


restab3_sup_jef <- createTable(table3_sup_jef, show.p.overall = T)

pvals3 <- getResults(table3_sup_jef)
#p.adjust(pvals, method = "BH")
export2md(restab3_sup_jef, size=10, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Tabla 3. Descriptivo Aplicación Hospital Roberto del Río según cargo de Supervisión o Jefatura",
          col.names=c("Variables", "No", "Sí", "Sig.")
         )%>%
  kableExtra::add_footnote(c("Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;", 
                             "Variables categóricas son presentadas como el recuento y el porcentaje"), notation = "none")%>%
  kableExtra::scroll_box(width = "100%", height = "800px")

Tabla 3. Descriptivo Aplicación Hospital Roberto del Río según cargo de Supervisión o Jefatura

Variables	No	Sí	Sig.
	N=47	N=18
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):			0.327
1	19 (40.4%)	5 (27.8%)
2	12 (25.5%)	8 (44.4%)
3	16 (34.0%)	5 (27.8%)
Estrés Postraumático (4° Cuartil):			1.000
Ausencia de Indicadores de Estrés Post-traumático	33 (70.2%)	13 (72.2%)
Indicadores de Estrés Post-traumático	14 (29.8%)	5 (27.8%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	350 [250;400]	350 [281;469]	0.453
Ptjes. Estrés Postraumático	4.00 [2.00;7.00]	5.00 [4.00;7.00]	0.507
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):			1.000
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	21 (44.7%)	8 (44.4%)
Cuartiles 1 a 3	26 (55.3%)	10 (55.6%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):			0.547
Cuartil de mayor ptje. Estrés Postraumático	23 (48.9%)	11 (61.1%)
Cuartiles 1 a 3	24 (51.1%)	7 (38.9%)
Sintomatología ansiosa:			1.000
Ausencia de Indicadores de Sintomatología Ansiosa	20 (42.6%)	7 (38.9%)
Indicadores de Sintomatología Ansiosa	27 (57.4%)	11 (61.1%)
Sintomatología depresiva:			0.124
Ausencia de Indicadores de Sintomatología Depresiva	30 (63.8%)	7 (38.9%)
Indicadores de Sintomatología Depresiva	17 (36.2%)	11 (61.1%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):			0.852
Contacto directo y estrecho con pacientes (menos de dos metros)	16 (34.0%)	5 (27.8%)
Menor o ningún contacto con pacientes	31 (66.0%)	13 (72.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):			0.314
1	11 (25.6%)	2 (15.4%)
2	7 (16.3%)	2 (15.4%)
3	4 (9.30%)	4 (30.8%)
Más de 3	21 (48.8%)	5 (38.5%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):			1.000
Bastante/Mucho	41 (87.2%)	16 (88.9%)
Un poco/Nada/No aplica	6 (12.8%)	2 (11.1%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):			0.624
Predomina el miedo	31 (66.0%)	10 (55.6%)
Predomina la ausencia de miedo	16 (34.0%)	8 (44.4%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):			0.419
Ha sido capacitado	40 (85.1%)	17 (94.4%)
No ha sido capacitado	7 (14.9%)	1 (5.56%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): Regular a Excelente	40 (100%)	17 (100%)	.
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):			0.283
Nada/Poco/Algo/No aplica	16 (34.0%)	3 (16.7%)
Totalmente/Bastante	31 (66.0%)	15 (83.3%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas):			1.000
1	31 (79.5%)	12 (85.7%)
2	6 (15.4%)	2 (14.3%)
3	1 (2.56%)	0 (0.00%)
Más de 3	1 (2.56%)	0 (0.00%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:			1.000
Empleador se ha rehusado a dar cierto tipo de EPP	11 (23.4%)	4 (22.2%)
No se constata esta situación	36 (76.6%)	14 (77.8%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada):			0.297
Algo/Bastante/Totalente/No aplica	42 (89.4%)	18 (100%)
Poco/Nada	5 (10.6%)	0 (0.00%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro (dicotomizada):			0.767
Incapacidad para negarse a trabajo inseguro	25 (53.2%)	11 (61.1%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	22 (46.8%)	7 (38.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):			0.462
Apropiadas/No sabe/No aplica	30 (63.8%)	9 (50.0%)
Inapropiadas/Deficientes	17 (36.2%)	9 (50.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada):			0.669
Apropiadas/No sabe/No aplica	42 (89.4%)	15 (83.3%)
Inapropiadas/Deficientes	5 (10.6%)	3 (16.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):			0.656
Apropiadas/No sabe/No aplica	41 (87.2%)	17 (94.4%)
Inapropiadas/Deficientes	6 (12.8%)	1 (5.56%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	40 (85.1%)	16 (88.9%)
Inapropiadas/Deficientes	7 (14.9%)	2 (11.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):			0.462
Apropiadas/No sabe/No aplica	17 (36.2%)	9 (50.0%)
Inapropiadas/Deficientes	30 (63.8%)	9 (50.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada):			0.533
Apropiadas/No sabe/No aplica	31 (66.0%)	14 (77.8%)
Inapropiadas/Deficientes	16 (34.0%)	4 (22.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada):			0.462
Apropiadas/No sabe/No aplica	17 (36.2%)	9 (50.0%)
Inapropiadas/Deficientes	30 (63.8%)	9 (50.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):			0.810
Apropiadas/No sabe/No aplica	28 (59.6%)	12 (66.7%)
Inapropiadas/Deficientes	19 (40.4%)	6 (33.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	40 (85.1%)	15 (83.3%)
Inapropiadas/Deficientes	7 (14.9%)	3 (16.7%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada):			0.738
Desacuerdo/Totalmente en desacuerdo	11 (23.4%)	3 (16.7%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	36 (76.6%)	15 (83.3%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Empleador (Dicotomizada):			0.522
Desacuerdo/Totalmente en desacuerdo	13 (27.7%)	3 (16.7%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	34 (72.3%)	15 (83.3%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada):			1.000
Desacuerdo/Totalmente en desacuerdo	33 (70.2%)	13 (72.2%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	14 (29.8%)	5 (27.8%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada):			0.884
Desacuerdo/Totalmente en desacuerdo	13 (27.7%)	6 (33.3%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	34 (72.3%)	12 (66.7%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal? (Dicotomizada):			1.000
Cambia área, labores o ambos producto de la pandemia	11 (26.2%)	5 (29.4%)
Mantiene las mismas labores en la misma área	31 (73.8%)	12 (70.6%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada):			0.337
Excelente/Buena/Regular	28 (68.3%)	14 (82.4%)
Mala	13 (31.7%)	3 (17.6%)
¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada):			0.699
De acuerdo/Totalmente de acuerdo	28 (68.3%)	10 (58.8%)
Neutral/En desacuerdo/Totalmente en desacuerdo	13 (31.7%)	7 (41.2%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):			0.683
La mayoría de las veces/Siempre	20 (48.8%)	10 (58.8%)
Nunca/Sólo unas pocas veces/Algunas veces	21 (51.2%)	7 (41.2%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):			0.514
La mayoría de las veces/Siempre	29 (70.7%)	14 (82.4%)
Nunca/Sólo unas pocas veces/Algunas veces	12 (29.3%)	3 (17.6%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):			0.464
La mayoría de las veces/Siempre	23 (56.1%)	12 (70.6%)
Nunca/Sólo unas pocas veces/Algunas veces	18 (43.9%)	5 (29.4%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	7 (17.1%)	3 (17.6%)
Nunca/Sólo unas pocas veces/Algunas veces	34 (82.9%)	14 (82.4%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada):			0.520
La mayoría de las veces/Siempre	10 (24.4%)	6 (35.3%)
Nunca/Sólo unas pocas veces/Algunas veces	31 (75.6%)	11 (64.7%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	29 (70.7%)	12 (70.6%)
Nunca/Sólo unas pocas veces/Algunas veces	12 (29.3%)	5 (29.4%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):			0.826
La mayoría de las veces/Siempre	26 (63.4%)	12 (70.6%)
Nunca/Sólo unas pocas veces/Algunas veces	15 (36.6%)	5 (29.4%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):			0.337
La mayoría de las veces/Siempre	28 (68.3%)	14 (82.4%)
Nunca/Sólo unas pocas veces/Algunas veces	13 (31.7%)	3 (17.6%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	27 (65.9%)	11 (64.7%)
Nunca/Sólo unas pocas veces/Algunas veces	14 (34.1%)	6 (35.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):			0.655
La mayoría de las veces/Siempre	37 (90.2%)	14 (82.4%)
Nunca/Sólo unas pocas veces/Algunas veces	4 (9.76%)	3 (17.6%)
Suma ítems Exigencias Psicológicas ISTAS21	6.00 [4.00;7.00]	6.00 [5.00;6.00]	0.460
Suma ítems Calidad Relación con Superiores ISTAS21	9.00 [7.00;10.0]	10.0 [5.00;11.0]	0.187
Suma ítems Conflicto de Rol ISTAS21	4.00 [2.00;4.00]	4.00 [3.00;5.00]	0.518
Suma ítems Relación con Compañeros de Trabajo ISTAS21	6.00 [5.00;7.00]	6.00 [5.00;7.00]	0.497
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles (Dicotomizada):			0.286
Apenas cierto/Incorrecto	0 (0.00%)	1 (5.88%)
Más bien cierto/Cierto	40 (100%)	16 (94.1%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada):			1.000
Apenas cierto/Incorrecto	1 (2.50%)	1 (5.88%)
Más bien cierto/Cierto	39 (97.5%)	16 (94.1%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada):			0.201
Apenas cierto/Incorrecto	1 (2.50%)	2 (11.8%)
Más bien cierto/Cierto	39 (97.5%)	15 (88.2%)
Suma puntajes de resilencia	8.00 [7.00;9.00]	7.00 [6.00;9.00]	0.256
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:			0.608
Sólo unas pocas <br>veces	5 (10.6%)	2 (11.1%)
Algunas veces	18 (38.3%)	7 (38.9%)
La mayoría de las veces	21 (44.7%)	6 (33.3%)
Siempre	3 (6.38%)	3 (16.7%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:			0.262
Nunca	1 (2.13%)	0 (0.00%)
Sólo unas pocas <br>veces	6 (12.8%)	2 (11.1%)
Algunas veces	22 (46.8%)	8 (44.4%)
La mayoría de las veces	17 (36.2%)	5 (27.8%)
Siempre	1 (2.13%)	3 (16.7%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:			0.530
Nunca	1 (2.13%)	0 (0.00%)
Sólo unas pocas <br>veces	8 (17.0%)	1 (5.56%)
Algunas veces	17 (36.2%)	8 (44.4%)
La mayoría de las veces	18 (38.3%)	6 (33.3%)
Siempre	3 (6.38%)	3 (16.7%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:			0.806
Nunca	3 (6.38%)	2 (11.1%)
Sólo unas pocas <br>veces	17 (36.2%)	5 (27.8%)
Algunas veces	19 (40.4%)	8 (44.4%)
La mayoría de las veces	6 (12.8%)	3 (16.7%)
Siempre	2 (4.26%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:			0.275
Nunca	2 (4.26%)	1 (5.56%)
Sólo unas pocas <br>veces	11 (23.4%)	0 (0.00%)
Algunas veces	15 (31.9%)	8 (44.4%)
La mayoría de las veces	9 (19.1%)	5 (27.8%)
Siempre	10 (21.3%)	4 (22.2%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:			0.288
Nunca	5 (10.6%)	2 (11.1%)
Sólo unas pocas <br>veces	10 (21.3%)	0 (0.00%)
Algunas veces	15 (31.9%)	8 (44.4%)
La mayoría de las veces	8 (17.0%)	5 (27.8%)
Siempre	9 (19.1%)	3 (16.7%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.:			0.829
Nada	6 (12.8%)	4 (22.2%)
Un poco	14 (29.8%)	4 (22.2%)
Regular	15 (31.9%)	4 (22.2%)
Bastante	10 (21.3%)	5 (27.8%)
Mucho	2 (4.26%)	1 (5.56%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.:			0.452
Nada	7 (14.9%)	1 (5.56%)
Un poco	10 (21.3%)	3 (16.7%)
Regular	16 (34.0%)	7 (38.9%)
Bastante	12 (25.5%)	4 (22.2%)
Mucho	2 (4.26%)	3 (16.7%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:			0.935
Nada	14 (29.8%)	4 (22.2%)
Un poco	18 (38.3%)	8 (44.4%)
Regular	11 (23.4%)	4 (22.2%)
Bastante	3 (6.38%)	2 (11.1%)
Mucho	1 (2.13%)	0 (0.00%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido Nervioso, ansioso o con los nervios de punta.:			0.070
Nunca	7 (14.9%)	0 (0.00%)
Algunos días	31 (66.0%)	10 (55.6%)
Más de la mitad de los días	5 (10.6%)	6 (33.3%)
Casi todos los días	4 (8.51%)	2 (11.1%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:			0.681
Nunca	4 (8.51%)	1 (5.56%)
Algunos días	17 (36.2%)	8 (44.4%)
Más de la mitad de los días	22 (46.8%)	6 (33.3%)
Casi todos los días	4 (8.51%)	3 (16.7%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas.:			0.091
Nunca	8 (17.0%)	1 (5.56%)
Algunos días	28 (59.6%)	8 (44.4%)
Más de la mitad de los días	6 (12.8%)	7 (38.9%)
Casi todos los días	5 (10.6%)	2 (11.1%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado.:			0.749
Nunca	8 (17.0%)	3 (16.7%)
Algunos días	25 (53.2%)	7 (38.9%)
Más de la mitad de los días	11 (23.4%)	7 (38.9%)
Casi todos los días	3 (6.38%)	1 (5.56%)
¿Cuántos PACIENTES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:			0.904
Ninguno	28 (59.6%)	9 (50.0%)
1 a 10	15 (31.9%)	8 (44.4%)
11 a 30	2 (4.26%)	1 (5.56%)
31 a 100	1 (2.13%)	0 (0.00%)
101 a 200	1 (2.13%)	0 (0.00%)
¿Cuántos TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:			0.471
Ninguno	17 (36.2%)	9 (50.0%)
Sólo uno	15 (31.9%)	3 (16.7%)
2 a 10	11 (23.4%)	6 (33.3%)
11 a 25	3 (6.38%)	0 (0.00%)
Más de 50	1 (2.13%)	0 (0.00%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:			0.471
Trabajo en contacto directo con pacientes	15 (31.9%)	4 (22.2%)
Trabajo a menos de dos metros de pacientes	1 (2.13%)	1 (5.56%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia)	0 (0.00%)	1 (5.56%)
Trabajo en el mismo piso/sala/departamento	5 (10.6%)	3 (16.7%)
Como parte de mi trabajo visito un piso/sala/departamento	8 (17.0%)	5 (27.8%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	12 (25.5%)	3 (16.7%)
Ninguno que yo esté en conocimiento	6 (12.8%)	1 (5.56%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.:			0.247
0	22 (46.8%)	12 (66.7%)
1	25 (53.2%)	6 (33.3%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.:			1.000
0	35 (74.5%)	14 (77.8%)
1	12 (25.5%)	4 (22.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de la exposición a COVID-19.:			0.533
0	31 (66.0%)	14 (77.8%)
1	16 (34.0%)	4 (22.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.:			0.794
0	27 (57.4%)	9 (50.0%)
1	20 (42.6%)	9 (50.0%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de los síntomas.:			0.419
0	40 (85.1%)	17 (94.4%)
1	7 (14.9%)	1 (5.56%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le dijeron que trabajara a pesar de no contar con EPP’s.:			0.096
0	34 (72.3%)	17 (94.4%)
1	13 (27.7%)	1 (5.56%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que se aislara.:			0.643
0	32 (68.1%)	14 (77.8%)
1	15 (31.9%)	4 (22.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Se hizo el examen para descartar COVID-19.:			1.000
0	18 (38.3%)	7 (38.9%)
1	29 (61.7%)	11 (61.1%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.:			1.000
0	39 (83.0%)	15 (83.3%)
1	8 (17.0%)	3 (16.7%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:			0.167
0	41 (87.2%)	18 (100%)
1	6 (12.8%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.:			0.059
FALSE	43 (91.5%)	13 (72.2%)
TRUE	4 (8.51%)	5 (27.8%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:			1.000
Nada	1 (2.13%)	0 (0.00%)
Un poco	5 (10.6%)	2 (11.1%)
Bastante	9 (19.1%)	4 (22.2%)
Mucho	32 (68.1%)	12 (66.7%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:			0.908
1 (Poco o nada)	1 (2.13%)	0 (0.00%)
2	1 (2.13%)	0 (0.00%)
3	3 (6.38%)	1 (5.56%)
4	2 (4.26%)	2 (11.1%)
5	9 (19.1%)	5 (27.8%)
6	8 (17.0%)	2 (11.1%)
7	9 (19.1%)	3 (16.7%)
8	6 (12.8%)	4 (22.2%)
9	7 (14.9%)	1 (5.56%)
10 (Tanto miedo como nunca he sentido)	1 (2.13%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:			0.239
FALSE	12 (25.5%)	8 (44.4%)
TRUE	35 (74.5%)	10 (55.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):			0.915
FALSE	21 (44.7%)	9 (50.0%)
TRUE	26 (55.3%)	9 (50.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:			0.255
FALSE	17 (36.2%)	10 (55.6%)
TRUE	30 (63.8%)	8 (44.4%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:			0.311
FALSE	43 (91.5%)	18 (100%)
TRUE	4 (8.51%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:			0.662
FALSE	5 (10.6%)	1 (5.56%)
TRUE	42 (89.4%)	17 (94.4%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:			1.000
FALSE	8 (17.0%)	3 (16.7%)
TRUE	39 (83.0%)	15 (83.3%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:			0.748
FALSE	10 (21.3%)	3 (16.7%)
TRUE	37 (78.7%)	15 (83.3%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	47 (100%)	18 (100%)	.
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:			0.221
FALSE	11 (23.4%)	7 (38.9%)
TRUE	36 (76.6%)	11 (61.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:			0.841
FALSE	24 (51.1%)	8 (44.4%)
TRUE	23 (48.9%)	10 (55.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:			0.419
FALSE	40 (85.1%)	17 (94.4%)
TRUE	7 (14.9%)	1 (5.56%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	47 (100%)	18 (100%)	.
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.:			0.920
Suficiente	31 (66.0%)	13 (72.2%)
Insuficiente	10 (21.3%)	3 (16.7%)
No Aplica	6 (12.8%)	2 (11.1%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector de ojos.:			0.655
Suficiente	11 (23.4%)	6 (33.3%)
Insuficiente	27 (57.4%)	10 (55.6%)
No Aplica	9 (19.1%)	2 (11.1%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.:			0.740
Suficiente	24 (51.1%)	11 (61.1%)
Insuficiente	17 (36.2%)	6 (33.3%)
No Aplica	6 (12.8%)	1 (5.56%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.:			1.000
Suficiente	5 (10.6%)	2 (11.1%)
Insuficiente	12 (25.5%)	4 (22.2%)
No Aplica	30 (63.8%)	12 (66.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Desinfectante de manos.:			1.000
Suficiente	39 (83.0%)	14 (77.8%)
Insuficiente	7 (14.9%)	3 (16.7%)
No Aplica	1 (2.13%)	1 (5.56%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla quirúrgica.:			0.666
Suficiente	35 (74.5%)	12 (66.7%)
Insuficiente	11 (23.4%)	6 (33.3%)
No Aplica	1 (2.13%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla N95.:			0.929
Suficiente	16 (34.0%)	7 (38.9%)
Insuficiente	27 (57.4%)	9 (50.0%)
No Aplica	4 (8.51%)	2 (11.1%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Respiradores de partículas de aire impulsado.:			0.522
Insuficiente	13 (27.7%)	3 (16.7%)
No Aplica	34 (72.3%)	15 (83.3%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Delantal/Pechera.:			1.000
Suficiente	30 (63.8%)	11 (61.1%)
Insuficiente	10 (21.3%)	4 (22.2%)
No Aplica	7 (14.9%)	3 (16.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cofia.:			0.939
Suficiente	15 (31.9%)	7 (38.9%)
Insuficiente	19 (40.4%)	6 (33.3%)
No Aplica	13 (27.7%)	5 (27.8%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cubre calzado.:			0.151
Suficiente	1 (2.13%)	1 (5.56%)
Insuficiente	20 (42.6%)	3 (16.7%)
No Aplica	26 (55.3%)	14 (77.8%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:			0.908
Sí, en el último mes	1 (2.13%)	1 (5.56%)
Sí, en los últimos 6 meses	16 (34.0%)	6 (33.3%)
Sí, el año pasado	20 (42.6%)	9 (50.0%)
Sí, hace 2-5 años	2 (4.26%)	1 (5.56%)
Sí, hace más de 5 años	1 (2.13%)	0 (0.00%)
No he sido capacitado	7 (14.9%)	1 (5.56%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:			0.070
Excelente	1 (2.50%)	3 (17.6%)
Buena	23 (57.5%)	6 (35.3%)
Regular	16 (40.0%)	8 (47.1%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:			0.134
Poco	4 (8.51%)	0 (0.00%)
Algo	11 (23.4%)	3 (16.7%)
Bastante	29 (61.7%)	11 (61.1%)
Totalmente	2 (4.26%)	4 (22.2%)
No aplica	1 (2.13%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Mi empleador se ha rehusado a dar cierto tipo de EPP.:			1.000
0	36 (76.6%)	14 (77.8%)
1	11 (23.4%)	4 (22.2%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Necesito permiso para utilizar algún EPP específico.:			0.311
0	36 (76.6%)	16 (88.9%)
1	11 (23.4%)	2 (11.1%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar mi propio EPP.:			0.553
0	44 (93.6%)	18 (100%)
1	3 (6.38%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar EPP’s utilizados previamente por otros.:			0.756
0	36 (76.6%)	13 (72.2%)
1	11 (23.4%)	5 (27.8%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica:			0.720
FALSE	39 (83.0%)	14 (77.8%)
TRUE	8 (17.0%)	4 (22.2%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Otro (especifique).:			1.000
He comprado mis EPP´S	1 (25.0%)	0 (0.00%)
La mascarilla hay que hacerla durar 7 dias	1 (25.0%)	0 (0.00%)
Reutilizar por 7 días la mascarilla kn95 y guardarla al terminar el turno	0 (0.00%)	1 (100%)
si no trabajan no pagan	1 (25.0%)	0 (0.00%)
Uso restringido de epp	1 (25.0%)	0 (0.00%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:			0.397
Poco	5 (10.6%)	0 (0.00%)
Algo	14 (29.8%)	5 (27.8%)
Bastante	26 (55.3%)	11 (61.1%)
Totalmente	2 (4.26%)	2 (11.1%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro::			0.723
Negarme a trabajar no es una opción legalmente disponible para mí	5 (10.6%)	2 (11.1%)
Definitivamente, no es posible negarme a trabajar	7 (14.9%)	1 (5.56%)
Es improbable que pueda negarme a trabajar	7 (14.9%)	3 (16.7%)
Quizás, en una situación extrema podría negarme a trabajar	11 (23.4%)	3 (16.7%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	11 (23.4%)	4 (22.2%)
Definitivamente, no dudaría en negarme a trabajar	6 (12.8%)	5 (27.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.:			0.489
Apropiadas y bien implementadas	12 (25.5%)	4 (22.2%)
Apropiadas pero mal implementadas	16 (34.0%)	3 (16.7%)
Inapropiadas	2 (4.26%)	2 (11.1%)
Deficientes	15 (31.9%)	7 (38.9%)
No sabe	2 (4.26%)	2 (11.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.:			0.169
Apropiadas y bien implementadas	22 (46.8%)	6 (33.3%)
Apropiadas pero mal implementadas	13 (27.7%)	5 (27.8%)
Inapropiadas	2 (4.26%)	0 (0.00%)
Deficientes	3 (6.38%)	3 (16.7%)
No sabe	1 (2.13%)	3 (16.7%)
No aplica	6 (12.8%)	1 (5.56%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.:			0.842
Apropiadas y bien implementadas	26 (55.3%)	12 (66.7%)
Apropiadas pero mal implementadas	9 (19.1%)	2 (11.1%)
Inapropiadas	3 (6.38%)	1 (5.56%)
Deficientes	3 (6.38%)	0 (0.00%)
No sabe	3 (6.38%)	2 (11.1%)
No aplica	3 (6.38%)	1 (5.56%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.:			0.577
Apropiadas y bien implementadas	20 (42.6%)	11 (61.1%)
Apropiadas pero mal implementadas	14 (29.8%)	3 (16.7%)
Inapropiadas	3 (6.38%)	0 (0.00%)
Deficientes	4 (8.51%)	2 (11.1%)
No sabe	6 (12.8%)	2 (11.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:			0.762
Apropiadas y bien implementadas	4 (8.51%)	3 (16.7%)
Apropiadas pero mal implementadas	3 (6.38%)	3 (16.7%)
Inapropiadas	10 (21.3%)	3 (16.7%)
Deficientes	20 (42.6%)	6 (33.3%)
No sabe	7 (14.9%)	2 (11.1%)
No aplica	3 (6.38%)	1 (5.56%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:			0.617
Apropiadas y bien implementadas	14 (29.8%)	5 (27.8%)
Apropiadas pero mal implementadas	7 (14.9%)	4 (22.2%)
Inapropiadas	5 (10.6%)	1 (5.56%)
Deficientes	11 (23.4%)	3 (16.7%)
No sabe	4 (8.51%)	4 (22.2%)
No aplica	6 (12.8%)	1 (5.56%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.:			0.059
Apropiadas y bien implementadas	5 (10.6%)	0 (0.00%)
Apropiadas pero mal implementadas	5 (10.6%)	6 (33.3%)
Inapropiadas	6 (12.8%)	4 (22.2%)
Deficientes	24 (51.1%)	5 (27.8%)
No sabe	4 (8.51%)	3 (16.7%)
No aplica	3 (6.38%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:			0.437
Apropiadas y bien implementadas	5 (10.6%)	3 (16.7%)
Apropiadas pero mal implementadas	3 (6.38%)	2 (11.1%)
Inapropiadas	2 (4.26%)	3 (16.7%)
Deficientes	17 (36.2%)	3 (16.7%)
No sabe	14 (29.8%)	5 (27.8%)
No aplica	6 (12.8%)	2 (11.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:			0.964
Apropiadas y bien implementadas	19 (40.4%)	7 (38.9%)
Apropiadas pero mal implementadas	7 (14.9%)	2 (11.1%)
Inapropiadas	2 (4.26%)	0 (0.00%)
Deficientes	5 (10.6%)	3 (16.7%)
No sabe	12 (25.5%)	5 (27.8%)
No aplica	2 (4.26%)	1 (5.56%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Sindicato/gremio.:			0.088
Totalmente de acuerdo	7 (14.9%)	0 (0.00%)
De acuerdo	14 (29.8%)	6 (33.3%)
Ni de acuerdo ni en desacuerdo	15 (31.9%)	9 (50.0%)
En desacuerdo	10 (21.3%)	1 (5.56%)
Totalmente en desacuerdo	1 (2.13%)	2 (11.1%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Empleador.:			0.874
Totalmente de acuerdo	3 (6.38%)	2 (11.1%)
De acuerdo	14 (29.8%)	6 (33.3%)
Ni de acuerdo ni en desacuerdo	17 (36.2%)	7 (38.9%)
En desacuerdo	12 (25.5%)	3 (16.7%)
Totalmente en desacuerdo	1 (2.13%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Gobierno.:			0.202
Totalmente de acuerdo	0 (0.00%)	2 (11.1%)
De acuerdo	4 (8.51%)	1 (5.56%)
Ni de acuerdo ni en desacuerdo	10 (21.3%)	2 (11.1%)
En desacuerdo	22 (46.8%)	9 (50.0%)
Totalmente en desacuerdo	11 (23.4%)	4 (22.2%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.:			0.961
Totalmente de acuerdo	1 (2.13%)	0 (0.00%)
De acuerdo	10 (21.3%)	3 (16.7%)
Ni de acuerdo ni en desacuerdo	23 (48.9%)	9 (50.0%)
En desacuerdo	10 (21.3%)	4 (22.2%)
Totalmente en desacuerdo	3 (6.38%)	2 (11.1%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?:			0.750
Mantengo las mismas labores	31 (73.8%)	12 (70.6%)
Mantengo las mismas labores, pero en un área distinta	3 (7.14%)	2 (11.8%)
Mantengo las mismas labores, pero en un lugar físico distinto	1 (2.38%)	0 (0.00%)
Mantengo las mismas labores, pero en área y lugar físico distintos	0 (0.00%)	1 (5.88%)
Distintas labores, pero en la misma área	3 (7.14%)	1 (5.88%)
Distintas labores, pero en el mismo lugar físico	2 (4.76%)	0 (0.00%)
Labores, área y lugar físico distintos	2 (4.76%)	1 (5.88%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?:			0.179
Buena	3 (7.32%)	4 (23.5%)
Regular	25 (61.0%)	10 (58.8%)
Mala	13 (31.7%)	3 (17.6%)
¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.:			0.924
Totalmente de acuerdo	11 (26.8%)	3 (17.6%)
De acuerdo	17 (41.5%)	7 (41.2%)
Neutral	9 (22.0%)	5 (29.4%)
En desacuerdo	3 (7.32%)	1 (5.88%)
Totalmente en desacuerdo	1 (2.44%)	1 (5.88%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:			0.429
Siempre	10 (24.4%)	3 (17.6%)
La mayoría <br>de las veces	10 (24.4%)	7 (41.2%)
Algunas veces	15 (36.6%)	7 (41.2%)
Sólo unas <br>pocas veces	5 (12.2%)	0 (0.00%)
Nunca	1 (2.44%)	0 (0.00%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:			0.749
Siempre	9 (22.0%)	4 (23.5%)
La mayoría <br>de las veces	20 (48.8%)	10 (58.8%)
Algunas veces	7 (17.1%)	3 (17.6%)
Sólo unas <br>pocas veces	4 (9.76%)	0 (0.00%)
Nunca	1 (2.44%)	0 (0.00%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:			0.631
Siempre	3 (7.32%)	3 (17.6%)
La mayoría <br>de las veces	20 (48.8%)	9 (52.9%)
Algunas veces	14 (34.1%)	4 (23.5%)
Sólo unas <br>pocas veces	4 (9.76%)	1 (5.88%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:			0.821
Siempre	2 (4.88%)	2 (11.8%)
La mayoría <br>de las veces	5 (12.2%)	1 (5.88%)
Algunas veces	17 (41.5%)	7 (41.2%)
Sólo unas <br>pocas veces	10 (24.4%)	5 (29.4%)
Nunca	7 (17.1%)	2 (11.8%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:			0.844
Siempre	3 (7.32%)	2 (11.8%)
La mayoría <br>de las veces	7 (17.1%)	4 (23.5%)
Algunas veces	20 (48.8%)	8 (47.1%)
Sólo unas <br>pocas veces	9 (22.0%)	3 (17.6%)
Nunca	2 (4.88%)	0 (0.00%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:			0.072
Siempre	12 (29.3%)	9 (52.9%)
La mayoría <br>de las veces	17 (41.5%)	3 (17.6%)
Algunas veces	7 (17.1%)	1 (5.88%)
Sólo unas <br>pocas veces	3 (7.32%)	4 (23.5%)
Nunca	2 (4.88%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:			0.094
Siempre	10 (24.4%)	9 (52.9%)
La mayoría <br>de las veces	16 (39.0%)	3 (17.6%)
Algunas veces	10 (24.4%)	1 (5.88%)
Sólo unas <br>pocas veces	3 (7.32%)	2 (11.8%)
Nunca	2 (4.88%)	2 (11.8%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:			0.613
Siempre	12 (29.3%)	5 (29.4%)
La mayoría <br>de las veces	16 (39.0%)	9 (52.9%)
Algunas veces	10 (24.4%)	3 (17.6%)
Sólo unas <br>pocas veces	3 (7.32%)	0 (0.00%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:			0.077
Siempre	7 (17.1%)	6 (35.3%)
La mayoría <br>de las veces	20 (48.8%)	5 (29.4%)
Algunas veces	12 (29.3%)	4 (23.5%)
Sólo unas <br>pocas veces	2 (4.88%)	0 (0.00%)
Nunca	0 (0.00%)	2 (11.8%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:			0.577
Siempre	28 (68.3%)	10 (58.8%)
La mayoría <br>de las veces	9 (22.0%)	4 (23.5%)
Algunas veces	4 (9.76%)	2 (11.8%)
Nunca	0 (0.00%)	1 (5.88%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles.:			0.385
Apenas cierto	0 (0.00%)	1 (5.88%)
Más bien cierto	14 (35.0%)	6 (35.3%)
Cierto	26 (65.0%)	10 (58.8%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.:			0.704
Apenas cierto	1 (2.50%)	1 (5.88%)
Más bien cierto	13 (32.5%)	7 (41.2%)
Cierto	26 (65.0%)	9 (52.9%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas.:			0.159
Apenas cierto	1 (2.50%)	2 (11.8%)
Más bien cierto	14 (35.0%)	8 (47.1%)
Cierto	25 (62.5%)	7 (41.2%)
Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;
Variables categóricas son presentadas como el recuento y el porcentaje

#janitor::tabyl(p20_contr_cont_med_pev_1_simpler)
#   p27_cond_trab_sup_jef
table4_sit_contr <- suppressWarnings(compareGroups(sit_contractual ~ 
            agotamiento_estres_irritabilidad+
            estres_postraumatico+
            agotamiento_estres_irritabilidad_ptje+
            estres_postraumatico_ptje+
            agotamiento_estres_irritabilidad_q75+
            estres_postraumatico_q75+
            tamizaje_ans+
            tamizaje_dep+
            p8_exp_c19_cerca_cont_rec+
            ptjes_p9+
            p10_exp_c19_preocupa_llevar_rec+
            p11_exp_c19_miedo_pand_rec+
            p14_contr_cont_cap_epp_rec+
            p15_contr_cont_14a_eval_cap_rec+
            p16_contr_cont_conf_epps_rec+
            ptjes_p17+
            p17_contr_cont_restr_epp_1_rec+
            p18_contr_cont_conf_eval_ri_rec+
            p19_contr_cont_nieg_epp_rec+
            p20_contr_cont_med_pev_1_p20_rec+
            p20_contr_cont_med_pev_2_p20_rec+
            p20_contr_cont_med_pev_3_p20_rec+
            p20_contr_cont_med_pev_4_p20_rec+
            p20_contr_cont_med_pev_5_p20_rec+
            p20_contr_cont_med_pev_6_p20_rec+
            p20_contr_cont_med_pev_7_p20_rec+
            p20_contr_cont_med_pev_8_p20_rec+
            p20_contr_cont_med_pev_9_p20_rec+
            p26_cond_trab_ent_protec_1_p26_rec+
            p26_cond_trab_ent_protec_2_p26_rec+
            p26_cond_trab_ent_protec_3_p26_rec+
            p26_cond_trab_ent_protec_4_p26_rec+
            p36_cond_trab_reasig_rec+
            p38_cond_trab_sal_psi_rec+
            p39_cond_trab_cult_org_rec+
            p40_cond_trab_istas_01_p40_rec+
            p40_cond_trab_istas_02_p40_rec+
            p40_cond_trab_istas_03_p40_rec+
            p40_cond_trab_istas_04_p40_rec+
            p40_cond_trab_istas_05_p40_rec+
            p40_cond_trab_istas_06_p40_rec+
            p40_cond_trab_istas_07_p40_rec+
            p40_cond_trab_istas_08_p40_rec+
            p40_cond_trab_istas_09_p40_rec+
            p40_cond_trab_istas_10_p40_rec+
            p40_istas_ex_psi+
            p40_istas_rel_su+
            p40_istas_con_rol+
            p40_istas_rel_comp+
            p42_resiliencia_1_p42_rec+
            p42_resiliencia_2_p42_rec+
            p42_resiliencia_3_p42_rec+
            p42_res_total+
             p3_siente_1+
             p3_siente_2+
             p3_siente_3+
             p3_siente_4+
             p3_siente_5+
             p3_siente_6+
             p4_afront_1+
             p4_afront_2+
             p4_afront_3+
             p5_animo_1+
             p5_animo_2+
             p5_animo_3+
             p5_animo_4+
             p6_exp_c19_pac_cont+
             p7_exp_c19_trab_cont+
             p8_exp_c19_cerca_cont+
             p9_exp_c19_exp_sit_dg_01+
             p9_exp_c19_exp_sit_dg_02+
             p9_exp_c19_exp_sit_dg_03+
             p9_exp_c19_exp_sit_dg_04+
             p9_exp_c19_exp_sit_dg_05+
             p9_exp_c19_exp_sit_dg_06+
             p9_exp_c19_exp_sit_dg_07+
             p9_exp_c19_exp_sit_dg_08+
             p9_exp_c19_exp_sit_dg_09+
             p9_exp_c19_exp_sit_dg_10+
             p9_exp_c19_exp_sit_dg_11+
             p10_exp_c19_preocupa_llevar+
             p11_exp_c19_miedo_pand+
             p12_contr_cont_imp_nec_01+
             p12_contr_cont_imp_nec_02+
             p12_contr_cont_imp_nec_03+
             p12_contr_cont_imp_nec_04+
             p12_contr_cont_imp_nec_05+
             p12_contr_cont_imp_nec_06+
             p12_contr_cont_imp_nec_07+
             p12_contr_cont_imp_nec_08+
             p12_contr_cont_imp_nec_09+
             p12_contr_cont_imp_nec_10+
             p12_contr_cont_imp_nec_11+
             p12_contr_cont_imp_nec_12+
             p13_contr_cont_imp_disp_01+
             p13_contr_cont_imp_disp_02+
             p13_contr_cont_imp_disp_03+
             p13_contr_cont_imp_disp_04+
             p13_contr_cont_imp_disp_05+
             p13_contr_cont_imp_disp_06+
             p13_contr_cont_imp_disp_07+
             p13_contr_cont_imp_disp_08+
             p13_contr_cont_imp_disp_09+
             p13_contr_cont_imp_disp_10+
             p13_contr_cont_imp_disp_11+
             p14_contr_cont_cap_epp+
             p15_contr_cont_14a_eval_cap+
             p16_contr_cont_conf_epps+
             p17_contr_cont_restr_epp_1+
             p17_contr_cont_restr_epp_2+
             p17_contr_cont_restr_epp_3+
             p17_contr_cont_restr_epp_4+
             p17_contr_cont_restr_epp_6+
             p17_contr_cont_restr_epp_7+
             p18_contr_cont_conf_eval_ri+
             p19_contr_cont_nieg_epp+
             p20_contr_cont_med_pev_1+
             p20_contr_cont_med_pev_2+
             p20_contr_cont_med_pev_3+
             p20_contr_cont_med_pev_4+
             p20_contr_cont_med_pev_5+
             p20_contr_cont_med_pev_6+
             p20_contr_cont_med_pev_7+
             p20_contr_cont_med_pev_8+
             p20_contr_cont_med_pev_9+
             p26_cond_trab_ent_protec_1+
             p26_cond_trab_ent_protec_2+
             p26_cond_trab_ent_protec_3+
             p26_cond_trab_ent_protec_4+
             #p28_cond_trab_sis_trab+
             #p32_cond_trab_est+
             #p33_cond_trab_sit_cont+
             p36_cond_trab_reasig+
             #p37_cond_trab_num_est+
             p38_cond_trab_sal_psi+
             p39_cond_trab_cult_org+
             p40_cond_trab_istas_01+
             p40_cond_trab_istas_02+
             p40_cond_trab_istas_03+
             p40_cond_trab_istas_04+
             p40_cond_trab_istas_05+
             p40_cond_trab_istas_06+
             p40_cond_trab_istas_07+
             p40_cond_trab_istas_08+
             p40_cond_trab_istas_09+
             p40_cond_trab_istas_10+
             p42_resiliencia_1+
             p42_resiliencia_2+
             p42_resiliencia_3, 
           method= c(
             agotamiento_estres_irritabilidad=3,
             estres_postraumatico=3,
             agotamiento_estres_irritabilidad_ptje=2,
             estres_postraumatico_ptje=2,
             agotamiento_estres_irritabilidad_q75=3,
             estres_postraumatico_q75=3,
             tamizaje_ans=3,
             tamizaje_dep=3,
              p8_exp_c19_cerca_cont_rec=3,
              ptjes_p9=2,
              p10_exp_c19_preocupa_llevar_rec=3,
              p11_exp_c19_miedo_pand_rec=3,
              p14_contr_cont_cap_epp_rec=3,
              p15_contr_cont_14a_eval_cap_rec=3,
              p16_contr_cont_conf_epps_rec=3,
              ptjes_p17=2,
              p17_contr_cont_restr_epp_1_rec=3,
              p18_contr_cont_conf_eval_ri_rec=3,
              p19_contr_cont_nieg_epp_rec=3,
              p20_contr_cont_med_pev_1_p20_rec=3,
              p20_contr_cont_med_pev_2_p20_rec=3,
              p20_contr_cont_med_pev_3_p20_rec=3,
              p20_contr_cont_med_pev_4_p20_rec=3,
              p20_contr_cont_med_pev_5_p20_rec=3,
              p20_contr_cont_med_pev_6_p20_rec=3,
              p20_contr_cont_med_pev_7_p20_rec=3,
              p20_contr_cont_med_pev_8_p20_rec=3,
              p20_contr_cont_med_pev_9_p20_rec=3,
              p26_cond_trab_ent_protec_1_p26_rec=3,
              p26_cond_trab_ent_protec_2_p26_rec=3,
              p26_cond_trab_ent_protec_3_p26_rec=3,
              p26_cond_trab_ent_protec_4_p26_rec=3,
              p36_cond_trab_reasig_rec=3,
              p38_cond_trab_sal_psi_rec=3,
              p39_cond_trab_cult_org_rec=3,
              p40_cond_trab_istas_01_p40_rec=3,
              p40_cond_trab_istas_02_p40_rec=3,
              p40_cond_trab_istas_03_p40_rec=3,
              p40_cond_trab_istas_04_p40_rec=3,
              p40_cond_trab_istas_05_p40_rec=3,
              p40_cond_trab_istas_06_p40_rec=3,
              p40_cond_trab_istas_07_p40_rec=3,
              p40_cond_trab_istas_08_p40_rec=3,
              p40_cond_trab_istas_09_p40_rec=3,
              p40_cond_trab_istas_10_p40_rec=3,
              p40_istas_ex_psi=2,
              p40_istas_rel_su=2,
              p40_istas_con_rol=2,
              p40_istas_rel_comp=2,
              p42_resiliencia_1_p42_rec=3,
              p42_resiliencia_2_p42_rec=3,
              p42_resiliencia_3_p42_rec=3,
              p42_res_total=2,
               p3_siente_1=3,
               p3_siente_2=3,
               p3_siente_3=3,
               p3_siente_4=3,
               p3_siente_5=3,
               p3_siente_6=3,
               p4_afront_1=3,
               p4_afront_2=3,
               p4_afront_3=3,
               p5_animo_1=3,
               p5_animo_2=3,
               p5_animo_3=3,
               p5_animo_4=3,
               agotamiento_estres_irritabilidad=2,
               estres_postraumatico=2,
               tamizaje_ans=3,
               tamizaje_dep=3,
               p6_exp_c19_pac_cont=3,
               p7_exp_c19_trab_cont=3,
               p8_exp_c19_cerca_cont=3,
               p9_exp_c19_exp_sit_dg_01=3,
               p9_exp_c19_exp_sit_dg_02=3,
               p9_exp_c19_exp_sit_dg_03=3,
               p9_exp_c19_exp_sit_dg_04=3,
               p9_exp_c19_exp_sit_dg_05=3,
               p9_exp_c19_exp_sit_dg_06=3,
               p9_exp_c19_exp_sit_dg_07=3,
               p9_exp_c19_exp_sit_dg_08=3,
               p9_exp_c19_exp_sit_dg_09=3,
               p9_exp_c19_exp_sit_dg_10=3,
               p9_exp_c19_exp_sit_dg_11=3,
               p10_exp_c19_preocupa_llevar=3,
               p11_exp_c19_miedo_pand=3,
               p12_contr_cont_imp_nec_01=3,
               p12_contr_cont_imp_nec_02=3,
               p12_contr_cont_imp_nec_03=3,
               p12_contr_cont_imp_nec_04=3,
               p12_contr_cont_imp_nec_05=3,
               p12_contr_cont_imp_nec_06=3,
               p12_contr_cont_imp_nec_07=3,
               p12_contr_cont_imp_nec_08=3,
               p12_contr_cont_imp_nec_09=3,
               p12_contr_cont_imp_nec_10=3,
               p12_contr_cont_imp_nec_11=3,
               p12_contr_cont_imp_nec_12=3,
               p13_contr_cont_imp_disp_01=3,
               p13_contr_cont_imp_disp_02=3,
               p13_contr_cont_imp_disp_03=3,
               p13_contr_cont_imp_disp_04=3,
               p13_contr_cont_imp_disp_05=3,
               p13_contr_cont_imp_disp_06=3,
               p13_contr_cont_imp_disp_07=3,
               p13_contr_cont_imp_disp_08=3,
               p13_contr_cont_imp_disp_09=3,
               p13_contr_cont_imp_disp_10=3,
               p13_contr_cont_imp_disp_11=3,
               p14_contr_cont_cap_epp=3,
               p15_contr_cont_14a_eval_cap=3,
               p16_contr_cont_conf_epps=3,
               p17_contr_cont_restr_epp_1=3,
               p17_contr_cont_restr_epp_2=3,
               p17_contr_cont_restr_epp_3=3,
               p17_contr_cont_restr_epp_4=3,
               p17_contr_cont_restr_epp_6=3,
               p17_contr_cont_restr_epp_7=3,
               p18_contr_cont_conf_eval_ri=3,
               p19_contr_cont_nieg_epp=3,
               p20_contr_cont_med_pev_1=3,
               p20_contr_cont_med_pev_2=3,
               p20_contr_cont_med_pev_3=3,
               p20_contr_cont_med_pev_4=3,
               p20_contr_cont_med_pev_5=3,
               p20_contr_cont_med_pev_6=3,
               p20_contr_cont_med_pev_7=3,
               p20_contr_cont_med_pev_8=3,
               p20_contr_cont_med_pev_9=3,
               p26_cond_trab_ent_protec_1=3,
               p26_cond_trab_ent_protec_2=3,
               p26_cond_trab_ent_protec_3=3,
               p26_cond_trab_ent_protec_4=3,
               #p28_cond_trab_sis_trab=3,
               #p32_cond_trab_est=3,
               #p33_cond_trab_sit_cont=3,
               p36_cond_trab_reasig=3,
               #p37_cond_trab_num_est=3,
               p38_cond_trab_sal_psi=3,
               p39_cond_trab_cult_org=3,
               p40_cond_trab_istas_01=3,
               p40_cond_trab_istas_02=3,
               p40_cond_trab_istas_03=3,
               p40_cond_trab_istas_04=3,
               p40_cond_trab_istas_05=3,
               p40_cond_trab_istas_06=3,
               p40_cond_trab_istas_07=3,
               p40_cond_trab_istas_08=3,
               p40_cond_trab_istas_09=3,
               p40_cond_trab_istas_10=3,
               p42_resiliencia_1=3,
               p42_resiliencia_2=3,
               p42_resiliencia_3=3),
    data = surveymonkey_accionsalududp_df2_cor_table,
    include.miss = F, #baja el número de casos
    p.corrected=T,
    chisq.test.perm=T,
    chisq.test.seed=1234,
    var.equal=T)
  )


restab4_sit_contr <- createTable(table4_sit_contr, show.p.overall = T)
#Titulares         Contrata        Honorarios    Becario/Interno/Practicante      Otros
pvals4 <- getResults(table4_sit_contr)
#p.adjust(pvals, method = "BH")
export2md(restab4_sit_contr, size=10, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Tabla 5. Descriptivo Aplicación Hospital Roberto del Río según Tipo de Contrato",
          col.names=c("Variables", "Titulares", "Contrata", "Honorarios",   "Becario/Interno/Practicante", "Otros", "Sig.", "Sig. ordinal")
         )%>%
  kableExtra::add_footnote(c("Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;", 
                             "Variables categóricas son presentadas como el recuento y el porcentaje"), notation = "none")%>%
  kableExtra::scroll_box(width = "100%", height = "800px")

Tabla 5. Descriptivo Aplicación Hospital Roberto del Río según Tipo de Contrato

Variables	Titulares	Contrata	Honorarios	Becario/Interno/Practicante	Otros	Sig.	Sig. ordinal
	N=14	N=42	N=1	N=1	N=1
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):						0.217	0.080
1	8 (57.1%)	14 (33.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
2	2 (14.3%)	14 (33.3%)	0 (0.00%)	1 (100%)	0 (0.00%)
3	4 (28.6%)	14 (33.3%)	1 (100%)	0 (0.00%)	1 (100%)
Estrés Postraumático (4° Cuartil):						0.368	0.615
Ausencia de Indicadores de Estrés Post-traumático	12 (85.7%)	29 (69.0%)	0 (0.00%)	1 (100%)	1 (100%)
Indicadores de Estrés Post-traumático	2 (14.3%)	13 (31.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	262 [225;375]	350 [275;419]	400 [400;400]	350 [350;350]	400 [400;400]	0.569	0.116
Ptjes. Estrés Postraumático	2.50 [2.00;5.75]	5.00 [3.00;7.00]	7.00 [7.00;7.00]	4.00 [4.00;4.00]	6.00 [6.00;6.00]	0.474	0.098
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):						0.396	0.307
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	5 (35.7%)	20 (47.6%)	1 (100%)	0 (0.00%)	1 (100%)
Cuartiles 1 a 3	9 (64.3%)	22 (52.4%)	0 (0.00%)	1 (100%)	0 (0.00%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):						0.212	0.220
Cuartil de mayor ptje. Estrés Postraumático	5 (35.7%)	24 (57.1%)	1 (100%)	0 (0.00%)	1 (100%)
Cuartiles 1 a 3	9 (64.3%)	18 (42.9%)	0 (0.00%)	1 (100%)	0 (0.00%)
Sintomatología ansiosa:						0.942	0.145
Ausencia de Indicadores de Sintomatología Ansiosa	7 (50.0%)	17 (40.5%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Indicadores de Sintomatología Ansiosa	7 (50.0%)	25 (59.5%)	1 (100%)	1 (100%)	1 (100%)
Sintomatología depresiva:						0.133	0.033
Ausencia de Indicadores de Sintomatología Depresiva	10 (71.4%)	23 (54.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Indicadores de Sintomatología Depresiva	4 (28.6%)	19 (45.2%)	1 (100%)	1 (100%)	1 (100%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):						0.187	0.256
Contacto directo y estrecho con pacientes (menos de dos metros)	3 (21.4%)	16 (38.1%)	1 (100%)	1 (100%)	0 (0.00%)
Menor o ningún contacto con pacientes	11 (78.6%)	26 (61.9%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):						0.887	0.026
1	4 (33.3%)	8 (22.2%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
2	3 (25.0%)	5 (13.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
3	3 (25.0%)	5 (13.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más de 3	2 (16.7%)	18 (50.0%)	1 (100%)	1 (100%)	1 (100%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):						0.794	0.285
Bastante/Mucho	11 (78.6%)	37 (88.1%)	1 (100%)	1 (100%)	1 (100%)
Un poco/Nada/No aplica	3 (21.4%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):						0.395	0.433
Predomina el miedo	8 (57.1%)	28 (66.7%)	1 (100%)	0 (0.00%)	0 (0.00%)
Predomina la ausencia de miedo	6 (42.9%)	14 (33.3%)	0 (0.00%)	1 (100%)	1 (100%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):						0.154	0.545
Ha sido capacitado	11 (78.6%)	38 (90.5%)	1 (100%)	1 (100%)	0 (0.00%)
No ha sido capacitado	3 (21.4%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): Regular a Excelente	11 (100%)	38 (100%)	1 (100%)	1 (100%)	0 (.%)	.	.
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):						0.567	0.898
Nada/Poco/Algo/No aplica	5 (35.7%)	11 (26.2%)	0 (0.00%)	0 (0.00%)	1 (100%)
Totalmente/Bastante	9 (64.3%)	31 (73.8%)	1 (100%)	1 (100%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas):						0.169	0.095
1	9 (100%)	31 (81.6%)	0 (0.00%)	1 (100%)	0 (0.00%)
2	0 (0.00%)	5 (13.2%)	1 (100%)	0 (0.00%)	1 (100%)
3	0 (0.00%)	1 (2.63%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más de 3	0 (0.00%)	1 (2.63%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:						0.565	0.416
Empleador se ha rehusado a dar cierto tipo de EPP	3 (21.4%)	9 (21.4%)	0 (0.00%)	0 (0.00%)	1 (100%)
No se constata esta situación	11 (78.6%)	33 (78.6%)	1 (100%)	1 (100%)	0 (0.00%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada):						0.695	0.364
Algo/Bastante/Totalente/No aplica	12 (85.7%)	39 (92.9%)	1 (100%)	1 (100%)	1 (100%)
Poco/Nada	2 (14.3%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro (dicotomizada):						0.932	0.897
Incapacidad para negarse a trabajo inseguro	8 (57.1%)	22 (52.4%)	1 (100%)	0 (0.00%)	1 (100%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	6 (42.9%)	20 (47.6%)	0 (0.00%)	1 (100%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):						0.395	0.995
Apropiadas/No sabe/No aplica	8 (57.1%)	28 (66.7%)	0 (0.00%)	0 (0.00%)	1 (100%)
Inapropiadas/Deficientes	6 (42.9%)	14 (33.3%)	1 (100%)	1 (100%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada):						1.000	0.535
Apropiadas/No sabe/No aplica	12 (85.7%)	37 (88.1%)	1 (100%)	1 (100%)	1 (100%)
Inapropiadas/Deficientes	2 (14.3%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):						1.000	0.825
Apropiadas/No sabe/No aplica	13 (92.9%)	38 (90.5%)	1 (100%)	1 (100%)	1 (100%)
Inapropiadas/Deficientes	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud (Dicotomizada):						0.125	0.238
Apropiadas/No sabe/No aplica	14 (100%)	34 (81.0%)	0 (0.00%)	1 (100%)	1 (100%)
Inapropiadas/Deficientes	0 (0.00%)	8 (19.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):						0.842	0.661
Apropiadas/No sabe/No aplica	5 (35.7%)	17 (40.5%)	0 (0.00%)	0 (0.00%)	1 (100%)
Inapropiadas/Deficientes	9 (64.3%)	25 (59.5%)	1 (100%)	1 (100%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada):						0.591	0.898
Apropiadas/No sabe/No aplica	11 (78.6%)	29 (69.0%)	0 (0.00%)	1 (100%)	1 (100%)
Inapropiadas/Deficientes	3 (21.4%)	13 (31.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada):						0.358	0.163
Apropiadas/No sabe/No aplica	8 (57.1%)	16 (38.1%)	1 (100%)	0 (0.00%)	0 (0.00%)
Inapropiadas/Deficientes	6 (42.9%)	26 (61.9%)	0 (0.00%)	1 (100%)	1 (100%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):						0.155	0.053
Apropiadas/No sabe/No aplica	10 (71.4%)	28 (66.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Inapropiadas/Deficientes	4 (28.6%)	14 (33.3%)	1 (100%)	1 (100%)	1 (100%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada):						0.419	0.238
Apropiadas/No sabe/No aplica	12 (85.7%)	36 (85.7%)	1 (100%)	1 (100%)	0 (0.00%)
Inapropiadas/Deficientes	2 (14.3%)	6 (14.3%)	0 (0.00%)	0 (0.00%)	1 (100%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada):						0.627	0.394
Desacuerdo/Totalmente en desacuerdo	3 (21.4%)	10 (23.8%)	0 (0.00%)	0 (0.00%)	1 (100%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	11 (78.6%)	32 (76.2%)	1 (100%)	1 (100%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Empleador (Dicotomizada):						0.460	0.203
Desacuerdo/Totalmente en desacuerdo	2 (14.3%)	10 (23.8%)	0 (0.00%)	0 (0.00%)	1 (100%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	12 (85.7%)	32 (76.2%)	1 (100%)	1 (100%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada):						0.301	0.292
Desacuerdo/Totalmente en desacuerdo	9 (64.3%)	30 (71.4%)	1 (100%)	0 (0.00%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	5 (35.7%)	12 (28.6%)	0 (0.00%)	1 (100%)	1 (100%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada):						0.596	0.898
Desacuerdo/Totalmente en desacuerdo	2 (14.3%)	15 (35.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	12 (85.7%)	27 (64.3%)	1 (100%)	1 (100%)	1 (100%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal? (Dicotomizada):						0.353	0.615
Cambia área, labores o ambos producto de la pandemia	2 (14.3%)	13 (31.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
Mantiene las mismas labores en la misma área	12 (85.7%)	29 (69.0%)	0 (0.00%)	1 (100%)	1 (100%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada):						0.563	0.345
Excelente/Buena/Regular	11 (78.6%)	29 (70.7%)	1 (100%)	1 (100%)	0 (0.00%)
Mala	3 (21.4%)	12 (29.3%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada):						0.481	0.760
De acuerdo/Totalmente de acuerdo	11 (78.6%)	25 (61.0%)	0 (0.00%)	1 (100%)	1 (100%)
Neutral/En desacuerdo/Totalmente en desacuerdo	3 (21.4%)	16 (39.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):						0.167	0.413
La mayoría de las veces/Siempre	5 (35.7%)	24 (58.5%)	0 (0.00%)	0 (0.00%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	9 (64.3%)	17 (41.5%)	1 (100%)	1 (100%)	0 (0.00%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):						0.158	0.399
La mayoría de las veces/Siempre	8 (57.1%)	33 (80.5%)	1 (100%)	0 (0.00%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	6 (42.9%)	8 (19.5%)	0 (0.00%)	1 (100%)	0 (0.00%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):						0.571	0.215
La mayoría de las veces/Siempre	9 (64.3%)	25 (61.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
Nunca/Sólo unas pocas veces/Algunas veces	5 (35.7%)	16 (39.0%)	0 (0.00%)	1 (100%)	1 (100%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):						0.324	0.485
La mayoría de las veces/Siempre	3 (21.4%)	6 (14.6%)	0 (0.00%)	0 (0.00%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	11 (78.6%)	35 (85.4%)	1 (100%)	1 (100%)	0 (0.00%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada):						0.647	0.606
La mayoría de las veces/Siempre	4 (28.6%)	11 (26.8%)	0 (0.00%)	0 (0.00%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	10 (71.4%)	30 (73.2%)	1 (100%)	1 (100%)	0 (0.00%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):						0.171	0.325
La mayoría de las veces/Siempre	9 (64.3%)	31 (75.6%)	1 (100%)	0 (0.00%)	0 (0.00%)
Nunca/Sólo unas pocas veces/Algunas veces	5 (35.7%)	10 (24.4%)	0 (0.00%)	1 (100%)	1 (100%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):						0.568	0.618
La mayoría de las veces/Siempre	8 (57.1%)	28 (68.3%)	1 (100%)	0 (0.00%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	6 (42.9%)	13 (31.7%)	0 (0.00%)	1 (100%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):						0.292	0.443
La mayoría de las veces/Siempre	8 (57.1%)	32 (78.0%)	1 (100%)	0 (0.00%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	6 (42.9%)	9 (22.0%)	0 (0.00%)	1 (100%)	0 (0.00%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada):						0.819	0.923
La mayoría de las veces/Siempre	9 (64.3%)	27 (65.9%)	1 (100%)	0 (0.00%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	5 (35.7%)	14 (34.1%)	0 (0.00%)	1 (100%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):						1.000	0.544
La mayoría de las veces/Siempre	12 (85.7%)	36 (87.8%)	1 (100%)	1 (100%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (14.3%)	5 (12.2%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Suma ítems Exigencias Psicológicas ISTAS21	5.00 [3.25;6.00]	6.00 [5.00;7.00]	5.00 [5.00;5.00]	4.00 [4.00;4.00]	7.00 [7.00;7.00]	0.155	0.094
Suma ítems Calidad Relación con Superiores ISTAS21	8.50 [7.00;9.75]	9.00 [7.00;11.0]	11.0 [11.0;11.0]	3.00 [3.00;3.00]	7.00 [7.00;7.00]	0.348	0.952
Suma ítems Conflicto de Rol ISTAS21	4.00 [2.00;4.75]	4.00 [3.00;4.00]	2.00 [2.00;2.00]	4.00 [4.00;4.00]	7.00 [7.00;7.00]	0.441	0.956
Suma ítems Relación con Compañeros de Trabajo ISTAS21	5.00 [5.00;6.00]	6.00 [5.00;7.00]	7.00 [7.00;7.00]	4.00 [4.00;4.00]	7.00 [7.00;7.00]	0.376	0.307
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles (Dicotomizada):						1.000	0.838
Apenas cierto/Incorrecto	0 (0.00%)	1 (2.50%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más bien cierto/Cierto	14 (100%)	39 (97.5%)	1 (100%)	1 (100%)	1 (100%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada):						0.664	0.771
Apenas cierto/Incorrecto	0 (0.00%)	2 (5.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más bien cierto/Cierto	14 (100%)	38 (95.0%)	1 (100%)	1 (100%)	1 (100%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada):						1.000	0.620
Apenas cierto/Incorrecto	1 (7.14%)	2 (5.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más bien cierto/Cierto	13 (92.9%)	38 (95.0%)	1 (100%)	1 (100%)	1 (100%)
Suma puntajes de resilencia	8.50 [6.25;9.00]	8.00 [7.00;9.00]	6.00 [6.00;6.00]	6.00 [6.00;6.00]	8.00 [8.00;8.00]	0.502	0.515
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:						0.633	0.540
Sólo unas pocas <br>veces	2 (14.3%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	7 (50.0%)	16 (38.1%)	1 (100%)	0 (0.00%)	0 (0.00%)
La mayoría de las veces	2 (14.3%)	18 (42.9%)	0 (0.00%)	1 (100%)	1 (100%)
Siempre	3 (21.4%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:						0.542	0.293
Nunca	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	2 (14.3%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	7 (50.0%)	19 (45.2%)	0 (0.00%)	1 (100%)	0 (0.00%)
La mayoría de las veces	2 (14.3%)	16 (38.1%)	1 (100%)	0 (0.00%)	1 (100%)
Siempre	2 (14.3%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:						0.226	0.030
Nunca	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	6 (42.9%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	4 (28.6%)	19 (45.2%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
La mayoría de las veces	3 (21.4%)	16 (38.1%)	1 (100%)	1 (100%)	1 (100%)
Siempre	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:						0.345	0.145
Nunca	1 (7.14%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	7 (50.0%)	12 (28.6%)	0 (0.00%)	1 (100%)	0 (0.00%)
Algunas veces	4 (28.6%)	20 (47.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
La mayoría de las veces	2 (14.3%)	5 (11.9%)	1 (100%)	0 (0.00%)	1 (100%)
Siempre	0 (0.00%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:						0.539	0.513
Nunca	0 (0.00%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	5 (35.7%)	6 (14.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	4 (28.6%)	14 (33.3%)	0 (0.00%)	0 (0.00%)	1 (100%)
La mayoría de las veces	3 (21.4%)	8 (19.0%)	1 (100%)	1 (100%)	0 (0.00%)
Siempre	2 (14.3%)	11 (26.2%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:						0.812	0.604
Nunca	2 (14.3%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	5 (35.7%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	2 (14.3%)	16 (38.1%)	1 (100%)	1 (100%)	1 (100%)
La mayoría de las veces	3 (21.4%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Siempre	2 (14.3%)	9 (21.4%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.:						0.525	0.196
Nada	3 (21.4%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Un poco	6 (42.9%)	9 (21.4%)	0 (0.00%)	1 (100%)	0 (0.00%)
Regular	3 (21.4%)	14 (33.3%)	1 (100%)	0 (0.00%)	0 (0.00%)
Bastante	1 (7.14%)	11 (26.2%)	0 (0.00%)	0 (0.00%)	1 (100%)
Mucho	1 (7.14%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.:						0.232	0.374
Nada	3 (21.4%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Un poco	6 (42.9%)	5 (11.9%)	0 (0.00%)	1 (100%)	0 (0.00%)
Regular	2 (14.3%)	18 (42.9%)	0 (0.00%)	0 (0.00%)	1 (100%)
Bastante	1 (7.14%)	12 (28.6%)	1 (100%)	0 (0.00%)	0 (0.00%)
Mucho	2 (14.3%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:						0.313	0.295
Nada	6 (42.9%)	10 (23.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Un poco	3 (21.4%)	20 (47.6%)	0 (0.00%)	0 (0.00%)	1 (100%)
Regular	5 (35.7%)	6 (14.3%)	1 (100%)	1 (100%)	0 (0.00%)
Bastante	0 (0.00%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Mucho	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido Nervioso, ansioso o con los nervios de punta.:						0.873	0.979
Nunca	3 (21.4%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunos días	7 (50.0%)	28 (66.7%)	1 (100%)	1 (100%)	1 (100%)
Más de la mitad de los días	3 (21.4%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Casi todos los días	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:						0.739	0.184
Nunca	2 (14.3%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunos días	7 (50.0%)	15 (35.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más de la mitad de los días	3 (21.4%)	20 (47.6%)	1 (100%)	1 (100%)	1 (100%)
Casi todos los días	2 (14.3%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas.:						0.341	0.306
Nunca	1 (7.14%)	6 (14.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunos días	10 (71.4%)	24 (57.1%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más de la mitad de los días	1 (7.14%)	8 (19.0%)	1 (100%)	1 (100%)	1 (100%)
Casi todos los días	2 (14.3%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado.:						0.380	0.774
Nunca	0 (0.00%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunos días	10 (71.4%)	20 (47.6%)	1 (100%)	0 (0.00%)	0 (0.00%)
Más de la mitad de los días	2 (14.3%)	12 (28.6%)	0 (0.00%)	1 (100%)	1 (100%)
Casi todos los días	2 (14.3%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cuántos PACIENTES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:						0.406	0.924
Ninguno	9 (64.3%)	22 (52.4%)	0 (0.00%)	0 (0.00%)	1 (100%)
1 a 10	4 (28.6%)	17 (40.5%)	1 (100%)	1 (100%)	0 (0.00%)
11 a 30	0 (0.00%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
31 a 100	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
101 a 200	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cuántos TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:						0.402	0.717
Ninguno	7 (50.0%)	16 (38.1%)	0 (0.00%)	0 (0.00%)	1 (100%)
Sólo uno	4 (28.6%)	12 (28.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
2 a 10	2 (14.3%)	12 (28.6%)	1 (100%)	1 (100%)	0 (0.00%)
11 a 25	0 (0.00%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más de 50	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:						0.834	0.107
Trabajo en contacto directo con pacientes	3 (21.4%)	14 (33.3%)	1 (100%)	1 (100%)	0 (0.00%)
Trabajo a menos de dos metros de pacientes	0 (0.00%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia)	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Trabajo en el mismo piso/sala/departamento	1 (7.14%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Como parte de mi trabajo visito un piso/sala/departamento	3 (21.4%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	1 (100%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	4 (28.6%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Ninguno que yo esté en conocimiento	3 (21.4%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.:						0.441	0.492
0	9 (64.3%)	21 (50.0%)	0 (0.00%)	0 (0.00%)	1 (100%)
1	5 (35.7%)	21 (50.0%)	1 (100%)	1 (100%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.:						1.000	0.568
0	11 (78.6%)	32 (76.2%)	1 (100%)	1 (100%)	1 (100%)
1	3 (21.4%)	10 (23.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de la exposición a COVID-19.:						0.037	0.008
0	12 (85.7%)	30 (71.4%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
1	2 (14.3%)	12 (28.6%)	1 (100%)	1 (100%)	1 (100%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.:						0.029	0.037
0	12 (85.7%)	21 (50.0%)	0 (0.00%)	1 (100%)	0 (0.00%)
1	2 (14.3%)	21 (50.0%)	1 (100%)	0 (0.00%)	1 (100%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de los síntomas.:						0.114	0.016
0	14 (100%)	37 (88.1%)	1 (100%)	1 (100%)	0 (0.00%)
1	0 (0.00%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le dijeron que trabajara a pesar de no contar con EPP’s.:						0.058	0.008
0	13 (92.9%)	33 (78.6%)	1 (100%)	0 (0.00%)	0 (0.00%)
1	1 (7.14%)	9 (21.4%)	0 (0.00%)	1 (100%)	1 (100%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que se aislara.:						0.273	0.431
0	8 (57.1%)	33 (78.6%)	1 (100%)	0 (0.00%)	1 (100%)
1	6 (42.9%)	9 (21.4%)	0 (0.00%)	1 (100%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Se hizo el examen para descartar COVID-19.:						0.798	0.698
0	5 (35.7%)	16 (38.1%)	0 (0.00%)	0 (0.00%)	1 (100%)
1	9 (64.3%)	26 (61.9%)	1 (100%)	1 (100%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.:						1.000	0.743
0	12 (85.7%)	34 (81.0%)	1 (100%)	1 (100%)	1 (100%)
1	2 (14.3%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:						0.487	0.642
0	14 (100%)	37 (88.1%)	1 (100%)	1 (100%)	1 (100%)
1	0 (0.00%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.:						1.000	0.609
FALSE	12 (85.7%)	36 (85.7%)	1 (100%)	1 (100%)	1 (100%)
TRUE	2 (14.3%)	6 (14.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:						0.089	0.327
Nada	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Un poco	2 (14.3%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Bastante	6 (42.9%)	5 (11.9%)	0 (0.00%)	1 (100%)	1 (100%)
Mucho	5 (35.7%)	32 (76.2%)	1 (100%)	0 (0.00%)	0 (0.00%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:						0.289	0.728
1 (Poco o nada)	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
2	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
3	2 (14.3%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	1 (100%)
4	0 (0.00%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
5	3 (21.4%)	8 (19.0%)	0 (0.00%)	1 (100%)	0 (0.00%)
6	2 (14.3%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
7	3 (21.4%)	8 (19.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
8	3 (21.4%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
9	0 (0.00%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:						0.041	0.322
FALSE	8 (57.1%)	10 (23.8%)	0 (0.00%)	0 (0.00%)	1 (100%)
TRUE	6 (42.9%)	32 (76.2%)	1 (100%)	1 (100%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):						0.345	0.133
FALSE	5 (35.7%)	22 (52.4%)	0 (0.00%)	1 (100%)	1 (100%)
TRUE	9 (64.3%)	20 (47.6%)	1 (100%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:						0.020	0.075
FALSE	10 (71.4%)	14 (33.3%)	0 (0.00%)	1 (100%)	0 (0.00%)
TRUE	4 (28.6%)	28 (66.7%)	1 (100%)	0 (0.00%)	1 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:						0.631	0.723
FALSE	14 (100%)	39 (92.9%)	1 (100%)	1 (100%)	1 (100%)
TRUE	0 (0.00%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:						1.000	0.825
FALSE	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
TRUE	13 (92.9%)	38 (90.5%)	1 (100%)	1 (100%)	1 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:						0.592	0.809
FALSE	1 (7.14%)	10 (23.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
TRUE	13 (92.9%)	32 (76.2%)	1 (100%)	1 (100%)	1 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:						0.619	0.109
FALSE	5 (35.7%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
TRUE	9 (64.3%)	35 (83.3%)	1 (100%)	1 (100%)	1 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	14 (100%)	42 (100%)	1 (100%)	1 (100%)	1 (100%)	.	.
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:						0.218	0.173
FALSE	4 (28.6%)	10 (23.8%)	0 (0.00%)	1 (100%)	1 (100%)
TRUE	10 (71.4%)	32 (76.2%)	1 (100%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:						0.683	0.683
FALSE	8 (57.1%)	20 (47.6%)	0 (0.00%)	1 (100%)	1 (100%)
TRUE	6 (42.9%)	22 (52.4%)	1 (100%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:						0.440	0.575
FALSE	14 (100%)	35 (83.3%)	1 (100%)	1 (100%)	1 (100%)
TRUE	0 (0.00%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	14 (100%)	42 (100%)	1 (100%)	1 (100%)	1 (100%)	.	.
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.:						0.389	0.861
Suficiente	8 (57.1%)	30 (71.4%)	1 (100%)	1 (100%)	0 (0.00%)
Insuficiente	3 (21.4%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No Aplica	3 (21.4%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	1 (100%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector de ojos.:						0.741	0.344
Suficiente	4 (28.6%)	12 (28.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Insuficiente	7 (50.0%)	23 (54.8%)	1 (100%)	1 (100%)	0 (0.00%)
No Aplica	3 (21.4%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	1 (100%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.:						0.291	0.350
Suficiente	5 (35.7%)	26 (61.9%)	1 (100%)	0 (0.00%)	0 (0.00%)
Insuficiente	5 (35.7%)	13 (31.0%)	0 (0.00%)	1 (100%)	1 (100%)
No Aplica	4 (28.6%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.:						0.521	0.444
Suficiente	0 (0.00%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Insuficiente	3 (21.4%)	10 (23.8%)	0 (0.00%)	1 (100%)	0 (0.00%)
No Aplica	11 (78.6%)	25 (59.5%)	1 (100%)	0 (0.00%)	1 (100%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Desinfectante de manos.:						0.717	0.787
Suficiente	13 (92.9%)	32 (76.2%)	1 (100%)	1 (100%)	1 (100%)
Insuficiente	1 (7.14%)	9 (21.4%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No Aplica	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla quirúrgica.:						0.055	0.196
Suficiente	10 (71.4%)	33 (78.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Insuficiente	3 (21.4%)	9 (21.4%)	1 (100%)	1 (100%)	1 (100%)
No Aplica	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla N95.:						0.850	0.924
Suficiente	4 (28.6%)	18 (42.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Insuficiente	8 (57.1%)	21 (50.0%)	1 (100%)	1 (100%)	1 (100%)
No Aplica	2 (14.3%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Respiradores de partículas de aire impulsado.:						0.565	0.725
Insuficiente	3 (21.4%)	9 (21.4%)	0 (0.00%)	1 (100%)	0 (0.00%)
No Aplica	11 (78.6%)	33 (78.6%)	1 (100%)	0 (0.00%)	1 (100%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Delantal/Pechera.:						0.289	0.391
Suficiente	8 (57.1%)	27 (64.3%)	1 (100%)	0 (0.00%)	0 (0.00%)
Insuficiente	3 (21.4%)	10 (23.8%)	0 (0.00%)	1 (100%)	0 (0.00%)
No Aplica	3 (21.4%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	1 (100%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cofia.:						0.264	0.784
Suficiente	2 (14.3%)	16 (38.1%)	1 (100%)	0 (0.00%)	0 (0.00%)
Insuficiente	7 (50.0%)	14 (33.3%)	0 (0.00%)	1 (100%)	0 (0.00%)
No Aplica	5 (35.7%)	12 (28.6%)	0 (0.00%)	0 (0.00%)	1 (100%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cubre calzado.:						0.522	0.464
Suficiente	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Insuficiente	4 (28.6%)	14 (33.3%)	1 (100%)	1 (100%)	0 (0.00%)
No Aplica	10 (71.4%)	27 (64.3%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:						0.507	0.323
Sí, en el último mes	1 (7.14%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sí, en los últimos 6 meses	4 (28.6%)	16 (38.1%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sí, el año pasado	6 (42.9%)	18 (42.9%)	1 (100%)	1 (100%)	0 (0.00%)
Sí, hace 2-5 años	0 (0.00%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No he sido capacitado	3 (21.4%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:						0.237	0.289
Excelente	0 (0.00%)	4 (10.5%)	0 (0.00%)	0 (0.00%)	0 (.%)
Buena	9 (81.8%)	17 (44.7%)	1 (100%)	0 (0.00%)	0 (.%)
Regular	2 (18.2%)	17 (44.7%)	0 (0.00%)	1 (100%)	0 (.%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:						0.645	0.344
Poco	1 (7.14%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algo	3 (21.4%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	1 (100%)
Bastante	7 (50.0%)	28 (66.7%)	1 (100%)	1 (100%)	0 (0.00%)
Totalmente	2 (14.3%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No aplica	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Mi empleador se ha rehusado a dar cierto tipo de EPP.:						0.569	0.416
0	11 (78.6%)	33 (78.6%)	1 (100%)	1 (100%)	0 (0.00%)
1	3 (21.4%)	9 (21.4%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Necesito permiso para utilizar algún EPP específico.:						0.072	0.212
0	14 (100%)	31 (73.8%)	0 (0.00%)	1 (100%)	1 (100%)
1	0 (0.00%)	11 (26.2%)	1 (100%)	0 (0.00%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar mi propio EPP.:						1.000	0.606
0	13 (92.9%)	40 (95.2%)	1 (100%)	1 (100%)	1 (100%)
1	1 (7.14%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar EPP’s utilizados previamente por otros.:						0.152	0.372
0	13 (92.9%)	29 (69.0%)	0 (0.00%)	1 (100%)	1 (100%)
1	1 (7.14%)	13 (31.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica:						0.070	0.609
FALSE	10 (71.4%)	39 (92.9%)	1 (100%)	0 (0.00%)	1 (100%)
TRUE	4 (28.6%)	3 (7.14%)	0 (0.00%)	1 (100%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Otro (especifique).:						1.000	0.180
He comprado mis EPP´S	1 (100%)	0 (0.00%)	0 (.%)	0 (.%)	0 (.%)
La mascarilla hay que hacerla durar 7 dias	0 (0.00%)	1 (33.3%)	0 (.%)	0 (.%)	0 (.%)
Reutilizar por 7 días la mascarilla kn95 y guardarla al terminar el turno	0 (0.00%)	1 (33.3%)	0 (.%)	0 (.%)	0 (.%)
Uso restringido de epp	0 (0.00%)	1 (33.3%)	0 (.%)	0 (.%)	0 (.%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:						0.752	0.948
Poco	2 (14.3%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algo	3 (21.4%)	13 (31.0%)	1 (100%)	1 (100%)	0 (0.00%)
Bastante	8 (57.1%)	23 (54.8%)	0 (0.00%)	0 (0.00%)	1 (100%)
Totalmente	1 (7.14%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro::						0.732	0.724
Negarme a trabajar no es una opción legalmente disponible para mí	1 (7.14%)	6 (14.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Definitivamente, no es posible negarme a trabajar	2 (14.3%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Es improbable que pueda negarme a trabajar	3 (21.4%)	4 (9.52%)	1 (100%)	0 (0.00%)	1 (100%)
Quizás, en una situación extrema podría negarme a trabajar	2 (14.3%)	9 (21.4%)	0 (0.00%)	1 (100%)	0 (0.00%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	4 (28.6%)	11 (26.2%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Definitivamente, no dudaría en negarme a trabajar	2 (14.3%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.:						0.771	0.775
Apropiadas y bien implementadas	3 (21.4%)	12 (28.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	3 (21.4%)	14 (33.3%)	0 (0.00%)	0 (0.00%)	1 (100%)
Inapropiadas	2 (14.3%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Deficientes	4 (28.6%)	12 (28.6%)	1 (100%)	1 (100%)	0 (0.00%)
No sabe	2 (14.3%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.:						0.184	0.159
Apropiadas y bien implementadas	7 (50.0%)	21 (50.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	2 (14.3%)	11 (26.2%)	1 (100%)	0 (0.00%)	0 (0.00%)
Inapropiadas	0 (0.00%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Deficientes	2 (14.3%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No sabe	1 (7.14%)	2 (4.76%)	0 (0.00%)	1 (100%)	0 (0.00%)
No aplica	2 (14.3%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.:						0.149	0.334
Apropiadas y bien implementadas	9 (64.3%)	26 (61.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	1 (7.14%)	8 (19.0%)	1 (100%)	1 (100%)	0 (0.00%)
Inapropiadas	0 (0.00%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Deficientes	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No sabe	1 (7.14%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No aplica	2 (14.3%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.:						0.198	0.112
Apropiadas y bien implementadas	9 (64.3%)	21 (50.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	3 (21.4%)	9 (21.4%)	0 (0.00%)	0 (0.00%)	1 (100%)
Inapropiadas	0 (0.00%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Deficientes	0 (0.00%)	5 (11.9%)	1 (100%)	0 (0.00%)	0 (0.00%)
No sabe	2 (14.3%)	4 (9.52%)	0 (0.00%)	1 (100%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:						0.596	0.409
Apropiadas y bien implementadas	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	1 (100%)
Apropiadas pero mal implementadas	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Inapropiadas	6 (42.9%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Deficientes	3 (21.4%)	18 (42.9%)	1 (100%)	1 (100%)	0 (0.00%)
No sabe	2 (14.3%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No aplica	1 (7.14%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:						0.696	0.954
Apropiadas y bien implementadas	6 (42.9%)	12 (28.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	2 (14.3%)	5 (11.9%)	0 (0.00%)	1 (100%)	1 (100%)
Inapropiadas	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Deficientes	2 (14.3%)	9 (21.4%)	1 (100%)	0 (0.00%)	0 (0.00%)
No sabe	1 (7.14%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No aplica	2 (14.3%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.:						0.459	0.255
Apropiadas y bien implementadas	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	3 (21.4%)	7 (16.7%)	1 (100%)	0 (0.00%)	0 (0.00%)
Inapropiadas	1 (7.14%)	6 (14.3%)	0 (0.00%)	1 (100%)	1 (100%)
Deficientes	5 (35.7%)	20 (47.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No sabe	2 (14.3%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No aplica	2 (14.3%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:						0.019	0.154
Apropiadas y bien implementadas	0 (0.00%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Inapropiadas	1 (7.14%)	1 (2.38%)	1 (100%)	1 (100%)	0 (0.00%)
Deficientes	3 (21.4%)	13 (31.0%)	0 (0.00%)	0 (0.00%)	1 (100%)
No sabe	7 (50.0%)	10 (23.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No aplica	2 (14.3%)	6 (14.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:						0.529	0.863
Apropiadas y bien implementadas	6 (42.9%)	17 (40.5%)	1 (100%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	8 (19.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Inapropiadas	1 (7.14%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Deficientes	1 (7.14%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	1 (100%)
No sabe	5 (35.7%)	9 (21.4%)	0 (0.00%)	1 (100%)	0 (0.00%)
No aplica	1 (7.14%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Sindicato/gremio.:						0.665	0.794
Totalmente de acuerdo	0 (0.00%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
De acuerdo	5 (35.7%)	13 (31.0%)	0 (0.00%)	1 (100%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	6 (42.9%)	14 (33.3%)	1 (100%)	0 (0.00%)	0 (0.00%)
En desacuerdo	3 (21.4%)	7 (16.7%)	0 (0.00%)	0 (0.00%)	1 (100%)
Totalmente en desacuerdo	0 (0.00%)	3 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Empleador.:						0.627	0.221
Totalmente de acuerdo	0 (0.00%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
De acuerdo	7 (50.0%)	12 (28.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	5 (35.7%)	15 (35.7%)	1 (100%)	1 (100%)	0 (0.00%)
En desacuerdo	2 (14.3%)	9 (21.4%)	0 (0.00%)	0 (0.00%)	1 (100%)
Totalmente en desacuerdo	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Gobierno.:						0.451	0.318
Totalmente de acuerdo	0 (0.00%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
De acuerdo	0 (0.00%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	5 (35.7%)	5 (11.9%)	0 (0.00%)	1 (100%)	1 (100%)
En desacuerdo	6 (42.9%)	21 (50.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
Totalmente en desacuerdo	3 (21.4%)	9 (21.4%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.:						0.764	0.816
Totalmente de acuerdo	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
De acuerdo	3 (21.4%)	8 (19.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	9 (64.3%)	18 (42.9%)	0 (0.00%)	1 (100%)	1 (100%)
En desacuerdo	2 (14.3%)	10 (23.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Totalmente en desacuerdo	0 (0.00%)	5 (11.9%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?:						0.328	0.272
Mantengo las mismas labores	12 (85.7%)	29 (69.0%)	0 (0.00%)	1 (100%)	1 (100%)
Mantengo las mismas labores, pero en un área distinta	1 (7.14%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Mantengo las mismas labores, pero en un lugar físico distinto	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Mantengo las mismas labores, pero en área y lugar físico distintos	0 (0.00%)	1 (2.38%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Distintas labores, pero en la misma área	0 (0.00%)	4 (9.52%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Distintas labores, pero en el mismo lugar físico	0 (0.00%)	2 (4.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Labores, área y lugar físico distintos	0 (0.00%)	2 (4.76%)	1 (100%)	0 (0.00%)	0 (0.00%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?:						0.718	0.483
Buena	1 (7.14%)	6 (14.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Regular	10 (71.4%)	23 (56.1%)	1 (100%)	1 (100%)	0 (0.00%)
Mala	3 (21.4%)	12 (29.3%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.:						0.537	0.839
Totalmente de acuerdo	2 (14.3%)	11 (26.8%)	0 (0.00%)	1 (100%)	0 (0.00%)
De acuerdo	9 (64.3%)	14 (34.1%)	0 (0.00%)	0 (0.00%)	1 (100%)
Neutral	2 (14.3%)	11 (26.8%)	1 (100%)	0 (0.00%)	0 (0.00%)
En desacuerdo	1 (7.14%)	3 (7.32%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Totalmente en desacuerdo	0 (0.00%)	2 (4.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:						0.557	0.120
Siempre	2 (14.3%)	10 (24.4%)	0 (0.00%)	0 (0.00%)	1 (100%)
La mayoría <br>de las veces	3 (21.4%)	14 (34.1%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	6 (42.9%)	14 (34.1%)	1 (100%)	1 (100%)	0 (0.00%)
Sólo unas <br>pocas veces	2 (14.3%)	3 (7.32%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Nunca	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:						0.270	0.143
Siempre	1 (7.14%)	12 (29.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
La mayoría <br>de las veces	7 (50.0%)	21 (51.2%)	1 (100%)	0 (0.00%)	1 (100%)
Algunas veces	2 (14.3%)	7 (17.1%)	0 (0.00%)	1 (100%)	0 (0.00%)
Sólo unas <br>pocas veces	3 (21.4%)	1 (2.44%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Nunca	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:						0.384	0.141
Siempre	2 (14.3%)	4 (9.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
La mayoría <br>de las veces	7 (50.0%)	21 (51.2%)	1 (100%)	0 (0.00%)	0 (0.00%)
Algunas veces	4 (28.6%)	13 (31.7%)	0 (0.00%)	0 (0.00%)	1 (100%)
Sólo unas <br>pocas veces	1 (7.14%)	3 (7.32%)	0 (0.00%)	1 (100%)	0 (0.00%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:						0.519	0.672
Siempre	2 (14.3%)	2 (4.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
La mayoría <br>de las veces	1 (7.14%)	4 (9.76%)	0 (0.00%)	0 (0.00%)	1 (100%)
Algunas veces	5 (35.7%)	18 (43.9%)	0 (0.00%)	1 (100%)	0 (0.00%)
Sólo unas <br>pocas veces	4 (28.6%)	10 (24.4%)	1 (100%)	0 (0.00%)	0 (0.00%)
Nunca	2 (14.3%)	7 (17.1%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:						0.385	0.450
Siempre	1 (7.14%)	3 (7.32%)	0 (0.00%)	0 (0.00%)	1 (100%)
La mayoría <br>de las veces	3 (21.4%)	8 (19.5%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	7 (50.0%)	20 (48.8%)	0 (0.00%)	1 (100%)	0 (0.00%)
Sólo unas <br>pocas veces	3 (21.4%)	8 (19.5%)	1 (100%)	0 (0.00%)	0 (0.00%)
Nunca	0 (0.00%)	2 (4.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:						0.273	0.503
Siempre	4 (28.6%)	16 (39.0%)	1 (100%)	0 (0.00%)	0 (0.00%)
La mayoría <br>de las veces	5 (35.7%)	15 (36.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	3 (21.4%)	4 (9.76%)	0 (0.00%)	0 (0.00%)	1 (100%)
Sólo unas <br>pocas veces	2 (14.3%)	4 (9.76%)	0 (0.00%)	1 (100%)	0 (0.00%)
Nunca	0 (0.00%)	2 (4.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:						0.347	0.757
Siempre	4 (28.6%)	14 (34.1%)	1 (100%)	0 (0.00%)	0 (0.00%)
La mayoría <br>de las veces	4 (28.6%)	14 (34.1%)	0 (0.00%)	0 (0.00%)	1 (100%)
Algunas veces	5 (35.7%)	6 (14.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sólo unas <br>pocas veces	1 (7.14%)	3 (7.32%)	0 (0.00%)	1 (100%)	0 (0.00%)
Nunca	0 (0.00%)	4 (9.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:						0.450	0.402
Siempre	2 (14.3%)	14 (34.1%)	1 (100%)	0 (0.00%)	0 (0.00%)
La mayoría <br>de las veces	6 (42.9%)	18 (43.9%)	0 (0.00%)	0 (0.00%)	1 (100%)
Algunas veces	5 (35.7%)	7 (17.1%)	0 (0.00%)	1 (100%)	0 (0.00%)
Sólo unas <br>pocas veces	1 (7.14%)	2 (4.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:						0.791	0.656
Siempre	3 (21.4%)	9 (22.0%)	0 (0.00%)	0 (0.00%)	1 (100%)
La mayoría <br>de las veces	6 (42.9%)	18 (43.9%)	1 (100%)	0 (0.00%)	0 (0.00%)
Algunas veces	4 (28.6%)	11 (26.8%)	0 (0.00%)	1 (100%)	0 (0.00%)
Sólo unas <br>pocas veces	1 (7.14%)	1 (2.44%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Nunca	0 (0.00%)	2 (4.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:						0.726	0.585
Siempre	8 (57.1%)	28 (68.3%)	1 (100%)	0 (0.00%)	1 (100%)
La mayoría <br>de las veces	4 (28.6%)	8 (19.5%)	0 (0.00%)	1 (100%)	0 (0.00%)
Algunas veces	2 (14.3%)	4 (9.76%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Nunca	0 (0.00%)	1 (2.44%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles.:						0.632	0.690
Apenas cierto	0 (0.00%)	1 (2.50%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más bien cierto	5 (35.7%)	13 (32.5%)	1 (100%)	1 (100%)	0 (0.00%)
Cierto	9 (64.3%)	26 (65.0%)	0 (0.00%)	0 (0.00%)	1 (100%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.:						0.278	0.136
Apenas cierto	0 (0.00%)	2 (5.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más bien cierto	5 (35.7%)	12 (30.0%)	1 (100%)	1 (100%)	1 (100%)
Cierto	9 (64.3%)	26 (65.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas.:						0.697	0.731
Apenas cierto	1 (7.14%)	2 (5.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más bien cierto	6 (42.9%)	14 (35.0%)	1 (100%)	1 (100%)	0 (0.00%)
Cierto	7 (50.0%)	24 (60.0%)	0 (0.00%)	0 (0.00%)	1 (100%)
Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;
Variables categóricas son presentadas como el recuento y el porcentaje

#janitor::tabyl(p20_contr_cont_med_pev_1_simpler)
#   p27_cond_trab_sup_jef
table5_estamento <- suppressWarnings(compareGroups(estamento ~ 
            agotamiento_estres_irritabilidad+
            estres_postraumatico+
            agotamiento_estres_irritabilidad_ptje+
            estres_postraumatico_ptje+
            agotamiento_estres_irritabilidad_q75+
            estres_postraumatico_q75+
            tamizaje_ans+
            tamizaje_dep+
            p8_exp_c19_cerca_cont_rec+
            ptjes_p9+
            p10_exp_c19_preocupa_llevar_rec+
            p11_exp_c19_miedo_pand_rec+
            p14_contr_cont_cap_epp_rec+
            p15_contr_cont_14a_eval_cap_rec+
            p16_contr_cont_conf_epps_rec+
            ptjes_p17+
            p17_contr_cont_restr_epp_1_rec+
            p18_contr_cont_conf_eval_ri_rec+
            p19_contr_cont_nieg_epp_rec+
            p20_contr_cont_med_pev_1_p20_rec+
            p20_contr_cont_med_pev_2_p20_rec+
            p20_contr_cont_med_pev_3_p20_rec+
            p20_contr_cont_med_pev_4_p20_rec+
            p20_contr_cont_med_pev_5_p20_rec+
            p20_contr_cont_med_pev_6_p20_rec+
            p20_contr_cont_med_pev_7_p20_rec+
            p20_contr_cont_med_pev_8_p20_rec+
            p20_contr_cont_med_pev_9_p20_rec+
            p26_cond_trab_ent_protec_1_p26_rec+
            p26_cond_trab_ent_protec_2_p26_rec+
            p26_cond_trab_ent_protec_3_p26_rec+
            p26_cond_trab_ent_protec_4_p26_rec+
            p36_cond_trab_reasig_rec+
            p38_cond_trab_sal_psi_rec+
            p39_cond_trab_cult_org_rec+
            p40_cond_trab_istas_01_p40_rec+
            p40_cond_trab_istas_02_p40_rec+
            p40_cond_trab_istas_03_p40_rec+
            p40_cond_trab_istas_04_p40_rec+
            p40_cond_trab_istas_05_p40_rec+
            p40_cond_trab_istas_06_p40_rec+
            p40_cond_trab_istas_07_p40_rec+
            p40_cond_trab_istas_08_p40_rec+
            p40_cond_trab_istas_09_p40_rec+
            p40_cond_trab_istas_10_p40_rec+
            p40_istas_ex_psi+
            p40_istas_rel_su+
            p40_istas_con_rol+
            p40_istas_rel_comp+
            p42_resiliencia_1_p42_rec+
            p42_resiliencia_2_p42_rec+
            p42_resiliencia_3_p42_rec+
            p42_res_total+
             p3_siente_1+
             p3_siente_2+
             p3_siente_3+
             p3_siente_4+
             p3_siente_5+
             p3_siente_6+
             p4_afront_1+
             p4_afront_2+
             p4_afront_3+
             p5_animo_1+
             p5_animo_2+
             p5_animo_3+
             p5_animo_4+
             p6_exp_c19_pac_cont+
             p7_exp_c19_trab_cont+
             p8_exp_c19_cerca_cont+
             p9_exp_c19_exp_sit_dg_01+
             p9_exp_c19_exp_sit_dg_02+
             p9_exp_c19_exp_sit_dg_03+
             p9_exp_c19_exp_sit_dg_04+
             p9_exp_c19_exp_sit_dg_05+
             p9_exp_c19_exp_sit_dg_06+
             p9_exp_c19_exp_sit_dg_07+
             p9_exp_c19_exp_sit_dg_08+
             p9_exp_c19_exp_sit_dg_09+
             p9_exp_c19_exp_sit_dg_10+
             p9_exp_c19_exp_sit_dg_11+
             p10_exp_c19_preocupa_llevar+
             p11_exp_c19_miedo_pand+
             p12_contr_cont_imp_nec_01+
             p12_contr_cont_imp_nec_02+
             p12_contr_cont_imp_nec_03+
             p12_contr_cont_imp_nec_04+
             p12_contr_cont_imp_nec_05+
             p12_contr_cont_imp_nec_06+
             p12_contr_cont_imp_nec_07+
             p12_contr_cont_imp_nec_08+
             p12_contr_cont_imp_nec_09+
             p12_contr_cont_imp_nec_10+
             p12_contr_cont_imp_nec_11+
             p12_contr_cont_imp_nec_12+
             p13_contr_cont_imp_disp_01+
             p13_contr_cont_imp_disp_02+
             p13_contr_cont_imp_disp_03+
             p13_contr_cont_imp_disp_04+
             p13_contr_cont_imp_disp_05+
             p13_contr_cont_imp_disp_06+
             p13_contr_cont_imp_disp_07+
             p13_contr_cont_imp_disp_08+
             p13_contr_cont_imp_disp_09+
             p13_contr_cont_imp_disp_10+
             p13_contr_cont_imp_disp_11+
             p14_contr_cont_cap_epp+
             p15_contr_cont_14a_eval_cap+
             p16_contr_cont_conf_epps+
             p17_contr_cont_restr_epp_1+
             p17_contr_cont_restr_epp_2+
             p17_contr_cont_restr_epp_3+
             p17_contr_cont_restr_epp_4+
             p17_contr_cont_restr_epp_6+
             p17_contr_cont_restr_epp_7+
             p18_contr_cont_conf_eval_ri+
             p19_contr_cont_nieg_epp+
             p20_contr_cont_med_pev_1+
             p20_contr_cont_med_pev_2+
             p20_contr_cont_med_pev_3+
             p20_contr_cont_med_pev_4+
             p20_contr_cont_med_pev_5+
             p20_contr_cont_med_pev_6+
             p20_contr_cont_med_pev_7+
             p20_contr_cont_med_pev_8+
             p20_contr_cont_med_pev_9+
             p26_cond_trab_ent_protec_1+
             p26_cond_trab_ent_protec_2+
             p26_cond_trab_ent_protec_3+
             p26_cond_trab_ent_protec_4+
             #p28_cond_trab_sis_trab+
             #p32_cond_trab_est+
             #p33_cond_trab_sit_cont+
             p36_cond_trab_reasig+
             #p37_cond_trab_num_est+
             p38_cond_trab_sal_psi+
             p39_cond_trab_cult_org+
             p40_cond_trab_istas_01+
             p40_cond_trab_istas_02+
             p40_cond_trab_istas_03+
             p40_cond_trab_istas_04+
             p40_cond_trab_istas_05+
             p40_cond_trab_istas_06+
             p40_cond_trab_istas_07+
             p40_cond_trab_istas_08+
             p40_cond_trab_istas_09+
             p40_cond_trab_istas_10+
             p42_resiliencia_1+
             p42_resiliencia_2+
             p42_resiliencia_3, 
           method= c(
             agotamiento_estres_irritabilidad=3,
             estres_postraumatico=3,
             agotamiento_estres_irritabilidad_ptje=2,
             estres_postraumatico_ptje=2,
             agotamiento_estres_irritabilidad_q75=3,
             estres_postraumatico_q75=3,
             tamizaje_ans=3,
             tamizaje_dep=3,
              p8_exp_c19_cerca_cont_rec=3,
              ptjes_p9=2,
              p10_exp_c19_preocupa_llevar_rec=3,
              p11_exp_c19_miedo_pand_rec=3,
              p14_contr_cont_cap_epp_rec=3,
              p15_contr_cont_14a_eval_cap_rec=3,
              p16_contr_cont_conf_epps_rec=3,
              ptjes_p17=2,
              p17_contr_cont_restr_epp_1_rec=3,
              p18_contr_cont_conf_eval_ri_rec=3,
              p19_contr_cont_nieg_epp_rec=3,
              p20_contr_cont_med_pev_1_p20_rec=3,
              p20_contr_cont_med_pev_2_p20_rec=3,
              p20_contr_cont_med_pev_3_p20_rec=3,
              p20_contr_cont_med_pev_4_p20_rec=3,
              p20_contr_cont_med_pev_5_p20_rec=3,
              p20_contr_cont_med_pev_6_p20_rec=3,
              p20_contr_cont_med_pev_7_p20_rec=3,
              p20_contr_cont_med_pev_8_p20_rec=3,
              p20_contr_cont_med_pev_9_p20_rec=3,
              p26_cond_trab_ent_protec_1_p26_rec=3,
              p26_cond_trab_ent_protec_2_p26_rec=3,
              p26_cond_trab_ent_protec_3_p26_rec=3,
              p26_cond_trab_ent_protec_4_p26_rec=3,
              p36_cond_trab_reasig_rec=3,
              p38_cond_trab_sal_psi_rec=3,
              p39_cond_trab_cult_org_rec=3,
              p40_cond_trab_istas_01_p40_rec=3,
              p40_cond_trab_istas_02_p40_rec=3,
              p40_cond_trab_istas_03_p40_rec=3,
              p40_cond_trab_istas_04_p40_rec=3,
              p40_cond_trab_istas_05_p40_rec=3,
              p40_cond_trab_istas_06_p40_rec=3,
              p40_cond_trab_istas_07_p40_rec=3,
              p40_cond_trab_istas_08_p40_rec=3,
              p40_cond_trab_istas_09_p40_rec=3,
              p40_cond_trab_istas_10_p40_rec=3,
              p40_istas_ex_psi=2,
              p40_istas_rel_su=2,
              p40_istas_con_rol=2,
              p40_istas_rel_comp=2,
              p42_resiliencia_1_p42_rec=3,
              p42_resiliencia_2_p42_rec=3,
              p42_resiliencia_3_p42_rec=3,
              p42_res_total=2,
               p3_siente_1=3,
               p3_siente_2=3,
               p3_siente_3=3,
               p3_siente_4=3,
               p3_siente_5=3,
               p3_siente_6=3,
               p4_afront_1=3,
               p4_afront_2=3,
               p4_afront_3=3,
               p5_animo_1=3,
               p5_animo_2=3,
               p5_animo_3=3,
               p5_animo_4=3,
               agotamiento_estres_irritabilidad=2,
               estres_postraumatico=2,
               tamizaje_ans=3,
               tamizaje_dep=3,
               p6_exp_c19_pac_cont=3,
               p7_exp_c19_trab_cont=3,
               p8_exp_c19_cerca_cont=3,
               p9_exp_c19_exp_sit_dg_01=3,
               p9_exp_c19_exp_sit_dg_02=3,
               p9_exp_c19_exp_sit_dg_03=3,
               p9_exp_c19_exp_sit_dg_04=3,
               p9_exp_c19_exp_sit_dg_05=3,
               p9_exp_c19_exp_sit_dg_06=3,
               p9_exp_c19_exp_sit_dg_07=3,
               p9_exp_c19_exp_sit_dg_08=3,
               p9_exp_c19_exp_sit_dg_09=3,
               p9_exp_c19_exp_sit_dg_10=3,
               p9_exp_c19_exp_sit_dg_11=3,
               p10_exp_c19_preocupa_llevar=3,
               p11_exp_c19_miedo_pand=3,
               p12_contr_cont_imp_nec_01=3,
               p12_contr_cont_imp_nec_02=3,
               p12_contr_cont_imp_nec_03=3,
               p12_contr_cont_imp_nec_04=3,
               p12_contr_cont_imp_nec_05=3,
               p12_contr_cont_imp_nec_06=3,
               p12_contr_cont_imp_nec_07=3,
               p12_contr_cont_imp_nec_08=3,
               p12_contr_cont_imp_nec_09=3,
               p12_contr_cont_imp_nec_10=3,
               p12_contr_cont_imp_nec_11=3,
               p12_contr_cont_imp_nec_12=3,
               p13_contr_cont_imp_disp_01=3,
               p13_contr_cont_imp_disp_02=3,
               p13_contr_cont_imp_disp_03=3,
               p13_contr_cont_imp_disp_04=3,
               p13_contr_cont_imp_disp_05=3,
               p13_contr_cont_imp_disp_06=3,
               p13_contr_cont_imp_disp_07=3,
               p13_contr_cont_imp_disp_08=3,
               p13_contr_cont_imp_disp_09=3,
               p13_contr_cont_imp_disp_10=3,
               p13_contr_cont_imp_disp_11=3,
               p14_contr_cont_cap_epp=3,
               p15_contr_cont_14a_eval_cap=3,
               p16_contr_cont_conf_epps=3,
               p17_contr_cont_restr_epp_1=3,
               p17_contr_cont_restr_epp_2=3,
               p17_contr_cont_restr_epp_3=3,
               p17_contr_cont_restr_epp_4=3,
               p17_contr_cont_restr_epp_6=3,
               p17_contr_cont_restr_epp_7=3,
               p18_contr_cont_conf_eval_ri=3,
               p19_contr_cont_nieg_epp=3,
               p20_contr_cont_med_pev_1=3,
               p20_contr_cont_med_pev_2=3,
               p20_contr_cont_med_pev_3=3,
               p20_contr_cont_med_pev_4=3,
               p20_contr_cont_med_pev_5=3,
               p20_contr_cont_med_pev_6=3,
               p20_contr_cont_med_pev_7=3,
               p20_contr_cont_med_pev_8=3,
               p20_contr_cont_med_pev_9=3,
               p26_cond_trab_ent_protec_1=3,
               p26_cond_trab_ent_protec_2=3,
               p26_cond_trab_ent_protec_3=3,
               p26_cond_trab_ent_protec_4=3,
               #p28_cond_trab_sis_trab=3,
               #p32_cond_trab_est=3,
               #p33_cond_trab_sit_cont=3,
               p36_cond_trab_reasig=3,
               #p37_cond_trab_num_est=3,
               p38_cond_trab_sal_psi=3,
               p39_cond_trab_cult_org=3,
               p40_cond_trab_istas_01=3,
               p40_cond_trab_istas_02=3,
               p40_cond_trab_istas_03=3,
               p40_cond_trab_istas_04=3,
               p40_cond_trab_istas_05=3,
               p40_cond_trab_istas_06=3,
               p40_cond_trab_istas_07=3,
               p40_cond_trab_istas_08=3,
               p40_cond_trab_istas_09=3,
               p40_cond_trab_istas_10=3,
               p42_resiliencia_1=3,
               p42_resiliencia_2=3,
               p42_resiliencia_3=3),
    data = surveymonkey_accionsalududp_df2_cor_table,
    include.miss = F, #baja el número de casos
    p.corrected=T,
    chisq.test.perm=T,
    chisq.test.seed=1234,
    var.equal=T)
  )


restab5_est <- createTable(table5_estamento, show.p.overall = T)

pvals5 <- getResults(table5_estamento)
#p.adjust(pvals, method = "BH")
#Administrativo     Enfermeros        Médicos      Otros Profesionales No Médicos Técnicos y Auxiliares
export2md(restab5_est, size=10, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Tabla 6. Descriptivo Aplicación Hospital Roberto del Río según Estamento",
          col.names=c("Variables","Admin.", "Enfermeros", "Médicos", "Otros Prof. No-Médicos",  "Técnicos y Aux.", "Sig.")
         )%>%
  kableExtra::add_footnote(c("Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;", 
                             "Variables categóricas son presentadas como el recuento y el porcentaje"), notation = "none")%>%
  kableExtra::scroll_box(width = "100%", height = "800px")

Tabla 6. Descriptivo Aplicación Hospital Roberto del Río según Estamento

Variables	Admin.	Enfermeros	Médicos	Otros Prof. No-Médicos	Técnicos y Aux.	Sig.
	N=2	N=17	N=17	N=15	N=8
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):						0.590
1	1 (50.0%)	4 (23.5%)	9 (52.9%)	7 (46.7%)	1 (12.5%)
2	0 (0.00%)	6 (35.3%)	4 (23.5%)	4 (26.7%)	3 (37.5%)
3	1 (50.0%)	7 (41.2%)	4 (23.5%)	4 (26.7%)	4 (50.0%)
Estrés Postraumático (4° Cuartil):						0.028
Ausencia de Indicadores de Estrés Post-traumático	1 (50.0%)	8 (47.1%)	16 (94.1%)	12 (80.0%)	6 (75.0%)
Indicadores de Estrés Post-traumático	1 (50.0%)	9 (52.9%)	1 (5.88%)	3 (20.0%)	2 (25.0%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	412 [331;494]	375 [300;400]	275 [225;375]	325 [262;388]	388 [369;450]	0.291
Ptjes. Estrés Postraumático	5.50 [4.25;6.75]	7.00 [3.00;9.00]	2.00 [2.00;5.00]	5.00 [3.50;6.50]	6.00 [4.75;6.50]	0.092
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):						0.319
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	1 (50.0%)	9 (52.9%)	6 (35.3%)	5 (33.3%)	6 (75.0%)
Cuartiles 1 a 3	1 (50.0%)	8 (47.1%)	11 (64.7%)	10 (66.7%)	2 (25.0%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):						0.181
Cuartil de mayor ptje. Estrés Postraumático	1 (50.0%)	11 (64.7%)	5 (29.4%)	8 (53.3%)	6 (75.0%)
Cuartiles 1 a 3	1 (50.0%)	6 (35.3%)	12 (70.6%)	7 (46.7%)	2 (25.0%)
Sintomatología ansiosa:						0.618
Ausencia de Indicadores de Sintomatología Ansiosa	1 (50.0%)	5 (29.4%)	9 (52.9%)	7 (46.7%)	2 (25.0%)
Indicadores de Sintomatología Ansiosa	1 (50.0%)	12 (70.6%)	8 (47.1%)	8 (53.3%)	6 (75.0%)
Sintomatología depresiva:						0.583
Ausencia de Indicadores de Sintomatología Depresiva	1 (50.0%)	7 (41.2%)	12 (70.6%)	9 (60.0%)	4 (50.0%)
Indicadores de Sintomatología Depresiva	1 (50.0%)	10 (58.8%)	5 (29.4%)	6 (40.0%)	4 (50.0%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):						0.034
Contacto directo y estrecho con pacientes (menos de dos metros)	0 (0.00%)	9 (52.9%)	7 (41.2%)	1 (6.67%)	4 (50.0%)
Menor o ningún contacto con pacientes	2 (100%)	8 (47.1%)	10 (58.8%)	14 (93.3%)	4 (50.0%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):						0.382
1	2 (100%)	2 (14.3%)	5 (31.2%)	2 (16.7%)	1 (14.3%)
2	0 (0.00%)	2 (14.3%)	4 (25.0%)	2 (16.7%)	0 (0.00%)
3	0 (0.00%)	2 (14.3%)	3 (18.8%)	2 (16.7%)	1 (14.3%)
Más de 3	0 (0.00%)	8 (57.1%)	4 (25.0%)	6 (50.0%)	5 (71.4%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):						0.229
Bastante/Mucho	1 (50.0%)	15 (88.2%)	13 (76.5%)	14 (93.3%)	8 (100%)
Un poco/Nada/No aplica	1 (50.0%)	2 (11.8%)	4 (23.5%)	1 (6.67%)	0 (0.00%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):						0.017
Predomina el miedo	2 (100%)	13 (76.5%)	5 (29.4%)	11 (73.3%)	6 (75.0%)
Predomina la ausencia de miedo	0 (0.00%)	4 (23.5%)	12 (70.6%)	4 (26.7%)	2 (25.0%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):						0.018
Ha sido capacitado	0 (0.00%)	16 (94.1%)	15 (88.2%)	13 (86.7%)	7 (87.5%)
No ha sido capacitado	2 (100%)	1 (5.88%)	2 (11.8%)	2 (13.3%)	1 (12.5%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): Regular a Excelente	0 (.%)	16 (100%)	15 (100%)	13 (100%)	7 (100%)	.
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):						0.528
Nada/Poco/Algo/No aplica	0 (0.00%)	4 (23.5%)	4 (23.5%)	5 (33.3%)	4 (50.0%)
Totalmente/Bastante	2 (100%)	13 (76.5%)	13 (76.5%)	10 (66.7%)	4 (50.0%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas):						0.454
1	1 (100%)	8 (57.1%)	14 (93.3%)	12 (85.7%)	6 (100%)
2	0 (0.00%)	4 (28.6%)	1 (6.67%)	2 (14.3%)	0 (0.00%)
3	0 (0.00%)	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más de 3	0 (0.00%)	1 (7.14%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:						0.526
Empleador se ha rehusado a dar cierto tipo de EPP	0 (0.00%)	6 (35.3%)	3 (17.6%)	2 (13.3%)	2 (25.0%)
No se constata esta situación	2 (100%)	11 (64.7%)	14 (82.4%)	13 (86.7%)	6 (75.0%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada):						0.615
Algo/Bastante/Totalente/No aplica	2 (100%)	16 (94.1%)	14 (82.4%)	14 (93.3%)	8 (100%)
Poco/Nada	0 (0.00%)	1 (5.88%)	3 (17.6%)	1 (6.67%)	0 (0.00%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro (dicotomizada):						0.483
Incapacidad para negarse a trabajo inseguro	0 (0.00%)	11 (64.7%)	8 (47.1%)	9 (60.0%)	4 (50.0%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	2 (100%)	6 (35.3%)	9 (52.9%)	6 (40.0%)	4 (50.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):						0.558
Apropiadas/No sabe/No aplica	2 (100%)	9 (52.9%)	11 (64.7%)	11 (73.3%)	4 (50.0%)
Inapropiadas/Deficientes	0 (0.00%)	8 (47.1%)	6 (35.3%)	4 (26.7%)	4 (50.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada):						0.457
Apropiadas/No sabe/No aplica	2 (100%)	13 (76.5%)	15 (88.2%)	14 (93.3%)	8 (100%)
Inapropiadas/Deficientes	0 (0.00%)	4 (23.5%)	2 (11.8%)	1 (6.67%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):						0.152
Apropiadas/No sabe/No aplica	2 (100%)	13 (76.5%)	16 (94.1%)	15 (100%)	8 (100%)
Inapropiadas/Deficientes	0 (0.00%)	4 (23.5%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud (Dicotomizada):						0.184
Apropiadas/No sabe/No aplica	2 (100%)	12 (70.6%)	16 (94.1%)	12 (80.0%)	8 (100%)
Inapropiadas/Deficientes	0 (0.00%)	5 (29.4%)	1 (5.88%)	3 (20.0%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):						0.046
Apropiadas/No sabe/No aplica	2 (100%)	3 (17.6%)	6 (35.3%)	9 (60.0%)	3 (37.5%)
Inapropiadas/Deficientes	0 (0.00%)	14 (82.4%)	11 (64.7%)	6 (40.0%)	5 (62.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada):						0.014
Apropiadas/No sabe/No aplica	2 (100%)	8 (47.1%)	11 (64.7%)	15 (100%)	6 (75.0%)
Inapropiadas/Deficientes	0 (0.00%)	9 (52.9%)	6 (35.3%)	0 (0.00%)	2 (25.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada):						0.583
Apropiadas/No sabe/No aplica	2 (100%)	7 (41.2%)	6 (35.3%)	7 (46.7%)	3 (37.5%)
Inapropiadas/Deficientes	0 (0.00%)	10 (58.8%)	11 (64.7%)	8 (53.3%)	5 (62.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):						0.540
Apropiadas/No sabe/No aplica	2 (100%)	9 (52.9%)	13 (76.5%)	9 (60.0%)	5 (62.5%)
Inapropiadas/Deficientes	0 (0.00%)	8 (47.1%)	4 (23.5%)	6 (40.0%)	3 (37.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada):						0.969
Apropiadas/No sabe/No aplica	2 (100%)	14 (82.4%)	15 (88.2%)	12 (80.0%)	7 (87.5%)
Inapropiadas/Deficientes	0 (0.00%)	3 (17.6%)	2 (11.8%)	3 (20.0%)	1 (12.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada):						0.400
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	2 (11.8%)	4 (23.5%)	6 (40.0%)	2 (25.0%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	2 (100%)	15 (88.2%)	13 (76.5%)	9 (60.0%)	6 (75.0%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Empleador (Dicotomizada):						0.705
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	3 (17.6%)	4 (23.5%)	5 (33.3%)	1 (12.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	2 (100%)	14 (82.4%)	13 (76.5%)	10 (66.7%)	7 (87.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada):						0.670
Desacuerdo/Totalmente en desacuerdo	1 (50.0%)	12 (70.6%)	10 (58.8%)	10 (66.7%)	7 (87.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	1 (50.0%)	5 (29.4%)	7 (41.2%)	5 (33.3%)	1 (12.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada):						0.512
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	7 (41.2%)	3 (17.6%)	5 (33.3%)	2 (25.0%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	2 (100%)	10 (58.8%)	14 (82.4%)	10 (66.7%)	6 (75.0%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal? (Dicotomizada):						0.961
Cambia área, labores o ambos producto de la pandemia	1 (50.0%)	5 (29.4%)	5 (29.4%)	3 (20.0%)	2 (25.0%)
Mantiene las mismas labores en la misma área	1 (50.0%)	12 (70.6%)	12 (70.6%)	12 (80.0%)	6 (75.0%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada):						0.263
Excelente/Buena/Regular	2 (100%)	14 (82.4%)	13 (81.2%)	9 (60.0%)	4 (50.0%)
Mala	0 (0.00%)	3 (17.6%)	3 (18.8%)	6 (40.0%)	4 (50.0%)
¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada):						0.374
De acuerdo/Totalmente de acuerdo	1 (50.0%)	9 (52.9%)	10 (62.5%)	13 (86.7%)	5 (62.5%)
Neutral/En desacuerdo/Totalmente en desacuerdo	1 (50.0%)	8 (47.1%)	6 (37.5%)	2 (13.3%)	3 (37.5%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):						0.395
La mayoría de las veces/Siempre	1 (50.0%)	11 (64.7%)	5 (31.2%)	8 (53.3%)	5 (62.5%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (50.0%)	6 (35.3%)	11 (68.8%)	7 (46.7%)	3 (37.5%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):						0.228
La mayoría de las veces/Siempre	1 (50.0%)	15 (88.2%)	9 (56.2%)	11 (73.3%)	7 (87.5%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (50.0%)	2 (11.8%)	7 (43.8%)	4 (26.7%)	1 (12.5%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):						0.543
La mayoría de las veces/Siempre	1 (50.0%)	10 (58.8%)	12 (75.0%)	9 (60.0%)	3 (37.5%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (50.0%)	7 (41.2%)	4 (25.0%)	6 (40.0%)	5 (62.5%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):						0.480
La mayoría de las veces/Siempre	1 (50.0%)	4 (23.5%)	1 (6.25%)	3 (20.0%)	1 (12.5%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (50.0%)	13 (76.5%)	15 (93.8%)	12 (80.0%)	7 (87.5%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada):						1.000
La mayoría de las veces/Siempre	1 (50.0%)	5 (29.4%)	4 (25.0%)	4 (26.7%)	2 (25.0%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (50.0%)	12 (70.6%)	12 (75.0%)	11 (73.3%)	6 (75.0%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):						0.114
La mayoría de las veces/Siempre	0 (0.00%)	13 (76.5%)	13 (81.2%)	11 (73.3%)	4 (50.0%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (100%)	4 (23.5%)	3 (18.8%)	4 (26.7%)	4 (50.0%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):						0.098
La mayoría de las veces/Siempre	0 (0.00%)	12 (70.6%)	12 (75.0%)	11 (73.3%)	3 (37.5%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (100%)	5 (29.4%)	4 (25.0%)	4 (26.7%)	5 (62.5%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):						0.037
La mayoría de las veces/Siempre	1 (50.0%)	16 (94.1%)	13 (81.2%)	8 (53.3%)	4 (50.0%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (50.0%)	1 (5.88%)	3 (18.8%)	7 (46.7%)	4 (50.0%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada):						0.761
La mayoría de las veces/Siempre	1 (50.0%)	12 (70.6%)	12 (75.0%)	8 (53.3%)	5 (62.5%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (50.0%)	5 (29.4%)	4 (25.0%)	7 (46.7%)	3 (37.5%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):						0.890
La mayoría de las veces/Siempre	2 (100%)	15 (88.2%)	13 (81.2%)	14 (93.3%)	7 (87.5%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	2 (11.8%)	3 (18.8%)	1 (6.67%)	1 (12.5%)
Suma ítems Exigencias Psicológicas ISTAS21	4.50 [3.75;5.25]	6.00 [5.00;8.00]	5.00 [3.75;6.00]	6.00 [4.50;7.00]	6.00 [5.50;7.00]	0.018
Suma ítems Calidad Relación con Superiores ISTAS21	4.00 [2.50;5.50]	9.00 [7.00;11.0]	9.00 [8.50;11.0]	9.00 [6.50;10.5]	7.00 [4.00;8.00]	0.042
Suma ítems Conflicto de Rol ISTAS21	4.50 [3.25;5.75]	4.00 [3.00;5.00]	3.00 [2.00;4.25]	4.00 [2.00;4.50]	4.00 [3.00;4.00]	0.655
Suma ítems Relación con Compañeros de Trabajo ISTAS21	5.50 [5.25;5.75]	6.00 [6.00;7.00]	6.00 [5.00;7.25]	5.00 [3.00;7.00]	5.00 [4.00;6.25]	0.134
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles (Dicotomizada):						1.000
Apenas cierto/Incorrecto	0 (0.00%)	1 (6.25%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más bien cierto/Cierto	2 (100%)	15 (93.8%)	16 (100%)	15 (100%)	8 (100%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada):						0.838
Apenas cierto/Incorrecto	0 (0.00%)	1 (6.25%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
Más bien cierto/Cierto	2 (100%)	15 (93.8%)	16 (100%)	14 (93.3%)	8 (100%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada):						0.422
Apenas cierto/Incorrecto	0 (0.00%)	1 (6.25%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
Más bien cierto/Cierto	2 (100%)	15 (93.8%)	16 (100%)	13 (86.7%)	8 (100%)
Suma puntajes de resilencia	7.50 [6.75;8.25]	8.00 [7.00;9.00]	8.00 [6.75;9.00]	8.00 [6.00;9.00]	8.00 [7.75;9.00]	0.993
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:						0.656
Sólo unas pocas <br>veces	0 (0.00%)	1 (5.88%)	3 (17.6%)	3 (20.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	7 (41.2%)	7 (41.2%)	7 (46.7%)	3 (37.5%)
La mayoría de las veces	1 (50.0%)	8 (47.1%)	6 (35.3%)	3 (20.0%)	4 (50.0%)
Siempre	1 (50.0%)	1 (5.88%)	1 (5.88%)	2 (13.3%)	1 (12.5%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:						0.252
Nunca	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
Sólo unas pocas <br>veces	0 (0.00%)	2 (11.8%)	4 (23.5%)	1 (6.67%)	0 (0.00%)
Algunas veces	1 (50.0%)	9 (52.9%)	7 (41.2%)	8 (53.3%)	2 (25.0%)
La mayoría de las veces	0 (0.00%)	5 (29.4%)	5 (29.4%)	4 (26.7%)	6 (75.0%)
Siempre	1 (50.0%)	1 (5.88%)	1 (5.88%)	1 (6.67%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:						0.089
Nunca	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	1 (50.0%)	0 (0.00%)	4 (23.5%)	3 (20.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	9 (52.9%)	6 (35.3%)	7 (46.7%)	1 (12.5%)
La mayoría de las veces	0 (0.00%)	7 (41.2%)	6 (35.3%)	3 (20.0%)	6 (75.0%)
Siempre	1 (50.0%)	1 (5.88%)	0 (0.00%)	2 (13.3%)	1 (12.5%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:						0.079
Nunca	0 (0.00%)	1 (5.88%)	1 (5.88%)	1 (6.67%)	1 (12.5%)
Sólo unas pocas <br>veces	1 (50.0%)	1 (5.88%)	9 (52.9%)	8 (53.3%)	1 (12.5%)
Algunas veces	0 (0.00%)	10 (58.8%)	6 (35.3%)	3 (20.0%)	5 (62.5%)
La mayoría de las veces	1 (50.0%)	5 (29.4%)	0 (0.00%)	3 (20.0%)	0 (0.00%)
Siempre	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	1 (12.5%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:						0.565
Nunca	0 (0.00%)	1 (5.88%)	2 (11.8%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	0 (0.00%)	2 (11.8%)	4 (23.5%)	4 (26.7%)	1 (12.5%)
Algunas veces	1 (50.0%)	7 (41.2%)	5 (29.4%)	5 (33.3%)	1 (12.5%)
La mayoría de las veces	0 (0.00%)	3 (17.6%)	3 (17.6%)	2 (13.3%)	5 (62.5%)
Siempre	1 (50.0%)	4 (23.5%)	3 (17.6%)	4 (26.7%)	1 (12.5%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:						0.769
Nunca	0 (0.00%)	2 (11.8%)	3 (17.6%)	2 (13.3%)	0 (0.00%)
Sólo unas pocas <br>veces	1 (50.0%)	1 (5.88%)	4 (23.5%)	2 (13.3%)	1 (12.5%)
Algunas veces	0 (0.00%)	5 (29.4%)	6 (35.3%)	6 (40.0%)	4 (50.0%)
La mayoría de las veces	0 (0.00%)	6 (35.3%)	1 (5.88%)	2 (13.3%)	2 (25.0%)
Siempre	1 (50.0%)	3 (17.6%)	3 (17.6%)	3 (20.0%)	1 (12.5%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.:						0.229
Nada	0 (0.00%)	2 (11.8%)	4 (23.5%)	3 (20.0%)	1 (12.5%)
Un poco	0 (0.00%)	3 (17.6%)	9 (52.9%)	3 (20.0%)	1 (12.5%)
Regular	1 (50.0%)	4 (23.5%)	4 (23.5%)	5 (33.3%)	4 (50.0%)
Bastante	1 (50.0%)	6 (35.3%)	0 (0.00%)	4 (26.7%)	2 (25.0%)
Mucho	0 (0.00%)	2 (11.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.:						0.726
Nada	0 (0.00%)	2 (11.8%)	5 (29.4%)	1 (6.67%)	0 (0.00%)
Un poco	1 (50.0%)	3 (17.6%)	4 (23.5%)	3 (20.0%)	1 (12.5%)
Regular	1 (50.0%)	4 (23.5%)	5 (29.4%)	7 (46.7%)	4 (50.0%)
Bastante	0 (0.00%)	6 (35.3%)	2 (11.8%)	3 (20.0%)	3 (37.5%)
Mucho	0 (0.00%)	2 (11.8%)	1 (5.88%)	1 (6.67%)	0 (0.00%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:						0.351
Nada	1 (50.0%)	3 (17.6%)	7 (41.2%)	4 (26.7%)	1 (12.5%)
Un poco	0 (0.00%)	7 (41.2%)	7 (41.2%)	6 (40.0%)	4 (50.0%)
Regular	0 (0.00%)	4 (23.5%)	2 (11.8%)	5 (33.3%)	2 (25.0%)
Bastante	1 (50.0%)	3 (17.6%)	0 (0.00%)	0 (0.00%)	1 (12.5%)
Mucho	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido Nervioso, ansioso o con los nervios de punta.:						0.366
Nunca	0 (0.00%)	1 (5.88%)	3 (17.6%)	2 (13.3%)	0 (0.00%)
Algunos días	1 (50.0%)	8 (47.1%)	13 (76.5%)	9 (60.0%)	7 (87.5%)
Más de la mitad de los días	1 (50.0%)	5 (29.4%)	1 (5.88%)	3 (20.0%)	0 (0.00%)
Casi todos los días	0 (0.00%)	3 (17.6%)	0 (0.00%)	1 (6.67%)	1 (12.5%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:						0.779
Nunca	0 (0.00%)	1 (5.88%)	2 (11.8%)	2 (13.3%)	0 (0.00%)
Algunos días	1 (50.0%)	5 (29.4%)	7 (41.2%)	7 (46.7%)	2 (25.0%)
Más de la mitad de los días	0 (0.00%)	9 (52.9%)	7 (41.2%)	5 (33.3%)	5 (62.5%)
Casi todos los días	1 (50.0%)	2 (11.8%)	1 (5.88%)	1 (6.67%)	1 (12.5%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas.:						0.411
Nunca	0 (0.00%)	3 (17.6%)	1 (5.88%)	2 (13.3%)	1 (12.5%)
Algunos días	1 (50.0%)	7 (41.2%)	14 (82.4%)	7 (46.7%)	5 (62.5%)
Más de la mitad de los días	0 (0.00%)	6 (35.3%)	1 (5.88%)	4 (26.7%)	1 (12.5%)
Casi todos los días	1 (50.0%)	1 (5.88%)	1 (5.88%)	2 (13.3%)	1 (12.5%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado.:						0.198
Nunca	0 (0.00%)	3 (17.6%)	1 (5.88%)	4 (26.7%)	0 (0.00%)
Algunos días	1 (50.0%)	6 (35.3%)	12 (70.6%)	7 (46.7%)	5 (62.5%)
Más de la mitad de los días	0 (0.00%)	6 (35.3%)	4 (23.5%)	3 (20.0%)	3 (37.5%)
Casi todos los días	1 (50.0%)	2 (11.8%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
¿Cuántos PACIENTES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:						0.293
Ninguno	2 (100%)	8 (47.1%)	8 (47.1%)	9 (60.0%)	5 (62.5%)
1 a 10	0 (0.00%)	9 (52.9%)	8 (47.1%)	5 (33.3%)	1 (12.5%)
11 a 30	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (6.67%)	1 (12.5%)
31 a 100	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (12.5%)
101 a 200	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
¿Cuántos TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?:						0.034
Ninguno	1 (50.0%)	7 (41.2%)	5 (29.4%)	6 (40.0%)	5 (62.5%)
Sólo uno	0 (0.00%)	4 (23.5%)	7 (41.2%)	3 (20.0%)	2 (25.0%)
2 a 10	0 (0.00%)	5 (29.4%)	5 (29.4%)	5 (33.3%)	1 (12.5%)
11 a 25	0 (0.00%)	1 (5.88%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
Más de 50	1 (50.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:						0.279
Trabajo en contacto directo con pacientes	0 (0.00%)	7 (41.2%)	7 (41.2%)	1 (6.67%)	4 (50.0%)
Trabajo a menos de dos metros de pacientes	0 (0.00%)	2 (11.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
Trabajo en el mismo piso/sala/departamento	0 (0.00%)	2 (11.8%)	1 (5.88%)	3 (20.0%)	2 (25.0%)
Como parte de mi trabajo visito un piso/sala/departamento	0 (0.00%)	3 (17.6%)	5 (29.4%)	4 (26.7%)	0 (0.00%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	1 (50.0%)	2 (11.8%)	2 (11.8%)	5 (33.3%)	2 (25.0%)
Ninguno que yo esté en conocimiento	1 (50.0%)	1 (5.88%)	2 (11.8%)	1 (6.67%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.:						0.097
0	2 (100%)	7 (41.2%)	6 (35.3%)	11 (73.3%)	5 (62.5%)
1	0 (0.00%)	10 (58.8%)	11 (64.7%)	4 (26.7%)	3 (37.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.:						0.539
0	1 (50.0%)	12 (70.6%)	15 (88.2%)	11 (73.3%)	7 (87.5%)
1	1 (50.0%)	5 (29.4%)	2 (11.8%)	4 (26.7%)	1 (12.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de la exposición a COVID-19.:						0.474
0	1 (50.0%)	10 (58.8%)	14 (82.4%)	12 (80.0%)	5 (62.5%)
1	1 (50.0%)	7 (41.2%)	3 (17.6%)	3 (20.0%)	3 (37.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.:						0.487
0	2 (100%)	8 (47.1%)	12 (70.6%)	8 (53.3%)	4 (50.0%)
1	0 (0.00%)	9 (52.9%)	5 (29.4%)	7 (46.7%)	4 (50.0%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de los síntomas.:						0.030
0	2 (100%)	12 (70.6%)	17 (100%)	14 (93.3%)	8 (100%)
1	0 (0.00%)	5 (29.4%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le dijeron que trabajara a pesar de no contar con EPP’s.:						0.925
0	2 (100%)	13 (76.5%)	13 (76.5%)	13 (86.7%)	6 (75.0%)
1	0 (0.00%)	4 (23.5%)	4 (23.5%)	2 (13.3%)	2 (25.0%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que se aislara.:						0.645
0	2 (100%)	14 (82.4%)	11 (64.7%)	11 (73.3%)	5 (62.5%)
1	0 (0.00%)	3 (17.6%)	6 (35.3%)	4 (26.7%)	3 (37.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Se hizo el examen para descartar COVID-19.:						0.432
0	2 (100%)	6 (35.3%)	6 (35.3%)	6 (40.0%)	2 (25.0%)
1	0 (0.00%)	11 (64.7%)	11 (64.7%)	9 (60.0%)	6 (75.0%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.:						0.618
0	2 (100%)	12 (70.6%)	15 (88.2%)	13 (86.7%)	7 (87.5%)
1	0 (0.00%)	5 (29.4%)	2 (11.8%)	2 (13.3%)	1 (12.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:						1.000
0	2 (100%)	16 (94.1%)	15 (88.2%)	14 (93.3%)	7 (87.5%)
1	0 (0.00%)	1 (5.88%)	2 (11.8%)	1 (6.67%)	1 (12.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.:						0.846
FALSE	2 (100%)	14 (82.4%)	16 (94.1%)	12 (80.0%)	7 (87.5%)
TRUE	0 (0.00%)	3 (17.6%)	1 (5.88%)	3 (20.0%)	1 (12.5%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:						0.286
Nada	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
Un poco	1 (50.0%)	2 (11.8%)	3 (17.6%)	1 (6.67%)	0 (0.00%)
Bastante	0 (0.00%)	4 (23.5%)	6 (35.3%)	3 (20.0%)	0 (0.00%)
Mucho	1 (50.0%)	11 (64.7%)	7 (41.2%)	11 (73.3%)	8 (100%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:						0.450
1 (Poco o nada)	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
2	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
3	0 (0.00%)	0 (0.00%)	2 (11.8%)	2 (13.3%)	0 (0.00%)
4	0 (0.00%)	1 (5.88%)	1 (5.88%)	1 (6.67%)	1 (12.5%)
5	0 (0.00%)	3 (17.6%)	7 (41.2%)	1 (6.67%)	1 (12.5%)
6	0 (0.00%)	4 (23.5%)	1 (5.88%)	4 (26.7%)	0 (0.00%)
7	1 (50.0%)	3 (17.6%)	1 (5.88%)	5 (33.3%)	2 (25.0%)
8	0 (0.00%)	3 (17.6%)	3 (17.6%)	0 (0.00%)	2 (25.0%)
9	1 (50.0%)	3 (17.6%)	0 (0.00%)	2 (13.3%)	2 (25.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:						0.001
FALSE	1 (50.0%)	2 (11.8%)	4 (23.5%)	11 (73.3%)	1 (12.5%)
TRUE	1 (50.0%)	15 (88.2%)	13 (76.5%)	4 (26.7%)	7 (87.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):						0.124
FALSE	2 (100%)	6 (35.3%)	6 (35.3%)	10 (66.7%)	5 (62.5%)
TRUE	0 (0.00%)	11 (64.7%)	11 (64.7%)	5 (33.3%)	3 (37.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:						0.063
FALSE	2 (100%)	3 (17.6%)	9 (52.9%)	8 (53.3%)	3 (37.5%)
TRUE	0 (0.00%)	14 (82.4%)	8 (47.1%)	7 (46.7%)	5 (62.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:						1.000
FALSE	2 (100%)	16 (94.1%)	16 (94.1%)	14 (93.3%)	8 (100%)
TRUE	0 (0.00%)	1 (5.88%)	1 (5.88%)	1 (6.67%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:						0.005
FALSE	2 (100%)	1 (5.88%)	0 (0.00%)	1 (6.67%)	1 (12.5%)
TRUE	0 (0.00%)	16 (94.1%)	17 (100%)	14 (93.3%)	7 (87.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:						0.979
FALSE	0 (0.00%)	3 (17.6%)	4 (23.5%)	3 (20.0%)	1 (12.5%)
TRUE	2 (100%)	14 (82.4%)	13 (76.5%)	12 (80.0%)	7 (87.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:						<0.001
FALSE	2 (100%)	2 (11.8%)	1 (5.88%)	7 (46.7%)	0 (0.00%)
TRUE	0 (0.00%)	15 (88.2%)	16 (94.1%)	8 (53.3%)	8 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	2 (100%)	17 (100%)	17 (100%)	15 (100%)	8 (100%)	.
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:						<0.001
FALSE	2 (100%)	1 (5.88%)	2 (11.8%)	9 (60.0%)	2 (25.0%)
TRUE	0 (0.00%)	16 (94.1%)	15 (88.2%)	6 (40.0%)	6 (75.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:						0.046
FALSE	2 (100%)	7 (41.2%)	11 (64.7%)	9 (60.0%)	1 (12.5%)
TRUE	0 (0.00%)	10 (58.8%)	6 (35.3%)	6 (40.0%)	7 (87.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:						0.349
FALSE	2 (100%)	13 (76.5%)	15 (88.2%)	15 (100%)	7 (87.5%)
TRUE	0 (0.00%)	4 (23.5%)	2 (11.8%)	0 (0.00%)	1 (12.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	2 (100%)	17 (100%)	17 (100%)	15 (100%)	8 (100%)	.
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.:						0.210
Suficiente	1 (50.0%)	13 (76.5%)	13 (76.5%)	8 (53.3%)	5 (62.5%)
Insuficiente	1 (50.0%)	3 (17.6%)	2 (11.8%)	2 (13.3%)	3 (37.5%)
No Aplica	0 (0.00%)	1 (5.88%)	2 (11.8%)	5 (33.3%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector de ojos.:						0.136
Suficiente	1 (50.0%)	7 (41.2%)	2 (11.8%)	4 (26.7%)	2 (25.0%)
Insuficiente	1 (50.0%)	9 (52.9%)	13 (76.5%)	5 (33.3%)	4 (50.0%)
No Aplica	0 (0.00%)	1 (5.88%)	2 (11.8%)	6 (40.0%)	2 (25.0%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.:						0.042
Suficiente	0 (0.00%)	13 (76.5%)	6 (35.3%)	7 (46.7%)	6 (75.0%)
Insuficiente	2 (100%)	4 (23.5%)	9 (52.9%)	4 (26.7%)	1 (12.5%)
No Aplica	0 (0.00%)	0 (0.00%)	2 (11.8%)	4 (26.7%)	1 (12.5%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.:						0.079
Suficiente	1 (50.0%)	1 (5.88%)	3 (17.6%)	2 (13.3%)	0 (0.00%)
Insuficiente	1 (50.0%)	7 (41.2%)	4 (23.5%)	0 (0.00%)	2 (25.0%)
No Aplica	0 (0.00%)	9 (52.9%)	10 (58.8%)	13 (86.7%)	6 (75.0%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Desinfectante de manos.:						0.306
Suficiente	1 (50.0%)	14 (82.4%)	16 (94.1%)	12 (80.0%)	5 (62.5%)
Insuficiente	1 (50.0%)	3 (17.6%)	1 (5.88%)	2 (13.3%)	3 (37.5%)
No Aplica	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla quirúrgica.:						0.336
Suficiente	1 (50.0%)	13 (76.5%)	15 (88.2%)	9 (60.0%)	5 (62.5%)
Insuficiente	1 (50.0%)	4 (23.5%)	1 (5.88%)	6 (40.0%)	3 (37.5%)
No Aplica	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla N95.:						0.207
Suficiente	0 (0.00%)	7 (41.2%)	7 (41.2%)	5 (33.3%)	3 (37.5%)
Insuficiente	2 (100%)	10 (58.8%)	9 (52.9%)	6 (40.0%)	5 (62.5%)
No Aplica	0 (0.00%)	0 (0.00%)	1 (5.88%)	4 (26.7%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Respiradores de partículas de aire impulsado.:						0.178
Insuficiente	1 (50.0%)	5 (29.4%)	5 (29.4%)	0 (0.00%)	2 (25.0%)
No Aplica	1 (50.0%)	12 (70.6%)	12 (70.6%)	15 (100%)	6 (75.0%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Delantal/Pechera.:						0.034
Suficiente	1 (50.0%)	12 (70.6%)	12 (70.6%)	6 (40.0%)	5 (62.5%)
Insuficiente	1 (50.0%)	4 (23.5%)	4 (23.5%)	2 (13.3%)	3 (37.5%)
No Aplica	0 (0.00%)	1 (5.88%)	1 (5.88%)	7 (46.7%)	0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cofia.:						0.722
Suficiente	1 (50.0%)	6 (35.3%)	5 (29.4%)	3 (20.0%)	4 (50.0%)
Insuficiente	1 (50.0%)	8 (47.1%)	6 (35.3%)	5 (33.3%)	2 (25.0%)
No Aplica	0 (0.00%)	3 (17.6%)	6 (35.3%)	7 (46.7%)	2 (25.0%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cubre calzado.:						0.146
Suficiente	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Insuficiente	1 (50.0%)	9 (52.9%)	6 (35.3%)	1 (6.67%)	3 (37.5%)
No Aplica	1 (50.0%)	7 (41.2%)	11 (64.7%)	14 (93.3%)	5 (62.5%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:						0.058
Sí, en el último mes	0 (0.00%)	0 (0.00%)	1 (5.88%)	1 (6.67%)	0 (0.00%)
Sí, en los últimos 6 meses	0 (0.00%)	7 (41.2%)	5 (29.4%)	4 (26.7%)	4 (50.0%)
Sí, el año pasado	0 (0.00%)	9 (52.9%)	9 (52.9%)	5 (33.3%)	3 (37.5%)
Sí, hace 2-5 años	0 (0.00%)	0 (0.00%)	0 (0.00%)	3 (20.0%)	0 (0.00%)
No he sido capacitado	2 (100%)	1 (5.88%)	2 (11.8%)	2 (13.3%)	1 (12.5%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:						0.560
Excelente	0 (.%)	2 (12.5%)	1 (6.67%)	1 (7.69%)	0 (0.00%)
Buena	0 (.%)	6 (37.5%)	11 (73.3%)	6 (46.2%)	4 (57.1%)
Regular	0 (.%)	8 (50.0%)	3 (20.0%)	6 (46.2%)	3 (42.9%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:						0.732
Poco	0 (0.00%)	1 (5.88%)	1 (5.88%)	0 (0.00%)	2 (25.0%)
Algo	0 (0.00%)	3 (17.6%)	2 (11.8%)	5 (33.3%)	2 (25.0%)
Bastante	2 (100%)	11 (64.7%)	12 (70.6%)	9 (60.0%)	3 (37.5%)
Totalmente	0 (0.00%)	2 (11.8%)	1 (5.88%)	1 (6.67%)	1 (12.5%)
No aplica	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Mi empleador se ha rehusado a dar cierto tipo de EPP.:						0.527
0	2 (100%)	11 (64.7%)	14 (82.4%)	13 (86.7%)	6 (75.0%)
1	0 (0.00%)	6 (35.3%)	3 (17.6%)	2 (13.3%)	2 (25.0%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Necesito permiso para utilizar algún EPP específico.:						0.199
0	1 (50.0%)	12 (70.6%)	15 (88.2%)	14 (93.3%)	5 (62.5%)
1	1 (50.0%)	5 (29.4%)	2 (11.8%)	1 (6.67%)	3 (37.5%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar mi propio EPP.:						0.678
0	2 (100%)	15 (88.2%)	16 (94.1%)	15 (100%)	8 (100%)
1	0 (0.00%)	2 (11.8%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar EPP’s utilizados previamente por otros.:						0.382
0	2 (100%)	10 (58.8%)	14 (82.4%)	11 (73.3%)	7 (87.5%)
1	0 (0.00%)	7 (41.2%)	3 (17.6%)	4 (26.7%)	1 (12.5%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica:						0.790
FALSE	2 (100%)	15 (88.2%)	14 (82.4%)	14 (93.3%)	6 (75.0%)
TRUE	0 (0.00%)	2 (11.8%)	3 (17.6%)	1 (6.67%)	2 (25.0%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Otro (especifique).:						1.000
He comprado mis EPP´S	1 (100%)	0 (0.00%)	0 (.%)	0 (.%)	0 (.%)
La mascarilla hay que hacerla durar 7 dias	0 (0.00%)	1 (33.3%)	0 (.%)	0 (.%)	0 (.%)
Reutilizar por 7 días la mascarilla kn95 y guardarla al terminar el turno	0 (0.00%)	1 (33.3%)	0 (.%)	0 (.%)	0 (.%)
Uso restringido de epp	0 (0.00%)	1 (33.3%)	0 (.%)	0 (.%)	0 (.%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:						0.563
Poco	0 (0.00%)	1 (5.88%)	3 (17.6%)	1 (6.67%)	0 (0.00%)
Algo	1 (50.0%)	9 (52.9%)	2 (11.8%)	4 (26.7%)	2 (25.0%)
Bastante	1 (50.0%)	6 (35.3%)	10 (58.8%)	9 (60.0%)	6 (75.0%)
Totalmente	0 (0.00%)	1 (5.88%)	2 (11.8%)	1 (6.67%)	0 (0.00%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro::						0.988
Negarme a trabajar no es una opción legalmente disponible para mí	0 (0.00%)	3 (17.6%)	1 (5.88%)	1 (6.67%)	2 (25.0%)
Definitivamente, no es posible negarme a trabajar	0 (0.00%)	2 (11.8%)	2 (11.8%)	1 (6.67%)	1 (12.5%)
Es improbable que pueda negarme a trabajar	0 (0.00%)	2 (11.8%)	3 (17.6%)	3 (20.0%)	1 (12.5%)
Quizás, en una situación extrema podría negarme a trabajar	1 (50.0%)	3 (17.6%)	4 (23.5%)	3 (20.0%)	1 (12.5%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	1 (50.0%)	3 (17.6%)	5 (29.4%)	3 (20.0%)	3 (37.5%)
Definitivamente, no dudaría en negarme a trabajar	0 (0.00%)	4 (23.5%)	2 (11.8%)	4 (26.7%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.:						0.931
Apropiadas y bien implementadas	1 (50.0%)	3 (17.6%)	6 (35.3%)	4 (26.7%)	1 (12.5%)
Apropiadas pero mal implementadas	1 (50.0%)	5 (29.4%)	3 (17.6%)	6 (40.0%)	3 (37.5%)
Inapropiadas	0 (0.00%)	2 (11.8%)	0 (0.00%)	1 (6.67%)	1 (12.5%)
Deficientes	0 (0.00%)	6 (35.3%)	6 (35.3%)	3 (20.0%)	3 (37.5%)
No sabe	0 (0.00%)	1 (5.88%)	2 (11.8%)	1 (6.67%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.:						0.891
Apropiadas y bien implementadas	2 (100%)	5 (29.4%)	10 (58.8%)	6 (40.0%)	5 (62.5%)
Apropiadas pero mal implementadas	0 (0.00%)	4 (23.5%)	3 (17.6%)	4 (26.7%)	3 (37.5%)
Inapropiadas	0 (0.00%)	1 (5.88%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
Deficientes	0 (0.00%)	3 (17.6%)	1 (5.88%)	1 (6.67%)	0 (0.00%)
No sabe	0 (0.00%)	1 (5.88%)	1 (5.88%)	2 (13.3%)	0 (0.00%)
No aplica	0 (0.00%)	3 (17.6%)	1 (5.88%)	2 (13.3%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.:						0.498
Apropiadas y bien implementadas	2 (100%)	5 (29.4%)	11 (64.7%)	10 (66.7%)	7 (87.5%)
Apropiadas pero mal implementadas	0 (0.00%)	6 (35.3%)	3 (17.6%)	1 (6.67%)	1 (12.5%)
Inapropiadas	0 (0.00%)	3 (17.6%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
Deficientes	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
No sabe	0 (0.00%)	1 (5.88%)	1 (5.88%)	2 (13.3%)	0 (0.00%)
No aplica	0 (0.00%)	1 (5.88%)	1 (5.88%)	2 (13.3%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.:						0.382
Apropiadas y bien implementadas	2 (100%)	7 (41.2%)	10 (58.8%)	5 (33.3%)	6 (75.0%)
Apropiadas pero mal implementadas	0 (0.00%)	4 (23.5%)	3 (17.6%)	4 (26.7%)	2 (25.0%)
Inapropiadas	0 (0.00%)	3 (17.6%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Deficientes	0 (0.00%)	2 (11.8%)	1 (5.88%)	3 (20.0%)	0 (0.00%)
No sabe	0 (0.00%)	1 (5.88%)	3 (17.6%)	3 (20.0%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:						0.033
Apropiadas y bien implementadas	0 (0.00%)	0 (0.00%)	3 (17.6%)	1 (6.67%)	2 (25.0%)
Apropiadas pero mal implementadas	0 (0.00%)	1 (5.88%)	1 (5.88%)	2 (13.3%)	1 (12.5%)
Inapropiadas	0 (0.00%)	6 (35.3%)	1 (5.88%)	3 (20.0%)	3 (37.5%)
Deficientes	0 (0.00%)	8 (47.1%)	10 (58.8%)	3 (20.0%)	2 (25.0%)
No sabe	2 (100%)	1 (5.88%)	1 (5.88%)	5 (33.3%)	0 (0.00%)
No aplica	0 (0.00%)	1 (5.88%)	1 (5.88%)	1 (6.67%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:						0.021
Apropiadas y bien implementadas	2 (100%)	1 (5.88%)	7 (41.2%)	5 (33.3%)	3 (37.5%)
Apropiadas pero mal implementadas	0 (0.00%)	3 (17.6%)	1 (5.88%)	3 (20.0%)	2 (25.0%)
Inapropiadas	0 (0.00%)	4 (23.5%)	0 (0.00%)	0 (0.00%)	1 (12.5%)
Deficientes	0 (0.00%)	5 (29.4%)	6 (35.3%)	0 (0.00%)	1 (12.5%)
No sabe	0 (0.00%)	1 (5.88%)	1 (5.88%)	6 (40.0%)	0 (0.00%)
No aplica	0 (0.00%)	3 (17.6%)	2 (11.8%)	1 (6.67%)	1 (12.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.:						0.520
Apropiadas y bien implementadas	1 (50.0%)	1 (5.88%)	1 (5.88%)	0 (0.00%)	2 (25.0%)
Apropiadas pero mal implementadas	0 (0.00%)	4 (23.5%)	3 (17.6%)	3 (20.0%)	1 (12.5%)
Inapropiadas	0 (0.00%)	1 (5.88%)	3 (17.6%)	3 (20.0%)	2 (25.0%)
Deficientes	0 (0.00%)	9 (52.9%)	8 (47.1%)	5 (33.3%)	3 (37.5%)
No sabe	1 (50.0%)	1 (5.88%)	1 (5.88%)	3 (20.0%)	0 (0.00%)
No aplica	0 (0.00%)	1 (5.88%)	1 (5.88%)	1 (6.67%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:						0.313
Apropiadas y bien implementadas	0 (0.00%)	3 (17.6%)	3 (17.6%)	0 (0.00%)	2 (25.0%)
Apropiadas pero mal implementadas	0 (0.00%)	3 (17.6%)	1 (5.88%)	0 (0.00%)	1 (12.5%)
Inapropiadas	0 (0.00%)	2 (11.8%)	1 (5.88%)	1 (6.67%)	0 (0.00%)
Deficientes	0 (0.00%)	6 (35.3%)	3 (17.6%)	5 (33.3%)	3 (37.5%)
No sabe	2 (100%)	1 (5.88%)	8 (47.1%)	5 (33.3%)	1 (12.5%)
No aplica	0 (0.00%)	2 (11.8%)	1 (5.88%)	4 (26.7%)	1 (12.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:						0.132
Apropiadas y bien implementadas	2 (100%)	8 (47.1%)	6 (35.3%)	4 (26.7%)	4 (50.0%)
Apropiadas pero mal implementadas	0 (0.00%)	3 (17.6%)	1 (5.88%)	1 (6.67%)	3 (37.5%)
Inapropiadas	0 (0.00%)	0 (0.00%)	2 (11.8%)	0 (0.00%)	0 (0.00%)
Deficientes	0 (0.00%)	3 (17.6%)	0 (0.00%)	3 (20.0%)	1 (12.5%)
No sabe	0 (0.00%)	2 (11.8%)	8 (47.1%)	5 (33.3%)	0 (0.00%)
No aplica	0 (0.00%)	1 (5.88%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Sindicato/gremio.:						0.368
Totalmente de acuerdo	1 (50.0%)	3 (17.6%)	0 (0.00%)	0 (0.00%)	1 (12.5%)
De acuerdo	1 (50.0%)	5 (29.4%)	7 (41.2%)	3 (20.0%)	3 (37.5%)
Ni de acuerdo ni en desacuerdo	0 (0.00%)	7 (41.2%)	6 (35.3%)	6 (40.0%)	2 (25.0%)
En desacuerdo	0 (0.00%)	2 (11.8%)	4 (23.5%)	4 (26.7%)	1 (12.5%)
Totalmente en desacuerdo	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (13.3%)	1 (12.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Empleador.:						0.052
Totalmente de acuerdo	1 (50.0%)	3 (17.6%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
De acuerdo	0 (0.00%)	1 (5.88%)	10 (58.8%)	6 (40.0%)	2 (25.0%)
Ni de acuerdo ni en desacuerdo	1 (50.0%)	10 (58.8%)	3 (17.6%)	3 (20.0%)	5 (62.5%)
En desacuerdo	0 (0.00%)	2 (11.8%)	4 (23.5%)	5 (33.3%)	1 (12.5%)
Totalmente en desacuerdo	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Gobierno.:						0.372
Totalmente de acuerdo	0 (0.00%)	2 (11.8%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
De acuerdo	0 (0.00%)	0 (0.00%)	3 (17.6%)	2 (13.3%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	1 (50.0%)	3 (17.6%)	4 (23.5%)	3 (20.0%)	1 (12.5%)
En desacuerdo	0 (0.00%)	7 (41.2%)	9 (52.9%)	6 (40.0%)	6 (75.0%)
Totalmente en desacuerdo	1 (50.0%)	5 (29.4%)	1 (5.88%)	4 (26.7%)	1 (12.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.:						0.036
Totalmente de acuerdo	1 (50.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
De acuerdo	0 (0.00%)	2 (11.8%)	4 (23.5%)	3 (20.0%)	3 (37.5%)
Ni de acuerdo ni en desacuerdo	1 (50.0%)	8 (47.1%)	10 (58.8%)	7 (46.7%)	3 (37.5%)
En desacuerdo	0 (0.00%)	5 (29.4%)	3 (17.6%)	3 (20.0%)	1 (12.5%)
Totalmente en desacuerdo	0 (0.00%)	2 (11.8%)	0 (0.00%)	2 (13.3%)	1 (12.5%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?:						0.380
Mantengo las mismas labores	1 (50.0%)	12 (70.6%)	12 (70.6%)	12 (80.0%)	6 (75.0%)
Mantengo las mismas labores, pero en un área distinta	0 (0.00%)	1 (5.88%)	1 (5.88%)	1 (6.67%)	2 (25.0%)
Mantengo las mismas labores, pero en un lugar físico distinto	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Mantengo las mismas labores, pero en área y lugar físico distintos	0 (0.00%)	0 (0.00%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
Distintas labores, pero en la misma área	1 (50.0%)	1 (5.88%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
Distintas labores, pero en el mismo lugar físico	0 (0.00%)	0 (0.00%)	2 (11.8%)	0 (0.00%)	0 (0.00%)
Labores, área y lugar físico distintos	0 (0.00%)	2 (11.8%)	1 (5.88%)	0 (0.00%)	0 (0.00%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?:						0.443
Buena	0 (0.00%)	2 (11.8%)	2 (12.5%)	3 (20.0%)	0 (0.00%)
Regular	2 (100%)	12 (70.6%)	11 (68.8%)	6 (40.0%)	4 (50.0%)
Mala	0 (0.00%)	3 (17.6%)	3 (18.8%)	6 (40.0%)	4 (50.0%)
¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.:						0.092
Totalmente de acuerdo	1 (50.0%)	3 (17.6%)	5 (31.2%)	3 (20.0%)	2 (25.0%)
De acuerdo	0 (0.00%)	6 (35.3%)	5 (31.2%)	10 (66.7%)	3 (37.5%)
Neutral	1 (50.0%)	8 (47.1%)	3 (18.8%)	0 (0.00%)	2 (25.0%)
En desacuerdo	0 (0.00%)	0 (0.00%)	3 (18.8%)	0 (0.00%)	1 (12.5%)
Totalmente en desacuerdo	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:						0.436
Siempre	0 (0.00%)	7 (41.2%)	0 (0.00%)	5 (33.3%)	1 (12.5%)
La mayoría <br>de las veces	1 (50.0%)	4 (23.5%)	5 (31.2%)	3 (20.0%)	4 (50.0%)
Algunas veces	1 (50.0%)	6 (35.3%)	8 (50.0%)	5 (33.3%)	2 (25.0%)
Sólo unas <br>pocas veces	0 (0.00%)	0 (0.00%)	2 (12.5%)	2 (13.3%)	1 (12.5%)
Nunca	0 (0.00%)	0 (0.00%)	1 (6.25%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:						0.065
Siempre	0 (0.00%)	8 (47.1%)	0 (0.00%)	1 (6.67%)	4 (50.0%)
La mayoría <br>de las veces	1 (50.0%)	7 (41.2%)	9 (56.2%)	10 (66.7%)	3 (37.5%)
Algunas veces	0 (0.00%)	2 (11.8%)	4 (25.0%)	3 (20.0%)	1 (12.5%)
Sólo unas <br>pocas veces	1 (50.0%)	0 (0.00%)	2 (12.5%)	1 (6.67%)	0 (0.00%)
Nunca	0 (0.00%)	0 (0.00%)	1 (6.25%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:						0.758
Siempre	0 (0.00%)	2 (11.8%)	2 (12.5%)	2 (13.3%)	0 (0.00%)
La mayoría <br>de las veces	1 (50.0%)	8 (47.1%)	10 (62.5%)	7 (46.7%)	3 (37.5%)
Algunas veces	0 (0.00%)	6 (35.3%)	3 (18.8%)	5 (33.3%)	4 (50.0%)
Sólo unas <br>pocas veces	1 (50.0%)	1 (5.88%)	1 (6.25%)	1 (6.67%)	1 (12.5%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:						0.793
Siempre	0 (0.00%)	2 (11.8%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
La mayoría <br>de las veces	1 (50.0%)	2 (11.8%)	1 (6.25%)	1 (6.67%)	1 (12.5%)
Algunas veces	0 (0.00%)	7 (41.2%)	7 (43.8%)	5 (33.3%)	5 (62.5%)
Sólo unas <br>pocas veces	1 (50.0%)	4 (23.5%)	4 (25.0%)	4 (26.7%)	2 (25.0%)
Nunca	0 (0.00%)	2 (11.8%)	4 (25.0%)	3 (20.0%)	0 (0.00%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:						0.413
Siempre	1 (50.0%)	2 (11.8%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
La mayoría <br>de las veces	0 (0.00%)	3 (17.6%)	4 (25.0%)	2 (13.3%)	2 (25.0%)
Algunas veces	0 (0.00%)	10 (58.8%)	6 (37.5%)	8 (53.3%)	4 (50.0%)
Sólo unas <br>pocas veces	1 (50.0%)	2 (11.8%)	4 (25.0%)	3 (20.0%)	2 (25.0%)
Nunca	0 (0.00%)	0 (0.00%)	2 (12.5%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:						0.074
Siempre	0 (0.00%)	8 (47.1%)	7 (43.8%)	6 (40.0%)	0 (0.00%)
La mayoría <br>de las veces	0 (0.00%)	5 (29.4%)	6 (37.5%)	5 (33.3%)	4 (50.0%)
Algunas veces	1 (50.0%)	2 (11.8%)	1 (6.25%)	2 (13.3%)	2 (25.0%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (11.8%)	2 (12.5%)	2 (13.3%)	1 (12.5%)
Nunca	1 (50.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (12.5%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:						0.187
Siempre	0 (0.00%)	8 (47.1%)	5 (31.2%)	6 (40.0%)	0 (0.00%)
La mayoría <br>de las veces	0 (0.00%)	4 (23.5%)	7 (43.8%)	5 (33.3%)	3 (37.5%)
Algunas veces	1 (50.0%)	4 (23.5%)	2 (12.5%)	2 (13.3%)	2 (25.0%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (5.88%)	2 (12.5%)	1 (6.67%)	1 (12.5%)
Nunca	1 (50.0%)	0 (0.00%)	0 (0.00%)	1 (6.67%)	2 (25.0%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:						0.386
Siempre	1 (50.0%)	7 (41.2%)	5 (31.2%)	3 (20.0%)	1 (12.5%)
La mayoría <br>de las veces	0 (0.00%)	9 (52.9%)	8 (50.0%)	5 (33.3%)	3 (37.5%)
Algunas veces	1 (50.0%)	1 (5.88%)	3 (18.8%)	5 (33.3%)	3 (37.5%)
Sólo unas <br>pocas veces	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (13.3%)	1 (12.5%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:						0.558
Siempre	0 (0.00%)	4 (23.5%)	5 (31.2%)	3 (20.0%)	1 (12.5%)
La mayoría <br>de las veces	1 (50.0%)	8 (47.1%)	7 (43.8%)	5 (33.3%)	4 (50.0%)
Algunas veces	1 (50.0%)	5 (29.4%)	4 (25.0%)	3 (20.0%)	3 (37.5%)
Sólo unas <br>pocas veces	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
Nunca	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:						0.892
Siempre	1 (50.0%)	11 (64.7%)	10 (62.5%)	11 (73.3%)	5 (62.5%)
La mayoría <br>de las veces	1 (50.0%)	4 (23.5%)	3 (18.8%)	3 (20.0%)	2 (25.0%)
Algunas veces	0 (0.00%)	2 (11.8%)	3 (18.8%)	0 (0.00%)	1 (12.5%)
Nunca	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles.:						0.965
Apenas cierto	0 (0.00%)	1 (6.25%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Más bien cierto	1 (50.0%)	4 (25.0%)	6 (37.5%)	6 (40.0%)	3 (37.5%)
Cierto	1 (50.0%)	11 (68.8%)	10 (62.5%)	9 (60.0%)	5 (62.5%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.:						0.982
Apenas cierto	0 (0.00%)	1 (6.25%)	0 (0.00%)	1 (6.67%)	0 (0.00%)
Más bien cierto	1 (50.0%)	6 (37.5%)	6 (37.5%)	5 (33.3%)	2 (25.0%)
Cierto	1 (50.0%)	9 (56.2%)	10 (62.5%)	9 (60.0%)	6 (75.0%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas.:						0.838
Apenas cierto	0 (0.00%)	1 (6.25%)	0 (0.00%)	2 (13.3%)	0 (0.00%)
Más bien cierto	1 (50.0%)	5 (31.2%)	8 (50.0%)	5 (33.3%)	3 (37.5%)
Cierto	1 (50.0%)	10 (62.5%)	8 (50.0%)	8 (53.3%)	5 (62.5%)
Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;
Variables categóricas son presentadas como el recuento y el porcentaje

#table(surveymonkey_accionsalududp_df2_cor_table$p33_cond_trab_sit_cont)
#table(surveymonkey_accionsalududp_df2_cor_table$p45_demo_id_personal_1)
#p45_demo_id_personal_1='De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Mujer.',
#p45_demo_id_personal_2='De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Hombre.',
#p45_demo_id_personal_3='De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | LGBTIQ+.',
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate(sexo= $p45_demo_id_personal_1) %>%
    dplyr::mutate_at(vars(c("percent", "valid_percent")),~scales::percent(.))

janitor::tabyl(surveymonkey_accionsalududp_df2_cor$p32_cond_trab_est) %>%
    dplyr::mutate_at(vars(c("percent", "valid_percent")),~scales::percent(.))

surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate(sit_contractual=dplyr::case_when(grepl("Contrata",p33_cond_trab_sit_cont)~"Contrata",
                                                 grepl("plazo fijo",p33_cond_trab_sit_cont)~"Otros",
                                                 grepl("Remplazo",p33_cond_trab_sit_cont)~"Otros",
                                                 grepl("reemplazo",p33_cond_trab_sit_cont)~"Otros",
                                                 grepl("Titulares",p33_cond_trab_sit_cont)~"Titulares",
                                                 grepl("Honorarios",p33_cond_trab_sit_cont)~"Honorarios",
                                                 is.na(p33_cond_trab_sit_cont)~NA_character_,
                                                 T~"Otros")) %>% 
  dplyr::group_by(sit_contractual) %>% 
  dplyr::summarise(n=n()) %>% 
  dplyr::ungroup() %>% 
dplyr::mutate(percent=paste0(round((n/(sum(n)))*100,1),"%"),
              valid_percent=paste0(round((n/(sum(n)-sum(n[is.na(sit_contractual)]))*100),1),"%"),
              valid_percent=ifelse(is.na(sit_contractual),NA,valid_percent)) %>% 
  copy_names()

#Titulares  Contrata    Honorarios  Otros
my_order1=c("Titulares","Contrata","Honorarios","Becario/Interno/Practicante","Otros")

janitor::tabyl(surveymonkey_accionsalududp_df2_cor_table$sit_contractual)[,c(1:2)] %>% 
  dplyr::mutate(percent=paste0(round((n/(sum(n)))*100,1),"%"),
              valid_percent=paste0(round((n/(sum(n)-sum(n[is.na(.[,1])]))*100),1),"%"),
              valid_percent=ifelse(is.na(.[,1]),NA,valid_percent)) %>% 
  arrange(factor(.[,1], levels = my_order1)) %>% 
  copy_names()

my_order2=c("Mujer","Hombre")

janitor::tabyl(surveymonkey_accionsalududp_df2_cor_table$p45_demo_sexo)[,c(1:2)] %>% 
  dplyr::mutate(percent=paste0(round((n/(sum(n)))*100,1),"%"),
              valid_percent=paste0(round((n/(sum(n)-sum(n[is.na(.[,1])]))*100),1),"%"),
              valid_percent=ifelse(is.na(.[,1]),NA,valid_percent)) %>% 
    arrange(factor(.[,1], levels = my_order2)) %>% 
  copy_names()

my_order3=c("Administrativo","Técnicos y Auxiliares","Enfermeros","Otros Profesionales No Médicos","Médicos")

janitor::tabyl(surveymonkey_accionsalududp_df2_cor_table$estamento)[,c(1:2)] %>% 
  dplyr::mutate(percent=paste0(round((n/(sum(n)))*100,1),"%"),
              valid_percent=paste0(round((n/(sum(n)-sum(n[is.na(.[,1])]))*100),1),"%"),
              valid_percent=ifelse(is.na(.[,1]),NA,valid_percent)) %>% 
  arrange(factor(.[,1], levels = my_order3)) %>% 
  copy_names()

2.3.1 Primera Sección - Salud Mental

#dim_sm_p4<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p4_afront")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#dim_sm_p5<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p5_animo")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
sm_bars<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p3_siente"),
                              starts_with("p4_afront"),
                              starts_with("p5_animo")),.funs = ~as.numeric(.)) %>% 
  dplyr::select(starts_with("p3_siente"),starts_with("p4_afront"),starts_with("p5_animo")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:5))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V2") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(items=dplyr::case_when(grepl("p3",key)~"p3",
                                      grepl("p4",key)~"p4",
                                      grepl("p5",key)~"p5")) %>% 
  dplyr::mutate(val_text=dplyr::case_when(items=="p3" & val==1~"Nunca(1)",
                                          items=="p3" & val==2~"Sólo unas pocas veces(2)",
                                          items=="p3" & val==3~"Algunas veces(3)",
                                          items=="p3" & val==4~"La mayoría de las veces(4)",
                                          items=="p3" & val==5~"Siempre(5)",
                                          items=="p4" & val==1~"Nada(1)",
                                          items=="p4" & val==2~"Un poco(2)",
                                          items=="p4" & val==3~"Regular(3)",
                                          items=="p4" & val==4~"Bastante(4)",
                                          items=="p4" & val==5~"Mucho(5)",
                                          items=="p5" & val==1~"Nunca(1)",
                                          items=="p5" & val==2~"Algunos días(2)",
                                          items=="p5" & val==3~"Más de la mitad de los días(3)",
                                          items=="p5" & val==4~"Casi todos los días(4)",
                                          is.na(val)~"No Responde"
                                            )) %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key), nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup()%>% dplyr::filter(!is.na(val))
  
for (i in 1:nrow(sm_bars)){
  sm_bars$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(sm_bars$label[i], width =40), "<br>"), collapse='')
}  
sm_bars$label_text<-paste0("Código: ",sm_bars$key,"<br>Valor:",sm_bars$val_text,"<br>Porcentaje:",sm_bars$perc,"<br>Válido:",sm_bars$valid_perc,"<br>Etiqueta:",sm_bars$label)

to_string <- as_labeller(c(`p3` = "En los últimos 7 días, cuán ha menudo me he sentido...(p3)", `p4` = "En la ultima semana y a consecuencia de la situación sanitaria, me he sentido...(p4)",`p5` = "Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días(p5)"))


sm_bars_plot<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
    ggplot(sm_bars ,aes(x=items_num,y=sum,fill=val, label= label_text))+
    geom_col() +
    scale_fill_grey(name= "Values", start = 0.8, end = 0.2,labels=c(paste0(1:5),"NR"), na.value = "#FF5252")+
  sjPlot::theme_sjplot2()+
  labs(x="Ítems",y="Número de Respuestas\n")+
  facet_wrap(~items, nrow = 3, labeller = to_string)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  scale_x_continuous(breaks=c(1:6))+
  theme(strip.text.x = element_text(size = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))

ggplotly(sm_bars_plot, tooltip = c("label_text"))%>%
  layout(xaxis= list(showticklabels = T), showlegend=F)%>%
  config(displayModeBar = TRUE) %>% 
  htmlwidgets::onRender('function(el, x) {
                         $("[data-title=\'MasterCard\'] svg path").css("fill", "#7ac143");
                         $("[data-title=\'MasterCard\'] svg").css("width","2em");
                        }')#, height = 750, width=1100)

Figura 7. Gráfico de Barras, Preguntas de Salud Mental

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01
no_mostrar=0
if(no_mostrar==1){
ggplotly(sm_bars_plot, tooltip = c("label_text"))%>%
   layout(xaxis= list(showticklabels = T), showlegend=F) %>% htmlwidgets::onRender(
        "function(el, x) {
  var gd = document.getElementById(el.id); 
  Plotly.downloadImage(gd, {format: 'svg', scale: 2, width: 600, height: 800,filename: 'loki'});
  }"
    )
  setEPS()
postscript("C:/Users/andre/Desktopplot.eps")
sm_bars_plot
dev.off()

cairo_ps("image.eps")
sm_bars_plot
dev.off()
}


#  Plotly.downloadImage(gd, {format: 'png', width: 1200, height: 1600, filename: 'plot'});

#dim_sm_p4<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p4_afront")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#dim_sm_p5<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p5_animo")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
sm_bars<-
surveymonkey_accionsalududp_df2_cor %>% 
 # dplyr::mutate_at(.vars=vars(starts_with("p3_siente"),
 #                             starts_with("p4_afront"),
 #                             starts_with("p5_animo")),.funs = ~as.numeric(.)) %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p3_siente"),
                              starts_with("p4_afront"),
                              starts_with("p5_animo")),.funs = ~dplyr::case_when(as.numeric(.)>2~1,
                                                                                 as.numeric(.)<=2~0,
                                                                                 T~as.numeric(.))) %>% 
  dplyr::select(starts_with("p3_siente"),starts_with("p4_afront"),starts_with("p5_animo")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n()) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V2") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(items=dplyr::case_when(grepl("p3",key)~"p3",
                                      grepl("p4",key)~"p4",
                                      grepl("p5",key)~"p5")) %>% 
  dplyr::mutate(val_text=dplyr::case_when(items=="p3" & val==0~"Nunca/ Sólo unas Pocas Veces(1-2)",
                                          items=="p3" & val==1~"Al menos La mayoría de las veces(3-5)",
                                          items=="p4" & val==0~"Nada/ Un Poco(1-2)",
                                          items=="p4" & val==1~"Al menos Regular(3-5)",
                                          items=="p5" & val==0~"Nunca/Algunos días(1-2)",
                                          items=="p5" & val==1~"Más de la mitad de los días(3-4)",
                                          is.na(val)~"No Responde"
                                            )) %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key), nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup()%>% dplyr::filter(!is.na(val))
  
for (i in 1:nrow(sm_bars)){
  sm_bars$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(sm_bars$label[i], width =40), "<br>"), collapse='')
}  
sm_bars$label_text<-paste0("Código: ",sm_bars$key,"<br>Valor:",sm_bars$val_text,"<br>Porcentaje:",sm_bars$perc,"<br>Válido:",sm_bars$valid_perc,"<br>Etiqueta:",sm_bars$label)

to_string <- as_labeller(c(`p3` = "En los últimos 7 días, cuán ha menudo me he sentido...(p3)", `p4` = "En la ultima semana y a consecuencia de la situación sanitaria, me he sentido...(p4)",`p5` = "Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días(p5)"))


sm_bars_plot<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
    ggplot(sm_bars ,aes(x=items_num,y=sum,fill=factor(val), label= label_text))+
    geom_col() +
    scale_fill_grey(name= "Values", start = 0.8, end = 0.2,labels=c(paste0(0:1),"NR"), na.value = "#FF5252")+
  sjPlot::theme_sjplot2()+
  labs(x="Ítems",y="Número de Respuestas\n")+
  facet_wrap(~items, nrow = 3, labeller = to_string)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  scale_x_continuous(breaks=c(1:6))+
  theme(strip.text.x = element_text(size = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))

ggplotly(sm_bars_plot, tooltip = c("label_text"))%>%
  layout(xaxis= list(showticklabels = T), showlegend=F)#, height = 750, width=1100)

Figura 7(b). Gráfico de Barras, Preguntas de Salud Mental (Dicotomizado)

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01
if(no_mostrar==1){
ggplotly(sm_bars_plot, tooltip = c("label_text"))%>%
   layout(xaxis= list(showticklabels = T), showlegend=F) %>% htmlwidgets::onRender(
        "function(el, x) {
  var gd = document.getElementById(el.id); 
  Plotly.downloadImage(gd, {format: 'svg', scale: 2, width: 600, height: 800,filename: 'loki'});
  }"
    )
}

library(plotly)

m <- list(
    l = 220,
    r = 0,
    b = 0,
    t = 0,
    pad =1
)
req_at_sm<-
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(requiere_atencion)%>%
      dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Indicios de mayor impacto\nen la salud psicológica(>= 48 puntos)", requiere_atencion==0~"No hay indicios de este tipo"))%>%
       dplyr::summarise(n=n(),percent=round(n/sum(n),2))%>% 
     dplyr::ungroup()%>%
plot_ly(labels = ~requiere_atencion, values = ~n, type = 'pie',hole = 0.6,textposition = 'outside',automargin = TRUE, textinfo = 'label+percent', marker = list(colors = c("#FF5252","grey"))) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T),
         autosize = T)%>% 
  layout(showlegend = FALSE)

req_at_sm

Figura 8. Puntajes Salud mental

if(no_mostrar==1){
ggplotly(req_at_sm, tooltip = c("label_text"))%>%
   layout(xaxis= list(showticklabels = T), showlegend=F) %>% htmlwidgets::onRender(
        "function(el, x) {
  var gd = document.getElementById(el.id); 
  Plotly.downloadImage(gd, {format: 'svg', scale: 4, width: 600, height: 800,filename: 'fig_8_req_at_sm'});
  }"
    )
  
Sys.setenv("plotly_username" = "gonzalez.santacruz.andres")
Sys.setenv("plotly_api_key" = "JChZeAzFicRAoa2BBmVX")
Svg <- Sys.setenv("plotly_username" = "gonzalez.santacruz.andres")
Sys.setenv("plotly_api_key" = "JChZeAzFicRAoa2BBmVX")
Svg <- plotly_IMAGE(req_at_sm, format = "svg",  out_file = "plotly-test-image.svg")
}

library(plotly)

tam_dep<-
surveymonkey_accionsalududp_df2_cor_table %>%
    dplyr::group_by(tamizaje_dep)%>%
    dplyr::summarise(n=n()) %>% 
    dplyr::ungroup() %>% 
    dplyr::filter(!is.na(tamizaje_dep)) %>% 
    dplyr::mutate(percent=n/sum(n))%>% 
    dplyr::ungroup() %>%
    dplyr::mutate(tamizaje_dep=ifelse(grepl("Ausencia",tamizaje_dep),"","Sintomatología\nDepresiva")) %>% 
    dplyr::mutate(label=ifelse(!grepl("Sint",tamizaje_dep),"",paste0(tamizaje_dep,"\n",n," (",scales::percent(percent),")")))%>%
    dplyr::rename("x"="tamizaje_dep") %>% 
    dplyr::mutate(var="tamizaje_dep")

tam_ans<-
surveymonkey_accionsalududp_df2_cor_table %>%
    dplyr::group_by(tamizaje_ans)%>%
    dplyr::summarise(n=n()) %>% 
    dplyr::ungroup() %>% 
    dplyr::filter(!is.na(tamizaje_ans)) %>% 
    dplyr::mutate(percent=n/sum(n))%>% 
    dplyr::ungroup() %>% 
    dplyr::mutate(tamizaje_ans=ifelse(grepl("Ausencia",tamizaje_ans),"","Sintomatología\nAnsiosa")) %>% 
    dplyr::mutate(label=ifelse(!grepl("Sint",tamizaje_ans),"",paste0(tamizaje_ans,"\n",n," (",scales::percent(percent),")")))%>%
    dplyr::rename("x"="tamizaje_ans") %>% 
    dplyr::mutate(var="tamizaje_ans")

pie_ans_dep<-  
rbind.data.frame(tam_ans,tam_dep) %>% 
    ggplot(aes(x = "", y = percent, fill = x)) +
        geom_bar(stat="identity", width=1, color="white") +
        geom_text(aes(label = label),
            position = position_stack(vjust = 0.5)) +
        coord_polar("y", start = 0) + 
  scale_fill_manual(values=c("gray30","gray80","gray80"))+
  theme_void()+
    facet_wrap(~var)+
  theme(legend.position="none")+
  theme(title =element_blank())+ 
theme(
  strip.background = element_blank(),
  strip.text.x = element_blank()
)+ theme(aspect.ratio = 1)

girafe( ggobj = pie_ans_dep, width_svg = 8, height_svg = 4)

Figura 8b. Sintomatología Ansiosa y Depresiva

2.3.2 Segunda Sección - Exposición a COVID-19

library(plotly)

p_9_df <-
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(p6_exp_c19_pac_cont)%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup()%>%
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p6_exp_c19_pac_cont)])),2),
                  valid_percent=ifelse(is.na(p6_exp_c19_pac_cont),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
    #dplyr::mutate(label=paste0("",p6_exp_c19_pac_cont,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p6_exp_c19_pac_cont,"\n(",valid_percent,")")) %>%   

    dplyr::filter(!is.na(p6_exp_c19_pac_cont)) 


p_9_df %>% 
plot_ly(labels=~p6_exp_c19_pac_cont, values = ~n, type = 'pie',hole = 0.6,textposition = 'outside',textinfo = 'text', sort = FALSE,
        automargin = TRUE,
        text = ~label,
        direction = "clockwise",
        textfont = list(color = "black", size = 17),
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p6_exp_c19_pac_cont))-1), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(xaxis = list(ticktext = c("Ninguno", "1 a 10", "11 a 30", "31 a 100", "101 a 200", "Más de 200", "No Responde")))%>% 
  layout(showlegend = FALSE) 

Figura 9. ¿Cuántos PACIENTES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?

#p_9
if(no_mostrar==1){
p_9 %>% htmlwidgets::onRender(
        "function(el, x) {
  var gd = document.getElementById(el.id); 
  Plotly.downloadImage(gd, {format: 'svg', scale: 4, width: 600, height: 800,filename: 'p9'});
  }"
    )
}
  #layout(annotations=list(text=label, "showarrow"=F))

library(plotly)

#names_df
#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
p_10_df<-
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(p7_exp_c19_trab_cont)%>%
       dplyr::summarise(n=n(),percent=round(n/sum(n),2))%>% 
     dplyr::ungroup()%>%
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p7_exp_c19_trab_cont)])),2),
                  valid_percent=ifelse(is.na(p7_exp_c19_trab_cont),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>%   
#      dplyr::mutate(label=paste0("",p7_exp_c19_trab_cont,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p7_exp_c19_trab_cont,"\n(",valid_percent,")")) %>%   

      dplyr::filter(!is.na(p7_exp_c19_trab_cont))

p_10_df %>% 
plot_ly(labels = ~p7_exp_c19_trab_cont, values = ~n, type = 'pie',hole = 0.6,textposition = 'outside',textinfo = 'text', sort = FALSE,
        automargin = TRUE,
        text = ~label,
        direction = "clockwise",
        textfont = list(color = "black", size = 21),
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p7_exp_c19_trab_cont))-1), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(xaxis = list(ticktext = c("Ninguno", "1 a 10", "11 a 30", "31 a 100", "No Responde")))%>% 
  layout(showlegend = FALSE)

Figura 10. ¿Cuántos TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?

#p_10
if(no_mostrar==1){
p_10 %>% htmlwidgets::onRender(
        "function(el, x) {
  var gd = document.getElementById(el.id); 
  Plotly.downloadImage(gd, {format: 'svg', scale: 4, width: 600, height: 800,filename: 'p10'});
  }"
    )
}

p_9_10_df<-
p_9_df %>% 
  dplyr::mutate(label=paste0(n," (",valid_percent,")")) %>% 
  dplyr::rename("variable"="p6_exp_c19_pac_cont") %>% 
  dplyr::mutate(item="p6_exp_c19_pac_cont") %>% 
  rbind.data.frame(p_10_df %>% dplyr::mutate(label=paste0(n,"(",valid_percent,")")) %>% 
                     dplyr::rename("variable"="p7_exp_c19_trab_cont") %>% 
                     dplyr::mutate(item="p7_exp_c19_trab_cont")) %>% 
    dplyr::mutate(variable=ordered(variable,levels=c("Ninguno", "Sólo uno", "1 a 10", "2 a 10", "11 a 25","11 a 30","26 a 50","Más de 50","31 a 100","101 a 200","Más de 200")))
#gg <- melt(df,id="gender")
p_9_10_plot<-  
p_9_10_df %>% 
      ggplot(aes(x=variable,y=n,fill=factor(item),group=factor(item)))+
      geom_bar(stat="identity", alpha=.5,position="dodge")+
      sjPlot::theme_sjplot2()+
        labs(x="Pacientes contagiados por COVID-19",y="Número de Respuestas\n")+
  coord_flip()+
   geom_text(
    aes(x=variable,y=n, label=label,group=factor(item)), 
    hjust = 0, size = 5.7,
    position = position_dodge(width = 1),
    inherit.aes = TRUE
  ) + 
   # theme_sjplot2()+
  theme(plot.caption = element_text(hjust = 0.1),
        text = element_text(size=18),
        legend.position="bottom")+
  scale_fill_manual(name="Contagiados",
                      values=c("#999999", "#FF5252"),# "#56B4E9","#E69F00"),
                      #breaks=c(1, 2),
                      labels=c("Pacientes", "Trabajadores"))+
  ylim(0,max(p_9_10_df$n)+20)
 # theme_set(theme_blank(base_size = 18)) 

#guides(fill = guide_legend(title = "LEFT", title.position = "left"))

p_9_10_plot

Figura 9b. ¿Cuántos PACIENTES y TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?

  jpeg("Plots/_Fig1a_p9_10_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p_9_10_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

library(plotly)

#names_df
#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
m <- list(
  l = 220,
  r = 210,
  b = 100,
  t = 100,
  pad =1
)
#table(surveymonkey_accionsalududp_df2_cor$p8_exp_c19_cerca_cont, exclude=NULL)
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
    dplyr::mutate(p8_exp_c19_cerca_cont=stringi::stri_paste(paste(stringi::stri_wrap(as.character(p8_exp_c19_cerca_cont), width =30), "<br>"), collapse=''))%>%
  dplyr::mutate(p8_exp_c19_cerca_cont=dplyr::case_when(p8_exp_c19_cerca_cont=="NA <br>"~NA_character_,TRUE~p8_exp_c19_cerca_cont)) %>% 
  dplyr::mutate(p8_exp_c19_cerca_cont=factor(p8_exp_c19_cerca_cont)) %>% 
     dplyr::group_by(p8_exp_c19_cerca_cont)%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup()%>%
    dplyr::mutate(p8_exp_c19_cerca_cont=stringr::str_replace(p8_exp_c19_cerca_cont,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p8_exp_c19_cerca_cont)])),2),
                  valid_percent=ifelse(is.na(p8_exp_c19_cerca_cont),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
  #  dplyr::mutate(label=paste0("",p8_exp_c19_cerca_cont,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p8_exp_c19_cerca_cont,"(",valid_percent,")")) %>% 

        dplyr::filter(!is.na(p8_exp_c19_cerca_cont)) %>% 
plot_ly( labels = ~p8_exp_c19_cerca_cont, values = ~n, type = 'pie',hole = 0.6,textposition = 'outside',textinfo = 'text',
        text = ~label, 
        automargin = TRUE,
        sort = FALSE,
        direction = "clockwise",
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p8_exp_c19_cerca_cont))-1), "#FF5252"))) %>%
  layout(yaxis = list(zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE,autosize = T, margin=m)#, height = 750, width=1100)# margin= m,height = 750, width=950

Figura 11. ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?

p8_df<-
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
    dplyr::mutate(p8_exp_c19_cerca_cont=stringi::stri_paste(paste(stringi::stri_wrap(as.character(p8_exp_c19_cerca_cont), width =30), "\n"), collapse=''))%>%
  dplyr::mutate(p8_exp_c19_cerca_cont=dplyr::case_when(p8_exp_c19_cerca_cont=="NA "~NA_character_,TRUE~p8_exp_c19_cerca_cont)) %>% 
    dplyr::mutate(p8_exp_c19_cerca_cont=dplyr::case_when(grepl("^NA ",p8_exp_c19_cerca_cont)~NA_character_,TRUE~p8_exp_c19_cerca_cont)) %>% 
  dplyr::mutate(p8_exp_c19_cerca_cont=factor(p8_exp_c19_cerca_cont)) %>% 
     dplyr::group_by(p8_exp_c19_cerca_cont)%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup()%>%
    dplyr::mutate(p8_exp_c19_cerca_cont=stringr::str_replace(p8_exp_c19_cerca_cont,"\n$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p8_exp_c19_cerca_cont)])),2),
                  valid_percent=ifelse(is.na(p8_exp_c19_cerca_cont),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
    #dplyr::mutate(label=paste0("",p8_exp_c19_cerca_cont,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
    dplyr::mutate(label=paste0(p8_exp_c19_cerca_cont,"(",valid_percent,")")) %>% 
        dplyr::filter(!is.na(p8_exp_c19_cerca_cont)) %>%
  dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) %>% 
  dplyr::mutate(p8_exp_c19_cerca_cont=factor(p8_exp_c19_cerca_cont,levels=c(
                  "Trabajo en contacto directo \ncon pacientes ",
                  "Trabajo a menos de dos metros \nde pacientes ",
                  "Trabajo en las habitaciones de \npacientes (a más de 2 metros \nde distancia) ",
                  "Trabajo en el mismo piso/sala/ \ndepartamento ",
                  "Como parte de mi trabajo visito un piso/sala/ departamento ",
                  "Como parte de mi trabajo \nvisito un piso/sala/ \ndepartamento ",
                  "Comparto espacios de trabajo \n(entradas, cafetería, \ncasilleros, habitaciones, \netc) con otros trabajadores \nque trabajan con pacientes \nCOVID-19 ",
                "Ninguno que yo esté en \nconocimiento ")))

p8_plot<-
ggplot(p8_df %>% dplyr::filter(!is.na(p8_exp_c19_cerca_cont)), aes(y=num_perc, x=p8_exp_c19_cerca_cont))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=1.), hjust=-1, vjust = -.5, size = 5) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  coord_flip()+
  ylim(0,100)+
  ylab("Porcentaje de Respuesta")+
  xlab("Situaciones desde el primer caso diagnosticado en el país")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=13),
        axis.title.y = element_text(size=13),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p8_plot

Figura 11. ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?

  jpeg("Plots/_Fig1a_p8_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p8_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

##TIPO DE VARIABLES 

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

cols_labels2<-
cols_labels %>% 
dplyr::mutate(V3=substr(V2, stringr::str_locate(V2, "\\|"),stringr::str_length(V2)))

p9_df<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p9_exp_c19_exp_sit_dg_")),.funs = ~as.numeric(.)) %>% 
  dplyr::select(starts_with("p9_exp_c19_exp_sit_dg_")) %>%
  gather(key = "key", value = "val") %>%
  dplyr::filter(val==1) %>% 
  dplyr::filter(!grepl("_otr",key)) %>%  #sacar opción "otros"
  dplyr::group_by(key) %>% 
  dplyr::summarise(sum=sum(val,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels2, by=c("key"="V1")) %>% 
  dplyr::mutate(V3=substr(V3,3,stringr::str_length(V3))) 

p9_df$text_label<-paste0("Código: ",p9_df$key,"<br>Etiqueta:",p9_df$V3,"<br>No. de casos: ",p9_df$sum)

p9_df_plot<-
      p9_df %>% 
      ggplot(aes(x=key,y=sum,label=text_label))+
       geom_bar(stat="identity")+
      labs(x="Suma ptjes",y="Variable")+
      sjPlot::theme_sjplot2()+
        labs(x="Situaciones",y="Número de Respuestas\n")+
        scale_x_discrete(labels=c(1:11))

ggplotly(p9_df_plot, tooltip = c("text_label"))%>% layout(xaxis= list(showticklabels = T))

Figura 12. ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país?

  #</div> , height = 600, width=800

library(plotly)

#names_df
#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
    dplyr::mutate_at(.vars=vars(c(paste0("p9_exp_c19_exp_sit_dg_0",1:9),"p9_exp_c19_exp_sit_dg_10")),.funs = ~as.numeric(.)) %>% 
    dplyr::select(c(paste0("p9_exp_c19_exp_sit_dg_0",1:9),"p9_exp_c19_exp_sit_dg_10")) %>%
    #dplyr::mutate(ptjes_p9= rowSums(dplyr::select(.,starts_with("p9_exp_c19_exp_sit_dg_")),na.rm=T)) %>% 
   # dplyr::select(-p9_exp_c19_exp_sit_dg_11) %>% #excluyo Ninguna de las anteriores
    #dplyr::mutate(ptjes_p9 = sum(c_across(starts_with("p9_exp_c19_exp_sit_dg_")))) %>%
    dplyr::mutate(ptjes_p9 = sum(c_across(c(paste0("p9_exp_c19_exp_sit_dg_0",1:9),"p9_exp_c19_exp_sit_dg_10")),na.rm=T)) %>%
    dplyr::ungroup() %>% 
    dplyr::mutate(ptjes_p9=ordered(ifelse(ptjes_p9>3,"Más de 3",as.character(ptjes_p9)),
                                    levels = c("1", "2", "3","Más de 3"))) %>% 
     dplyr::group_by(ptjes_p9)%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup()%>%
    dplyr::mutate(ptjes_p9=stringr::str_replace(ptjes_p9,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(ptjes_p9)])),2),
                  valid_percent=ifelse(is.na(ptjes_p9),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
    #dplyr::mutate(label=paste0("",ptjes_p9,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(ptjes_p9,"<br>(",valid_percent,")")) %>% 
     dplyr::ungroup()%>%
    dplyr::filter(!is.na(ptjes_p9)) %>% 
plot_ly( labels = ~ptjes_p9, values = ~n, type = 'pie',hole = 0.6,textposition = 'outside',textinfo = 'text',
        text = ~label, 
        automargin = TRUE,
        sort = FALSE,
        direction = "clockwise",
        marker = list(colors = c(gray.colors(5), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 13b. ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas)

ptjes_p9<-
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
    dplyr::mutate_at(.vars=vars(c(paste0("p9_exp_c19_exp_sit_dg_0",1:9),"p9_exp_c19_exp_sit_dg_10")),.funs = ~as.numeric(.)) %>% 
    dplyr::select(c(paste0("p9_exp_c19_exp_sit_dg_0",1:9),"p9_exp_c19_exp_sit_dg_10")) %>%
    #dplyr::mutate(ptjes_p9= rowSums(dplyr::select(.,starts_with("p9_exp_c19_exp_sit_dg_")),na.rm=T)) %>% 
   # dplyr::select(-p9_exp_c19_exp_sit_dg_11) %>% #excluyo Ninguna de las anteriores
    #dplyr::mutate(ptjes_p9 = sum(c_across(starts_with("p9_exp_c19_exp_sit_dg_")))) %>%
    dplyr::mutate(ptjes_p9 = sum(c_across(c(paste0("p9_exp_c19_exp_sit_dg_0",1:9),"p9_exp_c19_exp_sit_dg_10")),na.rm=T)) %>%
    dplyr::ungroup() %>% 
    dplyr::mutate(ptjes_p9=ordered(ifelse(ptjes_p9>3,"Más de 3",as.character(ptjes_p9)),
                                    levels = c("1", "2", "3","Más de 3"))) %>% 
     dplyr::group_by(ptjes_p9)%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup() %>% 
    dplyr::mutate(ptjes_p9=stringr::str_replace(ptjes_p9,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(ptjes_p9)])),2),
                  valid_percent=ifelse(is.na(ptjes_p9),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
    dplyr::mutate(label=paste0(ptjes_p9,"(",valid_percent,")")) %>% 
     dplyr::ungroup()%>%
    dplyr::filter(!is.na(ptjes_p9))%>% 
  dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+"))

p9_plot<-
ggplot(ptjes_p9 %>% dplyr::filter(!is.na(ptjes_p9)), aes(y=num_perc, x=ptjes_p9))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=1.), vjust = -.5, size = 5) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,100)+
  ylab("Porcentaje de Respuesta")+
  xlab("Situaciones desde el primer caso diagnosticado en el país")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=13),
        axis.title.y = element_text(size=13),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p9_plot

Figura 13b. ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas)

  jpeg("Plots/_Fig1a_ptjes_9_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p9_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

jpeg("Plots/_Fig1a_ptjes_9_rob_del_rio.jpg",width=600, height=350)
p9_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p10_exp_c19_preocupa_llevar")

#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(p10_exp_c19_preocupa_llevar)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup()%>%
    dplyr::mutate(p10_exp_c19_preocupa_llevar=stringr::str_replace(p10_exp_c19_preocupa_llevar,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p10_exp_c19_preocupa_llevar)])),2),
                  valid_percent=ifelse(is.na(p10_exp_c19_preocupa_llevar),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
#    dplyr::mutate(label=paste0("",p10_exp_c19_preocupa_llevar,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p10_exp_c19_preocupa_llevar,"\n(",valid_percent,")")) %>%   

     dplyr::ungroup()%>%
      dplyr::filter(!is.na(p10_exp_c19_preocupa_llevar)) %>% 

plot_ly( labels = ~p10_exp_c19_preocupa_llevar, values = ~n, type = 'pie',hole = 0.6,textposition = 'outside',textinfo = 'text',
        text = ~label, 
        automargin = TRUE,
        sort = FALSE,
        direction = "clockwise",
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p10_exp_c19_preocupa_llevar))-1), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 14. ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?

p10_df<-
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(p10_exp_c19_preocupa_llevar)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup()%>%
    dplyr::mutate(p10_exp_c19_preocupa_llevar=stringr::str_replace(p10_exp_c19_preocupa_llevar,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p10_exp_c19_preocupa_llevar)])),2),
                  valid_percent=ifelse(is.na(p10_exp_c19_preocupa_llevar),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
    dplyr::mutate(label=paste0(p10_exp_c19_preocupa_llevar,"(",valid_percent,")")) %>%
     dplyr::ungroup()%>%
      dplyr::filter(!is.na(p10_exp_c19_preocupa_llevar)) %>% 
  dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) %>% 
  dplyr::mutate(p10_exp_c19_preocupa_llevar=factor(p10_exp_c19_preocupa_llevar, levels = c("Nada", "Un poco", "Bastante", "Mucho", "No aplica")))

p10_plot<-
ggplot(p10_df, aes(y=num_perc, x=p10_exp_c19_preocupa_llevar))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=1.), vjust = -.5, size = 5) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,60)+
  ylab("Porcentaje de Respuesta")+
  xlab("¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=13),
        axis.title.y = element_text(size=13),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p10_plot

## Warning: Removed 1 rows containing missing values (geom_bar).

## Warning: Removed 1 rows containing missing values (geom_text).

Figura 14. ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?

  jpeg("Plots/_Fig1b_p10_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p10_plot+ theme(plot.background = element_rect(fill=NA, color = NA))

## Warning: Removed 1 rows containing missing values (geom_bar).

## Warning: Removed 1 rows containing missing values (geom_text).

  dev.off()

## png 
##   2

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p11_exp_c19_miedo_pand_rec")

#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
      dplyr::mutate(p11_exp_c19_miedo_pand_rec=dplyr::case_when(grepl("Ausencia",p11_exp_c19_miedo_pand_rec)~"Predomina la ausencia de miedo",grepl("Miedo",p11_exp_c19_miedo_pand_rec)~"Predomina el miedo",TRUE~NA_character_))%>%
     dplyr::group_by(p11_exp_c19_miedo_pand_rec)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
    dplyr::summarise(n=n()) %>% 
    dplyr::ungroup()%>%
    dplyr::mutate(p11_exp_c19_miedo_pand_rec=stringr::str_replace(p11_exp_c19_miedo_pand_rec,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p11_exp_c19_miedo_pand_rec)])),2),
                  valid_percent=ifelse(is.na(p11_exp_c19_miedo_pand_rec),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
#    dplyr::mutate(label=paste0("",p11_exp_c19_miedo_pand_rec,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p11_exp_c19_miedo_pand_rec,"<br>(",valid_percent,")")) %>% 

    dplyr::ungroup()%>%
  dplyr::filter(!is.na(p11_exp_c19_miedo_pand_rec)) %>% 
plot_ly( labels = ~p11_exp_c19_miedo_pand_rec, values = ~n, type = 'pie',hole = 0.6,
      textposition = 'outside',
      textinfo = 'text',
      text = ~label, 
      automargin = TRUE,
      sort = FALSE,
      direction = "clockwise",
      marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p11_exp_c19_miedo_pand_rec))-1), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 15. ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?

2.3.3 Tercera Sección - Disponibilidad y adecuación de las medidas de control de contagio en su trabajo

##TIPO DE VARIABLES 

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

#cols_labels2
#p12_contr_cont_imp_nec_01   p13_contr_cont_imp_disp_01  
p12_df<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=c(paste0("p12_contr_cont_imp_nec_",sprintf("%02d", 1:11))),.funs = ~as.numeric(.)) %>% 
  dplyr::select(starts_with("p12_contr_cont_imp_nec_")) %>%
  gather(key = "key", value = "val") %>%
  dplyr::filter(val==1) %>% 
  dplyr::filter(!grepl("_otr",key)) %>%  #sacar opción "otros"
  dplyr::group_by(key) %>% 
  dplyr::summarise(sum=sum(as.numeric(val),na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels2, by=c("key"="V1")) %>% 
  dplyr::mutate(V3=substr(V3,3,stringr::str_length(V3))) 

p12_df$text_label<-paste0("Código: ",p12_df$key,"<br>Etiqueta:",p12_df$V3,"<br>No. de casos: ",p12_df$sum)

p12_df_plot<-
      p12_df %>% 
      ggplot(aes(x=key,y=sum,label=text_label))+
       geom_bar(stat="identity")+
      labs(x="Suma ptjes",y="Variable")+
      sjPlot::theme_sjplot2()+
        labs(x="EPP's",y="Número de Respuestas\n")+
        scale_x_discrete(labels=c(1:11))

ggplotly(p12_df_plot, tooltip = c("text_label"))%>% layout(xaxis= list(showticklabels = T))

Figura 16. En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar:

  #</div> , height = 600, width=800
if(no_mostrar==1){
p_10 %>% htmlwidgets::onRender(
        "function(el, x) {
  var gd = document.getElementById(el.id); 
  Plotly.downloadImage(gd, {format: 'svg', scale: 4, width: 600, height: 800,filename: 'p10'});
  }"
    )
}

##TIPO DE VARIABLES 

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

#cols_labels2
#p12_contr_cont_imp_nec_01   p13_contr_cont_imp_disp_01  
p13_df<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p13_contr_cont_imp_disp_")),.funs = ~as.character(.)) %>% 
  dplyr::select(starts_with("p13_contr_cont_imp_disp_")) %>%
  gather(key = "key", value = "val") %>%
  dplyr::filter(val=="Insuficiente") %>% 
  dplyr::filter(!grepl("_otr",key)) %>%  #sacar opción "otros"
  dplyr::group_by(key) %>% 
  dplyr::summarise(sum=n()) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels2, by=c("key"="V1")) %>% 
  dplyr::mutate(V3=substr(V3,3,stringr::str_length(V3))) 

p13_df$text_label<-paste0("Código: ",p13_df$key,"<br>Etiqueta:",p13_df$V3,"<br>No. de casos: ",p13_df$sum)

p13_df_plot<-
      p13_df %>% 
      ggplot(aes(x=key,y=sum,label=text_label))+
       geom_bar(stat="identity")+
      labs(x="Suma ptjes",y="Variable")+
      sjPlot::theme_sjplot2()+
        labs(x="EPP's",y="Número de Respuestas\n")+
        scale_x_discrete(labels=c(1:12))

ggplotly(p13_df_plot, tooltip = c("text_label"))%>% layout(xaxis= list(showticklabels = T))

Figura 17. En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección? (Califica de Insuficiente)

  #</div> , height = 600, width=800

##TIPO DE VARIABLES 

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

#cols_labels2
#p12_contr_cont_imp_nec_01   p13_contr_cont_imp_disp_01  
p13_df<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p13_contr_cont_imp_disp_")),.funs = ~as.character(.)) %>% 
  dplyr::select(starts_with("p13_contr_cont_imp_disp_")) %>%
  gather(key = "key", value = "val") %>%
  dplyr::filter(val=="Insuficiente") %>% 
  dplyr::filter(!grepl("_otr",key)) %>%  #sacar opción "otros"
  dplyr::group_by(key) %>% 
  dplyr::summarise(sum=n()) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels2, by=c("key"="V1")) %>% 
  dplyr::mutate(V3=substr(V3,3,stringr::str_length(V3))) 

p13_df$text_label<-paste0("Código: ",p13_df$key,"<br>Etiqueta:",p13_df$V3,"<br>No. de casos: ",p13_df$sum)

#for (i in 1:nrow(p13_df)){
#p13_df$V3[i]<- as.character(cat(stringi::stri_wrap(p13_df$V3[i], 20),sep='\n'))  
#} 

p12_13_df<-
p13_df %>% 
  dplyr::mutate(V3=stringr::str_replace(V3,".$","")) %>% 
  dplyr::mutate(V3=dplyr::case_when(V3=="Protector de ojos"~"Protector de ojos (lentes)",
                                    V3=="Respiradores de partículas de aire impulsado"~"Respirador de aire impulsado",
                                    T~V3)) %>% 
  dplyr::left_join(select(p12_df,V3,sum), by="V3") %>% 
  tidyr::pivot_longer(cols=c('sum.x', 'sum.y'), names_to='variable', 
values_to="value") %>%
  dplyr::mutate(variable=dplyr::case_when(variable=="sum.x"~"Insuficiente",
                                          variable=="sum.y"~"Necesario"))

p12_13_plot<-
ggplot(p12_13_df, aes(reorder(V3, abs(value)),y=value, fill=variable))+
 geom_bar(stat="identity", alpha=.7,position='dodge')+
labs(x="Suma ptjes",y="Variable")+
sjPlot::theme_sjplot2()+
  labs(x="EPP's",y="Número de Respuestas\n")+
    coord_flip()+
  scale_fill_manual(name="Categoría", values=c("gray35","gray70"))+
  theme(axis.text.x = element_text(size=17),
        axis.text.y = element_text(size=17),
        axis.title.x = element_blank(),
        axis.title.y = element_text(size=17),
        legend.text= element_text(size=16),
        legend.title= element_text(size=17),
        legend.position= "bottom"
        ) +
  ylim(0,max(abs(p12_13_df$value))+15)
        
p12_13_plot

## Warning: Removed 1 rows containing missing values (geom_bar).

Figura 17b. En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección? (Califica de Insuficiente)

  jpeg("Plots/_Fig1b_p12_13_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p12_13_plot+ theme(plot.background = element_rect(fill=NA, color = NA))

## Warning: Removed 1 rows containing missing values (geom_bar).

  dev.off()

## png 
##   2

  #</div> , height = 600, width=800

#, results='asis'  fig.width = 7, fig.height=10,
# StatStratum <- StatStratum
library(ggalluvial)

## Warning: package 'ggalluvial' was built under R version 4.0.3

#'p12__01' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_guantes',
#'p12__02' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_protector_de_ojos_lentes',
#'p12__03' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_protector_facial',
#'p12__04' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_overol',
#'p12__05' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_desinfectante_de_manos',
#'p12__06' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_mascarilla_quirurgica',
#'p12__07' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_mascarilla_n95',
#'p12__08' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_respirador_de_aire_impulsado',
#'p12__09' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_delantal_pechera',
#'p12__10' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_cofia',
#'p12__11' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_cubre_calzado',
#'p12__12' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_ninguno_de_los_anteriores',
#'p12__13' = 'seleccione_aquellos_implementos_que_considera_necesario_utilizar_otro_especifique',
#'p13_01' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_guantes',
#'p13_02' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_protector_de_ojos',
#'p13_03' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_protector_facial',
#'p13_04' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_overol',
#'p13_05' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_desinfectante_de_manos',
#'p13_06' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_mascarilla_quirurgica',
#'p13_07' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_mascarilla_n95',
#'p13_08' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_respiradores_de_particulas_de_aire_impuls#ado',
#'p13_09' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_delantal_pechera',
#'p13_10' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_cofia',
#'p13_11' = 'disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_cubre_calzado',


p12_13<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p12_contr_cont_imp_nec_")),.funs = ~as.character(.)) %>%
  dplyr::select(-p12_contr_cont_imp_nec_13,-p12_contr_cont_imp_nec_12) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(id_resp_no_depurado=row_number()) %>%
  #janitor::tabyl(p12_contr_cont_imp_nec_01)
  dplyr::select(id_resp_no_depurado,starts_with("p12_contr_cont_imp_nec_"),starts_with("p13_contr_cont_imp_disp_")) %>%
   pivot_longer(-id_resp_no_depurado, names_to = "value", values_to = "count") %>% 
  dplyr::mutate(str_value=str_sub(value, start= -2)) %>% 
  dplyr::mutate(str_value_p=str_sub(value,0,3)) %>% 
  dplyr::select(-value) %>% 
  pivot_wider(id_cols=c("id_resp_no_depurado","str_value"),names_from="str_value_p",values_from=c("count")) %>% 
  dplyr::filter(!is.na(p12)) %>% 
  dplyr::mutate(str_value=dplyr::case_when(str_value=="01"~"guantes",
                                           str_value=="02"~"protector de ojos (lentes)",
                                           str_value=="03"~"protector facial",
                                           str_value=="04"~"overol",
                                           str_value=="05"~"desinfectante de manos",
                                           str_value=="06"~"mascarilla quirurgica",
                                           str_value=="07"~"mascarilla n95",
                                           str_value=="08"~"respirador de\naire impulsado",
                                           str_value=="09"~"delantal pechera",
                                           str_value=="10"~"cofia",
                                           str_value=="11"~"cubre calzado")) %>% 
  dplyr::mutate(p12=dplyr::case_when(p12=="TRUE"~"Sí",
                                     p12=="FALSE"~"No")) %>% 
  dplyr::group_by(str_value,p12, p13) %>% 
    dplyr::summarise(n=n())#%>% 
  #dplyr::ungroup() %>% 
  #dplyr::group_by(p13) %>% 
  #  dplyr::mutate(perc=scales::percent(sum(n))) %>% 
  #dplyr::ungroup() 

#$install.packages("easyalluvial")
#install.packages("generics")
#library(parcats)
#library(easyalluvial)
suppressPackageStartupMessages( require(easyalluvial) )

## Warning: package 'easyalluvial' was built under R version 4.0.3

#https://rdrr.io/cran/parcats/man/parcats.html
plot_p12_13<-
p12_13 %>% 
  ggplot(aes(y = n, axis1 = p12, axis2 = p13))+#axis1 = str_value, 
  ggalluvial::geom_alluvium(aes(fill = str_value), width = 1/11) +
  geom_stratum(width = 1/11, fill = "black", color = "grey") + 
  #geom_label(stat = "stratum", aes(label = after_stat(stratum)), min.y = 200) +
  theme_bw() +               
  geom_text(stat = "stratum",
            aes(label = paste0(stratum,
                               ifelse(nchar(as.character(stratum)) == 1L,
                                      ": ", "\n"),
                               after_stat(n))),
            color = "white", size = 2.3)+
  theme(legend.position = "bottom",
    title = element_text(size = 10),
    legend.text = element_text(size = 8),
    axis.text.y = element_blank(),
    axis.text.x = element_text(size=8))+
  scale_fill_manual(values =c("red","#ffe6d5","#bf6f6f","#eec1ad","#d29985","#cF291D","#b50717","#a43232","grey80","grey40","black"))+
  labs(fill = "EPPs")+
scale_x_discrete(limits = c("Necesarios en\nsu lugar de trabajo", "Disponibilidad\nen su lugar de trabajo"), expand = c(.05, .05))

#tooltip_css <- "background-color:gray;color:white;font-style:italic;padding:10px;border-radius:10px 20px 10px 20px;"
#ggiraph(code = {print(plot_p12_13)}, tooltip_extra_css = tooltip_css, tooltip_opacity = .75)

x <- girafe(ggobj = plot_p12_13)
x <- girafe_options(x,
  opts_zoom(min = .3, max = 2) )
#if( interactive() ) print(x)
x

Figura 17(2). Necesidad vs. Disponibilidad de Elementos de Protección Personal

p12_13_no_sum<-
  surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p12_contr_cont_imp_nec_")),.funs = ~as.character(.)) %>%
  dplyr::select(-p12_contr_cont_imp_nec_13,-p12_contr_cont_imp_nec_12) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(id_resp_no_depurado=row_number()) %>%
  #janitor::tabyl(p12_contr_cont_imp_nec_01)
  dplyr::select(id_resp_no_depurado,starts_with("p12_contr_cont_imp_nec_"),starts_with("p13_contr_cont_imp_disp_")) %>%
   pivot_longer(-id_resp_no_depurado, names_to = "value", values_to = "count") %>% 
  dplyr::mutate(str_value=str_sub(value, start= -2)) %>% 
  dplyr::mutate(str_value_p=str_sub(value,0,3)) %>% 
  dplyr::select(-value) %>% 
  pivot_wider(id_cols=c("id_resp_no_depurado","str_value"),names_from="str_value_p",values_from=c("count")) %>% 
  dplyr::filter(!is.na(p12)) %>% 
  dplyr::mutate(str_value=factor(dplyr::case_when(str_value=="01"~"guantes",
                                           str_value=="02"~"protector de ojos (lentes)",
                                           str_value=="03"~"protector facial",
                                           str_value=="04"~"overol",
                                           str_value=="05"~"desinfectante de manos",
                                           str_value=="06"~"mascarilla quirurgica",
                                           str_value=="07"~"mascarilla n95",
                                           str_value=="08"~"respirador de\naire impulsado",
                                           str_value=="09"~"delantal pechera",
                                           str_value=="10"~"cofia",
                                           str_value=="11"~"cubre calzado"))) %>% 
  dplyr::mutate(p12=dplyr::case_when(p12=="TRUE"~"Sí",
                                     p12=="FALSE"~"No")) %>% 
  dplyr::rename("EPPs"="str_value", "Requiere"="p12", "Disponibilidad"="p13")

p_alluvial<-
    alluvial_wide( data = p12_13_no_sum, 
                   id = "id_resp_no_depurado", 
                   fill_by = 'first_variable',
                   col_vector_flow= c("red","#ffe6d5","#bf6f6f","#eec1ad","#d29985","#cF291D","#b50717","#a43232","grey80","gray","gainsboro"),
                   auto_rotate_xlabs = T,
                   colorful_fill_variable_stratum = F)    

parcats::parcats(p_alluvial, marginal_histograms = F, data=p12_13_no_sum, width = 840,height = 600)#, height=1600,width=1600) 672  480

Figura 17(3). Necesidad vs. Disponibilidad de Elementos de Protección Personal

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p14_contr_cont_cap_epp")
m <- list(
  l = -120,
  r = -230,
  b = 100,
  t = 100,
  pad =1
)
#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
p14_p14a<-
 surveymonkey_accionsalududp_df2_cor %>%
      #dplyr::mutate(p11_exp_c19_miedo_pand_rec=dplyr::case_when(grepl("Ausencia",p11_exp_c19_miedo_pand_rec)~"Predomina la ausencia de miedo",grepl("Miedo",p11_exp_c19_miedo_pand_rec)~"Predomina el miedo",TRUE~NA_character_))%>%
     dplyr::group_by(p14_contr_cont_cap_epp,p15_contr_cont_14a_eval_cap)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
       dplyr::summarise(n=n()) %>% 
  dplyr::group_by(p14_contr_cont_cap_epp) %>% 
  dplyr::mutate(sum=sum(n),percent=round(n/sum(n),2))%>% 
     dplyr::ungroup() %>% 
    dplyr::filter(!is.na(p14_contr_cont_cap_epp))

p14_p14a2<-
p14_p14a %>% 
  dplyr::group_by(p15_contr_cont_14a_eval_cap) %>% 
  dplyr::summarise(sum=sum(n)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(valid_percent=scales::percent(sum/(sum(sum)-sum(sum[is.na(p15_contr_cont_14a_eval_cap)])),2),
                valid_percent=ifelse(is.na(p15_contr_cont_14a_eval_cap),NA,valid_percent),
                percent=scales::percent(sum/(sum(sum)),2))%>% 
  dplyr::mutate(label=paste0(p15_contr_cont_14a_eval_cap,"\n(",valid_percent,")")) %>%   
  dplyr::ungroup() %>% 
    dplyr::filter(!is.na(p15_contr_cont_14a_eval_cap))

p14_p14a<-
p14_p14a %>% 
  dplyr::group_by(p14_contr_cont_cap_epp) %>% 
  dplyr::summarise(sum=sum(n)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(valid_percent=scales::percent(sum/(sum(sum)-sum(sum[is.na(p14_contr_cont_cap_epp)])),2),
                valid_percent=ifelse(is.na(p14_contr_cont_cap_epp),NA,valid_percent),
                percent=scales::percent(sum/(sum(sum)),2))%>% 
  dplyr::mutate(label=paste0(p14_contr_cont_cap_epp,"\n(",valid_percent,")")) %>%   
  dplyr::ungroup() %>% 
  dplyr::filter(!is.na(p14_contr_cont_cap_epp))
  

plot_ly(p14_p14a, labels = ~p14_contr_cont_cap_epp, values = ~sum, type = 'pie',hole = 0.7,
        textposition = 'outside',
        textinfo = 'text',
        text = ~label, 
        automargin = TRUE,
        sort = FALSE,
        direction = "clockwise",
        textfont = list(color = "black", size = 11),
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p14_contr_cont_cap_epp))-1,rev= T), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = T, zeroline = T, showticklabels = T)) %>% 
  layout(showlegend = FALSE)%>%
  add_trace(data=p14_p14a2 %>% arrange(valid_percent), labels = ~p15_contr_cont_14a_eval_cap, values = ~sum, type = 'pie', hole = 0.3,
            textposition = 'outside',
            textinfo = 'text',
            text = ~label, 
            automargin = TRUE,
            sort = FALSE,
            direction = "clockwise",
            textfont = list(color = "#FF5252", size = 9),
            domain = list(x = c(0.47, .65)),
            textposition = 'outside',textinfo = 'label+percent', sort = FALSE,direction = "clockwise",
            marker = list(colors = c(gray.colors(length(unique(p14_p14a2$p15_contr_cont_14a_eval_cap))), "#FF5252")))

Figura 18. ¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s? , y ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?

#p14_contr_cont_cap_epp      
#p15_contr_cont_14a_eval_cap 
#p16_contr_cont_conf_epps    

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p16_contr_cont_conf_epps")

#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(p16_contr_cont_conf_epps)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
  dplyr::summarise(n=n()) %>% 
  dplyr::ungroup()%>%
  dplyr::mutate(p16_contr_cont_conf_epps=stringr::str_replace(p16_contr_cont_conf_epps,"\\<br\\>$","")) %>% 
  dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p16_contr_cont_conf_epps)])),2),
                valid_percent=ifelse(is.na(p16_contr_cont_conf_epps),NA,valid_percent),
                percent=scales::percent(n/(sum(n)),2))%>% 
  #dplyr::mutate(label=paste0("",p16_contr_cont_conf_epps,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p16_contr_cont_conf_epps,"\n(",valid_percent,")")) %>%   

  dplyr::ungroup()%>%
  dplyr::filter(!is.na(p16_contr_cont_conf_epps)) %>% 
plot_ly( labels = ~p16_contr_cont_conf_epps, values = ~n, type = 'pie',hole = 0.6,
                  textposition = 'outside',
                  textinfo = 'text',
                  text = ~label, 
                  automargin = TRUE,
                  sort = FALSE,
                  direction = "clockwise",
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p16_contr_cont_conf_epps))), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 19. ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?

p16_df<-
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(p16_contr_cont_conf_epps)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
  dplyr::summarise(n=n()) %>% 
  dplyr::ungroup()%>%
  dplyr::mutate(p16_contr_cont_conf_epps=stringr::str_replace(p16_contr_cont_conf_epps,"\n$","")) %>% 
  dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p16_contr_cont_conf_epps)])),2),
                valid_percent=ifelse(is.na(p16_contr_cont_conf_epps),NA,valid_percent),
                percent=scales::percent(n/(sum(n)),2))%>% 
  #dplyr::mutate(label=paste0("",p16_contr_cont_conf_epps,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p16_contr_cont_conf_epps,"\n(",valid_percent,")")) %>% 
  dplyr::ungroup()%>%
  dplyr::filter(!is.na(p16_contr_cont_conf_epps)) %>% 
  dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) %>% 
  dplyr::mutate(p16_contr_cont_conf_epps=factor(p16_contr_cont_conf_epps,levels=c(
   "Nada", "Poco", "Algo", "Bastante", "Totalmente","No aplica")))

p16_df_plot<-
ggplot(p16_df, aes(y=num_perc, x=p16_contr_cont_conf_epps))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=.5), hjust=-1, vjust = .5, size = 7) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,100)+
  coord_flip()+
  ylab("Porcentaje de Respuesta")+
  xlab("Restricciones del empleador al uso de EPPs")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=14),
        axis.title.y = element_text(size=15),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p16_df_plot

Figura 19. ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?

  jpeg("Plots/_Fig1a_p16_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p16_df_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

##TIPO DE VARIABLES 

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01
#cols_labels2 %>% dplyr::filter(V1=="p17_contr_cont_restr_epp_1")

#cols_labels2
#p12_contr_cont_imp_nec_01   p13_contr_cont_imp_disp_01  
p17_df<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(paste0("p17_contr_cont_restr_epp_",1:6)),.funs = ~as.numeric(.)) %>% 
  dplyr::select(paste0("p17_contr_cont_restr_epp_",1:6)) %>%
  gather(key = "key", value = "val") %>%
  dplyr::filter(val==1) %>% 
  dplyr::filter(!grepl("_otr",key)) %>%  #sacar opción "otros"
  dplyr::group_by(key) %>% 
  dplyr::summarise(sum=sum(val,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels2, by=c("key"="V1")) %>% 
  dplyr::mutate(V3=substr(V3,3,stringr::str_length(V3))) 

p17_df$text_label<-paste0("Código: ",p17_df$key,"<br>Etiqueta:",p17_df$V3,"<br>No. de casos: ",p17_df$sum)

p17_df_plot<-
      p17_df %>% 
      ggplot(aes(x=key,y=sum,label=text_label))+
       geom_bar(stat="identity")+
      labs(x="Suma ptjes",y="Variable")+
      sjPlot::theme_sjplot2()+
        labs(x="Restricciones",y="Número de Respuestas\n")+
        scale_x_discrete(labels=c(1:6))

ggplotly(p17_df_plot, tooltip = c("text_label"))%>% layout(xaxis= list(showticklabels = T))

Figura 20.¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia)

  #</div> , height = 600, width=800

library(plotly)

#names_df
#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
    dplyr::mutate_at(.vars=vars(paste0("p17_contr_cont_restr_epp_",1:5)),.funs = ~as.numeric(.)) %>% 
    dplyr::select(paste0("p17_contr_cont_restr_epp_",1:5)) %>%
    #dplyr::mutate(ptjes_p9= rowSums(dplyr::select(.,starts_with("p9_exp_c19_exp_sit_dg_")),na.rm=T)) %>% 
    dplyr::mutate(ptjes_p17 = sum(c_across(paste0("p17_contr_cont_restr_epp_",1:5)),na.rm=T)) %>%
    dplyr::ungroup() %>% 
    dplyr::mutate(ptjes_p17=ordered(ifelse(ptjes_p17>3,"Más de 3",as.character(ptjes_p17)),
                                    levels = c("1", "2", "3","Más de 3"))) %>% 
     dplyr::group_by(ptjes_p17)%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup()%>%
    dplyr::mutate(ptjes_p17=stringr::str_replace(ptjes_p17,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(ptjes_p17)])),2),
                  valid_percent=ifelse(is.na(ptjes_p17),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
    #dplyr::mutate(label=paste0("",ptjes_p17,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(ptjes_p17,"\n(",valid_percent,")")) %>%   

     dplyr::ungroup()%>%
    dplyr::filter(!is.na(ptjes_p17)) %>% 
plot_ly( labels = ~ptjes_p17, values = ~n, type = 'pie',hole = 0.6,textposition = 'outside',textinfo = 'text',
        text = ~label, 
        automargin = TRUE,
        sort = FALSE,
        direction = "clockwise",
        marker = list(colors = c(gray.colors(5), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 20b.¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) (nro. respuestas)

p17_df_especial<-
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
    dplyr::mutate_at(.vars=vars(paste0("p17_contr_cont_restr_epp_",1:5)),.funs = ~as.numeric(.)) %>% 
    dplyr::select(paste0("p17_contr_cont_restr_epp_",1:5)) %>%
    #dplyr::mutate(ptjes_p9= rowSums(dplyr::select(.,starts_with("p9_exp_c19_exp_sit_dg_")),na.rm=T)) %>% 
    dplyr::mutate(ptjes_p17 = sum(c_across(paste0("p17_contr_cont_restr_epp_",1:5)),na.rm=T)) %>%
    dplyr::ungroup() %>% 
    dplyr::mutate(ptjes_p17=ordered(ifelse(ptjes_p17>3,"Más de 3",as.character(ptjes_p17)),
                                    levels = c("1", "2", "3","Más de 3"))) %>% 
     dplyr::group_by(ptjes_p17)%>%
     dplyr::summarise(n=n()) %>% 
     dplyr::ungroup()%>%
    dplyr::mutate(ptjes_p17=stringr::str_replace(ptjes_p17,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(ptjes_p17)])),2),
                  valid_percent=ifelse(is.na(ptjes_p17),NA,valid_percent),
                  percent=scales::percent(n/(sum(n)),2))%>% 
   # dplyr::mutate(label=paste0("",ptjes_p17,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(ptjes_p17,"<br>(",valid_percent,")")) %>% 
     dplyr::ungroup()%>%
    dplyr::filter(!is.na(ptjes_p17)) %>% 
  dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) 

p17_df_especial_plot<-
ggplot(p17_df_especial, aes(y=num_perc, x=forcats::fct_rev(ptjes_p17)))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=.5), hjust=-1, vjust = .5, size = 7) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,100)+
  coord_flip()+
  ylab("Porcentaje de Respuesta")+
  xlab("Restricciones del empleador al uso de EPP")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=13),
        axis.title.y = element_text(size=14),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p17_df_especial_plot

Figura 20b.¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) (nro. respuestas)

  jpeg("Plots/_Fig1b_p17_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p17_df_especial_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p18_contr_cont_conf_eval_ri")

#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(p18_contr_cont_conf_eval_ri)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
  dplyr::summarise(n=n()) %>% 
  dplyr::ungroup()%>%
  dplyr::mutate(p18_contr_cont_conf_eval_ri=stringr::str_replace(p18_contr_cont_conf_eval_ri,"\\<br\\>$","")) %>% 
  dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p18_contr_cont_conf_eval_ri)])),2),
                valid_percent=ifelse(is.na(p18_contr_cont_conf_eval_ri),NA,valid_percent),
                percent=scales::percent(n/(sum(n)),2))%>% 
#  dplyr::mutate(label=paste0("",p18_contr_cont_conf_eval_ri,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p18_contr_cont_conf_eval_ri,"\n(",valid_percent,")")) %>%   

  dplyr::ungroup()%>%
  dplyr::filter(!is.na(p18_contr_cont_conf_eval_ri)) %>% 
plot_ly( labels = ~p18_contr_cont_conf_eval_ri, values = ~n, type = 'pie',hole = 0.6,
          textposition = 'outside',
          textinfo = 'text',
          text = ~label, 
          automargin = TRUE,
          sort = FALSE,
          direction = "clockwise",
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p18_contr_cont_conf_eval_ri))-1), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 21. ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?

p18_df<-
surveymonkey_accionsalududp_df2_cor %>%
     dplyr::group_by(p18_contr_cont_conf_eval_ri)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
  dplyr::summarise(n=n()) %>% 
  dplyr::ungroup()%>%
  dplyr::mutate(p18_contr_cont_conf_eval_ri=stringr::str_replace(p18_contr_cont_conf_eval_ri,"\\<br\\>$","")) %>% 
  dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p18_contr_cont_conf_eval_ri)])),2),
                valid_percent=ifelse(is.na(p18_contr_cont_conf_eval_ri),NA,valid_percent),
                percent=scales::percent(n/(sum(n)),2))%>% 
  #dplyr::mutate(label=paste0("",p18_contr_cont_conf_eval_ri,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p18_contr_cont_conf_eval_ri,"<br>(",valid_percent,")")) %>% 
  dplyr::ungroup()%>%
  dplyr::filter(!is.na(p18_contr_cont_conf_eval_ri)) %>%
  dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) %>% 
  dplyr::mutate(p18_contr_cont_conf_eval_ri=factor(p18_contr_cont_conf_eval_ri,levels=c(
    "Nada",
    "Poco",
    "Algo",
    "Bastante",
    "Totalmente",
    "No aplica")))
  
p18_plot<-
ggplot(p18_df, aes(y=num_perc, x=p18_contr_cont_conf_eval_ri))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=.5), hjust=-1, vjust = .5, size = 7) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,75)+
  coord_flip()+
  ylab("Porcentaje de Respuesta")+
  xlab("Confianza para evaluar riesgo personal y determinar pertinencia EPP's")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=14),
        axis.title.y = element_text(size=15),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p18_plot

Figura 21. ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?

  jpeg("Plots/_Fig1c_p18_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p18_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p19_contr_cont_nieg_epp")

m <- list(
    l = 220,
    r = 210,
    b = 100,
    t = 100,
    pad =1
)

#surveymonkey_accionsalududp_df2_cor$ p7_exp_c19_trab_cont p8_exp_c19_cerca_cont p10_exp_c19_preocupa_llevar p14_contr_cont_cap_epp p15_contr_cont_14a_eval_cap p16_contr_cont_conf_epps p18_contr_cont_conf_eval_ri p19_contr_cont_nieg_epp p11_exp_c19_miedo_pand_rec p27_cond_trab_sup_jef p28_cond_trab_sis_trab p29_cond_trab_28c_sis_mix_0 p29_cond_trab_28c_sis_mix  p30_cond_trab_28c_sis_mix_a p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
      dplyr::mutate(p19_contr_cont_nieg_epp=stringi::stri_paste(paste(stringi::stri_wrap(as.character(p19_contr_cont_nieg_epp), width =30), "<br>"), collapse=''))%>%
      dplyr::mutate(p19_contr_cont_nieg_epp= gsub("<br>$", "", p19_contr_cont_nieg_epp)) %>% #janitor::tabyl(p19_contr_cont_nieg_epp)
      dplyr::mutate(p19_contr_cont_nieg_epp=dplyr::case_when(p19_contr_cont_nieg_epp=="NA "~NA_character_,TRUE~p19_contr_cont_nieg_epp)) %>% 
      dplyr::mutate(p19_contr_cont_nieg_epp=factor(p19_contr_cont_nieg_epp)) %>% 
      dplyr::group_by(p19_contr_cont_nieg_epp)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
      dplyr::summarise(n=n()) %>% 
      dplyr::ungroup()%>%
      dplyr::mutate(p19_contr_cont_nieg_epp=stringr::str_replace(p19_contr_cont_nieg_epp,"\\<br\\>$","")) %>% 
      dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p19_contr_cont_nieg_epp)])),2),
      valid_percent=ifelse(is.na(p19_contr_cont_nieg_epp),NA,valid_percent),
      percent=scales::percent(n/(sum(n)),2))%>% 
      ##dplyr::mutate(label=paste0("",p19_contr_cont_nieg_epp,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
      dplyr::mutate(label=paste0(p19_contr_cont_nieg_epp,"\n(",valid_percent,")")) %>%   

      dplyr::ungroup()%>%
  dplyr::filter(!is.na(p19_contr_cont_nieg_epp)) %>% 
plot_ly( labels = ~p19_contr_cont_nieg_epp, values = ~n, type = 'pie',hole = 0.6,
          textposition = 'outside',
          textinfo = 'text',
          text = ~label, 
          automargin = TRUE,
          sort = FALSE,
          direction = "clockwise",
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p19_contr_cont_nieg_epp))),"#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE, margin=m)

Figura 22. Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro:

p19_df<-
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
      dplyr::mutate(p19_contr_cont_nieg_epp=stringi::stri_paste(paste(stringi::stri_wrap(as.character(p19_contr_cont_nieg_epp), width =30), "\n"), collapse=''))%>%
      dplyr::mutate(p19_contr_cont_nieg_epp= gsub("\n$", "", p19_contr_cont_nieg_epp)) %>% #janitor::tabyl(p19_contr_cont_nieg_epp)
      dplyr::mutate(p19_contr_cont_nieg_epp=dplyr::case_when(p19_contr_cont_nieg_epp=="NA "~NA_character_,TRUE~p19_contr_cont_nieg_epp)) %>% 
      dplyr::mutate(p19_contr_cont_nieg_epp=factor(p19_contr_cont_nieg_epp)) %>% 
      dplyr::group_by(p19_contr_cont_nieg_epp)%>%
     # dplyr::mutate(requiere_atencion=case_when(requiere_atencion==1~"Requiere Atención",
    #                                                    requiere_atencion==0~"No Requiere Atención"))%>%
      dplyr::summarise(n=n()) %>% 
      dplyr::ungroup()%>%
      dplyr::mutate(p19_contr_cont_nieg_epp=stringr::str_replace(p19_contr_cont_nieg_epp,"\n","")) %>% 
      dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p19_contr_cont_nieg_epp)])),2),
      valid_percent=ifelse(is.na(p19_contr_cont_nieg_epp),NA,valid_percent),
      percent=scales::percent(n/(sum(n)),2))%>% 
      #dplyr::mutate(label=paste0("",p19_contr_cont_nieg_epp,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
      dplyr::mutate(label=paste0(p19_contr_cont_nieg_epp,"<br>(",valid_percent,")")) %>% 
      dplyr::ungroup()%>%
  dplyr::filter(!is.na(p19_contr_cont_nieg_epp)) %>% 
  dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) %>% 
  dplyr::mutate(p19_contr_cont_nieg_epp=factor(gsub(' +',' ',as.character(p19_contr_cont_nieg_epp)))) %>% 
  dplyr::mutate(p19_contr_cont_nieg_epp=factor(p19_contr_cont_nieg_epp,levels=c(
    "Definitivamente, no es posible negarme a trabajar ",
    "Negarme a trabajar no es una opción legalmente disponible \npara mí ",
    "Es improbable que pueda negarme a trabajar ",
    "Probablemente, podría negarme a trabajar si considero que el \nriesgo es significativo ",
    "Quizás, en una situación extrema podría negarme a \ntrabajar ", 
    "Definitivamente, no dudaría en negarme a trabajar ")))

p19_plot<-
ggplot(p19_df, aes(y=num_perc, x=p19_contr_cont_nieg_epp))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=.5), hjust=-1, vjust = .5, size = 7) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,75)+
  coord_flip()+
  ylab("Porcentaje de Respuesta")+
  xlab("Derecho a realizar un trabajo seguro")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=14),
        axis.title.y = element_text(size=15),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p19_plot

Figura 22. Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro:

  jpeg("Plots/_Fig1d_p19_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p19_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

#dim_sm_p4<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p4_afront")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#dim_sm_p5<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p5_animo")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#  dplyr::mutate_at(vars(starts_with("p20_contr_cont_med_pev_")),~parse_factor(as.character(.),levels=c('Apropiadas y bien implementadas', 'Apropiadas pero mal implementadas', 'Inapropiadas', 'Deficientes', 'No sabe', 'No aplica'),locale = locale(encoding = "Latin1"),ordered =T,trim_ws=T,include_na =F)) %>%   

#cols_labels2 %>% dplyr::filter(V1=="p20_contr_cont_med_pev_1")

med_prev_bars<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p20_contr_cont_med_pev_")),.funs = ~as.numeric(.)) %>% 
  dplyr::select(starts_with("p20_contr_cont_med_pev_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:length(unique(surveymonkey_accionsalududp_df2_cor$p20_contr_cont_med_pev_1))-1))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels2,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V3") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key), nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                  valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                  valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(val_str=dplyr::case_when(as.character(val)=="1"~'Apropiadas y bien implementadas(1)',
                                         as.character(val)=="2"~'Apropiadas pero mal implementadas(2)',
                                         as.character(val)=="3"~'Inapropiadas(3)',
                                         as.character(val)=="4"~'Deficientes(4)',
                                         as.character(val)=="5"~'No sabe(5)',
                                         as.character(val)=="6"~'No aplica(6)',
                                         is.na(val)~"No responde",
                                         TRUE~as.character(val)
                                         ))%>% dplyr::filter(!is.na(val))
  
for (i in 1:nrow(med_prev_bars)){
  med_prev_bars$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(med_prev_bars$label[i], width =30), "<br>"), collapse='')
}  
med_prev_bars$label_text<-paste0("Código: ",med_prev_bars$key,"<br>Valor:",med_prev_bars$val_str,"<br>Porcentaje:", med_prev_bars$perc,"<br>Válido:",med_prev_bars$valid_perc,"<br>Etiqueta:",med_prev_bars$label)

med_prev_bars_plot<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
    ggplot(med_prev_bars ,aes(x=items_num,y=sum,fill=val, label= label_text))+
    geom_col() +
    scale_fill_grey(name= "Values", start = 0.2, end = 0.8,labels=c(paste0(1:length(unique(surveymonkey_accionsalududp_df2_cor$p20_contr_cont_med_pev_1))-1),"NR"), na.value = "#FF5252")+
  sjPlot::theme_sjplot2()+
  labs(x="Medidas Preventivas",y="Número de Respuestas\n")+
  #facet_wrap(~items, nrow = 3)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  scale_x_continuous(breaks=c(1:length(unique(med_prev_bars$key))))+
  theme(strip.text.x = element_text(size = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))

ggplotly(med_prev_bars_plot, tooltip = c("label_text"))%>%
  #layout(xaxis= list(showticklabels = FALSE), showlegend=F)
  layout(xaxis = list(autotick = F, tickmode = "array", tickvals = 1:length(unique(med_prev_bars$key))), showlegend=F)

Figura 23. ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo?

#, height = 750, width=1100)
#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

2.3.4 Cuarta Sección - Preguntas sobre su lugar de trabajo y las condiciones de trabajo

library(reshape2)  # for melt() function
library(ggplot2)
# First we need to restructure the data into long format:

ocdMelt2 <- melt(surveymonkey_accionsalududp_df2_cor[c("p34_cond_trab_tiemp_trab", "p21_cond_trab_hr_trabajada",  "p22_cond_trab_hr_trabara")])

ocdMelt2<-
  ocdMelt2%>%
    dplyr::mutate(Outcome_Measure= dplyr::case_when(as.character(variable)=="p34_cond_trab_tiemp_trab"~"¿Cuánto tiempo ha trabajado\npara su actual empleo y\nprincipal? (en años)",as.character(variable)=="p21_cond_trab_hr_trabajada"~"¿Cuántas horas trabajó la semana\npasada en su lugar de trabajo\nprincipal? (en números)",as.character(variable)=="p22_cond_trab_hr_trabara"~"¿Cuántas horas cree que trabajará esta\nsemana en su lugar de trabajo\nprincipal?"))%>%
    dplyr::mutate(variable= as.factor(variable))

# plot
ocdBoxplot <- ggplot(ocdMelt2, aes(variable, value, color = Outcome_Measure)) + 
  geom_jitter(alpha=0.05) +
  geom_boxplot() + 
  labs(x='Variables', y='Puntajes', color='Denominación') + scale_y_continuous(breaks=seq(0,100, by=5))+  
  sjPlot::theme_sjplot2() + 
  scale_color_manual(values=c("darkslategray4","rosybrown","dimgray","coral3","grey60"),na.value="black") + #"Set2"
  theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())
ggplotly(ocdBoxplot) %>% 
  layout(xaxis= list(showticklabels = FALSE))

## Warning: Removed 117 rows containing non-finite values (stat_boxplot).

Figura 24. Diagrama de Cajas Preguntas Continuas

2.3.5 Quinta Sección - Preguntas sobre su actual entorno psicosocial de trabajo

#dim_sm_p4<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p4_afront")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#dim_sm_p5<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p5_animo")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#  dplyr::mutate_at(vars(starts_with("p20_contr_cont_med_pev_")),~parse_factor(as.character(.),levels=c('Apropiadas y bien implementadas', 'Apropiadas pero mal implementadas', 'Inapropiadas', 'Deficientes', 'No sabe', 'No aplica'),locale = locale(encoding = "Latin1"),ordered =T,trim_ws=T,include_na =F)) %>%   

#cols_labels2 %>% dplyr::filter(V1=="p26_cond_trab_ent_protec_1")

med_prev_bars<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p26_cond_trab_ent_protec_")),.funs = ~as.numeric(.)) %>% 
  dplyr::select(starts_with("p26_cond_trab_ent_protec_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:length(unique(surveymonkey_accionsalududp_df2_cor$p26_cond_trab_ent_protec_1))-1))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels2,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V3") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key), nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(val_str=dplyr::case_when(as.character(val)=="1"~'Totalmente de acuerdo(1)',
                                         as.character(val)=="2"~'De acuerdo(2)',
                                         as.character(val)=="3"~'Ni de acuerdo ni en desacuerdo(3)',
                                         as.character(val)=="4"~'En desacuerdo(4)',
                                         as.character(val)=="5"~'Totalmente en desacuerdo(5)',
                                         is.na(val)~"No responde",
                                         TRUE~as.character(val)
                                         ))%>% dplyr::filter(!is.na(val))
  
for (i in 1:nrow(med_prev_bars)){
  med_prev_bars$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(med_prev_bars$label[i], width =30), "<br>"), collapse='')
}  
med_prev_bars$label_text<-paste0("Código: ",med_prev_bars$key,"<br>Valor:",med_prev_bars$val_str,"<br>Porcentaje:", med_prev_bars$perc,"<br>Válido:",med_prev_bars$valid_perc,"<br>Etiqueta:",med_prev_bars$label)

med_prev_bars_plot<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
    ggplot(med_prev_bars ,aes(x=items_num,y=sum,fill=val, label= label_text))+
    geom_col() +
    scale_fill_grey(name= "Values", start = 0.2, end = 0.8,labels=c(paste0(1:length(unique(surveymonkey_accionsalududp_df2_cor$p20_contr_cont_med_pev_1))-1),"NR"), na.value = "#FF5252")+
  sjPlot::theme_sjplot2()+
  labs(x="Instituciones",y="Número de Respuestas\n")+
  #facet_wrap(~items, nrow = 3)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  scale_x_continuous(breaks=c(1:length(unique(med_prev_bars$key))))+
  theme(strip.text.x = element_text(size = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))

ggplotly(med_prev_bars_plot, tooltip = c("label_text"))%>%
  layout(xaxis= list(showticklabels = T), showlegend=F)#, height = 750, width=1100)

Figura 25. En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal?

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p36_cond_trab_reasig")

#surveymonkey_accionsalududp_df2_cor$ p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
      dplyr::mutate(p36_cond_trab_reasig=stringi::stri_paste(paste(stringi::stri_wrap(as.character(p36_cond_trab_reasig), width =25), "<br>"), collapse=''))%>%
          dplyr::mutate(p36_cond_trab_reasig= gsub("<br>$", "", p36_cond_trab_reasig)) %>% #janitor::tabyl(p19_contr_cont_nieg_epp)
     dplyr::group_by(p36_cond_trab_reasig)%>%
     dplyr::summarise(n=n()) %>% 
      dplyr::ungroup()%>%
      dplyr::mutate(p36_cond_trab_reasig=dplyr::case_when(p36_cond_trab_reasig=="NA "~NA_character_,TRUE~p36_cond_trab_reasig)) %>% 
      dplyr::mutate(p36_cond_trab_reasig=stringr::str_replace(p36_cond_trab_reasig,"\\<br\\>$","")) %>% 
      dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p36_cond_trab_reasig)])),2),
                    valid_percent=ifelse(is.na(p36_cond_trab_reasig),NA,valid_percent),
                    percent=scales::percent(n/(sum(n)),2))%>% 
      dplyr::mutate(label=paste0("",p36_cond_trab_reasig,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
      dplyr::mutate(label=paste0(p36_cond_trab_reasig,"\n(",valid_percent,")")) %>%   

      dplyr::ungroup()%>%
  dplyr::filter(!is.na(p36_cond_trab_reasig)) %>% 
plot_ly(labels = ~p36_cond_trab_reasig, values = ~n, type = 'pie',hole = 0.4,
            textposition = 'outside',
            textinfo = 'text',
            text = ~label, 
            automargin = TRUE,
            sort = FALSE,
            direction = "clockwise",
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p36_cond_trab_reasig))-1), "#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 26. ¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?

p36_df<-
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
      dplyr::mutate(p36_cond_trab_reasig=stringi::stri_paste(paste(stringi::stri_wrap(as.character(p36_cond_trab_reasig), width =25), "\n"), collapse=''))%>%
          dplyr::mutate(p36_cond_trab_reasig= gsub("\n", "", p36_cond_trab_reasig)) %>% #janitor::tabyl(p19_contr_cont_nieg_epp)
     dplyr::group_by(p36_cond_trab_reasig)%>%
     dplyr::summarise(n=n()) %>% 
      dplyr::ungroup()%>%
      dplyr::mutate(p36_cond_trab_reasig=dplyr::case_when(p36_cond_trab_reasig=="NA "~NA_character_,TRUE~p36_cond_trab_reasig)) %>% 
      dplyr::mutate(p36_cond_trab_reasig=stringr::str_replace(p36_cond_trab_reasig,"\\<br\\>$","")) %>% 
      dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p36_cond_trab_reasig)])),2),
                    valid_percent=ifelse(is.na(p36_cond_trab_reasig),NA,valid_percent),
                    percent=scales::percent(n/(sum(n)),2))%>% 
  #    dplyr::mutate(label=paste0("",p36_cond_trab_reasig,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
    dplyr::mutate(label=paste0(p36_cond_trab_reasig,"<br>(",valid_percent,")")) %>% 
      dplyr::ungroup()%>%
  dplyr::filter(!is.na(p36_cond_trab_reasig))  %>% 
  dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) %>% 
  dplyr::mutate(p36_cond_trab_reasig=factor(p36_cond_trab_reasig,levels=c("Mantengo las mismas labores ","Mantengo las mismas labores, pero en un área distinta ","Mantengo las mismas labores, pero en un lugar físico distinto ","Mantengo las mismas labores, pero en área y lugar físico distintos ", "Distintas labores, pero en el mismo lugar físico ","Distintas labores, pero en la misma área ", "Labores, área y lugar físico distintos ")))


p36_plot<-
ggplot(p36_df, aes(y=num_perc, x=p36_cond_trab_reasig))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=.5), hjust=-1, vjust = .5, size = 7) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,100)+
  coord_flip()+
  ylab("Porcentaje de Respuesta")+
  xlab("Cambio labores/área producto de la pandemia")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=14),
        axis.title.y = element_text(size=15),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p36_plot

Figura 26. ¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?

  jpeg("Plots/_Fig1e_p36_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p36_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p38_cond_trab_sal_psi")

#surveymonkey_accionsalududp_df2_cor$ p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
    dplyr::mutate(p38_cond_trab_sal_psi=parse_factor(as.character(p38_cond_trab_sal_psi),levels=c('Excelente', 'Buena', 'Regular', 'Mala'),ordered =T,trim_ws=T,include_na =F)) %>%
     dplyr::group_by(p38_cond_trab_sal_psi)%>%
      dplyr::summarise(n=n()) %>% 
        dplyr::ungroup()%>%
        dplyr::mutate(p38_cond_trab_sal_psi=stringr::str_replace(p38_cond_trab_sal_psi,"\\<br\\>$","")) %>% 
        dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p38_cond_trab_sal_psi)])),2),
                      valid_percent=ifelse(is.na(p38_cond_trab_sal_psi),NA,valid_percent),
                      percent=scales::percent(n/(sum(n)),2))%>% 
#        dplyr::mutate(label=paste0("",p38_cond_trab_sal_psi,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
        dplyr::mutate(label=paste0(p38_cond_trab_sal_psi,"\n(",valid_percent,")")) %>%   

        dplyr::ungroup()%>%
  dplyr::filter(!is.na(p38_cond_trab_sal_psi)) %>%
plot_ly( labels = ~p38_cond_trab_sal_psi, values = ~n, type = 'pie',hole = 0.5,
            textposition = 'outside',
            textinfo = 'text',
            text = ~label, 
            automargin = TRUE,
            sort = FALSE,
            direction = "clockwise",
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p38_cond_trab_sal_psi))-1),"#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 27. ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?

p38_df<-
surveymonkey_accionsalududp_df2_cor %>%
    dplyr::mutate(p38_cond_trab_sal_psi=parse_factor(as.character(p38_cond_trab_sal_psi),levels=c('Excelente', 'Buena', 'Regular', 'Mala'),ordered =T,trim_ws=T,include_na =F)) %>%
     dplyr::group_by(p38_cond_trab_sal_psi)%>%
      dplyr::summarise(n=n()) %>% 
        dplyr::ungroup()%>%
        dplyr::mutate(p38_cond_trab_sal_psi=stringr::str_replace(p38_cond_trab_sal_psi,"\\<br\\>$","")) %>% 
        dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p38_cond_trab_sal_psi)])),2),
                      valid_percent=ifelse(is.na(p38_cond_trab_sal_psi),NA,valid_percent),
                      percent=scales::percent(n/(sum(n)),2))%>% 
        #dplyr::mutate(label=paste0("",p38_cond_trab_sal_psi,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
        dplyr::mutate(label=paste0(p38_cond_trab_sal_psi,"<br>(",valid_percent,")")) %>% 
        dplyr::ungroup()%>%
  dplyr::filter(!is.na(p38_cond_trab_sal_psi)) %>% 
     dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) %>% 
  dplyr::mutate(p38_cond_trab_sal_psi=factor(p38_cond_trab_sal_psi,levels=c("Mala", "Regular", "Buena", "Excelente")))

p38_plot<-
ggplot(p38_df, aes(y=num_perc, x=p38_cond_trab_sal_psi))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=1.), vjust = -.5, size = 5) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,60)+
  ylab("Porcentaje de Respuesta")+
  xlab("Salud psicológica de las personas con las que trabaja")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=13),
        axis.title.y = element_text(size=13),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p38_plot

Figura 27. ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?

  jpeg("Plots/_Fig1f_p38_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p38_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

library(plotly)

#cols_labels2 %>% dplyr::filter(V1=="p39_cond_trab_cult_org")

#surveymonkey_accionsalududp_df2_cor$ p36_cond_trab_reasig p37_cond_trab_num_est p38_cond_trab_sal_psi p39_cond_trab_cult_org 
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
      dplyr::mutate(p39_cond_trab_cult_org=stringi::stri_paste(paste(stringi::stri_wrap(as.character(p39_cond_trab_cult_org), width =25), "<br>"), collapse=''))%>%
          dplyr::mutate(p39_cond_trab_cult_org= gsub("<br>$", "", p39_cond_trab_cult_org)) %>% 
          dplyr::mutate(p39_cond_trab_cult_org=dplyr::case_when(p39_cond_trab_cult_org=="NA"~NA_character_,TRUE~p39_cond_trab_cult_org)) %>% #janitor::tabyl(p39_cond_trab_cult_org)
  dplyr::mutate(p39_cond_trab_cult_org=parse_factor(as.character(p39_cond_trab_cult_org),levels=c('Totalmente de acuerdo', 'De acuerdo', 'Neutral', 'En desacuerdo', 'Totalmente en desacuerdo'),ordered =T,trim_ws=T,include_na =F)) %>%  
     dplyr::group_by(p39_cond_trab_cult_org)%>%
     dplyr::summarise(n=n()) %>% 
  dplyr::ungroup()%>%
  dplyr::mutate(p39_cond_trab_cult_org=stringr::str_replace(p39_cond_trab_cult_org,"\\<br\\>$","")) %>% 
  dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p39_cond_trab_cult_org)])),2),
                valid_percent=ifelse(is.na(p39_cond_trab_cult_org),NA,valid_percent),
                percent=scales::percent(n/(sum(n)),2))%>% 
  #dplyr::mutate(label=paste0("",p39_cond_trab_cult_org,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p39_cond_trab_cult_org,"\n(",valid_percent,")")) %>%   

  dplyr::ungroup()%>%
  dplyr::filter(!is.na(p39_cond_trab_cult_org)) %>% 
plot_ly(labels = ~p39_cond_trab_cult_org, values = ~n, type = 'pie',hole = 0.5,
          textposition = 'outside',
  textinfo = 'text',
  text = ~label, 
  automargin = TRUE,
  sort = FALSE,
  direction = "clockwise",
        marker = list(colors = c(gray.colors(length(unique(surveymonkey_accionsalududp_df2_cor$p39_cond_trab_cult_org))-1),"#FF5252"))) %>%
  layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% 
  layout(showlegend = FALSE)

Figura 28. ¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores

p39_df<-
surveymonkey_accionsalududp_df2_cor %>%
  rowwise() %>% 
      dplyr::mutate(p39_cond_trab_cult_org=stringi::stri_paste(paste(stringi::stri_wrap(as.character(p39_cond_trab_cult_org), width =25), "<br>"), collapse=''))%>%
          dplyr::mutate(p39_cond_trab_cult_org= gsub("<br>$", "", p39_cond_trab_cult_org)) %>% 
          dplyr::mutate(p39_cond_trab_cult_org=dplyr::case_when(p39_cond_trab_cult_org=="NA"~NA_character_,TRUE~p39_cond_trab_cult_org)) %>% #janitor::tabyl(p39_cond_trab_cult_org)
  dplyr::mutate(p39_cond_trab_cult_org=parse_factor(as.character(p39_cond_trab_cult_org),levels=c('Totalmente de acuerdo', 'De acuerdo', 'Neutral', 'En desacuerdo', 'Totalmente en desacuerdo'),ordered =T,trim_ws=T,include_na =F)) %>%  
     dplyr::group_by(p39_cond_trab_cult_org)%>%
     dplyr::summarise(n=n()) %>% 
  dplyr::ungroup()%>%
  dplyr::mutate(p39_cond_trab_cult_org=stringr::str_replace(p39_cond_trab_cult_org,"\\<br\\>$","")) %>% 
  dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p39_cond_trab_cult_org)])),2),
                valid_percent=ifelse(is.na(p39_cond_trab_cult_org),NA,valid_percent),
                percent=scales::percent(n/(sum(n)),2))%>% 
  #dplyr::mutate(label=paste0("",p39_cond_trab_cult_org,"<br>",n,"(",percent,")<br>Válido= ",valid_percent)) %>% 
  dplyr::mutate(label=paste0(p39_cond_trab_cult_org,"<br>(",valid_percent,")")) %>%
  dplyr::ungroup()%>%
  dplyr::filter(!is.na(p39_cond_trab_cult_org)) %>% 
     dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+")) %>% 
  dplyr::mutate(p39_cond_trab_cult_org=factor(p39_cond_trab_cult_org,levels=c("Totalmente en desacuerdo", "En desacuerdo", "Neutral", "De acuerdo", "Totalmente de acuerdo")))

p39_plot<-
ggplot(p39_df, aes(y=num_perc, x=p39_cond_trab_cult_org))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=valid_percent), position=position_dodge(width=1.), vjust = -.5, size = 5) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,50)+
  ylab("Porcentaje de Respuesta")+
  xlab("La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores")+
 # scale_fill_manual("Cultura Organizacional\nPerjudicial para la\nSalud Mental",values=c("grey30", "grey55")) +
  theme(legend.position = "bottom")+
    theme(axis.text.x=element_text(size=13),
        axis.title.x = element_text(size=13),
        axis.title.y = element_text(size=13),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))

p39_plot

Figura 28. ¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores

  jpeg("Plots/_Fig1g_p39_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p39_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

#dim_sm_p4<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p4_afront")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#dim_sm_p5<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p5_animo")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#p42_resiliencia_1 p42_resiliencia_2 p42_resiliencia_3

#dplyr::mutate_at(vars(starts_with("p40_cond_trab_istas_")),~parse_factor(as.character(.),levels=c('Siempre', 'La mayoría <br>de las veces', 'Algunas veces', 'Sólo unas <br>pocas veces', 'Nunca'),ordered =T,trim_ws=T,include_na =F)) %>%   

istas_bars<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p40_cond_trab_istas_")),.funs = ~as.numeric(.)) %>% 
  dplyr::select(starts_with("p40_cond_trab_istas_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p40_cond_trab_istas_01))))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V2") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(val_text=dplyr::case_when(val==5~"Nunca(5)",
                                          val==4~"Sólo unas pocas veces(4)",
                                          val==3~"Algunas veces(3)",
                                          val==2~"La mayoría de las veces(2)",
                                          val==1~"Siempre(1)",
                                          is.na(val)~"No Responde"
                                            )) %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key)-1, nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(items_num=factor(items_num, levels=1:10))%>% dplyr::filter(!is.na(val))
  
for (i in 1:nrow(istas_bars)){
  istas_bars$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(istas_bars$label[i], width =40), "<br>"), collapse='')
}  
istas_bars$label_text<-paste0("Código: ",istas_bars$key,"<br>Valor:",istas_bars$val_text,"<br>Porcentaje:",istas_bars$perc,"<br>Válido:",istas_bars$valid_perc,"<br>Etiqueta:",istas_bars$label)

istas_bars_plot<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
    ggplot(istas_bars ,aes(x=items_num,y=sum,fill=val, label= label_text))+
    geom_col() +
    scale_fill_grey(name= "Values", start = 0.2, end = 0.8,labels=c(paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p40_cond_trab_istas_01))),"NR"), na.value = "#FF5252")+
  sjPlot::theme_sjplot2()+
  labs(x="Ítems",y="Número de Respuestas\n")+
  #facet_wrap(~items, nrow = 3)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  #scale_x_discrete(breaks=c(1:10))+
  theme(strip.text.x = element_text(size = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))

ggplotly(istas_bars_plot, tooltip = c("label_text"))%>%
  layout(xaxis= list(showticklabels = T), showlegend=F)#, height = 750, width=1100)

Figura 29. Gráfico de Barras, Preguntas Sobre Condiciones Psicosociales del Trabajo

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

#dim_sm_p4<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p4_afront")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#dim_sm_p5<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p5_animo")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#p42_resiliencia_1 p42_resiliencia_2 p42_resiliencia_3

#dplyr::mutate_at(vars(starts_with("p40_cond_trab_istas_")),~parse_factor(as.character(.),levels=c('Siempre', 'La mayoría <br>de las veces', 'Algunas veces', 'Sólo unas <br>pocas veces', 'Nunca'),ordered =T,trim_ws=T,include_na =F)) %>%   

istas_bars2<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p40_cond_trab_istas_")),.funs = ~dplyr::case_when(as.numeric(factor(., levels = rev(levels(.))))>3~2, as.numeric(factor(., levels = rev(levels(.))))<=3~1, T~as.numeric(factor(., levels = rev(levels(.)))))) %>% 
  dplyr::select(starts_with("p40_cond_trab_istas_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p40_cond_trab_istas_01))))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V2") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(val_text=dplyr::case_when(val==1~"A Nunca/Sólo unas pocas veces/Algunas veces(3-5)",
                                          val==2~"Siempre o La mayoría de las veces (1-2)",
                                          is.na(val)~"No Responde"
                                            )) %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key)-1, nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(items_num=factor(items_num, levels=1:10))%>% dplyr::filter(!is.na(val))
  
for (i in 1:nrow(istas_bars2)){
  istas_bars2$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(istas_bars2$label[i], width =40), "<br>"), collapse='')
}  
istas_bars2$label_text<-paste0("Código: ",istas_bars2$key,"<br>Valor:",istas_bars2$val_text,"<br>Porcentaje:",istas_bars2$perc,"<br>Válido:",istas_bars2$valid_perc,"<br>Etiqueta:",istas_bars2$label)

istas_bars_plot2<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
    ggplot(istas_bars2,aes(x=items_num,y=sum,fill=val, label= label_text))+
    geom_col() +
    scale_fill_grey(name= "Values", start = 0.2, end = 0.8,labels=c(paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p40_cond_trab_istas_01))),"NR"), na.value = "#FF5252")+
  sjPlot::theme_sjplot2()+
  labs(x="Ítems",y="Número de Respuestas\n")+
  #facet_wrap(~items, nrow = 3)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  #scale_x_discrete(breaks=c(1:10))+
  theme(strip.text.x = element_text(size = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))

ggplotly(istas_bars_plot2, tooltip = c("label_text"))%>%
  layout(xaxis= list(showticklabels = T), showlegend=F)#, height = 750, width=1100)

Figura 29(b). Gráfico de Barras, Preguntas Sobre Condiciones Psicosociales del Trabajo (Dicotomizada)

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

istas_bars2<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p40_cond_trab_istas_")),.funs = ~dplyr::case_when(as.numeric(factor(., levels = rev(levels(.))))>3~2, as.numeric(factor(., levels = rev(levels(.))))<=3~1, T~as.numeric(factor(., levels = rev(levels(.)))))) %>% 
  dplyr::select(starts_with("p40_cond_trab_istas_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p40_cond_trab_istas_01))))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V2") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(val_text=dplyr::case_when(val==1~"A Nunca/Sólo unas pocas veces/Algunas veces(3-5)",
                                          val==2~"Siempre/La mayoría de las veces(1-2)",
                                          is.na(val)~"No Responde"
                                            )) %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key)-1, nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(items_num=factor(items_num, levels=1:10))%>% 
  dplyr::filter(!is.na(val),!is.na(items_num))
  
for (i in 1:nrow(istas_bars2)){
  istas_bars2$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(istas_bars2$label[i], width =40), "<br>"), collapse='')
}  
istas_bars2$label_text<-paste0("Código: ",istas_bars2$key,"<br>Valor:",istas_bars2$val_text,"<br>Porcentaje:",istas_bars2$perc,"<br>Válido:",istas_bars2$valid_perc,"<br>Etiqueta:",istas_bars2$label)

istas_bars_plot2<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
    ggplot(istas_bars2,aes(x=items_num,y=sum,fill=val, label= label_text))+
    geom_col() +
    scale_fill_grey(name= "Values", start = 0.2, end = 0.8,labels=c(paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p40_cond_trab_istas_01))),"NR"), na.value = "#FF5252")+
  sjPlot::theme_sjplot2()+
  labs(x="Ítems",y="Número de Respuestas\n")+
  #facet_wrap(~items, nrow = 3)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  #scale_x_discrete(breaks=c(1:10))+
  theme(strip.text.x = element_text(size = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))

ggplotly(istas_bars_plot2, tooltip = c("label_text"))%>%
  layout(xaxis= list(showticklabels = T), showlegend=F)#, height = 750, width=1100)

Figura 29(c). Gráfico de Barras, Preguntas Sobre Condiciones Psicosociales del Trabajo (Dicotomizada)

#_:#:#:#:#::#:#:#:#:#:#:#:
#_:#:#:#:#::#:#:#:#:#:#:#:#_:#:#:#:#::#:#:#:#:#:#:#:
#_:#:#:#:#::#:#:#:#:#:#:#:#_:#:#:#:#::#:#:#:#:#:#:#:#_:#:#:#:#::#:#:#:#:#:#:#:
#_:#:#:#:#::#:#:#:#:#:#:#:#_:#:#:#:#::#:#:#:#:#:#:#:
#_:#:#:#:#::#:#:#:#:#:#:#:

istas_bars3<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p40_cond_trab_istas_")),.funs = ~dplyr::case_when(as.numeric(factor(., levels = rev(levels(.))))>3~2, as.numeric(factor(., levels = rev(levels(.))))<=3~1, T~as.numeric(factor(., levels = rev(levels(.)))))) %>% 
  dplyr::select(starts_with("p40_cond_trab_istas_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p40_cond_trab_istas_01))))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V2") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(val_text=dplyr::case_when(val==1~"A Nunca/Sólo unas pocas veces/Algunas veces(3-5)",
                                          val==2~"Siempre/La mayoría de las veces(1-2)",
                                          is.na(val)~"No Responde"
                                            )) %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key)-1, nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(items_num=factor(items_num, levels=1:10))%>% 
  dplyr::filter(!is.na(val),!is.na(items_num)) %>% 
  dplyr::mutate(label2=stringr::str_replace(label, '.+ \\| (.+)', '\\1'))%>% 
  dplyr::mutate(num_perc=readr::parse_number(valid_perc, "\\d+"))


for (i in 1:nrow(istas_bars3)){
  istas_bars3$label2[i]<-stringi::stri_paste(paste(stringi::stri_wrap(istas_bars3$label2[i], width =30), "\n"), collapse='')
}  


istas_bars_plot3<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
ggplot(istas_bars3,aes(x=label2,y=num_perc,fill=val_text, label= valid_perc))+
    geom_col() +
    coord_flip()+
    scale_fill_manual(name= "", values=c("gray30", "gray70"))+
  sjPlot::theme_sjplot2()+
  labs(x="Ítems",y="Número de Respuestas\n")+
  #facet_wrap(~items, nrow = 3)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  theme(strip.text.x = element_text(size = 15, face = "bold"),
        axis.text.x= element_text(size = 15),
        axis.title.y= element_blank(),
        axis.title.x= element_blank(),
        axis.text.y = element_text(size = 14),
        legend.title = element_text(size = 14),
        legend.text = element_text(size = 14),
        plot.caption=element_text(hjust = 0),
        legend.position="bottom")+
          geom_label(#position = position_dodge(width = .5),    # move to center of bars
              #vjust = 0,    # nudge above top of bar
            position = position_stack(vjust = 0.5),
            colour = "white", fontface = "bold",size = 8)+
       theme(
         panel.grid.minor = element_blank(), 
         panel.grid.major = element_blank(),
         panel.grid.major.x = element_blank(),
         panel.background = element_blank(),
         line = element_blank())
  
istas_bars_plot3

Figura 29(c). Gráfico de Barras, Preguntas Sobre Condiciones Psicosociales del Trabajo (Dicotomizada)

  jpeg("Plots_general/_Fig1h_p40_rob_del_rio.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  istas_bars_plot3+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()

## png 
##   2

2.3.6 Sexta Sección - Resiliencia

#dim_sm_p4<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p4_afront")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#dim_sm_p5<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p5_animo")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#p42_resiliencia_1 p42_resiliencia_2 p42_resiliencia_3
resi_bars<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p42_resiliencia_")),.funs = ~as.numeric(.)) %>% 
  dplyr::select(starts_with("p42_resiliencia_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p42_resiliencia_1))))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V2") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(val_text=dplyr::case_when(val==1~"Incorrecto(1)",
                                          val==2~"Apenas cierto(2)",
                                          val==3~"Más bien cierto(3)",
                                          val==4~"Cierto(4)",
                                          is.na(val)~"No Responde"
                                            )) %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key), nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)), 
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup()%>% dplyr::filter(!is.na(val))
  
for (i in 1:nrow(resi_bars)){
  resi_bars$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(resi_bars$label[i], width =40), "<br>"), collapse='')
}  
resi_bars$label_text<-paste0("Código: ",resi_bars$key,"<br>Valor:",resi_bars$val_text,"<br>Porcentaje:",resi_bars$perc,"<br>Válido:",resi_bars$valid_perc,"<br>Etiqueta:",resi_bars$label)

resi_bars_plot<-  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
    ggplot(resi_bars,aes(x=items_num,y=sum,fill=val, label= label_text))+
    geom_col() +
    scale_fill_grey(name= "Values", start = 0.2, end = 0.8,labels=c(paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p42_resiliencia_1))),"NR"), na.value = "#FF5252")+
  sjPlot::theme_sjplot2()+
  labs(x="Ítems",y="Número de Respuestas\n")+
  #facet_wrap(~items, nrow = 3)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  scale_x_continuous(breaks=c(1:6))+
  theme(strip.text.x = element_text(size = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))

ggplotly(resi_bars_plot, tooltip = c("label_text"))%>%
  layout(xaxis= list(showticklabels = T), showlegend=F)#, height = 750, width=1100)

Figura 30(a). Gráfico de Barras, Preguntas Sobre Resiliencia

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

#dim_sm_p4<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p4_afront")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#dim_sm_p5<-surveymonkey_accionsalududp_df2_cor %>%dplyr::mutate_at(.vars=vars(starts_with("p5_animo")),.funs = list(`num_sm`=~as.numeric(.))) %>% dplyr::select(ends_with("num_sm")) 
#p42_resiliencia_1 p42_resiliencia_2 p42_resiliencia_3
library(ggrepel)

## Warning: package 'ggrepel' was built under R version 4.0.3

resi_bars<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p42_resiliencia_")),.funs = ~as.numeric(.)) %>% 
  dplyr::select(starts_with("p42_resiliencia_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=paste0(1:length(levels(surveymonkey_accionsalududp_df2_cor$p42_resiliencia_1))))) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::left_join(cols_labels,by=c("key"="V1")) %>% 
  dplyr::rename("label"="V2") %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(label= max(label,na.rm=T)) %>% 
  dplyr::ungroup() %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::slice(1) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(val_text=ordered(dplyr::case_when(val==1~"Incorrecto(1)",
                                          val==2~"Apenas cierto(2)",
                                          val==3~"Más bien cierto(3)",
                                          val==4~"Cierto(4)",
                                          is.na(val)~"No Responde"
                                            ),levels=c("No Responde",
                                                       "Incorrecto(1)",
                                                       "Apenas cierto(2)",
                                                       "Más bien cierto(3)",
                                                       "Cierto(4)"))) %>% 
  dplyr::mutate(items_num=as.numeric(substr(key, nchar(key), nchar(key)))) %>% 
  dplyr::group_by(key) %>% 
  dplyr::mutate(perc=scales::percent(sum/sum(sum)),
                valid_perc_med=sum/sum(sum[!is.na(val)]),
                valid_perc=scales::percent(sum/sum(sum[!is.na(val)])),
                valid_perc=ifelse(is.na(val),NA,valid_perc)) %>% 
  dplyr::ungroup()%>%
dplyr::filter(!is.na(val))

    ggplot(resi_bars,aes(x=items_num,y=valid_perc_med,fill=val_text, label= valid_perc))+
    geom_col() +
    scale_fill_grey(name= "Respuestas", start = 0.2, end = 0.8, na.value = "#FF5252")+#
  sjPlot::theme_sjplot2()+
  labs(x="Ítems",y="Número de Respuestas\n")+
      ylim(0,1.1)+
  #facet_wrap(~items, nrow = 3)+
  theme(strip.background  = element_blank(),
        strip.text = element_text(face="bold", size=7))+
  theme(strip.text.x = element_text(size = 15, face = "bold"),
        axis.text.x= element_text(size = 15),
        axis.title.y= element_blank(),
        axis.title.x= element_blank(),
        axis.text.y = element_blank(),
        legend.title = element_text(size = 14),
        legend.text = element_text(size = 14),
        plot.caption=element_text(hjust = 0),
        legend.position="bottom")+
  geom_label_repel(#position = position_dodge(width = .5),    # move to center of bars
              #vjust = 0,    # nudge above top of bar
            position = position_stack(vjust = 0.5),
              size = 8,
            direction = "y",
            force=1,
            seed=123,
            colour = "white", fontface = "bold") +
  scale_x_discrete(limits =c("Confianza habilidades\nsituaciones difíciles","Resolver problemas\npor su cuenta","Resolver tareas\ndesafiantes y complejas"))

Figura 30(b). Gráfico de Barras, Preguntas Sobre Resiliencia

#p9_exp_c19_exp_sit_dg_01 p12_contr_cont_imp_nec_01 p13_contr_cont_imp_disp_01 p20_contr_cont_med_pev_1 p26_cond_trab_ent_protec_1 p40_cond_trab_istas_01 p42_resiliencia_1  p17_contr_cont_restr_epp_1 p45_demo_id_personal_1 p47_demo_medio_transp_01

#san_vic
smoke <- matrix(c(67, 13, 201, 13, 121, 32, 42, 1),ncol=2,byrow=TRUE)
colnames(smoke) <- c("Total","Encuesta")
rownames(smoke) <- c("Admin","Tec_Aux","Otros Prof","Médicos")
#técnicos y auxiliares   201 
#profesionales  121
#admin   67 
#médicos    42

chisq.test(smoke)
#X-squared = 23.739, df = 3, p-value = 2.832e-05

#rav_cur
smoke <- matrix(c(274, 19, 218, 33, 99, 6, 132, 8),ncol=2,byrow=TRUE)
colnames(smoke) <- c("Total","Encuesta")
rownames(smoke) <- c("Admin","Tec_Aux","Otros Prof","Médicos")
#técnicos y auxiliares   274 
#profesionales  218
#admin   99 
#médicos    132

chisq.test(smoke)
#X-squared = 11.087, df = 3, p-value = 0.01127

#ss_arauco
#Admin. Enfermeros  Otros Prof. No-Médicos  Técnicos y Aux. Sig.
#N=16   N=5 N=81    N=7
#técnicos y auxiliares   42 
#profesionales  144
#admin   44 
#médicos    70

smoke <- matrix(c(44, 16, 42, 7, 
                  144, 86, 70, 0),ncol=2,byrow=TRUE)
colnames(smoke) <- c("Total","Encuesta")
rownames(smoke) <- c("Admin","Tec_Aux","Otros Prof","Médicos")

chisq.test(smoke)
#X-squared = 42.84, df = 3, p-value = 2.662e-09

#sta_isabel
#Admin. Enfermeros  Médicos Otros Prof. No-Médicos  Técnicos y Aux. Sig.
#N=7    N=7 N=4 N=23    N=9 
#técnicos y auxiliares  212
#profesionales  119
#admin  56
#médicos    35

smoke <- matrix(c(56, 212, 119, 35, 
                  7, 9, 30, 4),ncol=2,byrow=F)
colnames(smoke) <- c("Total","Encuesta")
rownames(smoke) <- c("Admin","Tec_Aux","Otros Prof","Médicos")

chisq.test(smoke,simulate.p.value = T)
# se utiliza un test de fisher.
#X-squared = 24.266, df = 3, p-value = 0.0004998
#> fisher.test(smoke)
#p-value = 1.489e-05

#contulmo
#Admin. Enfermeros  Médicos Otros Prof. No-Médicos  Técnicos y Aux. Sig.
#N=5    N=5 N=5 N=14    N=5
#técnicos y auxiliares   58 
#profesionales  34
#admin   21 
#médicos    6

smoke <- matrix(c(21, 58, 34, 6, 
                  5, 5, 19, 5),ncol=2,byrow=F)
colnames(smoke) <- c("Total","Encuesta")
rownames(smoke) <- c("Admin","Tec_Aux","Otros Prof","Médicos")

chisq.test(smoke)
#X-squared = 16.703, df = 3, p-value = 0.0004998
#> fisher.test(smoke)
#p-value = 0.0004283

#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_

sex <- matrix(c(146, 18, 276,   30),ncol=2,byrow=TRUE)
colnames(sex) <- c("Total","Encuesta")
rownames(sex) <- c("Hombres","Mujeres")

chisq.test(sex)

#rav cur
#hombres 220 11 mujeres 504 53
#SIG X-squared = 4.3275, df = 1, p-value = 0.0375

#san vic
#hombres 98 12  mujeres 333 44
#NS X-squared = 0.0025574, df = 1, p-value = 0.9597

#ss_arauco
#Hombres    Mujeres Sig.
#N=35   N=69
#hombres    144 mujeres 166
#SIG X-squared = 4.6885, df = 1, p-value = 0.03036
sex <- matrix(c(144, 35, 166,   69),ncol=2,byrow=TRUE)
colnames(sex) <- c("Total","Encuesta")
rownames(sex) <- c("Hombres","Mujeres")

chisq.test(sex)

#sta_isabel
#Hombres    Mujeres Sig.
#N=18   N=30    
#hombres 146 mujer 276  
#NS X-squared = 0.057614, df = 1, p-value = 0.8103

#contulmo
#Hombres    Mujeres Sig.
#N=9    N=23
#hombres 49 mujeres 70  
#NS X-squared = 1.3061, df = 1, p-value = 0.2531

rm(list=ls());gc()

load("__accion_salud_exp_post_crash.RData")

if(!require(dplyr)){install.packages("dplyr")}
if(!require(compareGroups)){install.packages("compareGroups")}
if(!require(kableExtra)){install.packages("kableExtra")}
if(!require(knitr)){install.packages("knitr")}
if(!require(magrittr)){install.packages("magrittr")}

table_comp <- suppressWarnings(compareGroups(target ~ 
                                               agotamiento_estres_irritabilidad+
                                               estres_postraumatico+
                                               agotamiento_estres_irritabilidad_ptje+
                                               estres_postraumatico_ptje+
                                               agotamiento_estres_irritabilidad_q75+
                                               estres_postraumatico_q75+
                                               tamizaje_ans+
                                               tamizaje_dep+
                                               p8_exp_c19_cerca_cont_rec+
                                               ptjes_p9+
                                               p10_exp_c19_preocupa_llevar_rec+
                                               p11_exp_c19_miedo_pand_rec+
                                               p14_contr_cont_cap_epp_rec+
                                               p15_contr_cont_14a_eval_cap_rec+
                                               p16_contr_cont_conf_epps_rec+
                                               ptjes_p17+
                                               p17_contr_cont_restr_epp_1_rec+
                                               p18_contr_cont_conf_eval_ri_rec+
                                               p19_contr_cont_nieg_epp_rec+
                                               p20_contr_cont_med_pev_1_p20_rec+
                                               p20_contr_cont_med_pev_2_p20_rec+
                                               p20_contr_cont_med_pev_3_p20_rec+
                                               p20_contr_cont_med_pev_4_p20_rec+
                                               p20_contr_cont_med_pev_5_p20_rec+
                                               p20_contr_cont_med_pev_6_p20_rec+
                                               p20_contr_cont_med_pev_7_p20_rec+
                                               p20_contr_cont_med_pev_8_p20_rec+
                                               p20_contr_cont_med_pev_9_p20_rec+
                                               p26_cond_trab_ent_protec_1_p26_rec+
                                               p26_cond_trab_ent_protec_2_p26_rec+
                                               p26_cond_trab_ent_protec_3_p26_rec+
                                               p26_cond_trab_ent_protec_4_p26_rec+
                                               p36_cond_trab_reasig_rec+
                                               p38_cond_trab_sal_psi_rec+
                                               p39_cond_trab_cult_org_rec+
                                               p40_cond_trab_istas_01_p40_rec+
                                               p40_cond_trab_istas_02_p40_rec+
                                               p40_cond_trab_istas_03_p40_rec+
                                               p40_cond_trab_istas_04_p40_rec+
                                               p40_cond_trab_istas_05_p40_rec+
                                               p40_cond_trab_istas_06_p40_rec+
                                               p40_cond_trab_istas_07_p40_rec+
                                               p40_cond_trab_istas_08_p40_rec+
                                               p40_cond_trab_istas_09_p40_rec+
                                               p40_cond_trab_istas_10_p40_rec+
                                               p40_istas_ex_psi+
                                               p40_istas_rel_su+
                                               p40_istas_con_rol+
                                               p40_istas_rel_comp+
                                               p42_resiliencia_1_p42_rec+
                                               p42_resiliencia_2_p42_rec+
                                               p42_resiliencia_3_p42_rec+
                                               p42_res_total+
                                               p3_siente_1+
                                               p3_siente_2+
                                               p3_siente_3+
                                               p3_siente_4+
                                               p3_siente_5+
                                               p3_siente_6+
                                               p4_afront_1+
                                               p4_afront_2+
                                               p4_afront_3+
                                               p5_animo_1+
                                               p5_animo_2+
                                               p5_animo_3+
                                               p5_animo_4+
                                               p6_exp_c19_pac_cont+
                                               p7_exp_c19_trab_cont+
                                               p8_exp_c19_cerca_cont+
                                               p9_exp_c19_exp_sit_dg_01+
                                               p9_exp_c19_exp_sit_dg_02+
                                               p9_exp_c19_exp_sit_dg_03+
                                               p9_exp_c19_exp_sit_dg_04+
                                               p9_exp_c19_exp_sit_dg_05+
                                               p9_exp_c19_exp_sit_dg_06+
                                               p9_exp_c19_exp_sit_dg_07+
                                               p9_exp_c19_exp_sit_dg_08+
                                               p9_exp_c19_exp_sit_dg_09+
                                               p9_exp_c19_exp_sit_dg_10+
                                               p9_exp_c19_exp_sit_dg_11+
                                               p10_exp_c19_preocupa_llevar+
                                               p11_exp_c19_miedo_pand+
                                               p12_contr_cont_imp_nec_01+
                                               p12_contr_cont_imp_nec_02+
                                               p12_contr_cont_imp_nec_03+
                                               p12_contr_cont_imp_nec_04+
                                               p12_contr_cont_imp_nec_05+
                                               p12_contr_cont_imp_nec_06+
                                               p12_contr_cont_imp_nec_07+
                                               p12_contr_cont_imp_nec_08+
                                               p12_contr_cont_imp_nec_09+
                                               p12_contr_cont_imp_nec_10+
                                               p12_contr_cont_imp_nec_11+
                                               p12_contr_cont_imp_nec_12+
                                               p13_contr_cont_imp_disp_01+
                                               p13_contr_cont_imp_disp_02+
                                               p13_contr_cont_imp_disp_03+
                                               p13_contr_cont_imp_disp_04+
                                               p13_contr_cont_imp_disp_05+
                                               p13_contr_cont_imp_disp_06+
                                               p13_contr_cont_imp_disp_07+
                                               p13_contr_cont_imp_disp_08+
                                               p13_contr_cont_imp_disp_09+
                                               p13_contr_cont_imp_disp_10+
                                               p13_contr_cont_imp_disp_11+
                                               p14_contr_cont_cap_epp+
                                               p15_contr_cont_14a_eval_cap+
                                               p16_contr_cont_conf_epps+
                                               p17_contr_cont_restr_epp_1+
                                               p17_contr_cont_restr_epp_2+
                                               p17_contr_cont_restr_epp_3+
                                               p17_contr_cont_restr_epp_4+
                                               p17_contr_cont_restr_epp_6+
                                               p17_contr_cont_restr_epp_7+
                                               p18_contr_cont_conf_eval_ri+
                                               p19_contr_cont_nieg_epp+
                                               p20_contr_cont_med_pev_1+
                                               p20_contr_cont_med_pev_2+
                                               p20_contr_cont_med_pev_3+
                                               p20_contr_cont_med_pev_4+
                                               p20_contr_cont_med_pev_5+
                                               p20_contr_cont_med_pev_6+
                                               p20_contr_cont_med_pev_7+
                                               p20_contr_cont_med_pev_8+
                                               p20_contr_cont_med_pev_9+
                                               p26_cond_trab_ent_protec_1+
                                               p26_cond_trab_ent_protec_2+
                                               p26_cond_trab_ent_protec_3+
                                               p26_cond_trab_ent_protec_4+
                                               #p28_cond_trab_sis_trab+
                                               #p32_cond_trab_est+
                                               #p33_cond_trab_sit_cont+
                                               p36_cond_trab_reasig+
                                               #p37_cond_trab_num_est+
                                               p38_cond_trab_sal_psi+
                                               p39_cond_trab_cult_org+
                                               p40_cond_trab_istas_01+
                                               p40_cond_trab_istas_02+
                                               p40_cond_trab_istas_03+
                                               p40_cond_trab_istas_04+
                                               p40_cond_trab_istas_05+
                                               p40_cond_trab_istas_06+
                                               p40_cond_trab_istas_07+
                                               p40_cond_trab_istas_08+
                                               p40_cond_trab_istas_09+
                                               p40_cond_trab_istas_10+
                                               p42_resiliencia_1+
                                               p42_resiliencia_2+
                                               p42_resiliencia_3, 
                                             method= c(
                                               agotamiento_estres_irritabilidad=3,
                                               estres_postraumatico=3,
                                               agotamiento_estres_irritabilidad_ptje=2,
                                               estres_postraumatico_ptje=2,
                                               agotamiento_estres_irritabilidad_q75=3,
                                               estres_postraumatico_q75=3,
                                               tamizaje_ans=3,
                                               tamizaje_dep=3,
                                               p8_exp_c19_cerca_cont_rec=3,
                                               ptjes_p9=2,
                                               p10_exp_c19_preocupa_llevar_rec=3,
                                               p11_exp_c19_miedo_pand_rec=3,
                                               p14_contr_cont_cap_epp_rec=3,
                                               p15_contr_cont_14a_eval_cap_rec=3,
                                               p16_contr_cont_conf_epps_rec=3,
                                               ptjes_p17=2,
                                               p17_contr_cont_restr_epp_1_rec=3,
                                               p18_contr_cont_conf_eval_ri_rec=3,
                                               p19_contr_cont_nieg_epp_rec=3,
                                               p20_contr_cont_med_pev_1_p20_rec=3,
                                               p20_contr_cont_med_pev_2_p20_rec=3,
                                               p20_contr_cont_med_pev_3_p20_rec=3,
                                               p20_contr_cont_med_pev_4_p20_rec=3,
                                               p20_contr_cont_med_pev_5_p20_rec=3,
                                               p20_contr_cont_med_pev_6_p20_rec=3,
                                               p20_contr_cont_med_pev_7_p20_rec=3,
                                               p20_contr_cont_med_pev_8_p20_rec=3,
                                               p20_contr_cont_med_pev_9_p20_rec=3,
                                               p26_cond_trab_ent_protec_1_p26_rec=3,
                                               p26_cond_trab_ent_protec_2_p26_rec=3,
                                               p26_cond_trab_ent_protec_3_p26_rec=3,
                                               p26_cond_trab_ent_protec_4_p26_rec=3,
                                               p36_cond_trab_reasig_rec=3,
                                               p38_cond_trab_sal_psi_rec=3,
                                               p39_cond_trab_cult_org_rec=3,
                                               p40_cond_trab_istas_01_p40_rec=3,
                                               p40_cond_trab_istas_02_p40_rec=3,
                                               p40_cond_trab_istas_03_p40_rec=3,
                                               p40_cond_trab_istas_04_p40_rec=3,
                                               p40_cond_trab_istas_05_p40_rec=3,
                                               p40_cond_trab_istas_06_p40_rec=3,
                                               p40_cond_trab_istas_07_p40_rec=3,
                                               p40_cond_trab_istas_08_p40_rec=3,
                                               p40_cond_trab_istas_09_p40_rec=3,
                                               p40_cond_trab_istas_10_p40_rec=3,
                                               p40_istas_ex_psi=2,
                                               p40_istas_rel_su=2,
                                               p40_istas_con_rol=2,
                                               p40_istas_rel_comp=2,
                                               p42_resiliencia_1_p42_rec=3,
                                               p42_resiliencia_2_p42_rec=3,
                                               p42_resiliencia_3_p42_rec=3,
                                               p42_res_total=2,
                                               p3_siente_1=3,
                                               p3_siente_2=3,
                                               p3_siente_3=3,
                                               p3_siente_4=3,
                                               p3_siente_5=3,
                                               p3_siente_6=3,
                                               p4_afront_1=3,
                                               p4_afront_2=3,
                                               p4_afront_3=3,
                                               p5_animo_1=3,
                                               p5_animo_2=3,
                                               p5_animo_3=3,
                                               p5_animo_4=3,
                                               agotamiento_estres_irritabilidad=2,
                                               estres_postraumatico=2,
                                               tamizaje_ans=3,
                                               tamizaje_dep=3,
                                               p6_exp_c19_pac_cont=3,
                                               p7_exp_c19_trab_cont=3,
                                               p8_exp_c19_cerca_cont=3,
                                               p9_exp_c19_exp_sit_dg_01=3,
                                               p9_exp_c19_exp_sit_dg_02=3,
                                               p9_exp_c19_exp_sit_dg_03=3,
                                               p9_exp_c19_exp_sit_dg_04=3,
                                               p9_exp_c19_exp_sit_dg_05=3,
                                               p9_exp_c19_exp_sit_dg_06=3,
                                               p9_exp_c19_exp_sit_dg_07=3,
                                               p9_exp_c19_exp_sit_dg_08=3,
                                               p9_exp_c19_exp_sit_dg_09=3,
                                               p9_exp_c19_exp_sit_dg_10=3,
                                               p9_exp_c19_exp_sit_dg_11=3,
                                               p10_exp_c19_preocupa_llevar=3,
                                               p11_exp_c19_miedo_pand=3,
                                               p12_contr_cont_imp_nec_01=3,
                                               p12_contr_cont_imp_nec_02=3,
                                               p12_contr_cont_imp_nec_03=3,
                                               p12_contr_cont_imp_nec_04=3,
                                               p12_contr_cont_imp_nec_05=3,
                                               p12_contr_cont_imp_nec_06=3,
                                               p12_contr_cont_imp_nec_07=3,
                                               p12_contr_cont_imp_nec_08=3,
                                               p12_contr_cont_imp_nec_09=3,
                                               p12_contr_cont_imp_nec_10=3,
                                               p12_contr_cont_imp_nec_11=3,
                                               p12_contr_cont_imp_nec_12=3,
                                               p13_contr_cont_imp_disp_01=3,
                                               p13_contr_cont_imp_disp_02=3,
                                               p13_contr_cont_imp_disp_03=3,
                                               p13_contr_cont_imp_disp_04=3,
                                               p13_contr_cont_imp_disp_05=3,
                                               p13_contr_cont_imp_disp_06=3,
                                               p13_contr_cont_imp_disp_07=3,
                                               p13_contr_cont_imp_disp_08=3,
                                               p13_contr_cont_imp_disp_09=3,
                                               p13_contr_cont_imp_disp_10=3,
                                               p13_contr_cont_imp_disp_11=3,
                                               p14_contr_cont_cap_epp=3,
                                               p15_contr_cont_14a_eval_cap=3,
                                               p16_contr_cont_conf_epps=3,
                                               p17_contr_cont_restr_epp_1=3,
                                               p17_contr_cont_restr_epp_2=3,
                                               p17_contr_cont_restr_epp_3=3,
                                               p17_contr_cont_restr_epp_4=3,
                                               p17_contr_cont_restr_epp_6=3,
                                               p17_contr_cont_restr_epp_7=3,
                                               p18_contr_cont_conf_eval_ri=3,
                                               p19_contr_cont_nieg_epp=3,
                                               p20_contr_cont_med_pev_1=3,
                                               p20_contr_cont_med_pev_2=3,
                                               p20_contr_cont_med_pev_3=3,
                                               p20_contr_cont_med_pev_4=3,
                                               p20_contr_cont_med_pev_5=3,
                                               p20_contr_cont_med_pev_6=3,
                                               p20_contr_cont_med_pev_7=3,
                                               p20_contr_cont_med_pev_8=3,
                                               p20_contr_cont_med_pev_9=3,
                                               p26_cond_trab_ent_protec_1=3,
                                               p26_cond_trab_ent_protec_2=3,
                                               p26_cond_trab_ent_protec_3=3,
                                               p26_cond_trab_ent_protec_4=3,
                                               #p28_cond_trab_sis_trab=3,
                                               #p32_cond_trab_est=3,
                                               #p33_cond_trab_sit_cont=3,
                                               p36_cond_trab_reasig=3,
                                               #p37_cond_trab_num_est=3,
                                               p38_cond_trab_sal_psi=3,
                                               p39_cond_trab_cult_org=3,
                                               p40_cond_trab_istas_01=3,
                                               p40_cond_trab_istas_02=3,
                                               p40_cond_trab_istas_03=3,
                                               p40_cond_trab_istas_04=3,
                                               p40_cond_trab_istas_05=3,
                                               p40_cond_trab_istas_06=3,
                                               p40_cond_trab_istas_07=3,
                                               p40_cond_trab_istas_08=3,
                                               p40_cond_trab_istas_09=3,
                                               p40_cond_trab_istas_10=3,
                                               p42_resiliencia_1=3,
                                               p42_resiliencia_2=3,
                                               p42_resiliencia_3=3),
                                             data = surveymonkey_accionsalududp_df2_cor_sel_2 %>% dplyr::mutate(target=factor(ifelse(inst=="Hospital Roberto del Río",1,0))),
                                             #"Instituto Nacional del Cáncer"
                                             include.miss = F, #baja el número de casos
                                             p.corrected=T,
                                             chisq.test.perm=T,
                                             chisq.test.seed=1234,
                                             var.equal=T)
)
restab2_comp <- createTable(table_comp, show.p.overall = T)

pvals2 <- getResults(table_comp)
#p.adjust(pvals, method = "BH")
export2md(restab2_comp, size=12, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Tabla 2. Descriptivo Aplicación Hospital Específico en Comparación con el Resto de los Países ",
          col.names=c("Variables", "Resto de los Hospitales", "Hospital Roberto del Río", "Sig.")
)%>%
  kableExtra::add_footnote(c("Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;", 
                             "Variables categóricas son presentadas como el recuento y el porcentaje"), notation = "none")%>%
  kableExtra::scroll_box(width = "100%", height = "800px")

3 Compilación

attr(surveymonkey_accionsalududp_df2_cor_table$surv,"label")<- "Supervivencia de Respuestas"
attr(surveymonkey_accionsalududp_df2_cor_table$sit_contractual,"label")<- "Situación Contractual"
attr(surveymonkey_accionsalududp_df2_cor_table$estamento,"label")<- "Estamento"

surveymonkey_accionsalududp_df2_cor_table_exp<-
  surveymonkey_accionsalududp_df2_cor_table %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(rn=row_number()) %>% 
  dplyr::select(-(resp_id:correo_final)) %>% 
  data.frame()

for (i in 1:length(surveymonkey_accionsalududp_df2_cor_table_exp)){
    x<-names(surveymonkey_accionsalududp_df2_cor_table_exp)[i]
    attr(surveymonkey_accionsalududp_df2_cor_table_exp[[x]],"label")<- attr(surveymonkey_accionsalududp_df2_cor_table[[x]],"label")
}
invisible(c("Da lo mismo que tire un error, es por el rn"))
attr(surveymonkey_accionsalududp_df2_cor_table_exp$rn,"label")<- "Número de Fila"

var_labels_df<-data.frame()
for (i in 1:length(surveymonkey_accionsalududp_df2_cor_table_exp)){
  x<-names(surveymonkey_accionsalududp_df2_cor_table_exp)[i]
var_labels_df<-rbind.data.frame(var_labels_df, cbind(x, attr(surveymonkey_accionsalududp_df2_cor_table_exp[[x]],"label")))
}

codebook::var_label(surveymonkey_accionsalududp_df2_cor_table_exp) <-
var_labels_df%>% 
  codebook::dict_to_list()

rio::export(surveymonkey_accionsalududp_df2_cor_table_exp,paste0(getwd(),"/___historial_data_exp/",input2,"_",sub("-","_",sub("-","_",substr(Sys.time(),1,10))),"_bd_accionsalud_ins.dta"))

write_csv2(surveymonkey_accionsalududp_df2_cor_table, paste0(getwd(),"/___historial_data_exp/",input2,"_",sub("-","_",sub("-","_",substr(Sys.time(),1,10))),"_bd_accionsalud_ins.csv"), na="")
save.image(
  paste0(getwd(),"/___historial_data_exp/",input2,"_",sub("-","_",sub("-","_",substr(Sys.time(),1,10))),"_report_ins.RData")
)
unlink('*_cache', recursive = TRUE)