Insumo Informe Hospital Instituto Nacional del Cancer

#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)       
    }
  }
}  

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_in"

#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()
#p28_cond_trab_sis_trab
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)))) %>% 
  #x Column `donde_trabaja_actualmente` doesn't exist.
    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_de_manera_principal', #donde_trabaja_actualmente_de_manera_principal - donde_trabaja_actualmente
   'p29_cond_trab_28c_sis_mix_0' = 'en_que_tipo_de_centro_de_salud_trabaja_principalmente', # es privado, por eso tuve que cambiar el orden
   'p29_cond_trab_28c_sis_mix' = 'en_que_tipo_de_centro_de_salud_trabaja_principalmente_privado', # es privado, por eso tuve que cambiar el orden
   'p30_cond_trab_28c_sis_mix_a' = 'en_que_tipo_de_centro_de_salud_trabaja_ademas_publico', # es privado, por eso tuve que cambiar el orden
   '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	12	78.2%	TRUE	4	Alg: 14, La : 14, Sie: 8, Sól: 7
factor	p3_siente_2	12	78.2%	TRUE	4	La : 16, Alg: 12, Sól: 10, Sie: 5
factor	p3_siente_3	12	78.2%	TRUE	5	Alg: 14, Sól: 12, La : 12, Sie: 4
factor	p3_siente_4	12	78.2%	TRUE	5	Sól: 16, Alg: 11, La : 8, Nun: 4
factor	p3_siente_5	12	78.2%	TRUE	5	Sól: 12, Alg: 11, La : 9, Sie: 8
factor	p3_siente_6	12	78.2%	TRUE	5	Sól: 11, La : 10, Alg: 9, Nun: 7
factor	p4_afront_1	12	78.2%	TRUE	5	Nad: 12, Bas: 12, Un : 9, Reg: 8
factor	p4_afront_2	12	78.2%	TRUE	5	Bas: 13, Un : 11, Nad: 9, Reg: 7
factor	p4_afront_3	12	78.2%	TRUE	5	Nad: 15, Un : 11, Bas: 8, Reg: 7
factor	p5_animo_1	14	74.5%	TRUE	4	Más: 15, Alg: 13, Nun: 7, Cas: 6
factor	p5_animo_2	14	74.5%	TRUE	4	Más: 16, Alg: 10, Cas: 8, Nun: 7
factor	p5_animo_3	14	74.5%	TRUE	4	Alg: 18, Más: 11, Nun: 6, Cas: 6
factor	p5_animo_4	14	74.5%	TRUE	4	Alg: 21, Nun: 7, Cas: 7, Más: 6
factor	p6_exp_c19_pac_cont	15	72.7%	TRUE	3	1 a: 21, Nin: 18, 11 : 1, 31 : 0
factor	p7_exp_c19_trab_cont	15	72.7%	TRUE	3	2 a: 17, Nin: 16, Sól: 7, 11 : 0
factor	p8_exp_c19_cerca_cont	15	72.7%	TRUE	7	Com: 14, Tra: 8, Com: 7, Nin: 6
factor	p10_exp_c19_preocupa_llevar	15	72.7%	TRUE	5	Muc: 21, Un : 9, Bas: 6, Nad: 2
factor	p11_exp_c19_miedo_pand	15	72.7%	TRUE	10	7: 9, 5: 7, 1 (: 4, 4: 4
factor	p13_contr_cont_imp_disp_01	18	67.3%	TRUE	3	Suf: 22, No : 9, Ins: 6
factor	p13_contr_cont_imp_disp_02	18	67.3%	TRUE	3	No : 14, Ins: 13, Suf: 10
factor	p13_contr_cont_imp_disp_03	18	67.3%	TRUE	3	Suf: 19, Ins: 10, No : 8
factor	p13_contr_cont_imp_disp_04	18	67.3%	TRUE	3	No : 25, Ins: 7, Suf: 5
factor	p13_contr_cont_imp_disp_05	18	67.3%	TRUE	2	Suf: 33, Ins: 4, No : 0
factor	p13_contr_cont_imp_disp_06	18	67.3%	TRUE	2	Suf: 34, Ins: 3, No : 0
factor	p13_contr_cont_imp_disp_07	18	67.3%	TRUE	3	Suf: 16, Ins: 13, No : 8
factor	p13_contr_cont_imp_disp_08	18	67.3%	TRUE	3	No : 27, Ins: 6, Suf: 4
factor	p13_contr_cont_imp_disp_09	18	67.3%	TRUE	3	Suf: 19, No : 14, Ins: 4
factor	p13_contr_cont_imp_disp_10	18	67.3%	TRUE	3	No : 18, Suf: 13, Ins: 6
factor	p13_contr_cont_imp_disp_11	18	67.3%	TRUE	3	No : 21, Ins: 9, Suf: 7
factor	p14_contr_cont_cap_epp	18	67.3%	TRUE	6	Sí,: 12, Sí,: 10, No : 9, Sí,: 2
factor	p15_contr_cont_14a_eval_cap	27	50.9%	TRUE	4	Bue: 14, Reg: 8, Exc: 4, Mal: 2
factor	p16_contr_cont_conf_epps	18	67.3%	TRUE	6	Bas: 17, Tot: 9, Alg: 4, No : 4
factor	p18_contr_cont_conf_eval_ri	18	67.3%	TRUE	5	Bas: 20, Tot: 8, Alg: 5, No : 3
factor	p19_contr_cont_nieg_epp	18	67.3%	TRUE	6	Pro: 12, Qui: 7, Def: 6, Def: 6
factor	p20_contr_cont_med_pev_1	20	63.6%	TRUE	5	Apr: 15, Apr: 9, Def: 6, Ina: 3
factor	p20_contr_cont_med_pev_2	20	63.6%	TRUE	6	Apr: 21, Apr: 4, Ina: 3, Def: 3
factor	p20_contr_cont_med_pev_3	20	63.6%	TRUE	6	Apr: 19, Apr: 6, Ina: 3, Def: 3
factor	p20_contr_cont_med_pev_4	20	63.6%	TRUE	6	Apr: 17, Apr: 9, Ina: 3, Def: 3
factor	p20_contr_cont_med_pev_5	20	63.6%	TRUE	6	Ina: 9, Def: 8, Apr: 7, Apr: 4
factor	p20_contr_cont_med_pev_6	20	63.6%	TRUE	6	Apr: 14, Ina: 7, Def: 5, No : 4
factor	p20_contr_cont_med_pev_7	20	63.6%	TRUE	6	Def: 13, Ina: 8, No : 6, Apr: 5
factor	p20_contr_cont_med_pev_8	20	63.6%	TRUE	6	Apr: 12, Ina: 7, No : 5, Apr: 4
factor	p20_contr_cont_med_pev_9	20	63.6%	TRUE	6	Apr: 14, No : 7, Apr: 5, Ina: 4
factor	p23_cond_trab_pert_sind	0	100.0%	FALSE	3	NA: 23, Sí: 19, No: 13
factor	p25_cond_trab_23b_cargo_sin	0	100.0%	FALSE	3	NA: 36, No: 16, Sí: 3
factor	p26_cond_trab_ent_protec_1	24	56.4%	TRUE	4	De : 10, Ni : 10, Tot: 7, En : 4
factor	p26_cond_trab_ent_protec_2	24	56.4%	TRUE	5	De : 13, Tot: 6, Ni : 6, En : 5
factor	p26_cond_trab_ent_protec_3	24	56.4%	TRUE	5	En : 13, De : 8, Ni : 4, Tot: 4
factor	p26_cond_trab_ent_protec_4	24	56.4%	TRUE	5	Ni : 13, De : 7, En : 7, Tot: 2
factor	p27_cond_trab_sup_jef	0	100.0%	FALSE	3	NA: 24, No: 18, Sí: 13
factor	p28_cond_trab_sis_trab	24	56.4%	TRUE	1	Sis: 31, Sis: 0, Sis: 0
factor	p29_cond_trab_28c_sis_mix_0	24	56.4%	FALSE	1	Ate: 31
factor	p29_cond_trab_28c_sis_mix	55	0.0%	FALSE	0	:
factor	p30_cond_trab_28c_sis_mix_a	55	0.0%	FALSE	0	:
factor	p32_cond_trab_est	25	54.5%	TRUE	7	Otr: 14, Enf: 5, Téc: 4, Adm: 3
factor	p36_cond_trab_reasig	25	54.5%	TRUE	4	Man: 26, Man: 2, Dis: 1, Dis: 1
factor	p37_cond_trab_num_est	25	54.5%	TRUE	5	250: 14, Men: 11, 50 : 3, 21 : 1
factor	p38_cond_trab_sal_psi	25	54.5%	TRUE	4	Reg: 15, Bue: 9, Mal: 5, Exc: 1
factor	p39_cond_trab_cult_org	25	54.5%	TRUE	5	De : 11, Neu: 9, Tot: 7, En : 2
factor	p40_cond_trab_istas_01	25	54.5%	TRUE	5	Sie: 12, La : 8, Alg: 6, Sól: 3
factor	p40_cond_trab_istas_02	25	54.5%	TRUE	4	Sie: 10, Alg: 9, La : 7, Sól: 4
factor	p40_cond_trab_istas_03	25	54.5%	TRUE	4	La : 15, Alg: 11, Sie: 2, Sól: 2
factor	p40_cond_trab_istas_04	25	54.5%	TRUE	4	Alg: 15, Nun: 8, Sól: 6, La : 1
factor	p40_cond_trab_istas_05	25	54.5%	TRUE	5	Alg: 16, La : 7, Sól: 5, Sie: 1
factor	p40_cond_trab_istas_06	25	54.5%	TRUE	5	Sie: 12, La : 12, Alg: 3, Sól: 2
factor	p40_cond_trab_istas_07	25	54.5%	TRUE	5	La : 12, Sie: 8, Alg: 6, Nun: 3
factor	p40_cond_trab_istas_08	25	54.5%	TRUE	3	La : 13, Sie: 12, Alg: 5, Sól: 0
factor	p40_cond_trab_istas_09	25	54.5%	TRUE	4	La : 20, Sie: 7, Alg: 2, Sól: 1
factor	p40_cond_trab_istas_10	25	54.5%	TRUE	5	Sie: 13, La : 10, Alg: 4, Sól: 2
factor	p42_resiliencia_1	25	54.5%	TRUE	4	Cie: 21, Más: 6, Ape: 2, Inc: 1
factor	p42_resiliencia_2	25	54.5%	TRUE	4	Cie: 19, Más: 8, Ape: 2, Inc: 1
factor	p42_resiliencia_3	25	54.5%	TRUE	4	Cie: 21, Más: 6, Ape: 2, Inc: 1
factor	p44_demo_educacion	25	54.5%	TRUE	4	Uni: 15, Pos: 8, Téc: 6, Med: 1
factor	p46_demo_tiempo_viaje	25	54.5%	TRUE	7	40 : 8, 1 a: 8, 20 : 4, Más: 4
factor	requiere_atencion	0	100.0%	FALSE	2	0: 45, 1: 10
factor	p11_exp_c19_miedo_pand_rec	15	72.7%	FALSE	2	Mie: 21, Aus: 19
logical	p9_exp_c19_exp_sit_dg_01	15	72.7%				0.4750000	FAL: 21, TRU: 19
logical	p9_exp_c19_exp_sit_dg_02	15	72.7%				0.1750000	FAL: 33, TRU: 7
logical	p9_exp_c19_exp_sit_dg_03	15	72.7%				0.2750000	FAL: 29, TRU: 11
logical	p9_exp_c19_exp_sit_dg_04	15	72.7%				0.4000000	FAL: 24, TRU: 16
logical	p9_exp_c19_exp_sit_dg_05	15	72.7%				0.0250000	FAL: 39, TRU: 1
logical	p9_exp_c19_exp_sit_dg_06	15	72.7%				0.2000000	FAL: 32, TRU: 8
logical	p9_exp_c19_exp_sit_dg_07	15	72.7%				0.1250000	FAL: 35, TRU: 5
logical	p9_exp_c19_exp_sit_dg_08	15	72.7%				0.3500000	FAL: 26, TRU: 14
logical	p9_exp_c19_exp_sit_dg_09	15	72.7%				0.0500000	FAL: 38, TRU: 2
logical	p9_exp_c19_exp_sit_dg_10	15	72.7%				0.1250000	FAL: 35, TRU: 5
logical	p9_exp_c19_exp_sit_dg_11	15	72.7%				0.3000000	FAL: 28, TRU: 12
logical	p12_contr_cont_imp_nec_01	18	67.3%				0.5405405	TRU: 20, FAL: 17
logical	p12_contr_cont_imp_nec_02	18	67.3%				0.4864865	FAL: 19, TRU: 18
logical	p12_contr_cont_imp_nec_03	18	67.3%				0.4594595	FAL: 20, TRU: 17
logical	p12_contr_cont_imp_nec_04	18	67.3%				0.0810811	FAL: 34, TRU: 3
logical	p12_contr_cont_imp_nec_05	18	67.3%				0.8918919	TRU: 33, FAL: 4
logical	p12_contr_cont_imp_nec_06	18	67.3%				0.7567568	TRU: 28, FAL: 9
logical	p12_contr_cont_imp_nec_07	18	67.3%				0.6216216	TRU: 23, FAL: 14
logical	p12_contr_cont_imp_nec_08	18	67.3%				0.0000000	FAL: 37
logical	p12_contr_cont_imp_nec_09	18	67.3%				0.5135135	TRU: 19, FAL: 18
logical	p12_contr_cont_imp_nec_10	18	67.3%				0.4864865	FAL: 19, TRU: 18
logical	p12_contr_cont_imp_nec_11	18	67.3%				0.1891892	FAL: 30, TRU: 7
logical	p12_contr_cont_imp_nec_12	18	67.3%				0.0000000	FAL: 37
logical	p17_contr_cont_restr_epp_1	18	67.3%				0.1081081	FAL: 33, TRU: 4
logical	p17_contr_cont_restr_epp_2	18	67.3%				0.3243243	FAL: 25, TRU: 12
logical	p17_contr_cont_restr_epp_3	18	67.3%				0.1351351	FAL: 32, TRU: 5
logical	p17_contr_cont_restr_epp_4	18	67.3%				0.0810811	FAL: 34, TRU: 3
logical	p17_contr_cont_restr_epp_5	18	67.3%				0.3783784	FAL: 23, TRU: 14
logical	p17_contr_cont_restr_epp_6	18	67.3%				0.2162162	FAL: 29, TRU: 8
logical	p45_demo_id_personal_1	25	54.5%				0.9000000	TRU: 27, FAL: 3
logical	p45_demo_id_personal_2	25	54.5%				0.1000000	FAL: 27, TRU: 3
logical	p45_demo_id_personal_3	25	54.5%				0.0333333	FAL: 29, TRU: 1
logical	p45_demo_id_personal_4	55	0.0%					:
logical	p45_demo_id_personal_5	25	54.5%				0.0000000	FAL: 30
logical	p45_demo_id_personal_6	25	54.5%				0.0000000	FAL: 30
logical	p45_demo_id_personal_7	25	54.5%				0.0000000	FAL: 30
logical	p45_demo_id_personal_8	25	54.5%				0.0333333	FAL: 29, TRU: 1
logical	p47_demo_medio_transp_01	25	54.5%				0.4333333	FAL: 17, TRU: 13
logical	p47_demo_medio_transp_02	25	54.5%				0.1000000	FAL: 27, TRU: 3
logical	p47_demo_medio_transp_03	25	54.5%				0.2000000	FAL: 24, TRU: 6
logical	p47_demo_medio_transp_04	25	54.5%				0.2666667	FAL: 22, TRU: 8
logical	p47_demo_medio_transp_05	25	54.5%				0.1333333	FAL: 26, TRU: 4
logical	p47_demo_medio_transp_06	25	54.5%				0.0333333	FAL: 29, TRU: 1
logical	p47_demo_medio_transp_07	25	54.5%				0.0000000	FAL: 30
logical	p47_demo_medio_transp_10	25	54.5%				0.0333333	FAL: 29, TRU: 1
logical	p47_demo_medio_transp_08	25	54.5%				0.0666667	FAL: 28, TRU: 2
numeric	p21_cond_trab_hr_trabajada	23	58.2%						43.687500	7.587925	9	44.0	44	45.00	60
numeric	p22_cond_trab_hr_trabara	23	58.2%						44.437500	10.025572	1	44.0	44	45.00	72
numeric	p34_cond_trab_tiemp_trab	25	54.5%						8.333333	8.193072	0	2.0	5	11.75	27
numeric	p43_demo_edad	25	54.5%						41.100000	7.769747	27	36.0	40	46.75	56
numeric	ptjes_sm	0	100.0%						28.163636	18.187057	0	19.5	32	40.50	61

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 30 rows containing non-finite values (stat_summary).

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

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

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=43
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):		43
1	15 (34.9%)
2	14 (32.6%)
3	14 (32.6%)
Estrés Postraumático (4° Cuartil):		43
Ausencia de Indicadores de Estrés Post-traumático	33 (76.7%)
Indicadores de Estrés Post-traumático	10 (23.3%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	300 [225;438]	43
Ptjes. Estrés Postraumático	4.00 [2.00;7.50]	43
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):		43
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	15 (34.9%)
Cuartiles 1 a 3	28 (65.1%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):		43
Cuartil de mayor ptje. Estrés Postraumático	21 (48.8%)
Cuartiles 1 a 3	22 (51.2%)
Sintomatología ansiosa:		41
Ausencia de Indicadores de Sintomatología Ansiosa	18 (43.9%)
Indicadores de Sintomatología Ansiosa	23 (56.1%)
Sintomatología depresiva:		41
Ausencia de Indicadores de Sintomatología Depresiva	22 (53.7%)
Indicadores de Sintomatología Depresiva	19 (46.3%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):		40
Contacto directo y estrecho con pacientes (menos de dos metros)	9 (22.5%)
Menor o ningún contacto con pacientes	31 (77.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):		28
1	4 (14.3%)
2	8 (28.6%)
3	6 (21.4%)
Más de 3	10 (35.7%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):		40
Bastante/Mucho	27 (67.5%)
Un poco/Nada/No aplica	13 (32.5%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):		40
Predomina el miedo	21 (52.5%)
Predomina la ausencia de miedo	19 (47.5%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):		37
Ha sido capacitado	28 (75.7%)
No ha sido capacitado	9 (24.3%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada):		28
Mala	2 (7.14%)
Regular a Excelente	26 (92.9%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):		37
Nada/Poco/Algo/No aplica	11 (29.7%)
Totalmente/Bastante	26 (70.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):		26
1	19 (73.1%)
2	3 (11.5%)
3	3 (11.5%)
Más de 3	1 (3.85%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:		37
Empleador se ha rehusado a dar cierto tipo de EPP	4 (10.8%)
No se constata esta situación	33 (89.2%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada):		37
Algo/Bastante/Totalente/No aplica	36 (97.3%)
Poco/Nada	1 (2.70%)
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):		37
Incapacidad para negarse a trabajo inseguro	18 (48.6%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	19 (51.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):		35
Apropiadas/No sabe/No aplica	26 (74.3%)
Inapropiadas/Deficientes	9 (25.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada):		35
Apropiadas/No sabe/No aplica	29 (82.9%)
Inapropiadas/Deficientes	6 (17.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):		35
Apropiadas/No sabe/No aplica	29 (82.9%)
Inapropiadas/Deficientes	6 (17.1%)
¿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):		35
Apropiadas/No sabe/No aplica	29 (82.9%)
Inapropiadas/Deficientes	6 (17.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):		35
Apropiadas/No sabe/No aplica	18 (51.4%)
Inapropiadas/Deficientes	17 (48.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada):		35
Apropiadas/No sabe/No aplica	23 (65.7%)
Inapropiadas/Deficientes	12 (34.3%)
¿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):		35
Apropiadas/No sabe/No aplica	14 (40.0%)
Inapropiadas/Deficientes	21 (60.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):		35
Apropiadas/No sabe/No aplica	24 (68.6%)
Inapropiadas/Deficientes	11 (31.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada):		35
Apropiadas/No sabe/No aplica	29 (82.9%)
Inapropiadas/Deficientes	6 (17.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? | Sindicato/gremio (Dicotomizada):		31
Desacuerdo/Totalmente en desacuerdo	4 (12.9%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	27 (87.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 (Dicotomizada):		31
Desacuerdo/Totalmente en desacuerdo	6 (19.4%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	25 (80.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 (Dicotomizada):		31
Desacuerdo/Totalmente en desacuerdo	17 (54.8%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	14 (45.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):		31
Desacuerdo/Totalmente en desacuerdo	9 (29.0%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	22 (71.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):		30
Cambia área, labores o ambos producto de la pandemia	4 (13.3%)
Mantiene las mismas labores en la misma área	26 (86.7%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada):		30
Excelente/Buena/Regular	25 (83.3%)
Mala	5 (16.7%)
¿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):		30
De acuerdo/Totalmente de acuerdo	18 (60.0%)
Neutral/En desacuerdo/Totalmente en desacuerdo	12 (40.0%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):		30
La mayoría de las veces/Siempre	20 (66.7%)
Nunca/Sólo unas pocas veces/Algunas veces	10 (33.3%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):		30
La mayoría de las veces/Siempre	17 (56.7%)
Nunca/Sólo unas pocas veces/Algunas veces	13 (43.3%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):		30
La mayoría de las veces/Siempre	17 (56.7%)
Nunca/Sólo unas pocas veces/Algunas veces	13 (43.3%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):		30
La mayoría de las veces/Siempre	1 (3.33%)
Nunca/Sólo unas pocas veces/Algunas veces	29 (96.7%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada):		30
La mayoría de las veces/Siempre	8 (26.7%)
Nunca/Sólo unas pocas veces/Algunas veces	22 (73.3%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):		30
La mayoría de las veces/Siempre	24 (80.0%)
Nunca/Sólo unas pocas veces/Algunas veces	6 (20.0%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):		30
La mayoría de las veces/Siempre	20 (66.7%)
Nunca/Sólo unas pocas veces/Algunas veces	10 (33.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):		30
La mayoría de las veces/Siempre	25 (83.3%)
Nunca/Sólo unas pocas veces/Algunas veces	5 (16.7%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada):		30
La mayoría de las veces/Siempre	27 (90.0%)
Nunca/Sólo unas pocas veces/Algunas veces	3 (10.0%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):		30
La mayoría de las veces/Siempre	23 (76.7%)
Nunca/Sólo unas pocas veces/Algunas veces	7 (23.3%)
Suma ítems Exigencias Psicológicas ISTAS21	6.00 [4.00;7.75]	30
Suma ítems Calidad Relación con Superiores ISTAS21	9.00 [7.25;10.0]	30
Suma ítems Conflicto de Rol ISTAS21	4.00 [2.00;4.00]	30
Suma ítems Relación con Compañeros de Trabajo ISTAS21	6.00 [6.00;7.00]	30
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):		30
Apenas cierto/Incorrecto	3 (10.0%)
Más bien cierto/Cierto	27 (90.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):		30
Apenas cierto/Incorrecto	3 (10.0%)
Más bien cierto/Cierto	27 (90.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 (Dicotomizada):		30
Apenas cierto/Incorrecto	3 (10.0%)
Más bien cierto/Cierto	27 (90.0%)
Suma puntajes de resilencia	9.00 [7.00;9.00]	30
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:		43
Sólo unas pocas <br>veces	7 (16.3%)
Algunas veces	14 (32.6%)
La mayoría de las veces	14 (32.6%)
Siempre	8 (18.6%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:		43
Sólo unas pocas <br>veces	10 (23.3%)
Algunas veces	12 (27.9%)
La mayoría de las veces	16 (37.2%)
Siempre	5 (11.6%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:		43
Nunca	1 (2.33%)
Sólo unas pocas <br>veces	12 (27.9%)
Algunas veces	14 (32.6%)
La mayoría de las veces	12 (27.9%)
Siempre	4 (9.30%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:		43
Nunca	4 (9.30%)
Sólo unas pocas <br>veces	16 (37.2%)
Algunas veces	11 (25.6%)
La mayoría de las veces	8 (18.6%)
Siempre	4 (9.30%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:		43
Nunca	3 (6.98%)
Sólo unas pocas <br>veces	12 (27.9%)
Algunas veces	11 (25.6%)
La mayoría de las veces	9 (20.9%)
Siempre	8 (18.6%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:		43
Nunca	7 (16.3%)
Sólo unas pocas <br>veces	11 (25.6%)
Algunas veces	9 (20.9%)
La mayoría de las veces	10 (23.3%)
Siempre	6 (14.0%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.:		43
Nada	12 (27.9%)
Un poco	9 (20.9%)
Regular	8 (18.6%)
Bastante	12 (27.9%)
Mucho	2 (4.65%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.:		43
Nada	9 (20.9%)
Un poco	11 (25.6%)
Regular	7 (16.3%)
Bastante	13 (30.2%)
Mucho	3 (6.98%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:		43
Nada	15 (34.9%)
Un poco	11 (25.6%)
Regular	7 (16.3%)
Bastante	8 (18.6%)
Mucho	2 (4.65%)
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.:		41
Nunca	7 (17.1%)
Algunos días	13 (31.7%)
Más de la mitad de los días	15 (36.6%)
Casi todos los días	6 (14.6%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:		41
Nunca	7 (17.1%)
Algunos días	10 (24.4%)
Más de la mitad de los días	16 (39.0%)
Casi todos los días	8 (19.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.:		41
Nunca	6 (14.6%)
Algunos días	18 (43.9%)
Más de la mitad de los días	11 (26.8%)
Casi todos los días	6 (14.6%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado.:		41
Nunca	7 (17.1%)
Algunos días	21 (51.2%)
Más de la mitad de los días	6 (14.6%)
Casi todos los días	7 (17.1%)
¿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?:		40
Ninguno	18 (45.0%)
1 a 10	21 (52.5%)
11 a 30	1 (2.50%)
¿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?:		40
Ninguno	16 (40.0%)
Sólo uno	7 (17.5%)
2 a 10	17 (42.5%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:		40
Trabajo en contacto directo con pacientes	8 (20.0%)
Trabajo a menos de dos metros de pacientes	1 (2.50%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia)	1 (2.50%)
Trabajo en el mismo piso/sala/departamento	3 (7.50%)
Como parte de mi trabajo visito un piso/sala/departamento	7 (17.5%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	14 (35.0%)
Ninguno que yo esté en conocimiento	6 (15.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 han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.:		40
0	21 (52.5%)
1	19 (47.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.:		40
0	33 (82.5%)
1	7 (17.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.:		40
0	29 (72.5%)
1	11 (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) | Experimentó síntomas similares a los de COVID-19.:		40
0	24 (60.0%)
1	16 (40.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.:		40
0	39 (97.5%)
1	1 (2.50%)
¿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.:		40
0	32 (80.0%)
1	8 (20.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.:		40
0	35 (87.5%)
1	5 (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) | Se hizo el examen para descartar COVID-19.:		40
0	26 (65.0%)
1	14 (35.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.:		40
0	38 (95.0%)
1	2 (5.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).:		40
0	35 (87.5%)
1	5 (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.:		40
FALSE	28 (70.0%)
TRUE	12 (30.0%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:		40
Nada	2 (5.00%)
Un poco	9 (22.5%)
Bastante	6 (15.0%)
Mucho	21 (52.5%)
No aplica	2 (5.00%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:		40
1 (Poco o nada)	4 (10.0%)
2	2 (5.00%)
3	2 (5.00%)
4	4 (10.0%)
5	7 (17.5%)
6	3 (7.50%)
7	9 (22.5%)
8	4 (10.0%)
9	3 (7.50%)
10 (Tanto miedo como nunca he sentido)	2 (5.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:		37
FALSE	17 (45.9%)
TRUE	20 (54.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):		37
FALSE	19 (51.4%)
TRUE	18 (48.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:		37
FALSE	20 (54.1%)
TRUE	17 (45.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:		37
FALSE	34 (91.9%)
TRUE	3 (8.11%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:		37
FALSE	4 (10.8%)
TRUE	33 (89.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:		37
FALSE	9 (24.3%)
TRUE	28 (75.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:		37
FALSE	14 (37.8%)
TRUE	23 (62.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	37 (100%)	37
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:		37
FALSE	18 (48.6%)
TRUE	19 (51.4%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:		37
FALSE	19 (51.4%)
TRUE	18 (48.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:		37
FALSE	30 (81.1%)
TRUE	7 (18.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	37 (100%)	37
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.:		37
Suficiente	22 (59.5%)
Insuficiente	6 (16.2%)
No Aplica	9 (24.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.:		37
Suficiente	10 (27.0%)
Insuficiente	13 (35.1%)
No Aplica	14 (37.8%)
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.:		37
Suficiente	19 (51.4%)
Insuficiente	10 (27.0%)
No Aplica	8 (21.6%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.:		37
Suficiente	5 (13.5%)
Insuficiente	7 (18.9%)
No Aplica	25 (67.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.:		37
Suficiente	33 (89.2%)
Insuficiente	4 (10.8%)
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.:		37
Suficiente	34 (91.9%)
Insuficiente	3 (8.11%)
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.:		37
Suficiente	16 (43.2%)
Insuficiente	13 (35.1%)
No Aplica	8 (21.6%)
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.:		37
Suficiente	4 (10.8%)
Insuficiente	6 (16.2%)
No Aplica	27 (73.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.:		37
Suficiente	19 (51.4%)
Insuficiente	4 (10.8%)
No Aplica	14 (37.8%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cofia.:		37
Suficiente	13 (35.1%)
Insuficiente	6 (16.2%)
No Aplica	18 (48.6%)
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.:		37
Suficiente	7 (18.9%)
Insuficiente	9 (24.3%)
No Aplica	21 (56.8%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:		37
Sí, en el último mes	2 (5.41%)
Sí, en los últimos 6 meses	10 (27.0%)
Sí, el año pasado	12 (32.4%)
Sí, hace 1-2 años	2 (5.41%)
Sí, hace más de 5 años	2 (5.41%)
No he sido capacitado	9 (24.3%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:		28
Excelente	4 (14.3%)
Buena	14 (50.0%)
Regular	8 (28.6%)
Mala	2 (7.14%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:		37
Nada	1 (2.70%)
Poco	2 (5.41%)
Algo	4 (10.8%)
Bastante	17 (45.9%)
Totalmente	9 (24.3%)
No aplica	4 (10.8%)
¿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.:		37
0	33 (89.2%)
1	4 (10.8%)
¿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.:		37
0	25 (67.6%)
1	12 (32.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.:		37
0	32 (86.5%)
1	5 (13.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 EPP’s utilizados previamente por otros.:		37
0	34 (91.9%)
1	3 (8.11%)
¿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:		37
FALSE	29 (78.4%)
TRUE	8 (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) | Otro (especifique).:		4
existe protocolo de qué EPP aplican a cada función, no me representa ninguna de las opciones	1 (25.0%)
Hay quiebre de stock y se nos pide prudencia en el uso	1 (25.0%)
Mascarilla n95, en diciembre recién se nos entregó. Siendo que trabajamos directamente con pacientes y atencion de publico en general	1 (25.0%)
uso racional de EPP	1 (25.0%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:		37
Poco	1 (2.70%)
Algo	5 (13.5%)
Bastante	20 (54.1%)
Totalmente	8 (21.6%)
No aplica	3 (8.11%)
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::		37
Negarme a trabajar no es una opción legalmente disponible para mí	4 (10.8%)
Definitivamente, no es posible negarme a trabajar	6 (16.2%)
Es improbable que pueda negarme a trabajar	2 (5.41%)
Quizás, en una situación extrema podría negarme a trabajar	7 (18.9%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	12 (32.4%)
Definitivamente, no dudaría en negarme a trabajar	6 (16.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.:		35
Apropiadas y bien implementadas	15 (42.9%)
Apropiadas pero mal implementadas	9 (25.7%)
Inapropiadas	3 (8.57%)
Deficientes	6 (17.1%)
No aplica	2 (5.71%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.:		35
Apropiadas y bien implementadas	21 (60.0%)
Apropiadas pero mal implementadas	4 (11.4%)
Inapropiadas	3 (8.57%)
Deficientes	3 (8.57%)
No sabe	2 (5.71%)
No aplica	2 (5.71%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.:		35
Apropiadas y bien implementadas	19 (54.3%)
Apropiadas pero mal implementadas	6 (17.1%)
Inapropiadas	3 (8.57%)
Deficientes	3 (8.57%)
No sabe	1 (2.86%)
No aplica	3 (8.57%)
¿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.:		35
Apropiadas y bien implementadas	17 (48.6%)
Apropiadas pero mal implementadas	9 (25.7%)
Inapropiadas	3 (8.57%)
Deficientes	3 (8.57%)
No sabe	1 (2.86%)
No aplica	2 (5.71%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:		35
Apropiadas y bien implementadas	7 (20.0%)
Apropiadas pero mal implementadas	4 (11.4%)
Inapropiadas	9 (25.7%)
Deficientes	8 (22.9%)
No sabe	3 (8.57%)
No aplica	4 (11.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:		35
Apropiadas y bien implementadas	14 (40.0%)
Apropiadas pero mal implementadas	2 (5.71%)
Inapropiadas	7 (20.0%)
Deficientes	5 (14.3%)
No sabe	3 (8.57%)
No aplica	4 (11.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.:		35
Apropiadas y bien implementadas	5 (14.3%)
Apropiadas pero mal implementadas	1 (2.86%)
Inapropiadas	8 (22.9%)
Deficientes	13 (37.1%)
No sabe	6 (17.1%)
No aplica	2 (5.71%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:		35
Apropiadas y bien implementadas	12 (34.3%)
Apropiadas pero mal implementadas	4 (11.4%)
Inapropiadas	7 (20.0%)
Deficientes	4 (11.4%)
No sabe	5 (14.3%)
No aplica	3 (8.57%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:		35
Apropiadas y bien implementadas	14 (40.0%)
Apropiadas pero mal implementadas	5 (14.3%)
Inapropiadas	4 (11.4%)
Deficientes	2 (5.71%)
No sabe	7 (20.0%)
No aplica	3 (8.57%)
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.:		31
Totalmente de acuerdo	7 (22.6%)
De acuerdo	10 (32.3%)
Ni de acuerdo ni en desacuerdo	10 (32.3%)
En desacuerdo	4 (12.9%)
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.:		31
Totalmente de acuerdo	6 (19.4%)
De acuerdo	13 (41.9%)
Ni de acuerdo ni en desacuerdo	6 (19.4%)
En desacuerdo	5 (16.1%)
Totalmente en desacuerdo	1 (3.23%)
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.:		31
Totalmente de acuerdo	2 (6.45%)
De acuerdo	8 (25.8%)
Ni de acuerdo ni en desacuerdo	4 (12.9%)
En desacuerdo	13 (41.9%)
Totalmente en desacuerdo	4 (12.9%)
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.:		31
Totalmente de acuerdo	2 (6.45%)
De acuerdo	7 (22.6%)
Ni de acuerdo ni en desacuerdo	13 (41.9%)
En desacuerdo	7 (22.6%)
Totalmente en desacuerdo	2 (6.45%)
¿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?:		30
Mantengo las mismas labores	26 (86.7%)
Mantengo las mismas labores, pero en un lugar físico distinto	2 (6.67%)
Distintas labores, pero en la misma área	1 (3.33%)
Distintas labores, pero en el mismo lugar físico	1 (3.33%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?:		30
Excelente	1 (3.33%)
Buena	9 (30.0%)
Regular	15 (50.0%)
Mala	5 (16.7%)
¿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”.:		30
Totalmente de acuerdo	7 (23.3%)
De acuerdo	11 (36.7%)
Neutral	9 (30.0%)
En desacuerdo	2 (6.67%)
Totalmente en desacuerdo	1 (3.33%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:		30
Siempre	12 (40.0%)
La mayoría <br>de las veces	8 (26.7%)
Algunas veces	6 (20.0%)
Sólo unas <br>pocas veces	3 (10.0%)
Nunca	1 (3.33%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:		30
Siempre	10 (33.3%)
La mayoría <br>de las veces	7 (23.3%)
Algunas veces	9 (30.0%)
Sólo unas <br>pocas veces	4 (13.3%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:		30
Siempre	2 (6.67%)
La mayoría <br>de las veces	15 (50.0%)
Algunas veces	11 (36.7%)
Sólo unas <br>pocas veces	2 (6.67%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:		30
La mayoría <br>de las veces	1 (3.33%)
Algunas veces	15 (50.0%)
Sólo unas <br>pocas veces	6 (20.0%)
Nunca	8 (26.7%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:		30
Siempre	1 (3.33%)
La mayoría <br>de las veces	7 (23.3%)
Algunas veces	16 (53.3%)
Sólo unas <br>pocas veces	5 (16.7%)
Nunca	1 (3.33%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:		30
Siempre	12 (40.0%)
La mayoría <br>de las veces	12 (40.0%)
Algunas veces	3 (10.0%)
Sólo unas <br>pocas veces	2 (6.67%)
Nunca	1 (3.33%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:		30
Siempre	8 (26.7%)
La mayoría <br>de las veces	12 (40.0%)
Algunas veces	6 (20.0%)
Sólo unas <br>pocas veces	1 (3.33%)
Nunca	3 (10.0%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:		30
Siempre	12 (40.0%)
La mayoría <br>de las veces	13 (43.3%)
Algunas veces	5 (16.7%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:		30
Siempre	7 (23.3%)
La mayoría <br>de las veces	20 (66.7%)
Algunas veces	2 (6.67%)
Sólo unas <br>pocas veces	1 (3.33%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:		30
Siempre	13 (43.3%)
La mayoría <br>de las veces	10 (33.3%)
Algunas veces	4 (13.3%)
Sólo unas <br>pocas veces	2 (6.67%)
Nunca	1 (3.33%)
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.:		30
Incorrecto	1 (3.33%)
Apenas cierto	2 (6.67%)
Más bien cierto	6 (20.0%)
Cierto	21 (70.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.:		30
Incorrecto	1 (3.33%)
Apenas cierto	2 (6.67%)
Más bien cierto	8 (26.7%)
Cierto	19 (63.3%)
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.:		30
Incorrecto	1 (3.33%)
Apenas cierto	2 (6.67%)
Más bien cierto	6 (20.0%)
Cierto	21 (70.0%)
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 Instituto Nacional del Cáncer 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 Instituto Nacional del Cáncer por Sexo

Variables	Hombres	Mujeres	Sig.
	N=3	N=27
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):			0.759
1	1 (33.3%)	9 (33.3%)
2	0 (0.00%)	9 (33.3%)
3	2 (66.7%)	9 (33.3%)
Estrés Postraumático (4° Cuartil):			0.562
Ausencia de Indicadores de Estrés Post-traumático	3 (100%)	20 (74.1%)
Indicadores de Estrés Post-traumático	0 (0.00%)	7 (25.9%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	400 [325;475]	325 [225;450]	0.425
Ptjes. Estrés Postraumático	6.00 [3.00;6.50]	3.00 [2.00;8.00]	0.702
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):			0.550
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	2 (66.7%)	10 (37.0%)
Cuartiles 1 a 3	1 (33.3%)	17 (63.0%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):			0.583
Cuartil de mayor ptje. Estrés Postraumático	2 (66.7%)	12 (44.4%)
Cuartiles 1 a 3	1 (33.3%)	15 (55.6%)
Sintomatología ansiosa:			0.563
Ausencia de Indicadores de Sintomatología Ansiosa	2 (66.7%)	11 (40.7%)
Indicadores de Sintomatología Ansiosa	1 (33.3%)	16 (59.3%)
Sintomatología depresiva:			0.583
Ausencia de Indicadores de Sintomatología Depresiva	1 (33.3%)	15 (55.6%)
Indicadores de Sintomatología Depresiva	2 (66.7%)	12 (44.4%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):			1.000
Contacto directo y estrecho con pacientes (menos de dos metros)	1 (33.3%)	5 (18.5%)
Menor o ningún contacto con pacientes	2 (66.7%)	22 (81.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):			0.316
1	0 (0.00%)	3 (18.8%)
2	0 (0.00%)	5 (31.2%)
3	0 (0.00%)	3 (18.8%)
Más de 3	2 (100%)	5 (31.2%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):			0.534
Bastante/Mucho	3 (100%)	18 (66.7%)
Un poco/Nada/No aplica	0 (0.00%)	9 (33.3%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):			0.230
Predomina el miedo	0 (0.00%)	13 (48.1%)
Predomina la ausencia de miedo	3 (100%)	14 (51.9%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):			1.000
Ha sido capacitado	2 (66.7%)	21 (77.8%)
No ha sido capacitado	1 (33.3%)	6 (22.2%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada):			1.000
Mala	0 (0.00%)	1 (4.76%)
Regular a Excelente	2 (100%)	20 (95.2%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):			1.000
Nada/Poco/Algo/No aplica	1 (33.3%)	7 (25.9%)
Totalmente/Bastante	2 (66.7%)	20 (74.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):			0.502
1	1 (50.0%)	14 (73.7%)
2	0 (0.00%)	2 (10.5%)
3	1 (50.0%)	2 (10.5%)
Más de 3	0 (0.00%)	1 (5.26%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:			1.000
Empleador se ha rehusado a dar cierto tipo de EPP	0 (0.00%)	3 (11.1%)
No se constata esta situación	3 (100%)	24 (88.9%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): Algo/Bastante/Totalente/No aplica	3 (100%)	27 (100%)	.
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.249
Incapacidad para negarse a trabajo inseguro	0 (0.00%)	12 (44.4%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	3 (100%)	15 (55.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	2 (66.7%)	20 (74.1%)
Inapropiadas/Deficientes	1 (33.3%)	7 (25.9%)
¿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	3 (100%)	22 (81.5%)
Inapropiadas/Deficientes	0 (0.00%)	5 (18.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	2 (66.7%)	23 (85.2%)
Inapropiadas/Deficientes	1 (33.3%)	4 (14.8%)
¿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	3 (100%)	22 (81.5%)
Inapropiadas/Deficientes	0 (0.00%)	5 (18.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):			0.096
Apropiadas/No sabe/No aplica	0 (0.00%)	16 (59.3%)
Inapropiadas/Deficientes	3 (100%)	11 (40.7%)
¿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.531
Apropiadas/No sabe/No aplica	1 (33.3%)	19 (70.4%)
Inapropiadas/Deficientes	2 (66.7%)	8 (29.6%)
¿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.230
Apropiadas/No sabe/No aplica	0 (0.00%)	13 (48.1%)
Inapropiadas/Deficientes	3 (100%)	14 (51.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):			0.531
Apropiadas/No sabe/No aplica	1 (33.3%)	19 (70.4%)
Inapropiadas/Deficientes	2 (66.7%)	8 (29.6%)
¿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	3 (100%)	22 (81.5%)
Inapropiadas/Deficientes	0 (0.00%)	5 (18.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):			1.000
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	4 (14.8%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	3 (100%)	23 (85.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? | Empleador (Dicotomizada):			1.000
Desacuerdo/Totalmente en desacuerdo	1 (33.3%)	5 (18.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	2 (66.7%)	22 (81.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.583
Desacuerdo/Totalmente en desacuerdo	1 (33.3%)	15 (55.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	2 (66.7%)	12 (44.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):			1.000
Desacuerdo/Totalmente en desacuerdo	1 (33.3%)	8 (29.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	2 (66.7%)	19 (70.4%)
¿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	0 (0.00%)	4 (14.8%)
Mantiene las mismas labores en la misma área	3 (100%)	23 (85.2%)
¿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	3 (100%)	22 (81.5%)
Mala	0 (0.00%)	5 (18.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):			0.550
De acuerdo/Totalmente de acuerdo	1 (33.3%)	17 (63.0%)
Neutral/En desacuerdo/Totalmente en desacuerdo	2 (66.7%)	10 (37.0%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):			0.531
La mayoría de las veces/Siempre	3 (100%)	17 (63.0%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	10 (37.0%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):			0.245
La mayoría de las veces/Siempre	3 (100%)	14 (51.9%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	13 (48.1%)
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	2 (66.7%)	15 (55.6%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (33.3%)	12 (44.4%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	0 (0.00%)	1 (3.70%)
Nunca/Sólo unas pocas veces/Algunas veces	3 (100%)	26 (96.3%)
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 (33.3%)	7 (25.9%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (66.7%)	20 (74.1%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):			0.589
La mayoría de las veces/Siempre	3 (100%)	21 (77.8%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	6 (22.2%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	2 (66.7%)	18 (66.7%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (33.3%)	9 (33.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	3 (100%)	22 (81.5%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	5 (18.5%)
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	3 (100%)	24 (88.9%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	3 (11.1%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):			0.562
La mayoría de las veces/Siempre	3 (100%)	20 (74.1%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	7 (25.9%)
Suma ítems Exigencias Psicológicas ISTAS21	8.00 [7.50;8.00]	6.00 [4.00;7.00]	0.063
Suma ítems Calidad Relación con Superiores ISTAS21	9.00 [8.50;10.0]	9.00 [6.50;10.0]	0.598
Suma ítems Conflicto de Rol ISTAS21	4.00 [2.00;4.50]	4.00 [2.00;4.00]	1.000
Suma ítems Relación con Compañeros de Trabajo ISTAS21	6.00 [6.00;6.50]	6.00 [6.00;7.50]	0.971
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.270
Apenas cierto/Incorrecto	1 (33.3%)	2 (7.41%)
Más bien cierto/Cierto	2 (66.7%)	25 (92.6%)
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.270
Apenas cierto/Incorrecto	1 (33.3%)	2 (7.41%)
Más bien cierto/Cierto	2 (66.7%)	25 (92.6%)
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.270
Apenas cierto/Incorrecto	1 (33.3%)	2 (7.41%)
Más bien cierto/Cierto	2 (66.7%)	25 (92.6%)
Suma puntajes de resilencia	9.00 [6.00;9.00]	9.00 [7.00;9.00]	1.000
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:			1.000
Sólo unas pocas <br>veces	0 (0.00%)	3 (11.1%)
Algunas veces	1 (33.3%)	9 (33.3%)
La mayoría de las veces	1 (33.3%)	11 (40.7%)
Siempre	1 (33.3%)	4 (14.8%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:			0.667
Sólo unas pocas <br>veces	0 (0.00%)	6 (22.2%)
Algunas veces	2 (66.7%)	8 (29.6%)
La mayoría de las veces	1 (33.3%)	11 (40.7%)
Siempre	0 (0.00%)	2 (7.41%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:			0.307
Nunca	0 (0.00%)	1 (3.70%)
Sólo unas pocas <br>veces	1 (33.3%)	6 (22.2%)
Algunas veces	0 (0.00%)	9 (33.3%)
La mayoría de las veces	1 (33.3%)	10 (37.0%)
Siempre	1 (33.3%)	1 (3.70%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:			0.168
Nunca	1 (33.3%)	2 (7.41%)
Sólo unas pocas <br>veces	0 (0.00%)	8 (29.6%)
Algunas veces	0 (0.00%)	10 (37.0%)
La mayoría de las veces	1 (33.3%)	5 (18.5%)
Siempre	1 (33.3%)	2 (7.41%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:			0.366
Nunca	0 (0.00%)	1 (3.70%)
Sólo unas pocas <br>veces	0 (0.00%)	10 (37.0%)
Algunas veces	0 (0.00%)	5 (18.5%)
La mayoría de las veces	2 (66.7%)	6 (22.2%)
Siempre	1 (33.3%)	5 (18.5%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:			0.788
Nunca	0 (0.00%)	4 (14.8%)
Sólo unas pocas <br>veces	1 (33.3%)	8 (29.6%)
Algunas veces	1 (33.3%)	4 (14.8%)
La mayoría de las veces	0 (0.00%)	7 (25.9%)
Siempre	1 (33.3%)	4 (14.8%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.:			1.000
Nada	1 (33.3%)	8 (29.6%)
Un poco	0 (0.00%)	5 (18.5%)
Regular	1 (33.3%)	4 (14.8%)
Bastante	1 (33.3%)	8 (29.6%)
Mucho	0 (0.00%)	2 (7.41%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.:			0.505
Nada	1 (33.3%)	5 (18.5%)
Un poco	0 (0.00%)	10 (37.0%)
Regular	1 (33.3%)	2 (7.41%)
Bastante	1 (33.3%)	8 (29.6%)
Mucho	0 (0.00%)	2 (7.41%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:			1.000
Nada	1 (33.3%)	10 (37.0%)
Un poco	1 (33.3%)	6 (22.2%)
Regular	1 (33.3%)	4 (14.8%)
Bastante	0 (0.00%)	5 (18.5%)
Mucho	0 (0.00%)	2 (7.41%)
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.874
Nunca	1 (33.3%)	3 (11.1%)
Algunos días	1 (33.3%)	10 (37.0%)
Más de la mitad de los días	1 (33.3%)	9 (33.3%)
Casi todos los días	0 (0.00%)	5 (18.5%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:			0.858
Nunca	1 (33.3%)	4 (14.8%)
Algunos días	1 (33.3%)	7 (25.9%)
Más de la mitad de los días	1 (33.3%)	9 (33.3%)
Casi todos los días	0 (0.00%)	7 (25.9%)
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.558
Nunca	0 (0.00%)	5 (18.5%)
Algunos días	1 (33.3%)	10 (37.0%)
Más de la mitad de los días	1 (33.3%)	10 (37.0%)
Casi todos los días	1 (33.3%)	2 (7.41%)
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.221
Nunca	0 (0.00%)	5 (18.5%)
Algunos días	1 (33.3%)	16 (59.3%)
Más de la mitad de los días	1 (33.3%)	3 (11.1%)
Casi todos los días	1 (33.3%)	3 (11.1%)
¿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.249
Ninguno	0 (0.00%)	12 (44.4%)
1 a 10	3 (100%)	15 (55.6%)
¿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.154
Ninguno	2 (66.7%)	7 (25.9%)
Sólo uno	1 (33.3%)	5 (18.5%)
2 a 10	0 (0.00%)	15 (55.6%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:			1.000
Trabajo en contacto directo con pacientes	1 (33.3%)	5 (18.5%)
Trabajo en el mismo piso/sala/departamento	0 (0.00%)	2 (7.41%)
Como parte de mi trabajo visito un piso/sala/departamento	1 (33.3%)	5 (18.5%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	1 (33.3%)	11 (40.7%)
Ninguno que yo esté en conocimiento	0 (0.00%)	4 (14.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 han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.:			0.550
0	1 (33.3%)	17 (63.0%)
1	2 (66.7%)	10 (37.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 han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.:			0.270
0	2 (66.7%)	25 (92.6%)
1	1 (33.3%)	2 (7.41%)
¿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.160
0	1 (33.3%)	21 (77.8%)
1	2 (66.7%)	6 (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.:			1.000
0	2 (66.7%)	18 (66.7%)
1	1 (33.3%)	9 (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 solicitaron que trabajara a pesar de los síntomas.:			1.000
0	3 (100%)	26 (96.3%)
1	0 (0.00%)	1 (3.70%)
¿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.562
0	3 (100%)	20 (74.1%)
1	0 (0.00%)	7 (25.9%)
¿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	3 (100%)	25 (92.6%)
1	0 (0.00%)	2 (7.41%)
¿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.201
0	1 (33.3%)	20 (74.1%)
1	2 (66.7%)	7 (25.9%)
¿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	3 (100%)	27 (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) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:			1.000
0	3 (100%)	23 (85.2%)
1	0 (0.00%)	4 (14.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) | Ninguna de las anteriores.:			1.000
FALSE	2 (66.7%)	16 (59.3%)
TRUE	1 (33.3%)	11 (40.7%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:			0.671
Un poco	0 (0.00%)	7 (25.9%)
Bastante	1 (33.3%)	5 (18.5%)
Mucho	2 (66.7%)	13 (48.1%)
No aplica	0 (0.00%)	2 (7.41%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:			0.704
1 (Poco o nada)	1 (33.3%)	1 (3.70%)
2	0 (0.00%)	2 (7.41%)
3	0 (0.00%)	2 (7.41%)
4	1 (33.3%)	3 (11.1%)
5	1 (33.3%)	6 (22.2%)
6	0 (0.00%)	2 (7.41%)
7	0 (0.00%)	5 (18.5%)
8	0 (0.00%)	3 (11.1%)
9	0 (0.00%)	3 (11.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:			0.215
FALSE	0 (0.00%)	15 (55.6%)
TRUE	3 (100%)	12 (44.4%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):			0.563
FALSE	1 (33.3%)	16 (59.3%)
TRUE	2 (66.7%)	11 (40.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:			0.096
FALSE	0 (0.00%)	16 (59.3%)
TRUE	3 (100%)	11 (40.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:			0.270
FALSE	2 (66.7%)	25 (92.6%)
TRUE	1 (33.3%)	2 (7.41%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:			1.000
FALSE	0 (0.00%)	3 (11.1%)
TRUE	3 (100%)	24 (88.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:			1.000
FALSE	1 (33.3%)	7 (25.9%)
TRUE	2 (66.7%)	20 (74.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:			1.000
FALSE	1 (33.3%)	10 (37.0%)
TRUE	2 (66.7%)	17 (63.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	3 (100%)	27 (100%)	.
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:			0.563
FALSE	1 (33.3%)	16 (59.3%)
TRUE	2 (66.7%)	11 (40.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:			0.096
FALSE	0 (0.00%)	16 (59.3%)
TRUE	3 (100%)	11 (40.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:			1.000
FALSE	2 (66.7%)	23 (85.2%)
TRUE	1 (33.3%)	4 (14.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	3 (100%)	27 (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.302
Suficiente	2 (66.7%)	17 (63.0%)
Insuficiente	1 (33.3%)	2 (7.41%)
No Aplica	0 (0.00%)	8 (29.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 de ojos.:			0.025
Suficiente	0 (0.00%)	7 (25.9%)
Insuficiente	3 (100%)	6 (22.2%)
No Aplica	0 (0.00%)	14 (51.9%)
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.809
Suficiente	2 (66.7%)	14 (51.9%)
Insuficiente	1 (33.3%)	6 (22.2%)
No Aplica	0 (0.00%)	7 (25.9%)
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.103
Suficiente	0 (0.00%)	4 (14.8%)
Insuficiente	2 (66.7%)	3 (11.1%)
No Aplica	1 (33.3%)	20 (74.1%)
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	3 (100%)	25 (92.6%)
Insuficiente	0 (0.00%)	2 (7.41%)
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.:			1.000
Suficiente	3 (100%)	25 (92.6%)
Insuficiente	0 (0.00%)	2 (7.41%)
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.594
Suficiente	2 (66.7%)	11 (40.7%)
Insuficiente	0 (0.00%)	9 (33.3%)
No Aplica	1 (33.3%)	7 (25.9%)
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.:			1.000
Suficiente	0 (0.00%)	3 (11.1%)
Insuficiente	0 (0.00%)	4 (14.8%)
No Aplica	3 (100%)	20 (74.1%)
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.344
Suficiente	3 (100%)	13 (48.1%)
Insuficiente	0 (0.00%)	3 (11.1%)
No Aplica	0 (0.00%)	11 (40.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.551
Suficiente	2 (66.7%)	8 (29.6%)
Insuficiente	0 (0.00%)	5 (18.5%)
No Aplica	1 (33.3%)	14 (51.9%)
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.536
Suficiente	1 (33.3%)	4 (14.8%)
Insuficiente	1 (33.3%)	5 (18.5%)
No Aplica	1 (33.3%)	18 (66.7%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:			1.000
Sí, en el último mes	0 (0.00%)	2 (7.41%)
Sí, en los últimos 6 meses	1 (33.3%)	7 (25.9%)
Sí, el año pasado	1 (33.3%)	8 (29.6%)
Sí, hace 1-2 años	0 (0.00%)	2 (7.41%)
Sí, hace más de 5 años	0 (0.00%)	2 (7.41%)
No he sido capacitado	1 (33.3%)	6 (22.2%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:			0.338
Excelente	0 (0.00%)	2 (9.52%)
Buena	0 (0.00%)	13 (61.9%)
Regular	2 (100%)	5 (23.8%)
Mala	0 (0.00%)	1 (4.76%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:			0.188
Nada	0 (0.00%)	1 (3.70%)
Poco	1 (33.3%)	0 (0.00%)
Algo	0 (0.00%)	3 (11.1%)
Bastante	2 (66.7%)	13 (48.1%)
Totalmente	0 (0.00%)	7 (25.9%)
No aplica	0 (0.00%)	3 (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) | Mi empleador se ha rehusado a dar cierto tipo de EPP.:			1.000
0	3 (100%)	24 (88.9%)
1	0 (0.00%)	3 (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) | Necesito permiso para utilizar algún EPP específico.:			1.000
0	2 (66.7%)	19 (70.4%)
1	1 (33.3%)	8 (29.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	2 (66.7%)	23 (85.2%)
1	1 (33.3%)	4 (14.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 se me permite reutilizar EPP’s utilizados previamente por otros.:			0.270
0	2 (66.7%)	25 (92.6%)
1	1 (33.3%)	2 (7.41%)
¿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:			1.000
FALSE	2 (66.7%)	21 (77.8%)
TRUE	1 (33.3%)	6 (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).:			.
existe protocolo de qué EPP aplican a cada función, no me representa ninguna de las opciones	0 (.%)	1 (33.3%)
Hay quiebre de stock y se nos pide prudencia en el uso	0 (.%)	1 (33.3%)
Mascarilla n95, en diciembre recién se nos entregó. Siendo que trabajamos directamente con pacientes y atencion de publico en general	0 (.%)	1 (33.3%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:			0.602
Algo	0 (0.00%)	3 (11.1%)
Bastante	1 (33.3%)	16 (59.3%)
Totalmente	1 (33.3%)	6 (22.2%)
No aplica	1 (33.3%)	2 (7.41%)
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.852
Negarme a trabajar no es una opción legalmente disponible para mí	0 (0.00%)	3 (11.1%)
Definitivamente, no es posible negarme a trabajar	0 (0.00%)	4 (14.8%)
Es improbable que pueda negarme a trabajar	0 (0.00%)	1 (3.70%)
Quizás, en una situación extrema podría negarme a trabajar	1 (33.3%)	6 (22.2%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	2 (66.7%)	9 (33.3%)
Definitivamente, no dudaría en negarme a trabajar	0 (0.00%)	4 (14.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.259
Apropiadas y bien implementadas	0 (0.00%)	13 (48.1%)
Apropiadas pero mal implementadas	2 (66.7%)	5 (18.5%)
Inapropiadas	0 (0.00%)	3 (11.1%)
Deficientes	1 (33.3%)	4 (14.8%)
No aplica	0 (0.00%)	2 (7.41%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.:			0.853
Apropiadas y bien implementadas	3 (100%)	15 (55.6%)
Apropiadas pero mal implementadas	0 (0.00%)	4 (14.8%)
Inapropiadas	0 (0.00%)	3 (11.1%)
Deficientes	0 (0.00%)	2 (7.41%)
No sabe	0 (0.00%)	1 (3.70%)
No aplica	0 (0.00%)	2 (7.41%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.:			0.096
Apropiadas y bien implementadas	0 (0.00%)	17 (63.0%)
Apropiadas pero mal implementadas	2 (66.7%)	3 (11.1%)
Inapropiadas	1 (33.3%)	1 (3.70%)
Deficientes	0 (0.00%)	3 (11.1%)
No sabe	0 (0.00%)	1 (3.70%)
No aplica	0 (0.00%)	2 (7.41%)
¿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.717
Apropiadas y bien implementadas	1 (33.3%)	14 (51.9%)
Apropiadas pero mal implementadas	2 (66.7%)	6 (22.2%)
Inapropiadas	0 (0.00%)	2 (7.41%)
Deficientes	0 (0.00%)	3 (11.1%)
No sabe	0 (0.00%)	1 (3.70%)
No aplica	0 (0.00%)	1 (3.70%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:			0.550
Apropiadas y bien implementadas	0 (0.00%)	5 (18.5%)
Apropiadas pero mal implementadas	0 (0.00%)	4 (14.8%)
Inapropiadas	1 (33.3%)	6 (22.2%)
Deficientes	2 (66.7%)	5 (18.5%)
No sabe	0 (0.00%)	3 (11.1%)
No aplica	0 (0.00%)	4 (14.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:			1.000
Apropiadas y bien implementadas	1 (33.3%)	11 (40.7%)
Apropiadas pero mal implementadas	0 (0.00%)	2 (7.41%)
Inapropiadas	1 (33.3%)	4 (14.8%)
Deficientes	1 (33.3%)	4 (14.8%)
No sabe	0 (0.00%)	3 (11.1%)
No aplica	0 (0.00%)	3 (11.1%)
¿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.350
Apropiadas y bien implementadas	0 (0.00%)	4 (14.8%)
Apropiadas pero mal implementadas	0 (0.00%)	1 (3.70%)
Inapropiadas	0 (0.00%)	6 (22.2%)
Deficientes	3 (100%)	8 (29.6%)
No sabe	0 (0.00%)	6 (22.2%)
No aplica	0 (0.00%)	2 (7.41%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:			0.919
Apropiadas y bien implementadas	1 (33.3%)	10 (37.0%)
Apropiadas pero mal implementadas	0 (0.00%)	2 (7.41%)
Inapropiadas	1 (33.3%)	5 (18.5%)
Deficientes	1 (33.3%)	3 (11.1%)
No sabe	0 (0.00%)	5 (18.5%)
No aplica	0 (0.00%)	2 (7.41%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:			1.000
Apropiadas y bien implementadas	1 (33.3%)	11 (40.7%)
Apropiadas pero mal implementadas	1 (33.3%)	3 (11.1%)
Inapropiadas	0 (0.00%)	3 (11.1%)
Deficientes	0 (0.00%)	2 (7.41%)
No sabe	1 (33.3%)	6 (22.2%)
No aplica	0 (0.00%)	2 (7.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.:			0.519
Totalmente de acuerdo	1 (33.3%)	6 (22.2%)
De acuerdo	0 (0.00%)	9 (33.3%)
Ni de acuerdo ni en desacuerdo	2 (66.7%)	8 (29.6%)
En desacuerdo	0 (0.00%)	4 (14.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”? | Empleador.:			0.429
Totalmente de acuerdo	1 (33.3%)	5 (18.5%)
De acuerdo	0 (0.00%)	13 (48.1%)
Ni de acuerdo ni en desacuerdo	1 (33.3%)	4 (14.8%)
En desacuerdo	1 (33.3%)	4 (14.8%)
Totalmente en desacuerdo	0 (0.00%)	1 (3.70%)
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.393
Totalmente de acuerdo	1 (33.3%)	1 (3.70%)
De acuerdo	1 (33.3%)	7 (25.9%)
Ni de acuerdo ni en desacuerdo	0 (0.00%)	4 (14.8%)
En desacuerdo	1 (33.3%)	11 (40.7%)
Totalmente en desacuerdo	0 (0.00%)	4 (14.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.:			0.436
Totalmente de acuerdo	1 (33.3%)	1 (3.70%)
De acuerdo	0 (0.00%)	7 (25.9%)
Ni de acuerdo ni en desacuerdo	1 (33.3%)	11 (40.7%)
En desacuerdo	1 (33.3%)	6 (22.2%)
Totalmente en desacuerdo	0 (0.00%)	2 (7.41%)
¿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?:			1.000
Mantengo las mismas labores	3 (100%)	23 (85.2%)
Mantengo las mismas labores, pero en un lugar físico distinto	0 (0.00%)	2 (7.41%)
Distintas labores, pero en la misma área	0 (0.00%)	1 (3.70%)
Distintas labores, pero en el mismo lugar físico	0 (0.00%)	1 (3.70%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?:			0.065
Excelente	1 (33.3%)	0 (0.00%)
Buena	0 (0.00%)	9 (33.3%)
Regular	2 (66.7%)	13 (48.1%)
Mala	0 (0.00%)	5 (18.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.263
Totalmente de acuerdo	1 (33.3%)	6 (22.2%)
De acuerdo	0 (0.00%)	11 (40.7%)
Neutral	1 (33.3%)	8 (29.6%)
En desacuerdo	1 (33.3%)	1 (3.70%)
Totalmente en desacuerdo	0 (0.00%)	1 (3.70%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:			0.309
Siempre	3 (100%)	9 (33.3%)
La mayoría <br>de las veces	0 (0.00%)	8 (29.6%)
Algunas veces	0 (0.00%)	6 (22.2%)
Sólo unas <br>pocas veces	0 (0.00%)	3 (11.1%)
Nunca	0 (0.00%)	1 (3.70%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:			0.536
Siempre	2 (66.7%)	8 (29.6%)
La mayoría <br>de las veces	1 (33.3%)	6 (22.2%)
Algunas veces	0 (0.00%)	9 (33.3%)
Sólo unas <br>pocas veces	0 (0.00%)	4 (14.8%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:			1.000
Siempre	0 (0.00%)	2 (7.41%)
La mayoría <br>de las veces	2 (66.7%)	13 (48.1%)
Algunas veces	1 (33.3%)	10 (37.0%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (7.41%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:			0.816
La mayoría <br>de las veces	0 (0.00%)	1 (3.70%)
Algunas veces	2 (66.7%)	13 (48.1%)
Sólo unas <br>pocas veces	0 (0.00%)	6 (22.2%)
Nunca	1 (33.3%)	7 (25.9%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:			0.210
Siempre	0 (0.00%)	1 (3.70%)
La mayoría <br>de las veces	1 (33.3%)	6 (22.2%)
Algunas veces	1 (33.3%)	15 (55.6%)
Sólo unas <br>pocas veces	0 (0.00%)	5 (18.5%)
Nunca	1 (33.3%)	0 (0.00%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:			1.000
Siempre	2 (66.7%)	10 (37.0%)
La mayoría <br>de las veces	1 (33.3%)	11 (40.7%)
Algunas veces	0 (0.00%)	3 (11.1%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (7.41%)
Nunca	0 (0.00%)	1 (3.70%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:			1.000
Siempre	1 (33.3%)	7 (25.9%)
La mayoría <br>de las veces	1 (33.3%)	11 (40.7%)
Algunas veces	1 (33.3%)	5 (18.5%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (3.70%)
Nunca	0 (0.00%)	3 (11.1%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:			0.813
Siempre	1 (33.3%)	11 (40.7%)
La mayoría <br>de las veces	2 (66.7%)	11 (40.7%)
Algunas veces	0 (0.00%)	5 (18.5%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:			0.675
Siempre	0 (0.00%)	7 (25.9%)
La mayoría <br>de las veces	3 (100%)	17 (63.0%)
Algunas veces	0 (0.00%)	2 (7.41%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (3.70%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:			1.000
Siempre	2 (66.7%)	11 (40.7%)
La mayoría <br>de las veces	1 (33.3%)	9 (33.3%)
Algunas veces	0 (0.00%)	4 (14.8%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (7.41%)
Nunca	0 (0.00%)	1 (3.70%)
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.363
Incorrecto	0 (0.00%)	1 (3.70%)
Apenas cierto	1 (33.3%)	1 (3.70%)
Más bien cierto	0 (0.00%)	6 (22.2%)
Cierto	2 (66.7%)	19 (70.4%)
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.224
Incorrecto	0 (0.00%)	1 (3.70%)
Apenas cierto	1 (33.3%)	1 (3.70%)
Más bien cierto	0 (0.00%)	8 (29.6%)
Cierto	2 (66.7%)	17 (63.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.363
Incorrecto	0 (0.00%)	1 (3.70%)
Apenas cierto	1 (33.3%)	1 (3.70%)
Más bien cierto	0 (0.00%)	6 (22.2%)
Cierto	2 (66.7%)	19 (70.4%)
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 Instituto Nacional del Cáncer 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 Instituto Nacional del Cáncer según cargo de Supervisión o Jefatura

Variables	No	Sí	Sig.
	N=18	N=13
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):			1.000
1	6 (33.3%)	4 (30.8%)
2	6 (33.3%)	4 (30.8%)
3	6 (33.3%)	5 (38.5%)
Estrés Postraumático (4° Cuartil):			0.402
Ausencia de Indicadores de Estrés Post-traumático	15 (83.3%)	9 (69.2%)
Indicadores de Estrés Post-traumático	3 (16.7%)	4 (30.8%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	300 [256;438]	325 [200;475]	0.644
Ptjes. Estrés Postraumático	4.50 [2.00;6.75]	3.00 [2.00;8.00]	0.658
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):			0.727
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	6 (33.3%)	6 (46.2%)
Cuartiles 1 a 3	12 (66.7%)	7 (53.8%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):			1.000
Cuartil de mayor ptje. Estrés Postraumático	9 (50.0%)	6 (46.2%)
Cuartiles 1 a 3	9 (50.0%)	7 (53.8%)
Sintomatología ansiosa:			1.000
Ausencia de Indicadores de Sintomatología Ansiosa	8 (44.4%)	5 (38.5%)
Indicadores de Sintomatología Ansiosa	10 (55.6%)	8 (61.5%)
Sintomatología depresiva:			0.565
Ausencia de Indicadores de Sintomatología Depresiva	8 (44.4%)	8 (61.5%)
Indicadores de Sintomatología Depresiva	10 (55.6%)	5 (38.5%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):			0.182
Contacto directo y estrecho con pacientes (menos de dos metros)	6 (33.3%)	1 (7.69%)
Menor o ningún contacto con pacientes	12 (66.7%)	12 (92.3%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):			0.174
1	1 (7.69%)	2 (33.3%)
2	3 (23.1%)	3 (50.0%)
3	3 (23.1%)	0 (0.00%)
Más de 3	6 (46.2%)	1 (16.7%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):			0.014
Bastante/Mucho	16 (88.9%)	6 (46.2%)
Un poco/Nada/No aplica	2 (11.1%)	7 (53.8%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):			0.233
Predomina el miedo	6 (33.3%)	8 (61.5%)
Predomina la ausencia de miedo	12 (66.7%)	5 (38.5%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):			0.026
Ha sido capacitado	11 (61.1%)	13 (100%)
No ha sido capacitado	7 (38.9%)	0 (0.00%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada):			1.000
Mala	0 (0.00%)	1 (7.69%)
Regular a Excelente	11 (100%)	12 (92.3%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):			0.229
Nada/Poco/Algo/No aplica	7 (38.9%)	2 (15.4%)
Totalmente/Bastante	11 (61.1%)	11 (84.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	9 (69.2%)	7 (77.8%)
2	1 (7.69%)	1 (11.1%)
3	2 (15.4%)	1 (11.1%)
Más de 3	1 (7.69%)	0 (0.00%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:			0.251
Empleador se ha rehusado a dar cierto tipo de EPP	3 (16.7%)	0 (0.00%)
No se constata esta situación	15 (83.3%)	13 (100%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): Algo/Bastante/Totalente/No aplica	18 (100%)	13 (100%)	.
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.131
Incapacidad para negarse a trabajo inseguro	5 (27.8%)	8 (61.5%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	13 (72.2%)	5 (38.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	13 (72.2%)	10 (76.9%)
Inapropiadas/Deficientes	5 (27.8%)	3 (23.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada):			0.363
Apropiadas/No sabe/No aplica	14 (77.8%)	12 (92.3%)
Inapropiadas/Deficientes	4 (22.2%)	1 (7.69%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):			0.203
Apropiadas/No sabe/No aplica	13 (72.2%)	12 (92.3%)
Inapropiadas/Deficientes	5 (27.8%)	1 (7.69%)
¿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.059
Apropiadas/No sabe/No aplica	13 (72.2%)	13 (100%)
Inapropiadas/Deficientes	5 (27.8%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):			0.192
Apropiadas/No sabe/No aplica	7 (38.9%)	9 (69.2%)
Inapropiadas/Deficientes	11 (61.1%)	4 (30.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):			0.714
Apropiadas/No sabe/No aplica	11 (61.1%)	9 (69.2%)
Inapropiadas/Deficientes	7 (38.9%)	4 (30.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 (Dicotomizada):			1.000
Apropiadas/No sabe/No aplica	8 (44.4%)	5 (38.5%)
Inapropiadas/Deficientes	10 (55.6%)	8 (61.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):			0.698
Apropiadas/No sabe/No aplica	13 (72.2%)	8 (61.5%)
Inapropiadas/Deficientes	5 (27.8%)	5 (38.5%)
¿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	15 (83.3%)	11 (84.6%)
Inapropiadas/Deficientes	3 (16.7%)	2 (15.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? | Sindicato/gremio (Dicotomizada):			0.273
Desacuerdo/Totalmente en desacuerdo	1 (5.56%)	3 (23.1%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	17 (94.4%)	10 (76.9%)
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.675
Desacuerdo/Totalmente en desacuerdo	4 (22.2%)	2 (15.4%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	14 (77.8%)	11 (84.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 (Dicotomizada):			1.000
Desacuerdo/Totalmente en desacuerdo	10 (55.6%)	7 (53.8%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	8 (44.4%)	6 (46.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):			0.425
Desacuerdo/Totalmente en desacuerdo	4 (22.2%)	5 (38.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	14 (77.8%)	8 (61.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? (Dicotomizada):			1.000
Cambia área, labores o ambos producto de la pandemia	2 (11.8%)	2 (15.4%)
Mantiene las mismas labores en la misma área	15 (88.2%)	11 (84.6%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada):			0.133
Excelente/Buena/Regular	16 (94.1%)	9 (69.2%)
Mala	1 (5.88%)	4 (30.8%)
¿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.599
De acuerdo/Totalmente de acuerdo	9 (52.9%)	9 (69.2%)
Neutral/En desacuerdo/Totalmente en desacuerdo	8 (47.1%)	4 (30.8%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):			0.438
La mayoría de las veces/Siempre	10 (58.8%)	10 (76.9%)
Nunca/Sólo unas pocas veces/Algunas veces	7 (41.2%)	3 (23.1%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):			0.399
La mayoría de las veces/Siempre	8 (47.1%)	9 (69.2%)
Nunca/Sólo unas pocas veces/Algunas veces	9 (52.9%)	4 (30.8%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):			0.519
La mayoría de las veces/Siempre	11 (64.7%)	6 (46.2%)
Nunca/Sólo unas pocas veces/Algunas veces	6 (35.3%)	7 (53.8%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	1 (5.88%)	0 (0.00%)
Nunca/Sólo unas pocas veces/Algunas veces	16 (94.1%)	13 (100%)
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	5 (29.4%)	3 (23.1%)
Nunca/Sólo unas pocas veces/Algunas veces	12 (70.6%)	10 (76.9%)
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	14 (82.4%)	10 (76.9%)
Nunca/Sólo unas pocas veces/Algunas veces	3 (17.6%)	3 (23.1%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):			0.703
La mayoría de las veces/Siempre	12 (70.6%)	8 (61.5%)
Nunca/Sólo unas pocas veces/Algunas veces	5 (29.4%)	5 (38.5%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):			0.623
La mayoría de las veces/Siempre	15 (88.2%)	10 (76.9%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (11.8%)	3 (23.1%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada):			0.563
La mayoría de las veces/Siempre	16 (94.1%)	11 (84.6%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (5.88%)	2 (15.4%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):			1.000
La mayoría de las veces/Siempre	13 (76.5%)	10 (76.9%)
Nunca/Sólo unas pocas veces/Algunas veces	4 (23.5%)	3 (23.1%)
Suma ítems Exigencias Psicológicas ISTAS21	6.00 [4.00;7.00]	7.00 [5.00;8.00]	0.297
Suma ítems Calidad Relación con Superiores ISTAS21	9.00 [8.00;10.0]	9.00 [6.00;10.0]	0.202
Suma ítems Conflicto de Rol ISTAS21	3.00 [2.00;4.00]	4.00 [3.00;4.00]	0.279
Suma ítems Relación con Compañeros de Trabajo ISTAS21	6.00 [6.00;8.00]	6.00 [6.00;7.00]	0.526
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	2 (11.8%)	1 (7.69%)
Más bien cierto/Cierto	15 (88.2%)	12 (92.3%)
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	2 (11.8%)	1 (7.69%)
Más bien cierto/Cierto	15 (88.2%)	12 (92.3%)
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	2 (11.8%)	1 (7.69%)
Más bien cierto/Cierto	15 (88.2%)	12 (92.3%)
Suma puntajes de resilencia	9.00 [8.00;9.00]	9.00 [7.00;9.00]	0.799
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:			0.909
Sólo unas pocas <br>veces	1 (5.56%)	2 (15.4%)
Algunas veces	7 (38.9%)	4 (30.8%)
La mayoría de las veces	7 (38.9%)	5 (38.5%)
Siempre	3 (16.7%)	2 (15.4%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:			1.000
Sólo unas pocas <br>veces	3 (16.7%)	3 (23.1%)
Algunas veces	6 (33.3%)	4 (30.8%)
La mayoría de las veces	8 (44.4%)	5 (38.5%)
Siempre	1 (5.56%)	1 (7.69%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:			0.241
Nunca	1 (5.56%)	0 (0.00%)
Sólo unas pocas <br>veces	2 (11.1%)	5 (38.5%)
Algunas veces	8 (44.4%)	2 (15.4%)
La mayoría de las veces	6 (33.3%)	5 (38.5%)
Siempre	1 (5.56%)	1 (7.69%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:			0.495
Nunca	3 (16.7%)	0 (0.00%)
Sólo unas pocas <br>veces	4 (22.2%)	5 (38.5%)
Algunas veces	6 (33.3%)	4 (30.8%)
La mayoría de las veces	4 (22.2%)	2 (15.4%)
Siempre	1 (5.56%)	2 (15.4%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:			0.643
Nunca	1 (5.56%)	0 (0.00%)
Sólo unas pocas <br>veces	7 (38.9%)	3 (23.1%)
Algunas veces	3 (16.7%)	3 (23.1%)
La mayoría de las veces	5 (27.8%)	3 (23.1%)
Siempre	2 (11.1%)	4 (30.8%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:			0.411
Nunca	1 (5.56%)	3 (23.1%)
Sólo unas pocas <br>veces	6 (33.3%)	3 (23.1%)
Algunas veces	5 (27.8%)	1 (7.69%)
La mayoría de las veces	4 (22.2%)	3 (23.1%)
Siempre	2 (11.1%)	3 (23.1%)
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.304
Nada	4 (22.2%)	5 (38.5%)
Un poco	3 (16.7%)	2 (15.4%)
Regular	4 (22.2%)	2 (15.4%)
Bastante	7 (38.9%)	2 (15.4%)
Mucho	0 (0.00%)	2 (15.4%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.:			0.233
Nada	3 (16.7%)	3 (23.1%)
Un poco	7 (38.9%)	3 (23.1%)
Regular	4 (22.2%)	0 (0.00%)
Bastante	3 (16.7%)	6 (46.2%)
Mucho	1 (5.56%)	1 (7.69%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:			0.361
Nada	7 (38.9%)	4 (30.8%)
Un poco	4 (22.2%)	3 (23.1%)
Regular	5 (27.8%)	1 (7.69%)
Bastante	1 (5.56%)	4 (30.8%)
Mucho	1 (5.56%)	1 (7.69%)
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.912
Nunca	3 (16.7%)	1 (7.69%)
Algunos días	6 (33.3%)	5 (38.5%)
Más de la mitad de los días	6 (33.3%)	5 (38.5%)
Casi todos los días	3 (16.7%)	2 (15.4%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:			1.000
Nunca	3 (16.7%)	2 (15.4%)
Algunos días	5 (27.8%)	3 (23.1%)
Más de la mitad de los días	6 (33.3%)	5 (38.5%)
Casi todos los días	4 (22.2%)	3 (23.1%)
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.900
Nunca	2 (11.1%)	3 (23.1%)
Algunos días	7 (38.9%)	5 (38.5%)
Más de la mitad de los días	7 (38.9%)	4 (30.8%)
Casi todos los días	2 (11.1%)	1 (7.69%)
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.098
Nunca	1 (5.56%)	4 (30.8%)
Algunos días	10 (55.6%)	7 (53.8%)
Más de la mitad de los días	5 (27.8%)	0 (0.00%)
Casi todos los días	2 (11.1%)	2 (15.4%)
¿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.131
Ninguno	5 (27.8%)	8 (61.5%)
1 a 10	13 (72.2%)	5 (38.5%)
¿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.809
Ninguno	5 (27.8%)	4 (30.8%)
Sólo uno	5 (27.8%)	2 (15.4%)
2 a 10	8 (44.4%)	7 (53.8%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:			0.619
Trabajo en contacto directo con pacientes	5 (27.8%)	1 (7.69%)
Trabajo a menos de dos metros de pacientes	1 (5.56%)	0 (0.00%)
Trabajo en el mismo piso/sala/departamento	1 (5.56%)	1 (7.69%)
Como parte de mi trabajo visito un piso/sala/departamento	3 (16.7%)	3 (23.1%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	7 (38.9%)	5 (38.5%)
Ninguno que yo esté en conocimiento	1 (5.56%)	3 (23.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) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.:			0.483
0	9 (50.0%)	9 (69.2%)
1	9 (50.0%)	4 (30.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 han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.:			0.117
0	14 (77.8%)	13 (100%)
1	4 (22.2%)	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.406
0	12 (66.7%)	11 (84.6%)
1	6 (33.3%)	2 (15.4%)
¿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.122
0	10 (55.6%)	11 (84.6%)
1	8 (44.4%)	2 (15.4%)
¿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	17 (94.4%)	13 (100%)
1	1 (5.56%)	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.182
0	12 (66.7%)	12 (92.3%)
1	6 (33.3%)	1 (7.69%)
¿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.497
0	16 (88.9%)	13 (100%)
1	2 (11.1%)	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.042
0	10 (55.6%)	12 (92.3%)
1	8 (44.4%)	1 (7.69%)
¿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	18 (100%)	13 (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) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:			1.000
0	16 (88.9%)	11 (84.6%)
1	2 (11.1%)	2 (15.4%)
¿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.273
FALSE	13 (72.2%)	6 (46.2%)
TRUE	5 (27.8%)	7 (53.8%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:			0.008
Un poco	1 (5.56%)	6 (46.2%)
Bastante	6 (33.3%)	0 (0.00%)
Mucho	10 (55.6%)	6 (46.2%)
No aplica	1 (5.56%)	1 (7.69%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:			0.138
1 (Poco o nada)	1 (5.56%)	1 (7.69%)
2	1 (5.56%)	1 (7.69%)
3	0 (0.00%)	2 (15.4%)
4	4 (22.2%)	0 (0.00%)
5	6 (33.3%)	1 (7.69%)
6	0 (0.00%)	2 (15.4%)
7	2 (11.1%)	3 (23.1%)
8	1 (5.56%)	2 (15.4%)
9	2 (11.1%)	1 (7.69%)
10 (Tanto miedo como nunca he sentido)	1 (5.56%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:			0.879
FALSE	8 (44.4%)	7 (53.8%)
TRUE	10 (55.6%)	6 (46.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):			1.000
FALSE	10 (55.6%)	7 (53.8%)
TRUE	8 (44.4%)	6 (46.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:			1.000
FALSE	9 (50.0%)	7 (53.8%)
TRUE	9 (50.0%)	6 (46.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:			0.238
FALSE	15 (83.3%)	13 (100%)
TRUE	3 (16.7%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:			0.556
FALSE	1 (5.56%)	2 (15.4%)
TRUE	17 (94.4%)	11 (84.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:			0.229
FALSE	7 (38.9%)	2 (15.4%)
TRUE	11 (61.1%)	11 (84.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:			0.122
FALSE	4 (22.2%)	7 (53.8%)
TRUE	14 (77.8%)	6 (46.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	18 (100%)	13 (100%)	.
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:			0.786
FALSE	9 (50.0%)	8 (61.5%)
TRUE	9 (50.0%)	5 (38.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:			0.192
FALSE	7 (38.9%)	9 (69.2%)
TRUE	11 (61.1%)	4 (30.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:			0.363
FALSE	14 (77.8%)	12 (92.3%)
TRUE	4 (22.2%)	1 (7.69%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	18 (100%)	13 (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.209
Suficiente	10 (55.6%)	9 (69.2%)
Insuficiente	4 (22.2%)	0 (0.00%)
No Aplica	4 (22.2%)	4 (30.8%)
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.031
Suficiente	2 (11.1%)	5 (38.5%)
Insuficiente	9 (50.0%)	1 (7.69%)
No Aplica	7 (38.9%)	7 (53.8%)
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.013
Suficiente	6 (33.3%)	10 (76.9%)
Insuficiente	8 (44.4%)	0 (0.00%)
No Aplica	4 (22.2%)	3 (23.1%)
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.073
Suficiente	1 (5.56%)	3 (23.1%)
Insuficiente	5 (27.8%)	0 (0.00%)
No Aplica	12 (66.7%)	10 (76.9%)
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.497
Suficiente	16 (88.9%)	13 (100%)
Insuficiente	2 (11.1%)	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.497
Suficiente	16 (88.9%)	13 (100%)
Insuficiente	2 (11.1%)	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.726
Suficiente	7 (38.9%)	6 (46.2%)
Insuficiente	7 (38.9%)	3 (23.1%)
No Aplica	4 (22.2%)	4 (30.8%)
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.834
Suficiente	2 (11.1%)	1 (7.69%)
Insuficiente	3 (16.7%)	1 (7.69%)
No Aplica	13 (72.2%)	11 (84.6%)
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.789
Suficiente	9 (50.0%)	7 (53.8%)
Insuficiente	3 (16.7%)	1 (7.69%)
No Aplica	6 (33.3%)	5 (38.5%)
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.123
Suficiente	6 (33.3%)	5 (38.5%)
Insuficiente	5 (27.8%)	0 (0.00%)
No Aplica	7 (38.9%)	8 (61.5%)
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.293
Suficiente	3 (16.7%)	2 (15.4%)
Insuficiente	6 (33.3%)	1 (7.69%)
No Aplica	9 (50.0%)	10 (76.9%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:			0.041
Sí, en el último mes	1 (5.56%)	1 (7.69%)
Sí, en los últimos 6 meses	2 (11.1%)	6 (46.2%)
Sí, el año pasado	5 (27.8%)	5 (38.5%)
Sí, hace 1-2 años	1 (5.56%)	1 (7.69%)
Sí, hace más de 5 años	2 (11.1%)	0 (0.00%)
No he sido capacitado	7 (38.9%)	0 (0.00%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:			0.009
Excelente	0 (0.00%)	2 (15.4%)
Buena	4 (36.4%)	9 (69.2%)
Regular	7 (63.6%)	1 (7.69%)
Mala	0 (0.00%)	1 (7.69%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:			0.135
Nada	0 (0.00%)	1 (7.69%)
Poco	1 (5.56%)	0 (0.00%)
Algo	4 (22.2%)	0 (0.00%)
Bastante	9 (50.0%)	6 (46.2%)
Totalmente	2 (11.1%)	5 (38.5%)
No aplica	2 (11.1%)	1 (7.69%)
¿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.238
0	15 (83.3%)	13 (100%)
1	3 (16.7%)	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) | Necesito permiso para utilizar algún EPP específico.:			0.447
0	11 (61.1%)	10 (76.9%)
1	7 (38.9%)	3 (23.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.:			1.000
0	15 (83.3%)	11 (84.6%)
1	3 (16.7%)	2 (15.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 EPP’s utilizados previamente por otros.:			0.556
0	17 (94.4%)	11 (84.6%)
1	1 (5.56%)	2 (15.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 aplica:			0.661
FALSE	13 (72.2%)	11 (84.6%)
TRUE	5 (27.8%)	2 (15.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).:			1.000
existe protocolo de qué EPP aplican a cada función, no me representa ninguna de las opciones	0 (0.00%)	1 (50.0%)
Hay quiebre de stock y se nos pide prudencia en el uso	0 (0.00%)	1 (50.0%)
Mascarilla n95, en diciembre recién se nos entregó. Siendo que trabajamos directamente con pacientes y atencion de publico en general	1 (100%)	0 (0.00%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:			0.098
Algo	4 (22.2%)	0 (0.00%)
Bastante	8 (44.4%)	9 (69.2%)
Totalmente	3 (16.7%)	4 (30.8%)
No aplica	3 (16.7%)	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.407
Negarme a trabajar no es una opción legalmente disponible para mí	1 (5.56%)	2 (15.4%)
Definitivamente, no es posible negarme a trabajar	2 (11.1%)	3 (23.1%)
Es improbable que pueda negarme a trabajar	1 (5.56%)	0 (0.00%)
Quizás, en una situación extrema podría negarme a trabajar	5 (27.8%)	2 (15.4%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	8 (44.4%)	3 (23.1%)
Definitivamente, no dudaría en negarme a trabajar	1 (5.56%)	3 (23.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.:			0.792
Apropiadas y bien implementadas	7 (38.9%)	6 (46.2%)
Apropiadas pero mal implementadas	5 (27.8%)	3 (23.1%)
Inapropiadas	1 (5.56%)	2 (15.4%)
Deficientes	4 (22.2%)	1 (7.69%)
No aplica	1 (5.56%)	1 (7.69%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.:			0.256
Apropiadas y bien implementadas	9 (50.0%)	9 (69.2%)
Apropiadas pero mal implementadas	1 (5.56%)	3 (23.1%)
Inapropiadas	2 (11.1%)	1 (7.69%)
Deficientes	2 (11.1%)	0 (0.00%)
No sabe	2 (11.1%)	0 (0.00%)
No aplica	2 (11.1%)	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.078
Apropiadas y bien implementadas	6 (33.3%)	11 (84.6%)
Apropiadas pero mal implementadas	4 (22.2%)	1 (7.69%)
Inapropiadas	3 (16.7%)	0 (0.00%)
Deficientes	2 (11.1%)	1 (7.69%)
No sabe	1 (5.56%)	0 (0.00%)
No aplica	2 (11.1%)	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.066
Apropiadas y bien implementadas	5 (27.8%)	10 (76.9%)
Apropiadas pero mal implementadas	6 (33.3%)	3 (23.1%)
Inapropiadas	2 (11.1%)	0 (0.00%)
Deficientes	3 (16.7%)	0 (0.00%)
No sabe	1 (5.56%)	0 (0.00%)
No aplica	1 (5.56%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:			0.118
Apropiadas y bien implementadas	3 (16.7%)	2 (15.4%)
Apropiadas pero mal implementadas	1 (5.56%)	3 (23.1%)
Inapropiadas	5 (27.8%)	3 (23.1%)
Deficientes	6 (33.3%)	1 (7.69%)
No sabe	0 (0.00%)	3 (23.1%)
No aplica	3 (16.7%)	1 (7.69%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:			0.648
Apropiadas y bien implementadas	5 (27.8%)	7 (53.8%)
Apropiadas pero mal implementadas	1 (5.56%)	1 (7.69%)
Inapropiadas	4 (22.2%)	2 (15.4%)
Deficientes	3 (16.7%)	2 (15.4%)
No sabe	2 (11.1%)	1 (7.69%)
No aplica	3 (16.7%)	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.711
Apropiadas y bien implementadas	3 (16.7%)	1 (7.69%)
Apropiadas pero mal implementadas	0 (0.00%)	1 (7.69%)
Inapropiadas	4 (22.2%)	3 (23.1%)
Deficientes	6 (33.3%)	5 (38.5%)
No sabe	3 (16.7%)	3 (23.1%)
No aplica	2 (11.1%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:			0.715
Apropiadas y bien implementadas	5 (27.8%)	6 (46.2%)
Apropiadas pero mal implementadas	2 (11.1%)	1 (7.69%)
Inapropiadas	3 (16.7%)	3 (23.1%)
Deficientes	2 (11.1%)	2 (15.4%)
No sabe	4 (22.2%)	1 (7.69%)
No aplica	2 (11.1%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:			0.037
Apropiadas y bien implementadas	4 (22.2%)	8 (61.5%)
Apropiadas pero mal implementadas	4 (22.2%)	1 (7.69%)
Inapropiadas	3 (16.7%)	0 (0.00%)
Deficientes	0 (0.00%)	2 (15.4%)
No sabe	5 (27.8%)	2 (15.4%)
No aplica	2 (11.1%)	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.047
Totalmente de acuerdo	7 (38.9%)	0 (0.00%)
De acuerdo	4 (22.2%)	6 (46.2%)
Ni de acuerdo ni en desacuerdo	6 (33.3%)	4 (30.8%)
En desacuerdo	1 (5.56%)	3 (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”? | Empleador.:			0.052
Totalmente de acuerdo	3 (16.7%)	3 (23.1%)
De acuerdo	5 (27.8%)	8 (61.5%)
Ni de acuerdo ni en desacuerdo	6 (33.3%)	0 (0.00%)
En desacuerdo	4 (22.2%)	1 (7.69%)
Totalmente en desacuerdo	0 (0.00%)	1 (7.69%)
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.396
Totalmente de acuerdo	2 (11.1%)	0 (0.00%)
De acuerdo	4 (22.2%)	4 (30.8%)
Ni de acuerdo ni en desacuerdo	2 (11.1%)	2 (15.4%)
En desacuerdo	9 (50.0%)	4 (30.8%)
Totalmente en desacuerdo	1 (5.56%)	3 (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.:			0.461
Totalmente de acuerdo	2 (11.1%)	0 (0.00%)
De acuerdo	4 (22.2%)	3 (23.1%)
Ni de acuerdo ni en desacuerdo	8 (44.4%)	5 (38.5%)
En desacuerdo	4 (22.2%)	3 (23.1%)
Totalmente en desacuerdo	0 (0.00%)	2 (15.4%)
¿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.849
Mantengo las mismas labores	15 (88.2%)	11 (84.6%)
Mantengo las mismas labores, pero en un lugar físico distinto	1 (5.88%)	1 (7.69%)
Distintas labores, pero en la misma área	1 (5.88%)	0 (0.00%)
Distintas labores, pero en el mismo lugar físico	0 (0.00%)	1 (7.69%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?:			0.231
Excelente	1 (5.88%)	0 (0.00%)
Buena	5 (29.4%)	4 (30.8%)
Regular	10 (58.8%)	5 (38.5%)
Mala	1 (5.88%)	4 (30.8%)
¿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.893
Totalmente de acuerdo	3 (17.6%)	4 (30.8%)
De acuerdo	6 (35.3%)	5 (38.5%)
Neutral	6 (35.3%)	3 (23.1%)
En desacuerdo	1 (5.88%)	1 (7.69%)
Totalmente en desacuerdo	1 (5.88%)	0 (0.00%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:			0.773
Siempre	7 (41.2%)	5 (38.5%)
La mayoría <br>de las veces	3 (17.6%)	5 (38.5%)
Algunas veces	4 (23.5%)	2 (15.4%)
Sólo unas <br>pocas veces	2 (11.8%)	1 (7.69%)
Nunca	1 (5.88%)	0 (0.00%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:			0.623
Siempre	4 (23.5%)	6 (46.2%)
La mayoría <br>de las veces	4 (23.5%)	3 (23.1%)
Algunas veces	6 (35.3%)	3 (23.1%)
Sólo unas <br>pocas veces	3 (17.6%)	1 (7.69%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:			0.471
Siempre	1 (5.88%)	1 (7.69%)
La mayoría <br>de las veces	10 (58.8%)	5 (38.5%)
Algunas veces	6 (35.3%)	5 (38.5%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (15.4%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:			0.139
La mayoría <br>de las veces	1 (5.88%)	0 (0.00%)
Algunas veces	6 (35.3%)	9 (69.2%)
Sólo unas <br>pocas veces	3 (17.6%)	3 (23.1%)
Nunca	7 (41.2%)	1 (7.69%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:			1.000
Siempre	1 (5.88%)	0 (0.00%)
La mayoría <br>de las veces	4 (23.5%)	3 (23.1%)
Algunas veces	8 (47.1%)	8 (61.5%)
Sólo unas <br>pocas veces	3 (17.6%)	2 (15.4%)
Nunca	1 (5.88%)	0 (0.00%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:			0.862
Siempre	8 (47.1%)	4 (30.8%)
La mayoría <br>de las veces	6 (35.3%)	6 (46.2%)
Algunas veces	2 (11.8%)	1 (7.69%)
Sólo unas <br>pocas veces	1 (5.88%)	1 (7.69%)
Nunca	0 (0.00%)	1 (7.69%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:			0.551
Siempre	6 (35.3%)	2 (15.4%)
La mayoría <br>de las veces	6 (35.3%)	6 (46.2%)
Algunas veces	4 (23.5%)	2 (15.4%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (7.69%)
Nunca	1 (5.88%)	2 (15.4%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:			0.791
Siempre	7 (41.2%)	5 (38.5%)
La mayoría <br>de las veces	8 (47.1%)	5 (38.5%)
Algunas veces	2 (11.8%)	3 (23.1%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:			0.698
Siempre	5 (29.4%)	2 (15.4%)
La mayoría <br>de las veces	11 (64.7%)	9 (69.2%)
Algunas veces	1 (5.88%)	1 (7.69%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (7.69%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:			0.675
Siempre	9 (52.9%)	4 (30.8%)
La mayoría <br>de las veces	4 (23.5%)	6 (46.2%)
Algunas veces	2 (11.8%)	2 (15.4%)
Sólo unas <br>pocas veces	1 (5.88%)	1 (7.69%)
Nunca	1 (5.88%)	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.:			1.000
Incorrecto	1 (5.88%)	0 (0.00%)
Apenas cierto	1 (5.88%)	1 (7.69%)
Más bien cierto	3 (17.6%)	3 (23.1%)
Cierto	12 (70.6%)	9 (69.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.:			0.703
Incorrecto	1 (5.88%)	0 (0.00%)
Apenas cierto	1 (5.88%)	1 (7.69%)
Más bien cierto	3 (17.6%)	5 (38.5%)
Cierto	12 (70.6%)	7 (53.8%)
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.:			1.000
Incorrecto	1 (5.88%)	0 (0.00%)
Apenas cierto	1 (5.88%)	1 (7.69%)
Más bien cierto	3 (17.6%)	3 (23.1%)
Cierto	12 (70.6%)	9 (69.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 Instituto Nacional del Cáncer según Tipo de Contrato",
          col.names=c("Variables", "Titulares", "Contrata", "Honorarios", "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 Instituto Nacional del Cáncer según Tipo de Contrato

Variables	Titulares	Contrata	Honorarios	Otros	Sig.	Sig. ordinal
	N=1	N=24	N=4	N=1
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):					0.749	0.373
1	0 (0.00%)	8 (33.3%)	2 (50.0%)	0 (0.00%)
2	0 (0.00%)	7 (29.2%)	1 (25.0%)	1 (100%)
3	1 (100%)	9 (37.5%)	1 (25.0%)	0 (0.00%)
Estrés Postraumático (4° Cuartil):					0.455	0.343
Ausencia de Indicadores de Estrés Post-traumático	0 (0.00%)	19 (79.2%)	3 (75.0%)	1 (100%)
Indicadores de Estrés Post-traumático	1 (100%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	450 [450;450]	312 [238;450]	300 [231;381]	325 [325;325]	0.837	0.568
Ptjes. Estrés Postraumático	9.00 [9.00;9.00]	3.50 [1.75;7.25]	4.00 [1.75;7.00]	3.00 [3.00;3.00]	0.647	0.568
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):					0.564	0.160
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	1 (100%)	10 (41.7%)	1 (25.0%)	0 (0.00%)
Cuartiles 1 a 3	0 (0.00%)	14 (58.3%)	3 (75.0%)	1 (100%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):					0.900	0.358
Cuartil de mayor ptje. Estrés Postraumático	1 (100%)	11 (45.8%)	2 (50.0%)	0 (0.00%)
Cuartiles 1 a 3	0 (0.00%)	13 (54.2%)	2 (50.0%)	1 (100%)
Sintomatología ansiosa:					0.674	0.418
Ausencia de Indicadores de Sintomatología Ansiosa	0 (0.00%)	12 (50.0%)	1 (25.0%)	0 (0.00%)
Indicadores de Sintomatología Ansiosa	1 (100%)	12 (50.0%)	3 (75.0%)	1 (100%)
Sintomatología depresiva:					0.129	0.250
Ausencia de Indicadores de Sintomatología Depresiva	0 (0.00%)	15 (62.5%)	1 (25.0%)	0 (0.00%)
Indicadores de Sintomatología Depresiva	1 (100%)	9 (37.5%)	3 (75.0%)	1 (100%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):					1.000	1.000
Contacto directo y estrecho con pacientes (menos de dos metros)	0 (0.00%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
Menor o ningún contacto con pacientes	1 (100%)	19 (79.2%)	3 (75.0%)	1 (100%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):					0.420	0.333
1	0 (0.00%)	3 (25.0%)	0 (0.00%)	0 (0.00%)
2	1 (100%)	3 (25.0%)	1 (25.0%)	0 (0.00%)
3	0 (0.00%)	1 (8.33%)	1 (25.0%)	1 (100%)
Más de 3	0 (0.00%)	5 (41.7%)	2 (50.0%)	0 (0.00%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):					0.434	0.260
Bastante/Mucho	1 (100%)	15 (62.5%)	4 (100%)	1 (100%)
Un poco/Nada/No aplica	0 (0.00%)	9 (37.5%)	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.587	0.133
Predomina el miedo	1 (100%)	11 (45.8%)	1 (25.0%)	0 (0.00%)
Predomina la ausencia de miedo	0 (0.00%)	13 (54.2%)	3 (75.0%)	1 (100%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):					0.016	0.136
Ha sido capacitado	0 (0.00%)	21 (87.5%)	2 (50.0%)	0 (0.00%)
No ha sido capacitado	1 (100%)	3 (12.5%)	2 (50.0%)	1 (100%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada):					1.000	0.758
Mala	0 (.%)	1 (4.76%)	0 (0.00%)	0 (.%)
Regular a Excelente	0 (.%)	20 (95.2%)	2 (100%)	0 (.%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):					0.030	0.195
Nada/Poco/Algo/No aplica	1 (100%)	4 (16.7%)	2 (50.0%)	1 (100%)
Totalmente/Bastante	0 (0.00%)	20 (83.3%)	2 (50.0%)	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.048	0.027
1	0 (0.00%)	13 (72.2%)	2 (100%)	0 (.%)
2	0 (0.00%)	2 (11.1%)	0 (0.00%)	0 (.%)
3	0 (0.00%)	3 (16.7%)	0 (0.00%)	0 (.%)
Más de 3	1 (100%)	0 (0.00%)	0 (0.00%)	0 (.%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:					0.201	0.085
Empleador se ha rehusado a dar cierto tipo de EPP	1 (100%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
No se constata esta situación	0 (0.00%)	22 (91.7%)	4 (100%)	1 (100%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): Algo/Bastante/Totalente/No aplica	1 (100%)	24 (100%)	4 (100%)	1 (100%)	.	.
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.564	0.160
Incapacidad para negarse a trabajo inseguro	1 (100%)	10 (41.7%)	1 (25.0%)	0 (0.00%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	0 (0.00%)	14 (58.3%)	3 (75.0%)	1 (100%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada):					1.000	0.795
Apropiadas/No sabe/No aplica	1 (100%)	17 (70.8%)	3 (75.0%)	1 (100%)
Inapropiadas/Deficientes	0 (0.00%)	7 (29.2%)	1 (25.0%)	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):					0.205	0.091
Apropiadas/No sabe/No aplica	0 (0.00%)	20 (83.3%)	4 (100%)	1 (100%)
Inapropiadas/Deficientes	1 (100%)	4 (16.7%)	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.878
Apropiadas/No sabe/No aplica	1 (100%)	20 (83.3%)	3 (75.0%)	1 (100%)
Inapropiadas/Deficientes	0 (0.00%)	4 (16.7%)	1 (25.0%)	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.031	0.878
Apropiadas/No sabe/No aplica	0 (0.00%)	21 (87.5%)	4 (100%)	0 (0.00%)
Inapropiadas/Deficientes	1 (100%)	3 (12.5%)	0 (0.00%)	1 (100%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):					0.678	0.646
Apropiadas/No sabe/No aplica	0 (0.00%)	14 (58.3%)	2 (50.0%)	0 (0.00%)
Inapropiadas/Deficientes	1 (100%)	10 (41.7%)	2 (50.0%)	1 (100%)
¿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.668	0.224
Apropiadas/No sabe/No aplica	0 (0.00%)	16 (66.7%)	3 (75.0%)	1 (100%)
Inapropiadas/Deficientes	1 (100%)	8 (33.3%)	1 (25.0%)	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.887	0.203
Apropiadas/No sabe/No aplica	0 (0.00%)	10 (41.7%)	2 (50.0%)	1 (100%)
Inapropiadas/Deficientes	1 (100%)	14 (58.3%)	2 (50.0%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):					0.668	0.224
Apropiadas/No sabe/No aplica	0 (0.00%)	16 (66.7%)	3 (75.0%)	1 (100%)
Inapropiadas/Deficientes	1 (100%)	8 (33.3%)	1 (25.0%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada):					0.205	0.091
Apropiadas/No sabe/No aplica	0 (0.00%)	20 (83.3%)	4 (100%)	1 (100%)
Inapropiadas/Deficientes	1 (100%)	4 (16.7%)	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 (Dicotomizada):					0.711	0.500
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	1 (100%)	20 (83.3%)	4 (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? | Empleador (Dicotomizada):					0.027	1.000
Desacuerdo/Totalmente en desacuerdo	1 (100%)	4 (16.7%)	0 (0.00%)	1 (100%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	0 (0.00%)	20 (83.3%)	4 (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.450	0.358
Desacuerdo/Totalmente en desacuerdo	1 (100%)	11 (45.8%)	3 (75.0%)	1 (100%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	0 (0.00%)	13 (54.2%)	1 (25.0%)	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 (Dicotomizada):					0.252	0.061
Desacuerdo/Totalmente en desacuerdo	1 (100%)	8 (33.3%)	0 (0.00%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	0 (0.00%)	16 (66.7%)	4 (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.711	0.500
Cambia área, labores o ambos producto de la pandemia	0 (0.00%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
Mantiene las mismas labores en la misma área	1 (100%)	20 (83.3%)	4 (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.713	0.442
Excelente/Buena/Regular	1 (100%)	19 (79.2%)	4 (100%)	1 (100%)
Mala	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
¿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.204	0.035
De acuerdo/Totalmente de acuerdo	1 (100%)	16 (66.7%)	1 (25.0%)	0 (0.00%)
Neutral/En desacuerdo/Totalmente en desacuerdo	0 (0.00%)	8 (33.3%)	3 (75.0%)	1 (100%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):					0.476	0.089
La mayoría de las veces/Siempre	1 (100%)	17 (70.8%)	2 (50.0%)	0 (0.00%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	7 (29.2%)	2 (50.0%)	1 (100%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):					0.887	0.203
La mayoría de las veces/Siempre	1 (100%)	14 (58.3%)	2 (50.0%)	0 (0.00%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	10 (41.7%)	2 (50.0%)	1 (100%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):					0.675	0.418
La mayoría de las veces/Siempre	1 (100%)	12 (50.0%)	3 (75.0%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	12 (50.0%)	1 (25.0%)	0 (0.00%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):					1.000	0.749
La mayoría de las veces/Siempre	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (100%)	23 (95.8%)	4 (100%)	1 (100%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada):					0.776	0.604
La mayoría de las veces/Siempre	0 (0.00%)	6 (25.0%)	2 (50.0%)	0 (0.00%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (100%)	18 (75.0%)	2 (50.0%)	1 (100%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):					0.725	0.390
La mayoría de las veces/Siempre	1 (100%)	18 (75.0%)	4 (100%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	6 (25.0%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):					1.000	0.627
La mayoría de las veces/Siempre	1 (100%)	15 (62.5%)	3 (75.0%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	9 (37.5%)	1 (25.0%)	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.713	0.442
La mayoría de las veces/Siempre	1 (100%)	19 (79.2%)	4 (100%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	5 (20.8%)	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? (Dicotomizada):					1.000	0.566
La mayoría de las veces/Siempre	1 (100%)	21 (87.5%)	4 (100%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):					0.455	0.343
La mayoría de las veces/Siempre	0 (0.00%)	19 (79.2%)	3 (75.0%)	1 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (100%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
Suma ítems Exigencias Psicológicas ISTAS21	8.00 [8.00;8.00]	6.00 [4.00;7.25]	4.00 [2.00;6.50]	4.00 [4.00;4.00]	0.353	0.091
Suma ítems Calidad Relación con Superiores ISTAS21	10.0 [10.0;10.0]	9.00 [6.00;10.0]	9.50 [8.75;10.2]	9.00 [9.00;9.00]	0.657	0.694
Suma ítems Conflicto de Rol ISTAS21	3.00 [3.00;3.00]	4.00 [2.00;4.00]	3.00 [1.75;4.25]	2.00 [2.00;2.00]	0.672	0.499
Suma ítems Relación con Compañeros de Trabajo ISTAS21	6.00 [6.00;6.00]	6.00 [5.75;7.00]	6.00 [6.00;6.50]	8.00 [8.00;8.00]	0.556	0.356
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.501	0.566
Apenas cierto/Incorrecto	0 (0.00%)	2 (8.33%)	1 (25.0%)	0 (0.00%)
Más bien cierto/Cierto	1 (100%)	22 (91.7%)	3 (75.0%)	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.501	0.566
Apenas cierto/Incorrecto	0 (0.00%)	2 (8.33%)	1 (25.0%)	0 (0.00%)
Más bien cierto/Cierto	1 (100%)	22 (91.7%)	3 (75.0%)	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):					0.501	0.566
Apenas cierto/Incorrecto	0 (0.00%)	2 (8.33%)	1 (25.0%)	0 (0.00%)
Más bien cierto/Cierto	1 (100%)	22 (91.7%)	3 (75.0%)	1 (100%)
Suma puntajes de resilencia	9.00 [9.00;9.00]	9.00 [7.00;9.00]	7.00 [5.25;8.25]	9.00 [9.00;9.00]	0.385	0.329
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:					0.933	0.948
Sólo unas pocas <br>veces	0 (0.00%)	2 (8.33%)	1 (25.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	9 (37.5%)	1 (25.0%)	0 (0.00%)
La mayoría de las veces	1 (100%)	9 (37.5%)	1 (25.0%)	1 (100%)
Siempre	0 (0.00%)	4 (16.7%)	1 (25.0%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:					0.570	0.509
Sólo unas pocas <br>veces	0 (0.00%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	7 (29.2%)	3 (75.0%)	0 (0.00%)
La mayoría de las veces	1 (100%)	10 (41.7%)	0 (0.00%)	1 (100%)
Siempre	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:					0.271	0.292
Nunca	0 (0.00%)	0 (0.00%)	1 (25.0%)	0 (0.00%)
Sólo unas pocas <br>veces	0 (0.00%)	6 (25.0%)	1 (25.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	7 (29.2%)	1 (25.0%)	1 (100%)
La mayoría de las veces	1 (100%)	10 (41.7%)	0 (0.00%)	0 (0.00%)
Siempre	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:					0.554	0.838
Nunca	0 (0.00%)	2 (8.33%)	1 (25.0%)	0 (0.00%)
Sólo unas pocas <br>veces	0 (0.00%)	8 (33.3%)	0 (0.00%)	0 (0.00%)
Algunas veces	0 (0.00%)	7 (29.2%)	2 (50.0%)	1 (100%)
La mayoría de las veces	1 (100%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
Siempre	0 (0.00%)	2 (8.33%)	1 (25.0%)	0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:					0.633	0.507
Nunca	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	0 (0.00%)	7 (29.2%)	2 (50.0%)	1 (100%)
Algunas veces	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
La mayoría de las veces	1 (100%)	7 (29.2%)	0 (0.00%)	0 (0.00%)
Siempre	0 (0.00%)	4 (16.7%)	2 (50.0%)	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.634	0.794
Nunca	0 (0.00%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	0 (0.00%)	7 (29.2%)	2 (50.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	3 (12.5%)	1 (25.0%)	1 (100%)
La mayoría de las veces	1 (100%)	6 (25.0%)	0 (0.00%)	0 (0.00%)
Siempre	0 (0.00%)	4 (16.7%)	1 (25.0%)	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.653	0.865
Nada	0 (0.00%)	7 (29.2%)	2 (50.0%)	0 (0.00%)
Un poco	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
Regular	0 (0.00%)	4 (16.7%)	1 (25.0%)	0 (0.00%)
Bastante	1 (100%)	7 (29.2%)	0 (0.00%)	1 (100%)
Mucho	0 (0.00%)	1 (4.17%)	1 (25.0%)	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.667	0.343
Nada	0 (0.00%)	5 (20.8%)	0 (0.00%)	1 (100%)
Un poco	0 (0.00%)	8 (33.3%)	2 (50.0%)	0 (0.00%)
Regular	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
Bastante	1 (100%)	6 (25.0%)	2 (50.0%)	0 (0.00%)
Mucho	0 (0.00%)	2 (8.33%)	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.647	0.217
Nada	0 (0.00%)	9 (37.5%)	1 (25.0%)	1 (100%)
Un poco	0 (0.00%)	5 (20.8%)	2 (50.0%)	0 (0.00%)
Regular	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
Bastante	1 (100%)	3 (12.5%)	1 (25.0%)	0 (0.00%)
Mucho	0 (0.00%)	2 (8.33%)	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.737	0.803
Nunca	0 (0.00%)	3 (12.5%)	1 (25.0%)	0 (0.00%)
Algunos días	0 (0.00%)	10 (41.7%)	1 (25.0%)	0 (0.00%)
Más de la mitad de los días	1 (100%)	6 (25.0%)	2 (50.0%)	1 (100%)
Casi todos los días	0 (0.00%)	5 (20.8%)	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.949	0.535
Nunca	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
Algunos días	0 (0.00%)	7 (29.2%)	1 (25.0%)	0 (0.00%)
Más de la mitad de los días	1 (100%)	6 (25.0%)	2 (50.0%)	1 (100%)
Casi todos los días	0 (0.00%)	6 (25.0%)	1 (25.0%)	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.597	0.434
Nunca	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
Algunos días	0 (0.00%)	10 (41.7%)	1 (25.0%)	0 (0.00%)
Más de la mitad de los días	1 (100%)	6 (25.0%)	3 (75.0%)	1 (100%)
Casi todos los días	0 (0.00%)	3 (12.5%)	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.572	0.649
Nunca	0 (0.00%)	4 (16.7%)	1 (25.0%)	0 (0.00%)
Algunos días	0 (0.00%)	14 (58.3%)	2 (50.0%)	1 (100%)
Más de la mitad de los días	1 (100%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
Casi todos los días	0 (0.00%)	3 (12.5%)	1 (25.0%)	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.146	0.160
Ninguno	0 (0.00%)	12 (50.0%)	0 (0.00%)	0 (0.00%)
1 a 10	1 (100%)	12 (50.0%)	4 (100%)	1 (100%)
¿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.947	0.693
Ninguno	0 (0.00%)	7 (29.2%)	2 (50.0%)	0 (0.00%)
Sólo uno	0 (0.00%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
2 a 10	1 (100%)	12 (50.0%)	1 (25.0%)	1 (100%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:					0.927	0.795
Trabajo en contacto directo con pacientes	0 (0.00%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
Trabajo en el mismo piso/sala/departamento	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Como parte de mi trabajo visito un piso/sala/departamento	1 (100%)	4 (16.7%)	1 (25.0%)	0 (0.00%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	0 (0.00%)	9 (37.5%)	2 (50.0%)	1 (100%)
Ninguno que yo esté en conocimiento	0 (0.00%)	4 (16.7%)	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.204	0.035
0	1 (100%)	16 (66.7%)	1 (25.0%)	0 (0.00%)
1	0 (0.00%)	8 (33.3%)	3 (75.0%)	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 han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.:					0.506	0.566
0	1 (100%)	22 (91.7%)	3 (75.0%)	1 (100%)
1	0 (0.00%)	2 (8.33%)	1 (25.0%)	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.110	0.195
0	1 (100%)	19 (79.2%)	1 (25.0%)	1 (100%)
1	0 (0.00%)	5 (20.8%)	3 (75.0%)	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) | Experimentó síntomas similares a los de COVID-19.:					0.092	0.330
0	0 (0.00%)	18 (75.0%)	2 (50.0%)	0 (0.00%)
1	1 (100%)	6 (25.0%)	2 (50.0%)	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.:					1.000	0.749
0	1 (100%)	23 (95.8%)	4 (100%)	1 (100%)
1	0 (0.00%)	1 (4.17%)	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 dijeron que trabajara a pesar de no contar con EPP’s.:					0.016	0.136
0	0 (0.00%)	21 (87.5%)	2 (50.0%)	0 (0.00%)
1	1 (100%)	3 (12.5%)	2 (50.0%)	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.:					1.000	0.646
0	1 (100%)	22 (91.7%)	4 (100%)	1 (100%)
1	0 (0.00%)	2 (8.33%)	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) | Se hizo el examen para descartar COVID-19.:					0.145	0.260
0	1 (100%)	18 (75.0%)	1 (25.0%)	1 (100%)
1	0 (0.00%)	6 (25.0%)	3 (75.0%)	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.: 0	1 (100%)	24 (100%)	4 (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) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:					0.711	0.500
0	1 (100%)	20 (83.3%)	4 (100%)	1 (100%)
1	0 (0.00%)	4 (16.7%)	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.:					0.137	0.160
FALSE	1 (100%)	12 (50.0%)	4 (100%)	1 (100%)
TRUE	0 (0.00%)	12 (50.0%)	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.920	0.453
Un poco	0 (0.00%)	7 (29.2%)	0 (0.00%)	0 (0.00%)
Bastante	0 (0.00%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
Mucho	1 (100%)	10 (41.7%)	3 (75.0%)	1 (100%)
No aplica	0 (0.00%)	2 (8.33%)	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.635	0.301
1 (Poco o nada)	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
2	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
3	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
4	0 (0.00%)	2 (8.33%)	2 (50.0%)	0 (0.00%)
5	0 (0.00%)	5 (20.8%)	1 (25.0%)	1 (100%)
6	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
7	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
8	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
9	1 (100%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:					0.443	0.731
FALSE	0 (0.00%)	13 (54.2%)	1 (25.0%)	1 (100%)
TRUE	1 (100%)	11 (45.8%)	3 (75.0%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):					0.887	0.418
FALSE	0 (0.00%)	14 (58.3%)	2 (50.0%)	1 (100%)
TRUE	1 (100%)	10 (41.7%)	2 (50.0%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:					0.900	0.358
FALSE	0 (0.00%)	13 (54.2%)	2 (50.0%)	1 (100%)
TRUE	1 (100%)	11 (45.8%)	2 (50.0%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:					0.203	0.085
FALSE	0 (0.00%)	22 (91.7%)	4 (100%)	1 (100%)
TRUE	1 (100%)	2 (8.33%)	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.566
FALSE	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
TRUE	1 (100%)	21 (87.5%)	4 (100%)	1 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:					0.308	0.038
FALSE	0 (0.00%)	5 (20.8%)	2 (50.0%)	1 (100%)
TRUE	1 (100%)	19 (79.2%)	2 (50.0%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:					0.253	0.191
FALSE	0 (0.00%)	11 (45.8%)	0 (0.00%)	0 (0.00%)
TRUE	1 (100%)	13 (54.2%)	4 (100%)	1 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	1 (100%)	24 (100%)	4 (100%)	1 (100%)	.	.
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:					0.211	0.908
FALSE	0 (0.00%)	15 (62.5%)	1 (25.0%)	1 (100%)
TRUE	1 (100%)	9 (37.5%)	3 (75.0%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:					0.228	0.818
FALSE	0 (0.00%)	14 (58.3%)	1 (25.0%)	1 (100%)
TRUE	1 (100%)	10 (41.7%)	3 (75.0%)	0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:					0.205	0.091
FALSE	0 (0.00%)	20 (83.3%)	4 (100%)	1 (100%)
TRUE	1 (100%)	4 (16.7%)	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	1 (100%)	24 (100%)	4 (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.150	0.471
Suficiente	1 (100%)	16 (66.7%)	2 (50.0%)	0 (0.00%)
Insuficiente	0 (0.00%)	1 (4.17%)	1 (25.0%)	1 (100%)
No Aplica	0 (0.00%)	7 (29.2%)	1 (25.0%)	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.616	0.225
Suficiente	0 (0.00%)	7 (29.2%)	0 (0.00%)	0 (0.00%)
Insuficiente	1 (100%)	6 (25.0%)	2 (50.0%)	0 (0.00%)
No Aplica	0 (0.00%)	11 (45.8%)	2 (50.0%)	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.002	0.834
Suficiente	0 (0.00%)	15 (62.5%)	1 (25.0%)	0 (0.00%)
Insuficiente	1 (100%)	2 (8.33%)	3 (75.0%)	1 (100%)
No Aplica	0 (0.00%)	7 (29.2%)	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.458	0.298
Suficiente	0 (0.00%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
Insuficiente	1 (100%)	3 (12.5%)	1 (25.0%)	0 (0.00%)
No Aplica	0 (0.00%)	17 (70.8%)	3 (75.0%)	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.022	<0.001
Suficiente	1 (100%)	24 (100%)	3 (75.0%)	0 (0.00%)
Insuficiente	0 (0.00%)	0 (0.00%)	1 (25.0%)	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)? | Mascarilla quirúrgica.:					0.122	0.066
Suficiente	0 (0.00%)	23 (95.8%)	4 (100%)	1 (100%)
Insuficiente	1 (100%)	1 (4.17%)	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.344	0.624
Suficiente	0 (0.00%)	10 (41.7%)	3 (75.0%)	0 (0.00%)
Insuficiente	1 (100%)	7 (29.2%)	0 (0.00%)	1 (100%)
No Aplica	0 (0.00%)	7 (29.2%)	1 (25.0%)	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.064	0.724
Suficiente	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
Insuficiente	1 (100%)	2 (8.33%)	0 (0.00%)	1 (100%)
No Aplica	0 (0.00%)	19 (79.2%)	4 (100%)	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)? | Delantal/Pechera.:					0.130	0.759
Suficiente	0 (0.00%)	13 (54.2%)	3 (75.0%)	0 (0.00%)
Insuficiente	1 (100%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
No Aplica	0 (0.00%)	9 (37.5%)	1 (25.0%)	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.437	0.406
Suficiente	0 (0.00%)	9 (37.5%)	1 (25.0%)	0 (0.00%)
Insuficiente	1 (100%)	3 (12.5%)	1 (25.0%)	0 (0.00%)
No Aplica	0 (0.00%)	12 (50.0%)	2 (50.0%)	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.347	0.098
Suficiente	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
Insuficiente	1 (100%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
No Aplica	0 (0.00%)	14 (58.3%)	4 (100%)	1 (100%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:					0.453	0.117
Sí, en el último mes	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Sí, en los últimos 6 meses	0 (0.00%)	8 (33.3%)	0 (0.00%)	0 (0.00%)
Sí, el año pasado	0 (0.00%)	8 (33.3%)	1 (25.0%)	0 (0.00%)
Sí, hace 1-2 años	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
Sí, hace más de 5 años	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
No he sido capacitado	1 (100%)	3 (12.5%)	2 (50.0%)	1 (100%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:					1.000	0.680
Excelente	0 (.%)	2 (9.52%)	0 (0.00%)	0 (.%)
Buena	0 (.%)	12 (57.1%)	1 (50.0%)	0 (.%)
Regular	0 (.%)	6 (28.6%)	1 (50.0%)	0 (.%)
Mala	0 (.%)	1 (4.76%)	0 (0.00%)	0 (.%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:					0.149	0.554
Nada	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Poco	0 (0.00%)	0 (0.00%)	1 (25.0%)	0 (0.00%)
Algo	1 (100%)	1 (4.17%)	0 (0.00%)	1 (100%)
Bastante	0 (0.00%)	13 (54.2%)	2 (50.0%)	0 (0.00%)
Totalmente	0 (0.00%)	7 (29.2%)	0 (0.00%)	0 (0.00%)
No aplica	0 (0.00%)	2 (8.33%)	1 (25.0%)	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.203	0.085
0	0 (0.00%)	22 (91.7%)	4 (100%)	1 (100%)
1	1 (100%)	2 (8.33%)	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) | Necesito permiso para utilizar algún EPP específico.:					0.237	0.061
0	0 (0.00%)	16 (66.7%)	4 (100%)	1 (100%)
1	1 (100%)	8 (33.3%)	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.:					0.205	0.091
0	0 (0.00%)	20 (83.3%)	4 (100%)	1 (100%)
1	1 (100%)	4 (16.7%)	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.:					1.000	0.566
0	1 (100%)	21 (87.5%)	4 (100%)	1 (100%)
1	0 (0.00%)	3 (12.5%)	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.141	0.021
FALSE	1 (100%)	20 (83.3%)	2 (50.0%)	0 (0.00%)
TRUE	0 (0.00%)	4 (16.7%)	2 (50.0%)	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) | Otro (especifique).:					.	.
existe protocolo de qué EPP aplican a cada función, no me representa ninguna de las opciones	0 (.%)	1 (33.3%)	0 (.%)	0 (.%)
Hay quiebre de stock y se nos pide prudencia en el uso	0 (.%)	1 (33.3%)	0 (.%)	0 (.%)
Mascarilla n95, en diciembre recién se nos entregó. Siendo que trabajamos directamente con pacientes y atencion de publico en general	0 (.%)	1 (33.3%)	0 (.%)	0 (.%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:					0.060	0.884
Algo	0 (0.00%)	2 (8.33%)	0 (0.00%)	1 (100%)
Bastante	1 (100%)	14 (58.3%)	2 (50.0%)	0 (0.00%)
Totalmente	0 (0.00%)	7 (29.2%)	0 (0.00%)	0 (0.00%)
No aplica	0 (0.00%)	1 (4.17%)	2 (50.0%)	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.050	0.280
Negarme a trabajar no es una opción legalmente disponible para mí	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
Definitivamente, no es posible negarme a trabajar	0 (0.00%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
Es improbable que pueda negarme a trabajar	1 (100%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Quizás, en una situación extrema podría negarme a trabajar	0 (0.00%)	5 (20.8%)	1 (25.0%)	1 (100%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	0 (0.00%)	9 (37.5%)	2 (50.0%)	0 (0.00%)
Definitivamente, no dudaría en negarme a trabajar	0 (0.00%)	3 (12.5%)	1 (25.0%)	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.887	0.604
Apropiadas y bien implementadas	1 (100%)	10 (41.7%)	1 (25.0%)	1 (100%)
Apropiadas pero mal implementadas	0 (0.00%)	5 (20.8%)	2 (50.0%)	0 (0.00%)
Inapropiadas	0 (0.00%)	2 (8.33%)	1 (25.0%)	0 (0.00%)
Deficientes	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
No aplica	0 (0.00%)	2 (8.33%)	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.016	0.822
Apropiadas y bien implementadas	0 (0.00%)	14 (58.3%)	4 (100%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
Inapropiadas	1 (100%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Deficientes	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
No sabe	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (100%)
No aplica	0 (0.00%)	2 (8.33%)	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.:					0.423	0.941
Apropiadas y bien implementadas	0 (0.00%)	14 (58.3%)	2 (50.0%)	1 (100%)
Apropiadas pero mal implementadas	1 (100%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
Inapropiadas	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
Deficientes	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
No sabe	0 (0.00%)	0 (0.00%)	1 (25.0%)	0 (0.00%)
No aplica	0 (0.00%)	2 (8.33%)	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.:					0.048	0.442
Apropiadas y bien implementadas	0 (0.00%)	14 (58.3%)	1 (25.0%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	6 (25.0%)	2 (50.0%)	0 (0.00%)
Inapropiadas	1 (100%)	0 (0.00%)	0 (0.00%)	1 (100%)
Deficientes	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
No sabe	0 (0.00%)	0 (0.00%)	1 (25.0%)	0 (0.00%)
No aplica	0 (0.00%)	1 (4.17%)	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.:					0.469	0.690
Apropiadas y bien implementadas	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	2 (8.33%)	2 (50.0%)	0 (0.00%)
Inapropiadas	1 (100%)	5 (20.8%)	0 (0.00%)	1 (100%)
Deficientes	0 (0.00%)	5 (20.8%)	2 (50.0%)	0 (0.00%)
No sabe	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
No aplica	0 (0.00%)	4 (16.7%)	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.198	0.434
Apropiadas y bien implementadas	0 (0.00%)	11 (45.8%)	1 (25.0%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
Inapropiadas	1 (100%)	3 (12.5%)	1 (25.0%)	0 (0.00%)
Deficientes	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
No sabe	0 (0.00%)	1 (4.17%)	1 (25.0%)	1 (100%)
No aplica	0 (0.00%)	3 (12.5%)	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.734	0.504
Apropiadas y bien implementadas	0 (0.00%)	3 (12.5%)	1 (25.0%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Inapropiadas	1 (100%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
Deficientes	0 (0.00%)	9 (37.5%)	2 (50.0%)	0 (0.00%)
No sabe	0 (0.00%)	4 (16.7%)	1 (25.0%)	1 (100%)
No aplica	0 (0.00%)	2 (8.33%)	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.694	0.591
Apropiadas y bien implementadas	0 (0.00%)	9 (37.5%)	2 (50.0%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Inapropiadas	1 (100%)	4 (16.7%)	1 (25.0%)	0 (0.00%)
Deficientes	0 (0.00%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
No sabe	0 (0.00%)	3 (12.5%)	1 (25.0%)	1 (100%)
No aplica	0 (0.00%)	2 (8.33%)	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.416	0.255
Apropiadas y bien implementadas	0 (0.00%)	11 (45.8%)	1 (25.0%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	3 (12.5%)	1 (25.0%)	0 (0.00%)
Inapropiadas	1 (100%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Deficientes	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
No sabe	0 (0.00%)	4 (16.7%)	2 (50.0%)	1 (100%)
No aplica	0 (0.00%)	2 (8.33%)	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.052	0.070
Totalmente de acuerdo	1 (100%)	6 (25.0%)	0 (0.00%)	0 (0.00%)
De acuerdo	0 (0.00%)	9 (37.5%)	0 (0.00%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	0 (0.00%)	5 (20.8%)	4 (100%)	1 (100%)
En desacuerdo	0 (0.00%)	4 (16.7%)	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.428	1.000
Totalmente de acuerdo	0 (0.00%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
De acuerdo	0 (0.00%)	11 (45.8%)	2 (50.0%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	0 (0.00%)	4 (16.7%)	1 (25.0%)	0 (0.00%)
En desacuerdo	1 (100%)	3 (12.5%)	0 (0.00%)	1 (100%)
Totalmente en desacuerdo	0 (0.00%)	1 (4.17%)	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.993	0.437
Totalmente de acuerdo	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
De acuerdo	0 (0.00%)	7 (29.2%)	1 (25.0%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	0 (0.00%)	4 (16.7%)	0 (0.00%)	0 (0.00%)
En desacuerdo	1 (100%)	8 (33.3%)	2 (50.0%)	1 (100%)
Totalmente en desacuerdo	0 (0.00%)	3 (12.5%)	1 (25.0%)	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.766	0.302
Totalmente de acuerdo	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
De acuerdo	0 (0.00%)	5 (20.8%)	2 (50.0%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	0 (0.00%)	9 (37.5%)	2 (50.0%)	1 (100%)
En desacuerdo	1 (100%)	6 (25.0%)	0 (0.00%)	0 (0.00%)
Totalmente en desacuerdo	0 (0.00%)	2 (8.33%)	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?:					1.000	0.548
Mantengo las mismas labores	1 (100%)	20 (83.3%)	4 (100%)	1 (100%)
Mantengo las mismas labores, pero en un lugar físico distinto	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Distintas labores, pero en la misma área	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Distintas labores, pero en el mismo lugar físico	0 (0.00%)	1 (4.17%)	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.936	0.646
Excelente	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Buena	0 (0.00%)	7 (29.2%)	2 (50.0%)	0 (0.00%)
Regular	1 (100%)	11 (45.8%)	2 (50.0%)	1 (100%)
Mala	0 (0.00%)	5 (20.8%)	0 (0.00%)	0 (0.00%)
¿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.420	0.123
Totalmente de acuerdo	1 (100%)	6 (25.0%)	0 (0.00%)	0 (0.00%)
De acuerdo	0 (0.00%)	10 (41.7%)	1 (25.0%)	0 (0.00%)
Neutral	0 (0.00%)	5 (20.8%)	3 (75.0%)	1 (100%)
En desacuerdo	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Totalmente en desacuerdo	0 (0.00%)	1 (4.17%)	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.304	0.096
Siempre	1 (100%)	10 (41.7%)	1 (25.0%)	0 (0.00%)
La mayoría <br>de las veces	0 (0.00%)	7 (29.2%)	1 (25.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	5 (20.8%)	0 (0.00%)	1 (100%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (4.17%)	2 (50.0%)	0 (0.00%)
Nunca	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:					0.343	0.115
Siempre	1 (100%)	8 (33.3%)	1 (25.0%)	0 (0.00%)
La mayoría <br>de las veces	0 (0.00%)	6 (25.0%)	1 (25.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	8 (33.3%)	0 (0.00%)	1 (100%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (8.33%)	2 (50.0%)	0 (0.00%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:					0.687	0.298
Siempre	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
La mayoría <br>de las veces	1 (100%)	11 (45.8%)	2 (50.0%)	1 (100%)
Algunas veces	0 (0.00%)	10 (41.7%)	1 (25.0%)	0 (0.00%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:					0.320	0.085
La mayoría <br>de las veces	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Algunas veces	0 (0.00%)	14 (58.3%)	1 (25.0%)	0 (0.00%)
Sólo unas <br>pocas veces	1 (100%)	4 (16.7%)	1 (25.0%)	0 (0.00%)
Nunca	0 (0.00%)	5 (20.8%)	2 (50.0%)	1 (100%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:					0.929	0.778
Siempre	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
La mayoría <br>de las veces	0 (0.00%)	5 (20.8%)	2 (50.0%)	0 (0.00%)
Algunas veces	1 (100%)	13 (54.2%)	1 (25.0%)	1 (100%)
Sólo unas <br>pocas veces	0 (0.00%)	4 (16.7%)	1 (25.0%)	0 (0.00%)
Nunca	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:					1.000	0.824
Siempre	1 (100%)	9 (37.5%)	2 (50.0%)	0 (0.00%)
La mayoría <br>de las veces	0 (0.00%)	9 (37.5%)	2 (50.0%)	1 (100%)
Algunas veces	0 (0.00%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Nunca	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:					1.000	0.664
Siempre	0 (0.00%)	7 (29.2%)	1 (25.0%)	0 (0.00%)
La mayoría <br>de las veces	1 (100%)	8 (33.3%)	2 (50.0%)	1 (100%)
Algunas veces	0 (0.00%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Nunca	0 (0.00%)	3 (12.5%)	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.647	0.378
Siempre	0 (0.00%)	10 (41.7%)	1 (25.0%)	1 (100%)
La mayoría <br>de las veces	1 (100%)	9 (37.5%)	3 (75.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	5 (20.8%)	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.694	0.186
Siempre	0 (0.00%)	5 (20.8%)	1 (25.0%)	1 (100%)
La mayoría <br>de las veces	1 (100%)	16 (66.7%)	3 (75.0%)	0 (0.00%)
Algunas veces	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:					0.153	0.914
Siempre	0 (0.00%)	12 (50.0%)	0 (0.00%)	1 (100%)
La mayoría <br>de las veces	0 (0.00%)	7 (29.2%)	3 (75.0%)	0 (0.00%)
Algunas veces	1 (100%)	3 (12.5%)	0 (0.00%)	0 (0.00%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (8.33%)	0 (0.00%)	0 (0.00%)
Nunca	0 (0.00%)	0 (0.00%)	1 (25.0%)	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.777	0.706
Incorrecto	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Apenas cierto	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
Más bien cierto	0 (0.00%)	5 (20.8%)	1 (25.0%)	0 (0.00%)
Cierto	1 (100%)	17 (70.8%)	2 (50.0%)	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.825	0.822
Incorrecto	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Apenas cierto	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
Más bien cierto	0 (0.00%)	7 (29.2%)	1 (25.0%)	0 (0.00%)
Cierto	1 (100%)	15 (62.5%)	2 (50.0%)	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.:					0.455	0.407
Incorrecto	0 (0.00%)	1 (4.17%)	0 (0.00%)	0 (0.00%)
Apenas cierto	0 (0.00%)	1 (4.17%)	1 (25.0%)	0 (0.00%)
Más bien cierto	0 (0.00%)	4 (16.7%)	2 (50.0%)	0 (0.00%)
Cierto	1 (100%)	18 (75.0%)	1 (25.0%)	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 Instituto Nacional del Cáncer 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 Instituto Nacional del Cáncer según Estamento

Variables	Admin.	Enfermeros	Médicos	Otros Prof. No-Médicos	Técnicos y Aux.	Sig.
	N=3	N=5	N=2	N=14	N=6
Sentimiento de Agotamiento, estrés e irritabilidad (terciles):						0.094
1	1 (33.3%)	0 (0.00%)	2 (100%)	5 (35.7%)	2 (33.3%)
2	2 (66.7%)	3 (60.0%)	0 (0.00%)	4 (28.6%)	0 (0.00%)
3	0 (0.00%)	2 (40.0%)	0 (0.00%)	5 (35.7%)	4 (66.7%)
Estrés Postraumático (4° Cuartil):						0.435
Ausencia de Indicadores de Estrés Post-traumático	3 (100%)	4 (80.0%)	2 (100%)	11 (78.6%)	3 (50.0%)
Indicadores de Estrés Post-traumático	0 (0.00%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	3 (50.0%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad	300 [200;325]	325 [300;400]	188 [181;194]	325 [256;456]	450 [300;450]	0.340
Ptjes. Estrés Postraumático	2.00 [2.00;3.50]	4.00 [3.00;8.00]	1.50 [1.25;1.75]	4.50 [1.25;7.00]	7.00 [2.25;8.75]	0.546
Cuartil de Mayor Puntaje en Agotamiento, Estrés e Irritabilidad (Referencia de Aplicación General):						0.299
Cuartil de mayor ptje. Agotamiento Estrés e Irritabilidad	0 (0.00%)	2 (40.0%)	0 (0.00%)	6 (42.9%)	4 (66.7%)
Cuartiles 1 a 3	3 (100%)	3 (60.0%)	2 (100%)	8 (57.1%)	2 (33.3%)
Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General):						0.663
Cuartil de mayor ptje. Estrés Postraumático	1 (33.3%)	2 (40.0%)	0 (0.00%)	7 (50.0%)	4 (66.7%)
Cuartiles 1 a 3	2 (66.7%)	3 (60.0%)	2 (100%)	7 (50.0%)	2 (33.3%)
Sintomatología ansiosa:						0.073
Ausencia de Indicadores de Sintomatología Ansiosa	3 (100%)	1 (20.0%)	2 (100%)	5 (35.7%)	2 (33.3%)
Indicadores de Sintomatología Ansiosa	0 (0.00%)	4 (80.0%)	0 (0.00%)	9 (64.3%)	4 (66.7%)
Sintomatología depresiva:						0.658
Ausencia de Indicadores de Sintomatología Depresiva	2 (66.7%)	3 (60.0%)	2 (100%)	7 (50.0%)	2 (33.3%)
Indicadores de Sintomatología Depresiva	1 (33.3%)	2 (40.0%)	0 (0.00%)	7 (50.0%)	4 (66.7%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada):						0.297
Contacto directo y estrecho con pacientes (menos de dos metros)	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	3 (50.0%)
Menor o ningún contacto con pacientes	3 (100%)	4 (80.0%)	2 (100%)	12 (85.7%)	3 (50.0%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas):						0.047
1	0 (0.00%)	2 (66.7%)	0 (.%)	1 (11.1%)	0 (0.00%)
2	0 (0.00%)	0 (0.00%)	0 (.%)	4 (44.4%)	1 (20.0%)
3	0 (0.00%)	0 (0.00%)	0 (.%)	3 (33.3%)	0 (0.00%)
Más de 3	1 (100%)	1 (33.3%)	0 (.%)	1 (11.1%)	4 (80.0%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada):						0.155
Bastante/Mucho	3 (100%)	3 (60.0%)	0 (0.00%)	10 (71.4%)	5 (83.3%)
Un poco/Nada/No aplica	0 (0.00%)	2 (40.0%)	2 (100%)	4 (28.6%)	1 (16.7%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado):						0.051
Predomina el miedo	0 (0.00%)	4 (80.0%)	2 (100%)	4 (28.6%)	3 (50.0%)
Predomina la ausencia de miedo	3 (100%)	1 (20.0%)	0 (0.00%)	10 (71.4%)	3 (50.0%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada):						0.248
Ha sido capacitado	1 (33.3%)	5 (100%)	2 (100%)	11 (78.6%)	4 (66.7%)
No ha sido capacitado	2 (66.7%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	2 (33.3%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada):						0.519
Mala	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Regular a Excelente	1 (100%)	4 (80.0%)	2 (100%)	11 (100%)	4 (100%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada):						0.371
Nada/Poco/Algo/No aplica	1 (33.3%)	0 (0.00%)	0 (0.00%)	4 (28.6%)	3 (50.0%)
Totalmente/Bastante	2 (66.7%)	5 (100%)	2 (100%)	10 (71.4%)	3 (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.444
1	2 (100%)	4 (80.0%)	0 (.%)	6 (60.0%)	3 (75.0%)
2	0 (0.00%)	1 (20.0%)	0 (.%)	1 (10.0%)	0 (0.00%)
3	0 (0.00%)	0 (0.00%)	0 (.%)	3 (30.0%)	0 (0.00%)
Más de 3	0 (0.00%)	0 (0.00%)	0 (.%)	0 (0.00%)	1 (25.0%)
Mi empleador se ha rehusado a dar cierto tipo de EPP:						0.364
Empleador se ha rehusado a dar cierto tipo de EPP	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
No se constata esta situación	3 (100%)	5 (100%)	2 (100%)	13 (92.9%)	4 (66.7%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): Algo/Bastante/Totalente/No aplica	3 (100%)	5 (100%)	2 (100%)	14 (100%)	6 (100%)	.
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.755
Incapacidad para negarse a trabajo inseguro	0 (0.00%)	2 (40.0%)	1 (50.0%)	6 (42.9%)	3 (50.0%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse	3 (100%)	3 (60.0%)	1 (50.0%)	8 (57.1%)	3 (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.423
Apropiadas/No sabe/No aplica	3 (100%)	3 (60.0%)	2 (100%)	11 (78.6%)	3 (50.0%)
Inapropiadas/Deficientes	0 (0.00%)	2 (40.0%)	0 (0.00%)	3 (21.4%)	3 (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.186
Apropiadas/No sabe/No aplica	3 (100%)	4 (80.0%)	2 (100%)	13 (92.9%)	3 (50.0%)
Inapropiadas/Deficientes	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	3 (50.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada):						0.164
Apropiadas/No sabe/No aplica	3 (100%)	5 (100%)	2 (100%)	12 (85.7%)	3 (50.0%)
Inapropiadas/Deficientes	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	3 (50.0%)
¿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.827
Apropiadas/No sabe/No aplica	3 (100%)	4 (80.0%)	2 (100%)	12 (85.7%)	4 (66.7%)
Inapropiadas/Deficientes	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada):						0.052
Apropiadas/No sabe/No aplica	3 (100%)	3 (60.0%)	0 (0.00%)	9 (64.3%)	1 (16.7%)
Inapropiadas/Deficientes	0 (0.00%)	2 (40.0%)	2 (100%)	5 (35.7%)	5 (83.3%)
¿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.005
Apropiadas/No sabe/No aplica	3 (100%)	2 (40.0%)	2 (100%)	12 (85.7%)	1 (16.7%)
Inapropiadas/Deficientes	0 (0.00%)	3 (60.0%)	0 (0.00%)	2 (14.3%)	5 (83.3%)
¿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.018
Apropiadas/No sabe/No aplica	3 (100%)	0 (0.00%)	1 (50.0%)	8 (57.1%)	1 (16.7%)
Inapropiadas/Deficientes	0 (0.00%)	5 (100%)	1 (50.0%)	6 (42.9%)	5 (83.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada):						0.224
Apropiadas/No sabe/No aplica	3 (100%)	3 (60.0%)	1 (50.0%)	11 (78.6%)	2 (33.3%)
Inapropiadas/Deficientes	0 (0.00%)	2 (40.0%)	1 (50.0%)	3 (21.4%)	4 (66.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada):						0.010
Apropiadas/No sabe/No aplica	3 (100%)	5 (100%)	0 (0.00%)	13 (92.9%)	4 (66.7%)
Inapropiadas/Deficientes	0 (0.00%)	0 (0.00%)	2 (100%)	1 (7.14%)	2 (33.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? | Sindicato/gremio (Dicotomizada):						0.415
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	1 (20.0%)	1 (50.0%)	2 (14.3%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	3 (100%)	4 (80.0%)	1 (50.0%)	12 (85.7%)	6 (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? | Empleador (Dicotomizada):						0.540
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	2 (40.0%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	3 (100%)	3 (60.0%)	2 (100%)	12 (85.7%)	4 (66.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? | Gobierno (Dicotomizada):						0.916
Desacuerdo/Totalmente en desacuerdo	2 (66.7%)	2 (40.0%)	1 (50.0%)	7 (50.0%)	4 (66.7%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	1 (33.3%)	3 (60.0%)	1 (50.0%)	7 (50.0%)	2 (33.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? | Comité paritario de salud y seguridad (Dicotomizada):						0.728
Desacuerdo/Totalmente en desacuerdo	0 (0.00%)	2 (40.0%)	0 (0.00%)	5 (35.7%)	2 (33.3%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo	3 (100%)	3 (60.0%)	2 (100%)	9 (64.3%)	4 (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):						0.319
Cambia área, labores o ambos producto de la pandemia	0 (0.00%)	2 (40.0%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
Mantiene las mismas labores en la misma área	3 (100%)	3 (60.0%)	2 (100%)	12 (85.7%)	6 (100%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada):						0.827
Excelente/Buena/Regular	3 (100%)	4 (80.0%)	1 (50.0%)	12 (85.7%)	5 (83.3%)
Mala	0 (0.00%)	1 (20.0%)	1 (50.0%)	2 (14.3%)	1 (16.7%)
¿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.309
De acuerdo/Totalmente de acuerdo	1 (33.3%)	5 (100%)	1 (50.0%)	7 (50.0%)	4 (66.7%)
Neutral/En desacuerdo/Totalmente en desacuerdo	2 (66.7%)	0 (0.00%)	1 (50.0%)	7 (50.0%)	2 (33.3%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada):						0.182
La mayoría de las veces/Siempre	1 (33.3%)	3 (60.0%)	2 (100%)	8 (57.1%)	6 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (66.7%)	2 (40.0%)	0 (0.00%)	6 (42.9%)	0 (0.00%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada):						0.703
La mayoría de las veces/Siempre	1 (33.3%)	3 (60.0%)	1 (50.0%)	7 (50.0%)	5 (83.3%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (66.7%)	2 (40.0%)	1 (50.0%)	7 (50.0%)	1 (16.7%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada):						0.511
La mayoría de las veces/Siempre	3 (100%)	3 (60.0%)	1 (50.0%)	8 (57.1%)	2 (33.3%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	2 (40.0%)	1 (50.0%)	6 (42.9%)	4 (66.7%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada):						0.174
La mayoría de las veces/Siempre	1 (33.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (66.7%)	5 (100%)	2 (100%)	14 (100%)	6 (100%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada):						0.908
La mayoría de las veces/Siempre	1 (33.3%)	2 (40.0%)	0 (0.00%)	3 (21.4%)	2 (33.3%)
Nunca/Sólo unas pocas veces/Algunas veces	2 (66.7%)	3 (60.0%)	2 (100%)	11 (78.6%)	4 (66.7%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada):						0.183
La mayoría de las veces/Siempre	3 (100%)	2 (40.0%)	2 (100%)	12 (85.7%)	5 (83.3%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	3 (60.0%)	0 (0.00%)	2 (14.3%)	1 (16.7%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada):						0.337
La mayoría de las veces/Siempre	3 (100%)	2 (40.0%)	2 (100%)	10 (71.4%)	3 (50.0%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	3 (60.0%)	0 (0.00%)	4 (28.6%)	3 (50.0%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada):						0.827
La mayoría de las veces/Siempre	3 (100%)	4 (80.0%)	2 (100%)	12 (85.7%)	4 (66.7%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
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	3 (100%)	4 (80.0%)	2 (100%)	12 (85.7%)	6 (100%)
Nunca/Sólo unas pocas veces/Algunas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada):						0.130
La mayoría de las veces/Siempre	2 (66.7%)	2 (40.0%)	2 (100%)	13 (92.9%)	4 (66.7%)
Nunca/Sólo unas pocas veces/Algunas veces	1 (33.3%)	3 (60.0%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
Suma ítems Exigencias Psicológicas ISTAS21	4.00 [3.00;5.00]	6.00 [4.00;7.00]	6.00 [5.50;6.50]	6.00 [3.25;7.75]	7.50 [6.25;8.00]	0.344
Suma ítems Calidad Relación con Superiores ISTAS21	11.0 [10.5;11.5]	6.00 [4.00;8.00]	9.50 [9.25;9.75]	9.00 [8.25;10.0]	8.00 [7.25;9.50]	0.036
Suma ítems Conflicto de Rol ISTAS21	2.00 [1.50;4.00]	4.00 [4.00;4.00]	4.00 [4.00;4.00]	3.00 [2.00;4.00]	4.00 [3.25;4.75]	0.698
Suma ítems Relación con Compañeros de Trabajo ISTAS21	7.00 [6.50;7.50]	6.00 [6.00;7.00]	6.50 [6.25;6.75]	6.00 [6.00;8.00]	6.00 [5.25;6.00]	0.701
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.385
Apenas cierto/Incorrecto	1 (33.3%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Más bien cierto/Cierto	2 (66.7%)	4 (80.0%)	2 (100%)	14 (100%)	5 (83.3%)
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.385
Apenas cierto/Incorrecto	1 (33.3%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Más bien cierto/Cierto	2 (66.7%)	4 (80.0%)	2 (100%)	14 (100%)	5 (83.3%)
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.385
Apenas cierto/Incorrecto	1 (33.3%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Más bien cierto/Cierto	2 (66.7%)	4 (80.0%)	2 (100%)	14 (100%)	5 (83.3%)
Suma puntajes de resilencia	8.00 [4.00;8.50]	7.00 [6.00;9.00]	9.00 [9.00;9.00]	8.50 [7.25;9.00]	9.00 [9.00;9.00]	0.401
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.:						0.470
Sólo unas pocas <br>veces	1 (33.3%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
Algunas veces	2 (66.7%)	2 (40.0%)	1 (50.0%)	4 (28.6%)	1 (16.7%)
La mayoría de las veces	0 (0.00%)	2 (40.0%)	1 (50.0%)	7 (50.0%)	2 (33.3%)
Siempre	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	3 (50.0%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.:						0.629
Sólo unas pocas <br>veces	1 (33.3%)	0 (0.00%)	1 (50.0%)	3 (21.4%)	1 (16.7%)
Algunas veces	2 (66.7%)	2 (40.0%)	1 (50.0%)	3 (21.4%)	2 (33.3%)
La mayoría de las veces	0 (0.00%)	2 (40.0%)	0 (0.00%)	8 (57.1%)	2 (33.3%)
Siempre	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.:						0.087
Nunca	1 (33.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sólo unas pocas <br>veces	0 (0.00%)	0 (0.00%)	2 (100%)	3 (21.4%)	2 (33.3%)
Algunas veces	2 (66.7%)	2 (40.0%)	0 (0.00%)	4 (28.6%)	1 (16.7%)
La mayoría de las veces	0 (0.00%)	2 (40.0%)	0 (0.00%)	7 (50.0%)	2 (33.3%)
Siempre	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.:						0.192
Nunca	1 (33.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (33.3%)
Sólo unas pocas <br>veces	0 (0.00%)	2 (40.0%)	2 (100%)	4 (28.6%)	0 (0.00%)
Algunas veces	2 (66.7%)	2 (40.0%)	0 (0.00%)	5 (35.7%)	1 (16.7%)
La mayoría de las veces	0 (0.00%)	0 (0.00%)	0 (0.00%)	4 (28.6%)	2 (33.3%)
Siempre	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.:						0.935
Nunca	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Sólo unas pocas <br>veces	1 (33.3%)	1 (20.0%)	1 (50.0%)	6 (42.9%)	1 (16.7%)
Algunas veces	1 (33.3%)	1 (20.0%)	1 (50.0%)	1 (7.14%)	1 (16.7%)
La mayoría de las veces	1 (33.3%)	2 (40.0%)	0 (0.00%)	2 (14.3%)	3 (50.0%)
Siempre	0 (0.00%)	1 (20.0%)	0 (0.00%)	4 (28.6%)	1 (16.7%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.:						0.094
Nunca	0 (0.00%)	0 (0.00%)	2 (100%)	1 (7.14%)	1 (16.7%)
Sólo unas pocas <br>veces	1 (33.3%)	2 (40.0%)	0 (0.00%)	5 (35.7%)	1 (16.7%)
Algunas veces	1 (33.3%)	0 (0.00%)	0 (0.00%)	4 (28.6%)	0 (0.00%)
La mayoría de las veces	1 (33.3%)	2 (40.0%)	0 (0.00%)	1 (7.14%)	3 (50.0%)
Siempre	0 (0.00%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	1 (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.265
Nada	1 (33.3%)	1 (20.0%)	1 (50.0%)	5 (35.7%)	1 (16.7%)
Un poco	1 (33.3%)	0 (0.00%)	1 (50.0%)	2 (14.3%)	1 (16.7%)
Regular	1 (33.3%)	3 (60.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Bastante	0 (0.00%)	0 (0.00%)	0 (0.00%)	6 (42.9%)	3 (50.0%)
Mucho	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	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.206
Nada	0 (0.00%)	0 (0.00%)	1 (50.0%)	3 (21.4%)	2 (33.3%)
Un poco	3 (100%)	3 (60.0%)	1 (50.0%)	3 (21.4%)	0 (0.00%)
Regular	0 (0.00%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
Bastante	0 (0.00%)	1 (20.0%)	0 (0.00%)	5 (35.7%)	3 (50.0%)
Mucho	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.:						0.970
Nada	1 (33.3%)	1 (20.0%)	1 (50.0%)	6 (42.9%)	2 (33.3%)
Un poco	1 (33.3%)	2 (40.0%)	1 (50.0%)	2 (14.3%)	1 (16.7%)
Regular	1 (33.3%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	1 (16.7%)
Bastante	0 (0.00%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	1 (16.7%)
Mucho	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
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.394
Nunca	1 (33.3%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
Algunos días	2 (66.7%)	2 (40.0%)	2 (100%)	5 (35.7%)	0 (0.00%)
Más de la mitad de los días	0 (0.00%)	2 (40.0%)	0 (0.00%)	6 (42.9%)	2 (33.3%)
Casi todos los días	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.:						0.452
Nunca	1 (33.3%)	0 (0.00%)	1 (50.0%)	1 (7.14%)	2 (33.3%)
Algunos días	2 (66.7%)	1 (20.0%)	1 (50.0%)	4 (28.6%)	0 (0.00%)
Más de la mitad de los días	0 (0.00%)	3 (60.0%)	0 (0.00%)	5 (35.7%)	2 (33.3%)
Casi todos los días	0 (0.00%)	1 (20.0%)	0 (0.00%)	4 (28.6%)	2 (33.3%)
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.858
Nunca	0 (0.00%)	0 (0.00%)	1 (50.0%)	3 (21.4%)	1 (16.7%)
Algunos días	2 (66.7%)	3 (60.0%)	1 (50.0%)	4 (28.6%)	1 (16.7%)
Más de la mitad de los días	1 (33.3%)	1 (20.0%)	0 (0.00%)	6 (42.9%)	3 (50.0%)
Casi todos los días	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
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.462
Nunca	0 (0.00%)	0 (0.00%)	1 (50.0%)	3 (21.4%)	1 (16.7%)
Algunos días	3 (100%)	4 (80.0%)	1 (50.0%)	8 (57.1%)	1 (16.7%)
Más de la mitad de los días	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
Casi todos los días	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
¿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.274
Ninguno	1 (33.3%)	3 (60.0%)	2 (100%)	5 (35.7%)	1 (16.7%)
1 a 10	2 (66.7%)	2 (40.0%)	0 (0.00%)	9 (64.3%)	5 (83.3%)
¿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.982
Ninguno	1 (33.3%)	2 (40.0%)	0 (0.00%)	4 (28.6%)	2 (33.3%)
Sólo uno	1 (33.3%)	1 (20.0%)	1 (50.0%)	2 (14.3%)	1 (16.7%)
2 a 10	1 (33.3%)	2 (40.0%)	1 (50.0%)	8 (57.1%)	3 (50.0%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?:						0.610
Trabajo en contacto directo con pacientes	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	3 (50.0%)
Trabajo en el mismo piso/sala/departamento	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Como parte de mi trabajo visito un piso/sala/departamento	1 (33.3%)	1 (20.0%)	1 (50.0%)	1 (7.14%)	2 (33.3%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19	2 (66.7%)	2 (40.0%)	1 (50.0%)	6 (42.9%)	1 (16.7%)
Ninguno que yo esté en conocimiento	0 (0.00%)	0 (0.00%)	0 (0.00%)	4 (28.6%)	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.376
0	2 (66.7%)	2 (40.0%)	2 (100%)	10 (71.4%)	2 (33.3%)
1	1 (33.3%)	3 (60.0%)	0 (0.00%)	4 (28.6%)	4 (66.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.:						0.358
0	3 (100%)	5 (100%)	2 (100%)	13 (92.9%)	4 (66.7%)
1	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	2 (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 solicitaron que trabajara a pesar de la exposición a COVID-19.:						0.594
0	2 (66.7%)	5 (100%)	2 (100%)	9 (64.3%)	4 (66.7%)
1	1 (33.3%)	0 (0.00%)	0 (0.00%)	5 (35.7%)	2 (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) | Experimentó síntomas similares a los de COVID-19.:						0.405
0	2 (66.7%)	4 (80.0%)	2 (100%)	10 (71.4%)	2 (33.3%)
1	1 (33.3%)	1 (20.0%)	0 (0.00%)	4 (28.6%)	4 (66.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 solicitaron que trabajara a pesar de los síntomas.:						0.527
0	3 (100%)	5 (100%)	2 (100%)	14 (100%)	5 (83.3%)
1	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (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) | Le dijeron que trabajara a pesar de no contar con EPP’s.:						1.000
0	2 (66.7%)	4 (80.0%)	2 (100%)	11 (78.6%)	4 (66.7%)
1	1 (33.3%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	2 (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 solicitaron que se aislara.:						0.133
0	3 (100%)	5 (100%)	2 (100%)	14 (100%)	4 (66.7%)
1	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (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) | Se hizo el examen para descartar COVID-19.:						0.142
0	2 (66.7%)	5 (100%)	2 (100%)	10 (71.4%)	2 (33.3%)
1	1 (33.3%)	0 (0.00%)	0 (0.00%)	4 (28.6%)	4 (66.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.: 0	3 (100%)	5 (100%)	2 (100%)	14 (100%)	6 (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) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).:						0.602
0	3 (100%)	4 (80.0%)	2 (100%)	13 (92.9%)	4 (66.7%)
1	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	2 (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) | Ninguna de las anteriores.:						0.282
FALSE	1 (33.3%)	3 (60.0%)	0 (0.00%)	9 (64.3%)	5 (83.3%)
TRUE	2 (66.7%)	2 (40.0%)	2 (100%)	5 (35.7%)	1 (16.7%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?:						0.530
Un poco	0 (0.00%)	2 (40.0%)	2 (100%)	2 (14.3%)	1 (16.7%)
Bastante	1 (33.3%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	1 (16.7%)
Mucho	2 (66.7%)	2 (40.0%)	0 (0.00%)	7 (50.0%)	4 (66.7%)
No aplica	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?:						0.132
1 (Poco o nada)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
2	1 (33.3%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
3	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
4	1 (33.3%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
5	1 (33.3%)	1 (20.0%)	0 (0.00%)	5 (35.7%)	0 (0.00%)
6	0 (0.00%)	0 (0.00%)	1 (50.0%)	1 (7.14%)	0 (0.00%)
7	0 (0.00%)	3 (60.0%)	1 (50.0%)	0 (0.00%)	1 (16.7%)
8	0 (0.00%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
9	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	2 (33.3%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes:						0.001
FALSE	3 (100%)	1 (20.0%)	2 (100%)	9 (64.3%)	0 (0.00%)
TRUE	0 (0.00%)	4 (80.0%)	0 (0.00%)	5 (35.7%)	6 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes):						0.511
FALSE	3 (100%)	3 (60.0%)	1 (50.0%)	8 (57.1%)	2 (33.3%)
TRUE	0 (0.00%)	2 (40.0%)	1 (50.0%)	6 (42.9%)	4 (66.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial:						0.001
FALSE	3 (100%)	1 (20.0%)	2 (100%)	10 (71.4%)	0 (0.00%)
TRUE	0 (0.00%)	4 (80.0%)	0 (0.00%)	4 (28.6%)	6 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol:						0.023
FALSE	3 (100%)	5 (100%)	2 (100%)	14 (100%)	3 (50.0%)
TRUE	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	3 (50.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos:						0.063
FALSE	1 (33.3%)	1 (20.0%)	1 (50.0%)	0 (0.00%)	0 (0.00%)
TRUE	2 (66.7%)	4 (80.0%)	1 (50.0%)	14 (100%)	6 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica:						0.525
FALSE	0 (0.00%)	1 (20.0%)	0 (0.00%)	4 (28.6%)	3 (50.0%)
TRUE	3 (100%)	4 (80.0%)	2 (100%)	10 (71.4%)	3 (50.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95:						0.201
FALSE	2 (66.7%)	1 (20.0%)	2 (100%)	5 (35.7%)	1 (16.7%)
TRUE	1 (33.3%)	4 (80.0%)	0 (0.00%)	9 (64.3%)	5 (83.3%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: FALSE	3 (100%)	5 (100%)	2 (100%)	14 (100%)	6 (100%)	.
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera:						0.011
FALSE	3 (100%)	1 (20.0%)	2 (100%)	10 (71.4%)	1 (16.7%)
TRUE	0 (0.00%)	4 (80.0%)	0 (0.00%)	4 (28.6%)	5 (83.3%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia:						0.005
FALSE	3 (100%)	2 (40.0%)	2 (100%)	9 (64.3%)	0 (0.00%)
TRUE	0 (0.00%)	3 (60.0%)	0 (0.00%)	5 (35.7%)	6 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado:						0.006
FALSE	3 (100%)	4 (80.0%)	2 (100%)	14 (100%)	2 (33.3%)
TRUE	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	4 (66.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: FALSE	3 (100%)	5 (100%)	2 (100%)	14 (100%)	6 (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.172
Suficiente	1 (33.3%)	5 (100%)	2 (100%)	6 (42.9%)	5 (83.3%)
Insuficiente	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	1 (16.7%)
No Aplica	2 (66.7%)	0 (0.00%)	0 (0.00%)	6 (42.9%)	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.007
Suficiente	1 (33.3%)	1 (20.0%)	2 (100%)	2 (14.3%)	1 (16.7%)
Insuficiente	0 (0.00%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	5 (83.3%)
No Aplica	2 (66.7%)	3 (60.0%)	0 (0.00%)	9 (64.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 facial.:						0.093
Suficiente	1 (33.3%)	5 (100%)	2 (100%)	5 (35.7%)	3 (50.0%)
Insuficiente	1 (33.3%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	3 (50.0%)
No Aplica	1 (33.3%)	0 (0.00%)	0 (0.00%)	6 (42.9%)	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.001
Suficiente	1 (33.3%)	0 (0.00%)	1 (50.0%)	2 (14.3%)	0 (0.00%)
Insuficiente	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	5 (83.3%)
No Aplica	2 (66.7%)	5 (100%)	1 (50.0%)	12 (85.7%)	1 (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)? | Desinfectante de manos.:						0.649
Suficiente	3 (100%)	5 (100%)	2 (100%)	12 (85.7%)	6 (100%)
Insuficiente	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.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)? | Mascarilla quirúrgica.:						0.433
Suficiente	3 (100%)	4 (80.0%)	2 (100%)	14 (100%)	5 (83.3%)
Insuficiente	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (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)? | Mascarilla N95.:						0.162
Suficiente	1 (33.3%)	0 (0.00%)	1 (50.0%)	7 (50.0%)	4 (66.7%)
Insuficiente	0 (0.00%)	4 (80.0%)	0 (0.00%)	4 (28.6%)	1 (16.7%)
No Aplica	2 (66.7%)	1 (20.0%)	1 (50.0%)	3 (21.4%)	1 (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)? | Respiradores de partículas de aire impulsado.:						0.352
Suficiente	1 (33.3%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Insuficiente	0 (0.00%)	0 (0.00%)	1 (50.0%)	1 (7.14%)	2 (33.3%)
No Aplica	2 (66.7%)	4 (80.0%)	1 (50.0%)	12 (85.7%)	4 (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)? | Delantal/Pechera.:						0.595
Suficiente	1 (33.3%)	3 (60.0%)	1 (50.0%)	6 (42.9%)	5 (83.3%)
Insuficiente	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
No Aplica	2 (66.7%)	1 (20.0%)	1 (50.0%)	7 (50.0%)	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.512
Suficiente	1 (33.3%)	2 (40.0%)	1 (50.0%)	4 (28.6%)	2 (33.3%)
Insuficiente	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	3 (50.0%)
No Aplica	2 (66.7%)	3 (60.0%)	1 (50.0%)	8 (57.1%)	1 (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)? | Cubre calzado.:						0.083
Suficiente	1 (33.3%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
Insuficiente	0 (0.00%)	0 (0.00%)	1 (50.0%)	1 (7.14%)	4 (66.7%)
No Aplica	2 (66.7%)	4 (80.0%)	1 (50.0%)	10 (71.4%)	2 (33.3%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?:						0.397
Sí, en el último mes	1 (33.3%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Sí, en los últimos 6 meses	0 (0.00%)	1 (20.0%)	2 (100%)	3 (21.4%)	2 (33.3%)
Sí, el año pasado	0 (0.00%)	2 (40.0%)	0 (0.00%)	5 (35.7%)	2 (33.3%)
Sí, hace 1-2 años	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Sí, hace más de 5 años	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
No he sido capacitado	2 (66.7%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	2 (33.3%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?:						0.170
Excelente	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (9.09%)	0 (0.00%)
Buena	1 (100%)	3 (60.0%)	2 (100%)	7 (63.6%)	0 (0.00%)
Regular	0 (0.00%)	0 (0.00%)	0 (0.00%)	3 (27.3%)	4 (100%)
Mala	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?:						0.606
Nada	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Poco	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Algo	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
Bastante	2 (66.7%)	2 (40.0%)	1 (50.0%)	8 (57.1%)	2 (33.3%)
Totalmente	0 (0.00%)	3 (60.0%)	1 (50.0%)	2 (14.3%)	1 (16.7%)
No aplica	1 (33.3%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	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.358
0	3 (100%)	5 (100%)	2 (100%)	13 (92.9%)	4 (66.7%)
1	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
¿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.371
0	3 (100%)	2 (40.0%)	2 (100%)	10 (71.4%)	4 (66.7%)
1	0 (0.00%)	3 (60.0%)	0 (0.00%)	4 (28.6%)	2 (33.3%)
¿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.583
0	3 (100%)	5 (100%)	2 (100%)	10 (71.4%)	5 (83.3%)
1	0 (0.00%)	0 (0.00%)	0 (0.00%)	4 (28.6%)	1 (16.7%)
¿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.480
0	3 (100%)	5 (100%)	2 (100%)	11 (78.6%)	6 (100%)
1	0 (0.00%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	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.646
FALSE	2 (66.7%)	5 (100%)	1 (50.0%)	11 (78.6%)	4 (66.7%)
TRUE	1 (33.3%)	0 (0.00%)	1 (50.0%)	3 (21.4%)	2 (33.3%)
¿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
existe protocolo de qué EPP aplican a cada función, no me representa ninguna de las opciones	0 (.%)	0 (.%)	1 (100%)	0 (0.00%)	0 (0.00%)
Hay quiebre de stock y se nos pide prudencia en el uso	0 (.%)	0 (.%)	0 (0.00%)	1 (100%)	0 (0.00%)
Mascarilla n95, en diciembre recién se nos entregó. Siendo que trabajamos directamente con pacientes y atencion de publico en general	0 (.%)	0 (.%)	0 (0.00%)	0 (0.00%)	1 (100%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?:						0.803
Algo	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	1 (16.7%)
Bastante	1 (33.3%)	3 (60.0%)	1 (50.0%)	10 (71.4%)	2 (33.3%)
Totalmente	1 (33.3%)	2 (40.0%)	1 (50.0%)	1 (7.14%)	2 (33.3%)
No aplica	1 (33.3%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
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.500
Negarme a trabajar no es una opción legalmente disponible para mí	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
Definitivamente, no es posible negarme a trabajar	0 (0.00%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
Es improbable que pueda negarme a trabajar	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Quizás, en una situación extrema podría negarme a trabajar	1 (33.3%)	0 (0.00%)	0 (0.00%)	6 (42.9%)	0 (0.00%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo	2 (66.7%)	3 (60.0%)	1 (50.0%)	2 (14.3%)	3 (50.0%)
Definitivamente, no dudaría en negarme a trabajar	0 (0.00%)	0 (0.00%)	1 (50.0%)	2 (14.3%)	1 (16.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.681
Apropiadas y bien implementadas	3 (100%)	2 (40.0%)	1 (50.0%)	6 (42.9%)	1 (16.7%)
Apropiadas pero mal implementadas	0 (0.00%)	0 (0.00%)	1 (50.0%)	4 (28.6%)	2 (33.3%)
Inapropiadas	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	1 (16.7%)
Deficientes	0 (0.00%)	2 (40.0%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
No aplica	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	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.812
Apropiadas y bien implementadas	3 (100%)	3 (60.0%)	1 (50.0%)	9 (64.3%)	2 (33.3%)
Apropiadas pero mal implementadas	0 (0.00%)	1 (20.0%)	1 (50.0%)	1 (7.14%)	1 (16.7%)
Inapropiadas	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	2 (33.3%)
Deficientes	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
No sabe	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
No aplica	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.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.268
Apropiadas y bien implementadas	3 (100%)	4 (80.0%)	2 (100%)	8 (57.1%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	3 (50.0%)
Inapropiadas	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (33.3%)
Deficientes	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	1 (16.7%)
No sabe	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
No aplica	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.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.822
Apropiadas y bien implementadas	2 (66.7%)	3 (60.0%)	2 (100%)	8 (57.1%)	0 (0.00%)
Apropiadas pero mal implementadas	1 (33.3%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	4 (66.7%)
Inapropiadas	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
Deficientes	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
No sabe	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
No aplica	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.:						0.107
Apropiadas y bien implementadas	2 (66.7%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
Apropiadas pero mal implementadas	1 (33.3%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
Inapropiadas	0 (0.00%)	0 (0.00%)	2 (100%)	4 (28.6%)	1 (16.7%)
Deficientes	0 (0.00%)	2 (40.0%)	0 (0.00%)	1 (7.14%)	4 (66.7%)
No sabe	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
No aplica	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	1 (16.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.:						0.238
Apropiadas y bien implementadas	3 (100%)	1 (20.0%)	2 (100%)	6 (42.9%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
Inapropiadas	0 (0.00%)	2 (40.0%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
Deficientes	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	3 (50.0%)
No sabe	0 (0.00%)	0 (0.00%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
No aplica	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	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.044
Apropiadas y bien implementadas	3 (100%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Inapropiadas	0 (0.00%)	2 (40.0%)	0 (0.00%)	3 (21.4%)	1 (16.7%)
Deficientes	0 (0.00%)	3 (60.0%)	1 (50.0%)	3 (21.4%)	4 (66.7%)
No sabe	0 (0.00%)	0 (0.00%)	1 (50.0%)	4 (28.6%)	1 (16.7%)
No aplica	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.:						0.387
Apropiadas y bien implementadas	3 (100%)	3 (60.0%)	0 (0.00%)	5 (35.7%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
Inapropiadas	0 (0.00%)	2 (40.0%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
Deficientes	0 (0.00%)	0 (0.00%)	1 (50.0%)	1 (7.14%)	2 (33.3%)
No sabe	0 (0.00%)	0 (0.00%)	1 (50.0%)	3 (21.4%)	1 (16.7%)
No aplica	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.:						<0.001
Apropiadas y bien implementadas	2 (66.7%)	4 (80.0%)	0 (0.00%)	6 (42.9%)	0 (0.00%)
Apropiadas pero mal implementadas	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	3 (50.0%)
Inapropiadas	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
Deficientes	0 (0.00%)	0 (0.00%)	2 (100%)	0 (0.00%)	0 (0.00%)
No sabe	1 (33.3%)	1 (20.0%)	0 (0.00%)	4 (28.6%)	1 (16.7%)
No aplica	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.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.175
Totalmente de acuerdo	1 (33.3%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	4 (66.7%)
De acuerdo	1 (33.3%)	3 (60.0%)	0 (0.00%)	4 (28.6%)	1 (16.7%)
Ni de acuerdo ni en desacuerdo	1 (33.3%)	0 (0.00%)	1 (50.0%)	7 (50.0%)	1 (16.7%)
En desacuerdo	0 (0.00%)	1 (20.0%)	1 (50.0%)	2 (14.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”? | Empleador.:						0.021
Totalmente de acuerdo	0 (0.00%)	2 (40.0%)	0 (0.00%)	4 (28.6%)	0 (0.00%)
De acuerdo	3 (100%)	1 (20.0%)	2 (100%)	7 (50.0%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	4 (66.7%)
En desacuerdo	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
Totalmente en desacuerdo	0 (0.00%)	1 (20.0%)	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.980
Totalmente de acuerdo	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
De acuerdo	1 (33.3%)	2 (40.0%)	0 (0.00%)	4 (28.6%)	1 (16.7%)
Ni de acuerdo ni en desacuerdo	0 (0.00%)	0 (0.00%)	1 (50.0%)	2 (14.3%)	1 (16.7%)
En desacuerdo	2 (66.7%)	1 (20.0%)	1 (50.0%)	5 (35.7%)	3 (50.0%)
Totalmente en desacuerdo	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	1 (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”? | Comité paritario de salud y seguridad.:						0.827
Totalmente de acuerdo	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
De acuerdo	2 (66.7%)	1 (20.0%)	1 (50.0%)	3 (21.4%)	0 (0.00%)
Ni de acuerdo ni en desacuerdo	1 (33.3%)	1 (20.0%)	1 (50.0%)	5 (35.7%)	4 (66.7%)
En desacuerdo	0 (0.00%)	1 (20.0%)	0 (0.00%)	4 (28.6%)	2 (33.3%)
Totalmente en desacuerdo	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	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.415
Mantengo las mismas labores	3 (100%)	3 (60.0%)	2 (100%)	12 (85.7%)	6 (100%)
Mantengo las mismas labores, pero en un lugar físico distinto	0 (0.00%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
Distintas labores, pero en la misma área	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Distintas labores, pero en el mismo lugar físico	0 (0.00%)	1 (20.0%)	0 (0.00%)	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.866
Excelente	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Buena	1 (33.3%)	2 (40.0%)	0 (0.00%)	5 (35.7%)	1 (16.7%)
Regular	2 (66.7%)	2 (40.0%)	1 (50.0%)	7 (50.0%)	3 (50.0%)
Mala	0 (0.00%)	1 (20.0%)	1 (50.0%)	2 (14.3%)	1 (16.7%)
¿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.825
Totalmente de acuerdo	0 (0.00%)	1 (20.0%)	0 (0.00%)	4 (28.6%)	2 (33.3%)
De acuerdo	1 (33.3%)	4 (80.0%)	1 (50.0%)	3 (21.4%)	2 (33.3%)
Neutral	2 (66.7%)	0 (0.00%)	1 (50.0%)	5 (35.7%)	1 (16.7%)
En desacuerdo	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
Totalmente en desacuerdo	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?:						0.561
Siempre	0 (0.00%)	2 (40.0%)	0 (0.00%)	6 (42.9%)	4 (66.7%)
La mayoría <br>de las veces	1 (33.3%)	1 (20.0%)	2 (100%)	2 (14.3%)	2 (33.3%)
Algunas veces	1 (33.3%)	2 (40.0%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
Sólo unas <br>pocas veces	1 (33.3%)	0 (0.00%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
Nunca	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?:						0.933
Siempre	0 (0.00%)	1 (20.0%)	1 (50.0%)	5 (35.7%)	3 (50.0%)
La mayoría <br>de las veces	1 (33.3%)	2 (40.0%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
Algunas veces	1 (33.3%)	1 (20.0%)	1 (50.0%)	5 (35.7%)	1 (16.7%)
Sólo unas <br>pocas veces	1 (33.3%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	0 (0.00%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?:						0.689
Siempre	1 (33.3%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
La mayoría <br>de las veces	2 (66.7%)	3 (60.0%)	1 (50.0%)	7 (50.0%)	2 (33.3%)
Algunas veces	0 (0.00%)	1 (20.0%)	1 (50.0%)	5 (35.7%)	4 (66.7%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?:						0.137
La mayoría <br>de las veces	1 (33.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Algunas veces	0 (0.00%)	3 (60.0%)	2 (100%)	6 (42.9%)	4 (66.7%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (40.0%)	0 (0.00%)	3 (21.4%)	1 (16.7%)
Nunca	2 (66.7%)	0 (0.00%)	0 (0.00%)	5 (35.7%)	1 (16.7%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?:						0.712
Siempre	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
La mayoría <br>de las veces	1 (33.3%)	2 (40.0%)	0 (0.00%)	3 (21.4%)	1 (16.7%)
Algunas veces	1 (33.3%)	2 (40.0%)	2 (100%)	8 (57.1%)	3 (50.0%)
Sólo unas <br>pocas veces	1 (33.3%)	1 (20.0%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
Nunca	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?:						0.300
Siempre	3 (100%)	0 (0.00%)	2 (100%)	4 (28.6%)	3 (50.0%)
La mayoría <br>de las veces	0 (0.00%)	2 (40.0%)	0 (0.00%)	8 (57.1%)	2 (33.3%)
Algunas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	1 (16.7%)
Sólo unas <br>pocas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Nunca	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?:						0.417
Siempre	2 (66.7%)	0 (0.00%)	0 (0.00%)	5 (35.7%)	1 (16.7%)
La mayoría <br>de las veces	1 (33.3%)	2 (40.0%)	2 (100%)	5 (35.7%)	2 (33.3%)
Algunas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	3 (50.0%)
Sólo unas <br>pocas veces	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Nunca	0 (0.00%)	2 (40.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?:						0.954
Siempre	2 (66.7%)	2 (40.0%)	1 (50.0%)	6 (42.9%)	1 (16.7%)
La mayoría <br>de las veces	1 (33.3%)	2 (40.0%)	1 (50.0%)	6 (42.9%)	3 (50.0%)
Algunas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	2 (14.3%)	2 (33.3%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?:						0.857
Siempre	1 (33.3%)	0 (0.00%)	0 (0.00%)	5 (35.7%)	1 (16.7%)
La mayoría <br>de las veces	2 (66.7%)	4 (80.0%)	2 (100%)	7 (50.0%)	5 (83.3%)
Algunas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
Sólo unas <br>pocas veces	0 (0.00%)	0 (0.00%)	0 (0.00%)	1 (7.14%)	0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?:						0.060
Siempre	2 (66.7%)	1 (20.0%)	1 (50.0%)	6 (42.9%)	3 (50.0%)
La mayoría <br>de las veces	0 (0.00%)	1 (20.0%)	1 (50.0%)	7 (50.0%)	1 (16.7%)
Algunas veces	0 (0.00%)	1 (20.0%)	0 (0.00%)	1 (7.14%)	2 (33.3%)
Sólo unas <br>pocas veces	0 (0.00%)	2 (40.0%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Nunca	1 (33.3%)	0 (0.00%)	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.194
Incorrecto	1 (33.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apenas cierto	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Más bien cierto	0 (0.00%)	1 (20.0%)	0 (0.00%)	5 (35.7%)	0 (0.00%)
Cierto	2 (66.7%)	3 (60.0%)	2 (100%)	9 (64.3%)	5 (83.3%)
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.153
Incorrecto	1 (33.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apenas cierto	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Más bien cierto	0 (0.00%)	2 (40.0%)	0 (0.00%)	6 (42.9%)	0 (0.00%)
Cierto	2 (66.7%)	2 (40.0%)	2 (100%)	8 (57.1%)	5 (83.3%)
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.191
Incorrecto	1 (33.3%)	0 (0.00%)	0 (0.00%)	0 (0.00%)	0 (0.00%)
Apenas cierto	0 (0.00%)	1 (20.0%)	0 (0.00%)	0 (0.00%)	1 (16.7%)
Más bien cierto	1 (33.3%)	2 (40.0%)	0 (0.00%)	3 (21.4%)	0 (0.00%)
Cierto	1 (33.3%)	2 (40.0%)	2 (100%)	11 (78.6%)	5 (83.3%)
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_inc.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_inc.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_inc.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_inc.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

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_inc.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p10_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  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_inc.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_inc.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_inc.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_inc.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_inc.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 71 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_inc.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_inc.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_inc.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_inc.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=="Instituto Nacional del Cáncer",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", "Instituto Nacional del Cáncer", "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)