#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(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(tsModel)){install.packages("tsModel")}
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(astsa)){install.packages("astsa")}
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(tidyverse)){install.packages("tidyverse")}
if(!require(lubridate)){install.packages("lubridate")}
if(!require(ggfortify)){install.packages("ggfortify")}
if(!require(survminer)){install.packages("survminer")}
if(!require(rpivotTable)){install.packages("rpivotTable")}

# 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 = ",")


find_type <- function(x) {
  case_when(
    is.factor(x) ~ "factor",
    is.character(x) ~ "character",
    is.numeric(x) ~ "numeric",
    TRUE ~ "not sure"
  )
}

permute_icc <- function(x, y, n = 99) {
  actual <- ICCbare(x, y)
  nulls <- vector(length = length(n), mode = "numeric")
  for(i in seq_along(1:n)) {
    scrambled_x <- sample(x, length(x), replace = F)
    nulls[i] <- ICCbare(scrambled_x, y)
  }
  (sum(abs(nulls) > ifelse(actual > 0, actual, -actual)) + 1) / (n+1)
}

permute_tau <- function(x, y, n = 99) {
  actual <- GKtau(x, y)$tauxy
  nulls <- vector(length = length(n), mode = "numeric")
  for(i in seq_along(1:n)) {
    scrambled_x <- sample(x, length(x), replace = F)
    nulls[i] <- GKtau(scrambled_x, y)$tauxy
  }
  (sum(abs(nulls) > ifelse(actual > 0, actual, -actual)) + 1) / (n+1)
}

# to do:
## get p-values

eda <- function(x, plot = FALSE) {
  
  x <- as.data.frame(x)
  
  num_rows <- ncol(x)^2 - ncol(x)
  df <- tibble(var1 = vector(mode = "character", length = 1),
               var2 = vector(mode = "character", length = 1),
               statistic = vector(mode = "character", length = 1),
               value = vector(mode = "double", length = 1),
               p_value = vector(mode = "double", length = 1),
               n = vector(mode = "integer", length = 1))
  
  for(i in seq_along(1:ncol(x)))
    for(j in seq_along(1:ncol(x))) {
      if(i < j){
        # get type of columns i and j
        var_1_type <- find_type(x[,i])
        var_2_type <- find_type(x[,j])
        #print(paste("var1 type: ", var_1_type, "\nvar2 type: ", var_2_type, "\n\n"))
        
        x1 <- x[,i]
        x2 <- x[,j]
        
        # remove NAs for simplicity
        if(any(is.na(x1))){
          # get NA indicies
          ind <- which(is.na(x1))
          x1 <- x1[-ind]
          x2 <- x2[-ind]
        }
        
        if(any(is.na(x2))){
          # get NA indicies
          ind <- which(is.na(x2))
          x1 <- x1[-ind]
          x2 <- x2[-ind]
        }
        
        # make sure x1 and x2 are the same length
        stopifnot(length(x1) == length(x2))
        
        n <- length(x1)
        
        if(var_1_type == "numeric" & var_2_type == "numeric") {
          # run a correlation
          result <- cor.test(x1, x2)
          df <- add_row(df, 
                        var1 = names(x)[i],
                        var2 = names(x)[j],
                        statistic = "r",
                        value = result$estimate,
                        p_value = result$p.value,
                        n = n
          )
        } else if(var_1_type == "factor" & var_2_type == "numeric") {
          # run an ANOVA or t-test, depending on number of levels
          num_levels <- length(levels(x1))
          require(ICC)
          result <- ICCbare(x1, x2)
          p <- permute_icc(x1, x2)
          df <- add_row(df, 
                        var1 = names(x)[i],
                        var2 = names(x)[j],
                        statistic = "ICC",
                        value = result,
                        p_value = p,
                        n = n
          )
        } else if(var_1_type == "numeric" & var_2_type == "factor") {
          # run an ANOVA or t-test, depending on number of levels
          num_levels <- length(levels(x2))
          require(ICC)
          result <- ICCbare(x2, x1)
          p <- permute_icc(x2, x1)
          df <- add_row(df, 
                        var1 = names(x)[i],
                        var2 = names(x)[j],
                        statistic = "ICC",
                        value = result,
                        p_value = p,
                        n = n
          )
        } else if(var_1_type == "factor" & var_2_type == "factor") {
          require("GoodmanKruskal")
          # compute the GKtau statistic
          stat1 <- GKtau(x1, x2)$tauxy
          stat2 <- GKtau(x1, x2)$tauyx
          p1 <- permute_tau(x1, x2)
          p2 <- permute_tau(x2, x1)
          df <- add_row(df, 
                        var1 = names(x)[i],
                        var2 = names(x)[j],
                        statistic = "tau",
                        value = stat1,
                        p_value = p1,
                        n = n
          )
          df <- add_row(df, 
                        var1 = names(x)[j],
                        var2 = names(x)[i],
                        statistic = "tau",
                        value = stat2,
                        p_value = p2,
                        n = n
          )
        } else{
          # return an empty row
          df <- add_row(df, 
                        var1 = names(x)[i],
                        var2 = names(x)[j],
                        statistic = NA_character_,
                        value = NA_integer_,
                        p_value = NA_real_,
                        n = n
          )
        }
      }
    }
  if(plot == TRUE) {
    df[-1,] %>%
      filter(!is.na(value)) %>%
      unite(variables, var1, var2, sep = " by ") %>%
      mutate(`possibly significant` = if_else(p_value < 0.05, "significant", "NS")) %>%
      ggplot(aes(y = value, x = reorder(variables, value), color = `possibly significant`)) +
      geom_point() +
      coord_flip() +
      facet_wrap(~statistic, scales = "free") +
      theme_minimal() +
      scale_color_manual(values = c("#37454B", "#E84F22"))
  } else{
    df[-1,]
  }
  
}
#a- General
#b- SS Arauco
#c- Hospital Santa Isabel de Lebu
#d- Hospital de Contulmo
#e- Hospital San Vicente de Arauco
#f- Hospital R.A.V de Curanilahue
#g- Hospital Roberto del Río
#h- Instituto Nacional del Cáncer
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_a"),
       #haven::read_sav("Encuesta sobre las experiencias de las y los trabajadores de la salud .sav"),
       readr::read_csv(a,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8")),
       envir = .GlobalEnv)
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_b"),
       #haven::read_sav("Encuesta sobre las experiencias de las y los trabajadores de la salud .sav"),
       readr::read_csv(b,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%dplyr::mutate(institucion="SS Arauco"),
       envir = .GlobalEnv)
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_c"),
       #haven::read_sav("Encuesta sobre las experiencias de las y los trabajadores de la salud .sav"),
       readr::read_csv(c,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%dplyr::mutate(institucion="Hospital Santa Isabel de Lebu"),
       envir = .GlobalEnv)
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_d"),
       #haven::read_sav("Encuesta sobre las experiencias de las y los trabajadores de la salud .sav"),
       readr::read_csv(d,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%dplyr::mutate(institucion="Hospital de Contulmo"),
       envir = .GlobalEnv)
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_e"),
       #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"))%>%dplyr::mutate(institucion="Hospital San Vicente de Arauco"),
       envir = .GlobalEnv)
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_f"),
       #haven::read_sav("Encuesta sobre las experiencias de las y los trabajadores de la salud .sav"),
       readr::read_csv(f,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%dplyr::mutate(institucion="Hospital R.A.V de Curanilahue"),
       envir = .GlobalEnv)
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_g"),
       #haven::read_sav("Encuesta sobre las experiencias de las y los trabajadores de la salud .sav"),
       readr::read_csv(g,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%dplyr::mutate(institucion="Hospital Roberto del Río"),
       envir = .GlobalEnv)
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_h"),
       #haven::read_sav("Encuesta sobre las experiencias de las y los trabajadores de la salud .sav"),
       readr::read_csv(h,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%dplyr::mutate(institucion="Instituto Nacional del Cáncer") %>% 
         #rename_at(vars(contains('principal')), funs(sub())),
       #envir = .GlobalEnv)
  dplyr::relocate("En qué tipo de centro de salud trabaja además (público):", .after="En qué tipo de centro de salud trabaja principalmente:") %>% 
  dplyr::rename("¿Dónde trabaja actualmente?"=100, "tipo_c_salud_ademas"=103,
         "En qué tipo de centro de salud trabaja (público):"=102),
         envir = .GlobalEnv)

#get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_g"))[100:103] %>% glimpse()

assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_ins"),
rbind.data.frame(
      get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_b")),
      get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_c")),
      get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_d")),
      get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_e")),
      get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_f")),
      get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_g"))
      #get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_h"))
      ),
    envir = .GlobalEnv)
paste0("Nombre base de datos: ",
    paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_ins")
    )
## [1] "Nombre base de datos: enc_trab_sal_toda_ins"
#  `¿Dónde trabaja actualmente  de manera principal?` = col_character(),
#  `En qué tipo de centro de salud trabaja principalmente:` = col_character(),
#  `En qué tipo de centro de salud trabaja principalmente (privado)` = col_logical(),
#  `En qué tipo de centro de salud trabaja además (público):` = col_logical(),

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#CONTROL DE VARIABLES
a_names<-
  get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_b"))%>% names() %>% unlist() %>%  data.frame()
#readr::read_csv(h,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%
#  dplyr::mutate(institucion="Instituto Nacional del Cáncer") %>% names() %>% unlist() %>%  data.frame()
h_names<-
  get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_h"))%>% names() %>% unlist() %>%  data.frame()
#readr::read_csv(g,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%
#  dplyr::mutate(institucion="Hospital Roberto del Río") %>% names() %>% unlist() %>%  data.frame()
cbind.data.frame(a_names, h_names) %>% 
    janitor::clean_names() %>% 
    dplyr::mutate(calza=ifelse(x==x_2,1,0)) %>% 
  dplyr::filter(calza==0)
##                                               x                 x_2 calza
## 1 En qué tipo de centro de salud trabaja además tipo_c_salud_ademas     0
paste0("Nombre base de datos: ",paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1))))
## [1] "Nombre base de datos: enc_trab_sal_toda"
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:

#get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_h")) [100:105] %>% glimpse()
#¿Dónde trabaja actualmente  de manera principal? |¿Dónde trabaja actualmente?
#En qué tipo de centro de salud trabaja principalmente (privado)| En qué tipo de centro de salud trabaja (público):
#En qué tipo de centro de salud trabaja además (público):| En qué tipo de centro de salud trabaja además
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:

names_df_ori<-get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_a")) %>% janitor::clean_names() %>% names()
names_df_ins<-get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_ins")) %>% janitor::clean_names() %>% names()

#casos_a_reemplazar<-  
#get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1))))%>%#[c(102:106,154,155)]%>%
#  dplyr::filter(!is.na(stringi::stri_length(`En qué tipo de centro de salud trabaja (público):`))) %>% nrow()  

#MEZCLAR LA BASE DE DATOS
assign(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1))),
 plyr::rbind.fill(get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_a")),get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_ins")),
                  get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_h"))
                  ) %>% 
    dplyr::mutate_at(vars(contains('además')), funs(dplyr::case_when(!is.na(stringi::stri_length(tipo_c_salud_ademas))~as.character(tipo_c_salud_ademas),T~as.character(.)))) %>% 
   dplyr::mutate(`En qué tipo de centro de salud trabaja principalmente:`=dplyr::case_when(!is.na(stringi::stri_length(`En qué tipo de centro de salud trabaja principalmente:_1`))~as.character(`En qué tipo de centro de salud trabaja principalmente:_1`),T~as.character(`En qué tipo de centro de salud trabaja principalmente:`))) %>% 
   dplyr::mutate(`En qué tipo de centro de salud trabaja:`=dplyr::case_when(!is.na(stringi::stri_length(`En qué tipo de centro de salud trabaja (público):`))~as.character(`En qué tipo de centro de salud trabaja (público):`),T~as.character(`En qué tipo de centro de salud trabaja:`))) %>% 
   dplyr::select(-`En qué tipo de centro de salud trabaja (público):`,-`En qué tipo de centro de salud trabaja principalmente:_1`,-tipo_c_salud_ademas),
    envir = .GlobalEnv)

#View(rbind.match.columns(get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_a")) %>% janitor::clean_names(),get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_ins")) %>% janitor::clean_names()))
#[106] "En qué tipo de centro de salud trabaja además"      
#[156] "En qué tipo de centro de salud trabaja además"
#102- "en_que_tipo_de_centro_de_salud_trabaja_publico"   
#[103] "En qué tipo de centro de salud trabaja principalmente:"
#[104] "En qué tipo de centro de salud trabaja principalmente:_1"
#[105] "En qué tipo de centro de salud trabaja:"
#[106] "En qué tipo de centro de salud trabaja además"        
#[154] "En qué tipo de centro de salud trabaja (público):"
#[155] "institucion"   

paste0("Nombre archivo: enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))
## [1] "Nombre archivo: enc_trab_sal_toda"


1 Obtención de Base de Datos

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


#Ver las etiquetas y las variables
#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")))
}

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
columnas_nombre0  <- c('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',
   'sec_sal' = 'usted_trabaja_en_el_sector_salud_actualmente',
    'trab_chl' = 'usted_trabaja_en_chile_actualmente',
    'trab_pais' = 'en_que_pais_trabaja_actualmente',
   'subdir_otr' = 'indique_en_la_subdireccion_o_unidad_mayor_en_la_que_se_desempena_principalmente_al_interior_del_establecimiento_de_salud',
   'correo_final' = 'favor_ingrese_su_correo_eletronico_este_solo_sera_utilizado_para_los_fines_indicados_en_el_consentimiento_direccion_de_correo_electronico',
   'p3_siente_1' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_agotado_fisicamente',
   'p3_siente_2' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_agotado_emocionalmente',
   'p3_siente_3' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_estresado',
   'p3_siente_4' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_irritable',
   'p3_siente_5' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_con_dificultades_para_descansar_al_dormir',
   'p3_siente_6' = 'en_los_ultimos_7_dias_cuan_a_menudo_me_he_sentido_con_problemas_para_mantener_el_sueno_al_dormir',
   'p4_afront_1' = 'en_la_ultima_semana_y_a_consecuencia_de_la_situacion_sanitaria_me_he_sentido_distante_y_desconectado_de_mi_mismo_y_mi_entorno',
   'p4_afront_2' = 'en_la_ultima_semana_y_a_consecuencia_de_la_situacion_sanitaria_me_he_sentido_sobresaltado_en_guardia_o_me_alarmo_facilmente',
   'p4_afront_3' = 'en_la_ultima_semana_y_a_consecuencia_de_la_situacion_sanitaria_me_he_sentido_irritable_al_punto_de_reaccionar_bruscamente',
   'p5_animo_1' = 'senale_con_que_frecuencia_ha_experimentado_las_siguientes_situaciones_en_los_ultimos_7_dias_me_he_sentido_nervioso_ansioso_o_con_los_nervios_de_punta',
   'p5_animo_2' = 'senale_con_que_frecuencia_ha_experimentado_las_siguientes_situaciones_en_los_ultimos_7_dias_no_he_podido_dejar_de_preocuparme',
   'p5_animo_3' = 'senale_con_que_frecuencia_ha_experimentado_las_siguientes_situaciones_en_los_ultimos_7_dias_he_sentido_falta_de_interes_o_poca_satisfaccion_en_hacer_cosas',
   'p5_animo_4' = 'senale_con_que_frecuencia_ha_experimentado_las_siguientes_situaciones_en_los_ultimos_7_dias_me_he_sentido_decaido_deprimido_o_desesperanzado',
   'p6_exp_c19_pac_cont' = 'cuantos_pacientes_contagiados_con_covid_19_con_sospecha_y_o_confirmado_hay_en_total_en_su_lugar_de_trabajo_principal_en_la_ultima_semana',
   'p7_exp_c19_trab_cont' = 'cuantos_trabajadores_contagiados_con_covid_19_con_sospecha_y_o_confirmado_hay_en_total_en_su_lugar_de_trabajo_principal_en_la_ultima_semana',
   'p8_exp_c19_cerca_cont' = 'que_tan_cercano_es_el_contacto_que_usted_tiene_con_pacientes_con_covid_19',
   'p9_exp_c19_exp_sit_dg_01' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_han_dicho_que_tuvo_contacto_con_un_paciente_covid_19_en_el_trabajo',
   'p9_exp_c19_exp_sit_dg_02' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_han_dicho_que_tuvo_contacto_con_un_paciente_covid_19_fuera_del_trabajo',
   'p9_exp_c19_exp_sit_dg_03' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_solicitaron_que_trabajara_a_pesar_de_la_exposicion_a_covid_19',
   'p9_exp_c19_exp_sit_dg_04' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_experimento_sintomas_similares_a_los_de_covid_19',
   'p9_exp_c19_exp_sit_dg_05' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_solicitaron_que_trabajara_a_pesar_de_los_sintomas',
   'p9_exp_c19_exp_sit_dg_06' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_dijeron_que_trabajara_a_pesar_de_no_contar_con_ep_ps',
   'p9_exp_c19_exp_sit_dg_07' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_le_solicitaron_que_se_aislara',
   'p9_exp_c19_exp_sit_dg_08' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_se_hizo_el_examen_para_descartar_covid_19',
   'p9_exp_c19_exp_sit_dg_09' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_dio_positivo_en_el_examen_para_descartar_covid_19',
   'p9_exp_c19_exp_sit_dg_10' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_presento_formularios_de_compensacion_por_contraer_covid_19_en_el_trabajo_seguro_de_vida_enfermedad_laboral',
   'p9_exp_c19_exp_sit_dg_11' = 'ha_experimentado_alguna_de_las_siguientes_situaciones_desde_el_primer_caso_diagnosticado_en_el_pais_por_favor_marque_las_que_apliquen_a_su_caso_ninguna_de_las_anteriores',
   'p10_exp_c19_preocupa_llevar' = 'se_ha_sentido_preocupado_por_llevar_el_virus_desde_el_trabajo_a_aquellos_con_los_que_vives_y_o_amigos',
   'p11_exp_c19_miedo_pand' = 'como_califica_su_nivel_de_miedo_de_la_situacion_de_pandemia_al_dia_de_hoy',
   'p12_contr_cont_imp_nec_01' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_guantes',
   'p12_contr_cont_imp_nec_02' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_protector_de_ojos_lentes',
   'p12_contr_cont_imp_nec_03' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_protector_facial',
   'p12_contr_cont_imp_nec_04' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_overol',
   'p12_contr_cont_imp_nec_05' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_desinfectante_de_manos',
   'p12_contr_cont_imp_nec_06' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_mascarilla_quirurgica',
   'p12_contr_cont_imp_nec_07' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_mascarilla_n95',
   'p12_contr_cont_imp_nec_08' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_respirador_de_aire_impulsado',
   'p12_contr_cont_imp_nec_09' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_delantal_pechera',
   'p12_contr_cont_imp_nec_10' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_cofia',
   'p12_contr_cont_imp_nec_11' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_cubre_calzado',
   'p12_contr_cont_imp_nec_12' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_ninguno_de_los_anteriores',
   'p12_contr_cont_imp_nec_13' = 'en_base_a_su_lugar_de_trabajo_principal_seleccione_aquellos_implementos_que_considera_necesario_utilizar_otro_especifique',
   'p13_contr_cont_imp_disp_01' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_guantes',
   'p13_contr_cont_imp_disp_02' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_protector_de_ojos',
   'p13_contr_cont_imp_disp_03' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_protector_facial',
   'p13_contr_cont_imp_disp_04' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_overol',
   'p13_contr_cont_imp_disp_05' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_desinfectante_de_manos',
   'p13_contr_cont_imp_disp_06' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_mascarilla_quirurgica',
   'p13_contr_cont_imp_disp_07' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_mascarilla_n95',
   'p13_contr_cont_imp_disp_08' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_respiradores_de_particulas_de_aire_impulsado',
   'p13_contr_cont_imp_disp_09' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_delantal_pechera',
   'p13_contr_cont_imp_disp_10' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_cofia',
   'p13_contr_cont_imp_disp_11' = 'en_base_a_su_lugar_de_trabajo_principal_como_evalua_la_disponibilidad_de_los_siguientes_elementos_de_proteccion_personal_epp_cubre_calzado',
   'p14_contr_cont_cap_epp' = 'ha_participado_en_alguna_capacitacion_sobre_el_uso_correcto_de_ep_ps',
   'p15_contr_cont_14a_eval_cap' = 'como_evaluaria_la_eficacia_de_las_capacitaciones_recibidas_para_trabajar_de_forma_segura_con_el_covid_19',
   'p16_contr_cont_conf_epps' = 'cuan_confiado_se_siente_al_ponerse_y_quitarse_los_ep_ps_de_manera_segura',
   'p17_contr_cont_restr_epp_1' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_mi_empleador_se_ha_rehusado_a_dar_cierto_tipo_de_epp',
   'p17_contr_cont_restr_epp_2' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_necesito_permiso_para_utilizar_algun_epp_especifico',
   'p17_contr_cont_restr_epp_3' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_no_se_me_permite_reutilizar_mi_propio_epp',
   'p17_contr_cont_restr_epp_4' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_no_se_me_permite_reutilizar_ep_ps_utilizados_previamente_por_otros',
   'p17_contr_cont_restr_epp_5' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_mi_empleador_no_ha_impuesto_restricciones_al_uso_de_ep_ps',
   'p17_contr_cont_restr_epp_6' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_no_aplica',
   'p17_contr_cont_restr_epp_7' = 'su_empleador_le_ha_impuesto_alguna_de_las_siguientes_restricciones_al_uso_de_ep_ps_marque_las_opciones_que_apliquen_a_su_experiencia_otro_especifique',
   'p18_contr_cont_conf_eval_ri' = 'cuan_confiado_se_siente_para_evaluar_su_riesgo_personal_y_determinar_la_pertinencia_de_sus_ep_ps',
   'p19_contr_cont_nieg_epp' = 'si_se_le_niega_el_epp_apropiado_seleccione_la_afirmacion_que_mejor_exprese_su_sentir_frente_al_ejercer_su_derecho_a_negarse_a_realizar_un_trabajo_inseguro',
   'p20_contr_cont_med_pev_1' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_evaluacion_pacientes_en_la_entrada_al_recinto_de_salud',
   'p20_contr_cont_med_pev_2' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_uso_obligatorio_de_mascarillas_en_pacientes_sintomaticos',
   'p20_contr_cont_med_pev_3' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_aislacion_de_pacientes_con_sintomas_respiratorios',
   'p20_contr_cont_med_pev_4' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_restriccion_del_acceso_y_flujo_de_pacientes_con_covid_en_el_recinto_de_salud',
   'p20_contr_cont_med_pev_5' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_funcionamiento_de_sistemas_de_ventilacion',
   'p20_contr_cont_med_pev_6' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_habilitacion_de_salas_de_aislamiento_de_infecciones_aereas',
   'p20_contr_cont_med_pev_7' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_habilitacion_de_camarin_o_espacios_de_higiene_del_personal',
   'p20_contr_cont_med_pev_8' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_mecanismos_de_limpieza_de_ropa_e_indumentaria',
   'p20_contr_cont_med_pev_9' = 'como_califica_las_medidas_preventivas_aplicadas_en_su_principal_lugar_de_trabajo_procesos_de_eliminacion_de_residuos',
   'p21_cond_trab_hr_trabajada' = 'cuantas_horas_trabajo_la_semana_pasada_en_su_lugar_de_trabajo_principal_en_numeros',
   'p22_cond_trab_hr_trabara' = 'cuantas_horas_cree_que_trabajara_esta_semana_en_su_lugar_de_trabajo_principal',
   'p23_cond_trab_pert_sind' = 'usted_pertenece_a_un_sindicato_o_gremio_de_trabajadores_en_su_lugar_de_trabajo_principal',
   'p24_cond_trab_23a_sind_nom' = 'en_cual_sindicato_gremio_usted_forma_parte_en_su_lugar_de_trabajo_principal',
   'p25_cond_trab_23b_cargo_sin' = 'tiene_usted_algun_cargo_de_representacion_sindical_en_su_lugar_de_trabajo_principal',
   'p26_cond_trab_ent_protec_1' = 'en_funcion_de_su_experiencia_en_su_lugar_de_trabajo_principal_en_que_grado_esta_de_acuerdo_con_que_las_siguientes_entidades_estan_haciendo_todo_lo_posible_para_proteger_al_personal_sindicato_gremio',
   'p26_cond_trab_ent_protec_2' = 'en_funcion_de_su_experiencia_en_su_lugar_de_trabajo_principal_en_que_grado_esta_de_acuerdo_con_que_las_siguientes_entidades_estan_haciendo_todo_lo_posible_para_proteger_al_personal_empleador',
   'p26_cond_trab_ent_protec_3' = 'en_funcion_de_su_experiencia_en_su_lugar_de_trabajo_principal_en_que_grado_esta_de_acuerdo_con_que_las_siguientes_entidades_estan_haciendo_todo_lo_posible_para_proteger_al_personal_gobierno',
   'p26_cond_trab_ent_protec_4' = 'en_funcion_de_su_experiencia_en_su_lugar_de_trabajo_principal_en_que_grado_esta_de_acuerdo_con_que_las_siguientes_entidades_estan_haciendo_todo_lo_posible_para_proteger_al_personal_comite_paritario_de_salud_y_seguridad',
   'p27_cond_trab_sup_jef' = 'tiene_usted_algun_cargo_de_supervision_jefatura_o_gerencia_en_su_lugar_de_trabajo_principal',
   'p28_cond_trab_sis_trab' = 'donde_trabaja_actualmente',
   'p29_cond_trab_28c_sis_mix_0' = 'en_que_tipo_de_centro_de_salud_trabaja_principalmente',
   'p29_cond_trab_28c_sis_mix' = 'en_que_tipo_de_centro_de_salud_trabaja_publico',
   'p29_cond_trab_28b_sis_priv' = 'en_que_tipo_de_centro_de_salud_trabaja_principalmente_1',
   'p29_cond_trab_28c_sis_mix' = 'en_que_tipo_de_centro_de_salud_trabaja',
   'p30_cond_trab_28c_sis_mix_a' = 'en_que_tipo_de_centro_de_salud_trabaja_ademas',
   'p31_cond_trab_unidad' = 'en_que_unidad_se_desempena',
   'p32_cond_trab_est' = 'estamento',
   'p33_cond_trab_sit_cont' = 'situacion_contractual',
   'p34_cond_trab_tiemp_trab' = 'cuanto_tiempo_ha_trabajado_para_su_actual_empleo_y_principal_en_anos',
   'p35_cond_trab_tareas' = 'describa_brevemente_el_tipo_de_tareas_que_implica_su_trabajo_actual',
   'p36_cond_trab_reasig' = 'actualmente_esta_desempenando_sus_labores_habituales_o_ha_sido_reasignado_en_funcion_de_la_actual_crisis_sanitaria_en_su_lugar_de_trabajo_principal',
   'p37_cond_trab_num_est' = 'cuantos_trabajadores_estima_que_se_desempenan_en_su_lugar_de_trabajo_principal',
   'p38_cond_trab_sal_psi' = 'como_calificaria_la_salud_psicologica_de_las_personas_con_las_que_trabaja_en_su_lugar_de_trabajo_principal',
   'p39_cond_trab_cult_org' = 'cuan_de_acuerdo_esta_con_la_siguiente_afirmacion_la_cultura_de_mi_organizacion_tolera_comportamientos_que_perjudican_la_salud_mental_de_los_trabajadores',
   'p40_cond_trab_istas_01' = 'en_su_trabajo_principal_usted_tiene_que_trabajar_muy_rapido_para_entregar_tareas_solicitadas_en_poco_tiempo',
   'p40_cond_trab_istas_02' = 'en_su_trabajo_principal_usted_trabaja_a_un_ritmo_acelerado_durante_la_jornada',
   'p40_cond_trab_istas_03' = 'en_su_trabajo_principal_usted_recibe_toda_la_informacion_que_necesita_para_realizar_bien_su_trabajo',
   'p40_cond_trab_istas_04' = 'en_su_trabajo_principal_usted_se_le_exigen_cosas_contradictorias_en_el_trabajo',
   'p40_cond_trab_istas_05' = 'en_su_trabajo_principal_usted_tiene_que_hacer_tareas_que_usted_cree_que_deberian_hacerse_de_otra_manera',
   'p40_cond_trab_istas_06' = 'en_su_trabajo_principal_su_superior_directo_esta_dispuesto_a_escuchar_sus_problemas_en_el_trabajo',
   'p40_cond_trab_istas_07' = 'en_su_trabajo_principal_recibe_ayuda_y_apoyo_de_su_superior_directo',
   'p40_cond_trab_istas_08' = 'en_su_trabajo_principal_recibe_ayuda_y_apoyo_para_el_trabajo_de_sus_companeras_o_companeros_de_trabajo',
   'p40_cond_trab_istas_09' = 'en_su_trabajo_principal_hay_un_buen_ambiente_entre_usted_y_sus_companeros_y_companeras_de_trabajo',
   'p40_cond_trab_istas_10' = 'en_su_trabajo_principal_recibe_ayuda_y_apoyo_de_su_familia_amigos_fuera_del_lugar_de_trabajo',
   'p40_cond_trab_istas_10.1' = 'en_su_trabajo_principal_recibe_ayuda_y_apoyo_de_tu_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',
    'p48_demo_zona' = 'su_lugar_de_trabajo_principal_esta_ubicado_en_una_zona',
 'p49_demo_comuna_trabajo' = 'en_que_comuna_se_ubica_su_lugar_de_trabajo_principal',
   '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',
   "ptjes_sm"="Puntajes de dimensiones de Salud Mental",
   "requiere_atencion"="¿Indicios de mayor impacto en la salud psicológica(Mayor o igual a 48 puntos)",
   "p11_exp_c19_miedo_pand_rec" = "¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado)",
 #"tipo_centro_priv_pub"="en_que_tipo_de_centro_de_salud_trabaja_publico",
 "inst"="institucion")

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
columnas_nombre<-data.table::data.table(t(as.data.frame.list(columnas_nombre0)),keep.rownames = T)
#columnas_nombre_sav<-data.table::data.table(data.frame(columnas_nombre_sav),keep.rownames = T)
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#

colnames_std<-
  data.frame(colnames=colnames(
    get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))) %>% 
  janitor::clean_names())) %>% 
  dplyr::left_join(columnas_nombre, by=c("colnames"="V1"))

colnames_anti<-
  columnas_nombre %>% 
  dplyr::anti_join(data.frame(colnames=colnames(
    get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))) %>% 
  janitor::clean_names())), by=c("V1"="colnames"))

names_df_std<-cbind.data.frame(colnames_std,names_df)

#GENERAR BASE DE DATOS
    get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))) %>% 
      #dplyr::select(-CollectorNm) %>% 
      janitor::clean_names() %>% 
      dplyr::rename_at(vars(colnames_std$colnames), ~ colnames_std$rn) %>% 
        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, 1, nchar(input2)-1)),"_2"),
               .,
               envir=.GlobalEnv)  
    paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2")
## [1] "enc_trab_sal_toda_2"


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]
  for (i in 1:length(get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2")))){
          attributes(enc_trab_sal_toda_2)$"variable.labels"[i]<-names_df_std[i,3] 
    #target of assignment expands to non-language object
    # assign(   
    #   attr(get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2"))[[i]],"label"),
    #   names_df_std[i,3],
    #envir=.GlobalEnv) 
  }


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
#, locale=locale(encoding = "UTF-8")
####PROBLEMÁTICOS
get(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2")) %>%
  dplyr::mutate(cons_inf=ifelse(grepl("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(vars(starts_with("p13_contr_cont_imp_disp_")),~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)) %>%   
  #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'),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 = "UTF-8"),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)
  mutate_at(vars(one_of('p29_cond_trab_28c_sis_mix')),~factor(dplyr::case_when(grepl("ambulatoria",.)~'Atención ambulatoria (consulta privada, centro médico,mutual,etc)',grepl("^Clínica",.)~'Clínica'))) %>% 
  dplyr::mutate_at(vars(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(.)) %>%   
  mutate_at(vars(one_of('p48_demo_zona')),~parse_factor(as.character(.),levels=c('Urbana', 'Rural'),ordered=T,trim_ws=T,include_na =F)) %>% 
  #janitor::tabyl(p48_demo_zona)# %>% 
  mutate_at(vars(one_of('p49_demo_comuna_trabajo')),~factor(.)) %>% 
  mutate_at(vars(one_of('inst')),~factor(.)) %>% 
  #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)
## Warning: Unknown columns: `p29_cond_trab_28c_sis_mix`
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels<-names(surveymonkey_accionsalududp_df2_ins)
  for (i in 1:nrow(names_df_std)){
    attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-names_df_std[i,3]
  }

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

2 Exploración de Datos

options(knitr.kable.NA = '')
#surveymonkey_accionsalududp_df2_ins%>% dplyr::select(-(resp_id:correo_final))%>%
#    dplyr::select(where(is.character)) %>% glimpse()
#
var_lbls_no_char<-
    data.frame(nam=attributes(surveymonkey_accionsalududp_df2_ins)$"names",
               var_lab=attributes(surveymonkey_accionsalududp_df2_ins)$"variable.labels") %>% 
      dplyr::right_join(surveymonkey_accionsalududp_df2_ins%>% dplyr::select(-(resp_id:correo_final))%>%
       dplyr::select(-where(is.character)) %>% names() %>% data.frame(), by=c("nam"="."))

skimr_surveymonkey_accionsalududp_df2_ins<-
surveymonkey_accionsalududp_df2_ins%>% dplyr::select(-(resp_id:correo_final))%>%
   dplyr::select(-where(is.character)) %>%
                #-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)

skimr_surveymonkey_accionsalududp_df2_ins %>% 
  dplyr::left_join(var_lbls_no_char, by=c("skim_variable"="nam")) %>% 
  dplyr::select(skim_type,skim_variable,var_lab, everything()) %>% 
  knitr::kable(.,format = "html", format.args = list(decimal.mark = ".", big.mark = ","),
               caption = paste0("Tabla 1a. Resumen de Variables"),#,
               col.names = c("Tipo","Variable","Etiqueta","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")
Tabla 1a. Resumen de Variables
Tipo Variable Etiqueta 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 En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente. 167 80.42% TRUE 5 Alg: 264, La : 249, Sól: 107, Sie: 47
factor p3_siente_2 En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente. 167 80.42% TRUE 5 Alg: 253, La : 218, Sól: 117, Sie: 52
factor p3_siente_3 En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado. 167 80.42% TRUE 5 Alg: 271, La : 201, Sól: 121, Sie: 59
factor p3_siente_4 En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable. 167 80.42% TRUE 5 Alg: 262, Sól: 210, La : 100, Nun: 85
factor p3_siente_5 En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir. 167 80.42% TRUE 5 Alg: 212, La : 173, Sól: 128, Nun: 88
factor p3_siente_6 En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir. 167 80.42% TRUE 5 Alg: 189, Sól: 154, La : 152, Nun: 119
factor p4_afront_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. 172 79.84% TRUE 5 Un : 219, Reg: 167, Nad: 159, Bas: 113
factor p4_afront_2 En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente. 172 79.84% TRUE 5 Un : 203, Nad: 161, Reg: 151, Bas: 136
factor p4_afront_3 En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente. 172 79.84% TRUE 5 Nad: 263, Un : 214, Reg: 116, Bas: 63
factor p5_animo_1 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. 184 78.43% TRUE 4 Alg: 337, Más: 141, Nun: 131, Cas: 60
factor p5_animo_2 Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme. 184 78.43% TRUE 4 Alg: 286, Más: 186, Nun: 100, Cas: 97
factor p5_animo_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. 184 78.43% TRUE 4 Alg: 329, Nun: 156, Más: 129, Cas: 55
factor p5_animo_4 Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado. 184 78.43% TRUE 4 Alg: 329, Nun: 169, Más: 128, Cas: 43
factor p6_exp_c19_pac_cont ¿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? 206 75.85% TRUE 6 Nin: 297, 1 a: 252, 11 : 64, 31 : 25
factor p7_exp_c19_trab_cont ¿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? 206 75.85% TRUE 6 Nin: 343, 2 a: 188, Sól: 89, 11 : 18
factor p8_exp_c19_cerca_cont ¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19? 206 75.85% TRUE 7 Nin: 248, Tra: 142, Com: 136, Com: 60
factor 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? 213 75.03% TRUE 5 Muc: 299, Bas: 151, Un : 136, No : 31
factor p11_exp_c19_miedo_pand ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? 213 75.03% TRUE 10 5: 132, 7: 103, 6: 95, 4: 73
factor p13_contr_cont_imp_disp_01 En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes. 240 71.86% TRUE 3 Suf: 372, No : 152, Ins: 89
factor p13_contr_cont_imp_disp_02 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. 240 71.86% TRUE 3 Suf: 245, No : 210, Ins: 158
factor p13_contr_cont_imp_disp_03 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. 240 71.86% TRUE 3 Suf: 334, Ins: 151, No : 128
factor p13_contr_cont_imp_disp_04 En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol. 240 71.86% TRUE 3 No : 438, Suf: 90, Ins: 85
factor p13_contr_cont_imp_disp_05 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. 240 71.86% TRUE 3 Suf: 505, Ins: 73, No : 35
factor p13_contr_cont_imp_disp_06 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. 240 71.86% TRUE 3 Suf: 488, Ins: 88, No : 37
factor p13_contr_cont_imp_disp_07 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. 240 71.86% TRUE 3 Ins: 224, No : 209, Suf: 180
factor p13_contr_cont_imp_disp_08 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. 240 71.86% TRUE 3 No : 504, Ins: 81, Suf: 28
factor p13_contr_cont_imp_disp_09 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. 240 71.86% TRUE 3 Suf: 295, No : 252, Ins: 66
factor p13_contr_cont_imp_disp_10 En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cofia. 240 71.86% TRUE 3 No : 350, Suf: 158, Ins: 105
factor p13_contr_cont_imp_disp_11 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. 240 71.86% TRUE 3 No : 413, Ins: 124, Suf: 76
factor p14_contr_cont_cap_epp ¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s? 240 71.86% TRUE 7 Sí,: 269, No : 178, Sí,: 73, Sí,: 66
factor p15_contr_cont_14a_eval_cap ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19? 419 50.88% TRUE 4 Bue: 217, Reg: 146, Exc: 45, Mal: 26
factor p16_contr_cont_conf_epps ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura? 255 70.11% TRUE 6 Bas: 296, Alg: 122, Tot: 86, Poc: 39
factor p18_contr_cont_conf_eval_ri ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s? 255 70.11% TRUE 6 Bas: 261, Alg: 148, Tot: 93, Poc: 50
factor p19_contr_cont_nieg_epp 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: 255 70.11% TRUE 6 Pro: 205, Def: 127, Qui: 106, Neg: 67
factor p20_contr_cont_med_pev_1 ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud. 283 66.82% TRUE 6 Apr: 176, No : 120, Def: 118, Apr: 117
factor p20_contr_cont_med_pev_2 ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos. 283 66.82% TRUE 6 Apr: 291, No : 136, Apr: 72, No : 36
factor p20_contr_cont_med_pev_3 ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios. 283 66.82% TRUE 6 Apr: 265, No : 155, Apr: 76, No : 41
factor p20_contr_cont_med_pev_4 ¿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. 283 66.82% TRUE 6 Apr: 240, No : 139, Apr: 88, No : 52
factor p20_contr_cont_med_pev_5 ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación. 283 66.82% TRUE 6 Def: 141, No : 132, Apr: 103, No : 71
factor p20_contr_cont_med_pev_6 ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas. 283 66.82% TRUE 6 Apr: 179, No : 174, Def: 66, No : 63
factor p20_contr_cont_med_pev_7 ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal. 283 66.82% TRUE 6 Def: 147, No : 135, Apr: 118, Ina: 67
factor p20_contr_cont_med_pev_8 ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria. 283 66.82% TRUE 6 No : 156, Apr: 151, Def: 98, No : 87
factor p20_contr_cont_med_pev_9 ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos. 283 66.82% TRUE 6 Apr: 263, No : 95, No : 70, Apr: 57
factor p23_cond_trab_pert_sind ¿Usted pertenece a un sindicato o gremio de trabajadores en su lugar de trabajo principal? 0 100.00% FALSE 3 Sí: 347, NA: 305, No: 201
factor p25_cond_trab_23b_cargo_sin ¿Tiene usted algún cargo de representación sindical en su lugar de trabajo principal? 0 100.00% FALSE 3 NA: 507, No: 328, Sí: 18
factor p26_cond_trab_ent_protec_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. 316 62.95% TRUE 5 De : 182, Ni : 146, Tot: 136, En : 54
factor p26_cond_trab_ent_protec_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. 316 62.95% TRUE 5 De : 219, Tot: 119, Ni : 110, En : 74
factor p26_cond_trab_ent_protec_3 En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Gobierno. 316 62.95% TRUE 5 Ni : 145, En : 141, De : 109, Tot: 92
factor p26_cond_trab_ent_protec_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. 316 62.95% TRUE 5 Ni : 198, De : 150, Tot: 82, En : 75
factor p27_cond_trab_sup_jef ¿Tiene usted algún cargo de supervisión, jefatura o gerencia en su lugar de trabajo principal? 0 100.00% FALSE 3 No: 332, NA: 316, Sí: 205
factor p28_cond_trab_sis_trab ¿Dónde trabaja actualmente? 316 62.95% TRUE 3 Sis: 504, Sis: 20, Sis: 13
factor p29_cond_trab_28c_sis_mix_0 En qué tipo de centro de salud trabaja principalmente: 351 58.85% FALSE 4 Ate: 304, Aut: 113, Ate: 67, Ate: 18
factor p30_cond_trab_28c_sis_mix_a En qué tipo de centro de salud trabaja además 833 2.34% FALSE 2 Ate: 11, Clí: 9
factor p32_cond_trab_est Estamento: 335 60.73% TRUE 7 Otr: 239, Enf: 89, Téc: 62, Adm: 56
factor p36_cond_trab_reasig ¿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? 335 60.73% TRUE 7 Man: 345, Man: 42, Dis: 37, Lab: 34
factor p37_cond_trab_num_est ¿Cuántos trabajadores estima que se desempeñan en su lugar de trabajo principal? 335 60.73% TRUE 7 Men: 185, 21 : 96, 250: 86, 100: 64
factor p38_cond_trab_sal_psi ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? 347 59.32% TRUE 4 Reg: 246, Bue: 184, Mal: 64, Exc: 12
factor p39_cond_trab_cult_org ¿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”. 347 59.32% TRUE 5 De : 175, Neu: 128, En : 87, Tot: 82
factor p40_cond_trab_istas_01 En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? 347 59.32% TRUE 5 Alg: 187, La : 140, Sie: 101, Sól: 62
factor p40_cond_trab_istas_02 En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? 347 59.32% TRUE 5 Alg: 181, La : 166, Sie: 87, Sól: 58
factor p40_cond_trab_istas_03 En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? 347 59.32% TRUE 5 La : 218, Alg: 143, Sie: 94, Sól: 45
factor p40_cond_trab_istas_04 En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? 347 59.32% TRUE 5 Nun: 182, Alg: 153, Sól: 127, La : 27
factor p40_cond_trab_istas_05 En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? 347 59.32% TRUE 5 Alg: 207, Sól: 119, Nun: 75, La : 72
factor p40_cond_trab_istas_06 En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? 347 59.32% TRUE 5 Sie: 242, La : 148, Alg: 60, Sól: 37
factor p40_cond_trab_istas_07 En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? 347 59.32% TRUE 5 Sie: 194, La : 158, Alg: 85, Sól: 48
factor p40_cond_trab_istas_08 En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? 347 59.32% TRUE 5 La : 196, Sie: 157, Alg: 107, Sól: 33
factor p40_cond_trab_istas_09 En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? 347 59.32% TRUE 5 La : 229, Sie: 190, Alg: 68, Sól: 13
factor p40_cond_trab_istas_10 En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo? 347 59.32% TRUE 5 Sie: 297, La : 115, Alg: 57, Sól: 19
factor p42_resiliencia_1 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. 350 58.97% TRUE 4 Cie: 344, Más: 140, Ape: 16, Inc: 3
factor p42_resiliencia_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. 350 58.97% TRUE 4 Cie: 288, Más: 187, Ape: 25, Inc: 3
factor p42_resiliencia_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. 350 58.97% TRUE 4 Cie: 308, Más: 175, Ape: 17, Inc: 3
factor p44_demo_educacion ¿Cuál es el último nivel educacional que usted completó? 353 58.62% TRUE 4 Uni: 241, Pos: 143, Téc: 92, Med: 24
factor p46_demo_tiempo_viaje Esta semana, ¿Cuánto tiempo duró un viaje típico de ida y vuelta a su lugar de trabajo principal? (considere un sólo trayecto) 353 58.62% TRUE 7 Men: 196, 20 : 94, 40 : 80, 1 a: 47
factor p48_demo_zona Su lugar de trabajo principal está ubicado en una zona: 748 12.31% TRUE 2 Urb: 98, Rur: 7
factor p49_demo_comuna_trabajo ¿En qué comuna se ubica su lugar de trabajo principal? 748 12.31% FALSE 55 Pro: 9, Ran: 6, Las: 5, Mai: 4
factor inst institucion 177 79.25% FALSE 7 SS : 149, Hos: 118, Hos: 110, Hos: 104
factor requiere_atencion Indicios de mayor impacto en la salud psicológica(Mayor o igual a 48 puntos) 0 100.00% FALSE 2 0: 789, 1: 64
factor p11_exp_c19_miedo_pand_rec ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado) 213 75.03% FALSE 2 Aus: 332, Mie: 308
logical p9_exp_c19_exp_sit_dg_01 ¿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. 213 75.03% 0.3375000 FAL: 424, TRU: 216
logical p9_exp_c19_exp_sit_dg_02 ¿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. 213 75.03% 0.0953125 FAL: 579, TRU: 61
logical p9_exp_c19_exp_sit_dg_03 ¿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. 213 75.03% 0.2046875 FAL: 509, TRU: 131
logical p9_exp_c19_exp_sit_dg_04 ¿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. 213 75.03% 0.2546875 FAL: 477, TRU: 163
logical p9_exp_c19_exp_sit_dg_05 ¿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. 213 75.03% 0.0312500 FAL: 620, TRU: 20
logical p9_exp_c19_exp_sit_dg_06 ¿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. 213 75.03% 0.0968750 FAL: 578, TRU: 62
logical p9_exp_c19_exp_sit_dg_07 ¿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. 213 75.03% 0.1750000 FAL: 528, TRU: 112
logical p9_exp_c19_exp_sit_dg_08 ¿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. 213 75.03% 0.4671875 FAL: 341, TRU: 299
logical p9_exp_c19_exp_sit_dg_09 ¿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. 213 75.03% 0.0609375 FAL: 601, TRU: 39
logical p9_exp_c19_exp_sit_dg_10 ¿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). 213 75.03% 0.1093750 FAL: 570, TRU: 70
logical p9_exp_c19_exp_sit_dg_11 ¿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. 213 75.03% 0.2984375 FAL: 449, TRU: 191
logical p12_contr_cont_imp_nec_01 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes 240 71.86% 0.5709625 TRU: 350, FAL: 263
logical 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) 240 71.86% 0.4616639 FAL: 330, TRU: 283
logical p12_contr_cont_imp_nec_03 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial 240 71.86% 0.6133768 TRU: 376, FAL: 237
logical p12_contr_cont_imp_nec_04 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol 240 71.86% 0.0799347 FAL: 564, TRU: 49
logical p12_contr_cont_imp_nec_05 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos 240 71.86% 0.8711256 TRU: 534, FAL: 79
logical p12_contr_cont_imp_nec_06 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica 240 71.86% 0.8580750 TRU: 526, FAL: 87
logical p12_contr_cont_imp_nec_07 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95 240 71.86% 0.5057096 TRU: 310, FAL: 303
logical 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 240 71.86% 0.0195759 FAL: 601, TRU: 12
logical p12_contr_cont_imp_nec_09 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera 240 71.86% 0.4649266 FAL: 328, TRU: 285
logical p12_contr_cont_imp_nec_10 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia 240 71.86% 0.3115824 FAL: 422, TRU: 191
logical p12_contr_cont_imp_nec_11 En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado 240 71.86% 0.1533442 FAL: 519, TRU: 94
logical 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 240 71.86% 0.0212072 FAL: 600, TRU: 13
logical p17_contr_cont_restr_epp_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. 255 70.11% 0.0953177 FAL: 541, TRU: 57
logical p17_contr_cont_restr_epp_2 ¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Necesito permiso para utilizar algún EPP específico. 255 70.11% 0.1270903 FAL: 522, TRU: 76
logical p17_contr_cont_restr_epp_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. 255 70.11% 0.0936455 FAL: 542, TRU: 56
logical p17_contr_cont_restr_epp_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. 255 70.11% 0.1672241 FAL: 498, TRU: 100
logical p17_contr_cont_restr_epp_5 ¿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 no ha impuesto restricciones al uso de EPP’s. 255 70.11% 0.3812709 FAL: 370, TRU: 228
logical p17_contr_cont_restr_epp_6 ¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica 255 70.11% 0.3026756 FAL: 417, TRU: 181
logical p45_demo_id_personal_1 De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Mujer. 353 58.62% 0.7500000 TRU: 375, FAL: 125
logical p45_demo_id_personal_2 De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Hombre. 353 58.62% 0.2420000 FAL: 379, TRU: 121
logical p45_demo_id_personal_3 De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | LGBTIQ+. 353 58.62% 0.0220000 FAL: 489, TRU: 11
logical p45_demo_id_personal_4 De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Pueblo originario 853 0.00% :
logical p45_demo_id_personal_5 De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Migrante. 353 58.62% 0.0080000 FAL: 496, TRU: 4
logical p45_demo_id_personal_6 De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Perteneciente a alguna etnia. 353 58.62% 0.0320000 FAL: 484, TRU: 16
logical p45_demo_id_personal_7 De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Persona en situación de discapacidad. 353 58.62% 0.0020000 FAL: 499, TRU: 1
logical p45_demo_id_personal_8 De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Prefiero no decirlo. 353 58.62% 0.0120000 FAL: 494, TRU: 6
logical p47_demo_medio_transp_01 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Propio vehículo. 353 58.62% 0.5040000 TRU: 252, FAL: 248
logical p47_demo_medio_transp_02 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Compartió el auto con otros. 353 58.62% 0.1220000 FAL: 439, TRU: 61
logical p47_demo_medio_transp_03 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Micro. 353 58.62% 0.0740000 FAL: 463, TRU: 37
logical p47_demo_medio_transp_04 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Metro. 353 58.62% 0.0940000 FAL: 453, TRU: 47
logical p47_demo_medio_transp_05 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Caminando. 353 58.62% 0.2160000 FAL: 392, TRU: 108
logical p47_demo_medio_transp_06 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Bicicleta. 353 58.62% 0.0280000 FAL: 486, TRU: 14
logical p47_demo_medio_transp_07 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Bus (Interurbanos o Regionales). 353 58.62% 0.0220000 FAL: 489, TRU: 11
logical p47_demo_medio_transp_10 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Taxi Colectivo. 353 58.62% 0.0600000 FAL: 470, TRU: 30
logical p47_demo_medio_transp_08 ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | No aplica. 353 58.62% 0.0600000 FAL: 470, TRU: 30
numeric p21_cond_trab_hr_trabajada ¿Cuántas horas trabajó la semana pasada en su lugar de trabajo principal? (en números) 305 64.24% 40.397810 15.668718 1 36 44 48 90
numeric p22_cond_trab_hr_trabara ¿Cuántas horas cree que trabajará esta semana en su lugar de trabajo principal? 305 64.24% 40.560219 14.597777 1 39 44 48 80
numeric p34_cond_trab_tiemp_trab ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (en años) 335 60.73% 8.349421 8.460827 0 2 5 11 40
numeric p43_demo_edad ¿Qué edad tiene? (en números) 353 58.62% 38.542000 9.900519 21 31 37 45 67
numeric ptjes_sm Puntajes de dimensiones de Salud Mental 0 100.00% 27.192263 16.124824 0 19 31 39 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)
d  <- tm_map(d, stripWhitespace)
d <- tm_map(d, removePunctuation)
d <- tm_map(d, removeNumbers)
d <- tm_map(d, removeWords, stopwords("spanish"))
d <- tm_map(d, removeWords, "menos")
#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","trabajo","parte","contar",""))
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=200, random.order=FALSE, rot.per=0.35, 
          colors=brewer.pal(8, "Greys"))
Figura 1. Nube de Palabras, Observaciones

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:20, ] %>%
  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

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,200,25))+
  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)

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_prev1<-
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")) %>% 
  dplyr::ungroup()

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#Agregar etiquetas
for (i in 1:length(attributes(surveymonkey_accionsalududp_df2_ins)$name)){
attributes(surveymonkey_accionsalududp_df2_cor_prev1)$variable.labels[i]<-
  attributes(surveymonkey_accionsalududp_df2_ins)$"variable.labels"[[i]]
}

for (i in 1:length(surveymonkey_accionsalududp_df2_cor_prev1)){
if(attributes(surveymonkey_accionsalududp_df2_cor_prev1)$name[i]=="suma_parcial") 
attributes(surveymonkey_accionsalududp_df2_cor_prev1)$variable.labels[i]<-"Suma de Valores Perdidos en Variables de Interés"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_cor_prev1)){
if(attributes(surveymonkey_accionsalududp_df2_cor_prev1)$name[i]=="surv") 
attributes(surveymonkey_accionsalududp_df2_cor_prev1)$variable.labels[i]<-"Duración (en # preguntas)"
}


Vemos cómo un histograma de frecuencia de datos perdidos por usuario.


p<-ggplot(surveymonkey_accionsalududp_df2_cor_prev1,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_prev1),25))+
  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


Generamos una medida suma_parcial que tiene la cantidad de datos perdidos por usuario (aunque ecluyendo los casos con mes de 9 puntos, los que serían similares a las preguntas que por diseño no van a contestar los participantes, porque no corresponden a esas categorías de respuesta, etc.).


surveymonkey_accionsalududp_df2_cor_prev2<-
  surveymonkey_accionsalududp_df2_cor_prev1 %>% 
  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)$name)){
attributes(surveymonkey_accionsalududp_df2_cor_prev2)$variable.labels[i]<-
  attributes(surveymonkey_accionsalududp_df2_ins)$"variable.labels"[[i]]
}

for (i in 1:length(surveymonkey_accionsalududp_df2_cor_prev2)){
if(attributes(surveymonkey_accionsalududp_df2_cor_prev2)$name[i]=="suma_parcial") 
attributes(surveymonkey_accionsalududp_df2_cor_prev2)$variable.labels[i]<-"Suma de Valores Perdidos en Variables de Interés"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_cor_prev2)){
if(attributes(surveymonkey_accionsalududp_df2_cor_prev2)$name[i]=="surv") 
attributes(surveymonkey_accionsalududp_df2_cor_prev2)$variable.labels[i]<-"Duración (en # preguntas)"
}

cols_labels<-
rbind.data.frame(text=names(surveymonkey_accionsalududp_df2_cor_prev2),
    labels=unlist(attributes(surveymonkey_accionsalududp_df2_cor_prev2)$"variable.labels")) %>% t() %>% data.table(keep.rownames=F)

cols_partial<-
surveymonkey_accionsalududp_df2_cor_prev2 %>% 
  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_prev2 %>% 
    dplyr::mutate(surv=cols_partial[2]-suma_parcial) %>% 
    dplyr::mutate(correo_final_comp=ifelse(is.na(correo_final),email, correo_final)) %>% 
    #janitor::tabyl(correo_final)
    dplyr::group_by(correo_final_comp) %>% 
    dplyr::add_count(name="mismo_valor_correos") %>% 
    dplyr::mutate(n_dis_surv=n_distinct(surv)) %>% 
    dplyr::ungroup() %>% 
    janitor::tabyl(mismo_valor_correos,n_dis_surv) %>% 
    janitor::adorn_totals(where="col") %>% 
    dplyr::mutate(n_grupos=Total/mismo_valor_correos) %>%
    knitr::kable(.,format = "html", format.args = list(decimal.mark = ".", big.mark = ","),
               caption = paste0("Tabla 1b. Número de grupos con el mismo correo, según número de valores distintos en cantidad de respuestas contestadas por grupo"),#,
               col.names = c("Número de filas con el mismo correo","Valores iguales","2 valores distintos", "3 valores distintos", "Total de filas", "Total de grupos"),
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")
## Error in dimnames(x) <- dn: la longitud de 'dimnames' [2] no es igual a la extensión del arreglo


A continuación generamos una medida de supervivencia (cuántas preguntas responde cada participante antes de abandonar). Ahora es cuando descartamos aquellos casos que presentan el mismo correo (ya sea por surveymonkey [email] y mediante las encuestas enviadas por mail [correo_final]). De todas formas, descartamos al grupo con muchas filas con el mismo correo, ya que corresponde a las personas con datos perdidos en los ítems correspondientes a correos. Si tenemos sólo un valor para número de respuesta pero más de 1 una respuesta, dejamos, la fila cuya encuesta en la que el participante se haya demorado más en contestar (lo más realista). Si hay más de un valor, dejaremos aquel que no tenga o tenga menor cantidad de casos perdidos. No obstante, debe tenerse en consideración que algunas personas pueden haber facilitado sus correos electrónicos para que contesten otras personas, de manera que a un mismo correo, hayan 2 o más personas distintas contestando. Sólo para que el lector lo tenga en consideración. Esta es una de las limitaciones de las encuestas cuando no son administradas cara a cara.


#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  

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:

surveymonkey_accionsalududp_df2_cor_prev3<-
surveymonkey_accionsalududp_df2_cor_prev2 %>% 
  dplyr::mutate(surv=cols_partial[2]-suma_parcial) %>% 
  dplyr::mutate(correo_final_comp=ifelse(is.na(correo_final),email, correo_final)) %>% 
    #"sacar mi correo electrónico"
  dplyr::filter(!grepl("gonzalez.santacruz",correo_final_comp)) %>% 
  #janitor::tabyl(correo_final)
  dplyr::group_by(correo_final_comp) %>% 
  dplyr::add_count(name="mismo_valor_correos") %>% 
  dplyr::mutate(n_dis_surv=n_distinct(surv)) %>% 
  dplyr::ungroup() %>% 
  dplyr::mutate(decision_duplicados=
    dplyr::case_when(mismo_valor_correos<20 & mismo_valor_correos>1 & n_dis_surv>1~"dejar_valor_mas_alto",
                    mismo_valor_correos<20 & mismo_valor_correos>1 & n_dis_surv==1~"descartar_uno_sin_importar",
                                   T~"descartar"))

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#a. Sólo un valor. Posiblemente duplicada
# 
#_#_#_#_#_#_#_#_
surveymonkey_accionsalududp_df2_cor_prev3_misma_sup <-
  surveymonkey_accionsalududp_df2_cor_prev3 %>% 
      dplyr::filter(decision_duplicados=="descartar_uno_sin_importar") %>%
#      dplyr::select(correo_final_comp, collector_type, inst, p6_exp_c19_pac_cont, p10_exp_c19_preocupa_llevar, p17_contr_cont_restr_epp_1, p21_cond_trab_hr_trabajada, p40_cond_trab_istas_01, p45_demo_id_personal_1, suma_parcial, duration, surv) %>% arrange(correo_final_comp) %>% View()
      dplyr::group_by(correo_final_comp) %>% 
      dplyr::slice_max(duration) %>% 
      dplyr::ungroup()
      
#b. 1.- sólo 2 valores distintos
# si hay perdidos en cada agrupación de correo en la suma parcial, la selecciono
# si no hay perdidos en cada agrupación de correo, eliminar el que tenga menos, y por tanto elimino al que tenga más.
#_#_#_#_#_#_#_#_
surveymonkey_accionsalududp_df2_cor_prev3_distinto_valor <-
  surveymonkey_accionsalududp_df2_cor_prev3 %>% 
      dplyr::filter(decision_duplicados=="dejar_valor_mas_alto") %>% 
      #dplyr::select(correo_final_comp, collector_type, inst, p6_exp_c19_pac_cont, p10_exp_c19_preocupa_llevar, p17_contr_cont_restr_epp_1, p21_cond_trab_hr_trabajada, p40_cond_trab_istas_01, p45_demo_id_personal_1, suma_parcial, duration, surv) %>% arrange(correo_final_comp) %>% 
      dplyr::group_by(correo_final_comp) %>% 
      dplyr::mutate(na_parcial=ifelse(is.na(suma_parcial),1,0),
                    hay_perdido_sum_parcial=ifelse(sum(na_parcial,na.rm=T)>0,1,0)) %>% 
      dplyr::mutate(max_suma_parcial=max(suma_parcial,na.rm=T)) %>% 
      dplyr::ungroup() %>% 
      dplyr::mutate(na_parcial=ifelse(is.na(suma_parcial),1,0)) %>% 
      dplyr::mutate(cond_eliminacion= dplyr::case_when(hay_perdido_sum_parcial==1 & na_parcial~"eliminar",
                                     hay_perdido_sum_parcial==0 & max_suma_parcial==suma_parcial~"eliminar",
                                     T~"conservar")) %>% 
  dplyr::filter(cond_eliminacion=="eliminar") %>% 
  #dplyr::select(correo_final_comp, collector_type, inst, p6_exp_c19_pac_cont, p10_exp_c19_preocupa_llevar, p17_contr_cont_restr_epp_1, p21_cond_trab_hr_trabajada, p40_cond_trab_istas_01, p45_demo_id_personal_1, suma_parcial, duration, surv, min_suma_parcial, hay_perdido_sum_parcial, cond_eliminacion) %>% arrange(correo_final_comp) %>% View()
#  2 elsadaniella@gmail.com
  dplyr::select(-na_parcial,-hay_perdido_sum_parcial,-max_suma_parcial,-cond_eliminacion)


#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#Junto todas las bases de datos en una
surveymonkey_accionsalududp_df2_cor <-
rbind.data.frame(surveymonkey_accionsalududp_df2_cor_prev3,
                 surveymonkey_accionsalududp_df2_cor_prev3_misma_sup,
                 surveymonkey_accionsalududp_df2_cor_prev3_distinto_valor)

invisible(c("Sacar correo_final_comp, mismo_valor_correos, n_dis_surv y decision_duplicados"))

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
  
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()
    #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))

#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#Agregar etiquetas
for (i in 1:length(attributes(surveymonkey_accionsalududp_df2_ins)$name)){
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"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_cor)){
if(attributes(surveymonkey_accionsalududp_df2_cor)$name[i]=="surv") 
attributes(surveymonkey_accionsalududp_df2_cor)$variable.labels[i]<-"Duración (en # preguntas)"
}
#<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()
  ggplotly(plot_miss, tooltip = c("label_text"))%>% layout(xaxis= list(showticklabels = FALSE), height = 600, width=800)

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

  #</div>


2.3 Descriptivo

#surveymonkey_accionsalududp_df2_cor %>% dplyr::filter(!is.na(inst))%>% janitor::tabyl(inst) %>% dplyr::mutate(percent=scales::percent(percent))
#surveymonkey_accionsalududp_df2_cor %>% dplyr::filter(!is.na(inst))%>% janitor::tabyl(resp_status) %>% dplyr::mutate(percent=scales::percent(percent))
#surveymonkey_accionsalududp_df2_cor %>% dplyr::filter(!is.na(inst))%>% janitor::tabyl(resp_status) %>% dplyr::mutate(percent=scales::percent(percent)) %>% summarise(n=sum(n))
#surveymonkey_accionsalududp_df2_cor %>%  janitor::tabyl(resp_status) %>% dplyr::mutate(percent=scales::percent(percent)) %>% summarise(n=sum(n))


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 
inst_resp<-
 surveymonkey_accionsalududp_df2_cor %>%
    dplyr::group_by(inst,resp_status)%>%
    dplyr::summarise(n=n()) %>% 
    dplyr::group_by(inst) %>% 
    dplyr::mutate(sum=sum(n),percent=round(n/sum(n),2))%>% 
    dplyr::ungroup() %>% 
    tidyr::pivot_wider(names_from="resp_status",values_from="n") %>% 
    dplyr::group_by(inst) %>% 
    dplyr::mutate(completed=max(completed,na.rm=T),disqualified=max(disqualified,na.rm=T),partial=max(partial,na.rm=T)) %>% 
    slice(1) %>% 
    dplyr::ungroup() %>% 
    dplyr::mutate(inst=factor(ifelse(is.na(inst),"General",as.character(inst))))

fig <- plot_ly(data= inst_resp, x = ~inst, y = ~completed , type = 'bar', name = 'Completado',
               marker= list(color=c('#424242'))) %>% #rgb(191, 183, 182)
  add_trace(y = ~disqualified , name = 'Descalificado',
               marker= list(color=c('#FF5252'))) %>%  #rgba(222,45,38,0.8)
  add_trace(y = ~partial, name = 'Parcial',
               marker= list(color=c('#9e9e9e'))) %>% #rgb(145, 22, 0)
  layout(textinfo = 'label+percent', sort = FALSE,direction = "clockwise",
               title = "Estatus de respuesta por Institución",
               xaxis = list(title = "Institución"),
               yaxis = list(title = 'Recuento'), 
               barmode = 'stack')
fig

Figura 6. Recuento de Estatus de Respuesta por Institución

#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()
#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= 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)))) %>% 
#:#:#:#:#:#:#:#:
#PARA VER SUPERVIVENCIA (HASTA DONDE CONTESTAN)
#:#:#:#:#:#:#:#:
    dplyr::mutate(surv_bin=dplyr::ntile(surv,2)) %>% 
    dplyr::mutate(surv_terc=ordered(dplyr::ntile(surv,3))) %>% 
  dplyr::mutate(surv_quart=ordered(dplyr::ntile(surv,4))) %>% 
#:#:#:#:#:#:#:#:
#PARA CATEGORIZAR CONTESTANTES
#:#:#:#:#:#:#:#:
#surveymonkey_accionsalududp_df2_cor_table %>% 
  dplyr::left_join(janitor::clean_names(readxl::read_excel("subdir_otros_clasificacion.xlsx"))[c(1,5,6)], by=c("subdir_otr"="subdireccion_u_otros")) %>% 
  #Se equivocaron aquí. Yo lo resuelvo
  dplyr::mutate(subdir_otr_rec_estricto=factor(dplyr::case_when(subdir_otr=="Subdirección Médica"~"Unidades de atención médica/salud",T~valoracion_agrupacion_criterio_estricto_inclusivo))) %>%
  dplyr::mutate(subdir_otr_rec_inclusivo=factor(dplyr::case_when(subdir_otr=="Subdirección Médica"~"Unidades de atención médica/salud",T~valoracion_agrupacion_criterio_laxo_inclusivo_no_puede_haber_otros))) 
 # janitor::tabyl(subdir_otr_rec_inclusivo)
  
#surveymonkey_accionsalududp_df2_cor_table %>% 
#    dplyr::left_join(janitor::clean_names(readxl::read_excel("subdir_otros_clasificacion.xlsx"))[c(1,5,6)], by=c("subdir_otr"="subdireccion_u_otros")) %>% 
#    dplyr::filter(is.na(valoracion_agrupacion_criterio_estricto_inclusivo),!is.na(inst)) %>% 
#    dplyr::select(subdir_otr,subdir)
  #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$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'

attr(surveymonkey_accionsalududp_df2_cor_table$subdir_otr_rec_estricto,"label")<-'Clasificación Lugar de Trabajo (estricto)'
attr(surveymonkey_accionsalududp_df2_cor_table$subdir_otr_rec_inclusivo,"label")<-'Clasificación Lugar de Trabajo (inclusivo)'

attr(surveymonkey_accionsalududp_df2_cor_table$surv_bin,"label")<-'Respuestas contestadas (pto. corte mediana)'
attr(surveymonkey_accionsalududp_df2_cor_table$surv_terc,"label")<-'Respuestas contestadas (en terciles)'
attr(surveymonkey_accionsalududp_df2_cor_table$surv_quart,"label")<-'Respuestas contestadas (en cuartiles)'
    

  #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+
             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,
             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= "Tabla 2. Descriptivo Aplicación Total",
          col.names=c("Variables", "Todos los casos", "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")
Tabla 2. Descriptivo Aplicación Total
Variables Todos los casos N
N=707
Sentimiento de Agotamiento, estrés e irritabilidad (terciles): 707
1 236 (33.4%)
2 236 (33.4%)
3 235 (33.2%)
Estrés Postraumático (4° Cuartil): 702
Ausencia de Indicadores de Estrés Post-traumático 527 (75.1%)
Indicadores de Estrés Post-traumático 175 (24.9%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad 325 [225;400] 707
Ptjes. Estrés Postraumático 4.00 [2.00;6.00] 702
Sintomatología ansiosa: 690
Ausencia de Indicadores de Sintomatología Ansiosa 374 (54.2%)
Indicadores de Sintomatología Ansiosa 316 (45.8%)
Sintomatología depresiva: 690
Ausencia de Indicadores de Sintomatología Depresiva 445 (64.5%)
Indicadores de Sintomatología Depresiva 245 (35.5%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): 668
Contacto directo y estrecho con pacientes (menos de dos metros) 163 (24.4%)
Menor o ningún contacto con pacientes 505 (75.6%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): 464
1 156 (33.6%)
2 104 (22.4%)
3 82 (17.7%)
Más de 3 122 (26.3%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): 661
Bastante/Mucho 466 (70.5%)
Un poco/Nada/No aplica 195 (29.5%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): 661
Predomina el miedo 321 (48.6%)
Predomina la ausencia de miedo 340 (51.4%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): 634
Ha sido capacitado 449 (70.8%)
No ha sido capacitado 185 (29.2%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): 448
Mala 26 (5.80%)
Regular a Excelente 422 (94.2%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): 619
Nada/Poco/Algo/No aplica 226 (36.5%)
Totalmente/Bastante 393 (63.5%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas): 420
1 328 (78.1%)
2 69 (16.4%)
3 19 (4.52%)
Más de 3 4 (0.95%)
Mi empleador se ha rehusado a dar cierto tipo de EPP: 619
Empleador se ha rehusado a dar cierto tipo de EPP 60 (9.69%)
No se constata esta situación 559 (90.3%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): 619
Algo/Bastante/Totalente/No aplica 557 (90.0%)
Poco/Nada 62 (10.0%)
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): 619
Incapacidad para negarse a trabajo inseguro 302 (48.8%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse 317 (51.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada): 590
Apropiadas/No sabe/No aplica 446 (75.6%)
Inapropiadas/Deficientes 144 (24.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada): 590
Apropiadas/No sabe/No aplica 554 (93.9%)
Inapropiadas/Deficientes 36 (6.10%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada): 590
Apropiadas/No sabe/No aplica 557 (94.4%)
Inapropiadas/Deficientes 33 (5.59%)
¿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): 590
Apropiadas/No sabe/No aplica 537 (91.0%)
Inapropiadas/Deficientes 53 (8.98%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): 590
Apropiadas/No sabe/No aplica 378 (64.1%)
Inapropiadas/Deficientes 212 (35.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada): 590
Apropiadas/No sabe/No aplica 485 (82.2%)
Inapropiadas/Deficientes 105 (17.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): 590
Apropiadas/No sabe/No aplica 375 (63.6%)
Inapropiadas/Deficientes 215 (36.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): 590
Apropiadas/No sabe/No aplica 454 (76.9%)
Inapropiadas/Deficientes 136 (23.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): 590
Apropiadas/No sabe/No aplica 503 (85.3%)
Inapropiadas/Deficientes 87 (14.7%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada): 557
Desacuerdo/Totalmente en desacuerdo 77 (13.8%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 480 (86.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): 557
Desacuerdo/Totalmente en desacuerdo 92 (16.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 465 (83.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): 557
Desacuerdo/Totalmente en desacuerdo 243 (43.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 314 (56.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): 557
Desacuerdo/Totalmente en desacuerdo 111 (19.9%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 446 (80.1%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal? (Dicotomizada): 538
Cambia área, labores o ambos producto de la pandemia 103 (19.1%)
Mantiene las mismas labores en la misma área 435 (80.9%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): 526
Excelente/Buena/Regular 460 (87.5%)
Mala 66 (12.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): 526
De acuerdo/Totalmente de acuerdo 268 (51.0%)
Neutral/En desacuerdo/Totalmente en desacuerdo 258 (49.0%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): 526
La mayoría de las veces/Siempre 247 (47.0%)
Nunca/Sólo unas pocas veces/Algunas veces 279 (53.0%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): 526
La mayoría de las veces/Siempre 261 (49.6%)
Nunca/Sólo unas pocas veces/Algunas veces 265 (50.4%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): 526
La mayoría de las veces/Siempre 322 (61.2%)
Nunca/Sólo unas pocas veces/Algunas veces 204 (38.8%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): 526
La mayoría de las veces/Siempre 45 (8.56%)
Nunca/Sólo unas pocas veces/Algunas veces 481 (91.4%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): 526
La mayoría de las veces/Siempre 108 (20.5%)
Nunca/Sólo unas pocas veces/Algunas veces 418 (79.5%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): 526
La mayoría de las veces/Siempre 407 (77.4%)
Nunca/Sólo unas pocas veces/Algunas veces 119 (22.6%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): 526
La mayoría de las veces/Siempre 366 (69.6%)
Nunca/Sólo unas pocas veces/Algunas veces 160 (30.4%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): 526
La mayoría de las veces/Siempre 368 (70.0%)
Nunca/Sólo unas pocas veces/Algunas veces 158 (30.0%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): 526
La mayoría de las veces/Siempre 437 (83.1%)
Nunca/Sólo unas pocas veces/Algunas veces 89 (16.9%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): 526
La mayoría de las veces/Siempre 430 (81.7%)
Nunca/Sólo unas pocas veces/Algunas veces 96 (18.3%)
Suma ítems Exigencias Psicológicas ISTAS21 5.00 [4.00;6.00] 526
Suma ítems Calidad Relación con Superiores ISTAS21 9.00 [7.00;11.0] 526
Suma ítems Conflicto de Rol ISTAS21 3.00 [1.00;4.00] 526
Suma ítems Relación con Compañeros de Trabajo ISTAS21 6.00 [5.00;7.00] 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): 523
Apenas cierto/Incorrecto 20 (3.82%)
Más bien cierto/Cierto 503 (96.2%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada): 523
Apenas cierto/Incorrecto 29 (5.54%)
Más bien cierto/Cierto 494 (94.5%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada): 523
Apenas cierto/Incorrecto 21 (4.02%)
Más bien cierto/Cierto 502 (96.0%)
Suma puntajes de resilencia 8.00 [7.00;9.00] 523
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: 707
Nunca 19 (2.69%)
Sólo unas pocas <br>veces 108 (15.3%)
Algunas veces 270 (38.2%)
La mayoría de las veces 260 (36.8%)
Siempre 50 (7.07%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: 707
Nunca 46 (6.51%)
Sólo unas pocas <br>veces 121 (17.1%)
Algunas veces 259 (36.6%)
La mayoría de las veces 225 (31.8%)
Siempre 56 (7.92%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: 707
Nunca 34 (4.81%)
Sólo unas pocas <br>veces 125 (17.7%)
Algunas veces 273 (38.6%)
La mayoría de las veces 212 (30.0%)
Siempre 63 (8.91%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: 707
Nunca 87 (12.3%)
Sólo unas pocas <br>veces 213 (30.1%)
Algunas veces 271 (38.3%)
La mayoría de las veces 107 (15.1%)
Siempre 29 (4.10%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: 707
Nunca 90 (12.7%)
Sólo unas pocas <br>veces 129 (18.2%)
Algunas veces 216 (30.6%)
La mayoría de las veces 183 (25.9%)
Siempre 89 (12.6%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: 707
Nunca 121 (17.1%)
Sólo unas pocas <br>veces 156 (22.1%)
Algunas veces 194 (27.4%)
La mayoría de las veces 159 (22.5%)
Siempre 77 (10.9%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.: 702
Nada 162 (23.1%)
Un poco 223 (31.8%)
Regular 175 (24.9%)
Bastante 117 (16.7%)
Mucho 25 (3.56%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: 702
Nada 163 (23.2%)
Un poco 207 (29.5%)
Regular 155 (22.1%)
Bastante 144 (20.5%)
Mucho 33 (4.70%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: 702
Nada 268 (38.2%)
Un poco 219 (31.2%)
Regular 122 (17.4%)
Bastante 67 (9.54%)
Mucho 26 (3.70%)
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.: 690
Nunca 134 (19.4%)
Algunos días 344 (49.9%)
Más de la mitad de los días 147 (21.3%)
Casi todos los días 65 (9.42%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: 690
Nunca 103 (14.9%)
Algunos días 289 (41.9%)
Más de la mitad de los días 193 (28.0%)
Casi todos los días 105 (15.2%)
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.: 690
Nunca 159 (23.0%)
Algunos días 336 (48.7%)
Más de la mitad de los días 136 (19.7%)
Casi todos los días 59 (8.55%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado.: 690
Nunca 170 (24.6%)
Algunos días 338 (49.0%)
Más de la mitad de los días 138 (20.0%)
Casi todos los días 44 (6.38%)
¿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?: 668
Ninguno 308 (46.1%)
1 a 10 260 (38.9%)
11 a 30 65 (9.73%)
31 a 100 25 (3.74%)
101 a 200 6 (0.90%)
Más de 200 4 (0.60%)
¿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?: 668
Ninguno 354 (53.0%)
Sólo uno 92 (13.8%)
2 a 10 194 (29.0%)
11 a 25 19 (2.84%)
26 a 50 7 (1.05%)
Más de 50 2 (0.30%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?: 668
Trabajo en contacto directo con pacientes 143 (21.4%)
Trabajo a menos de dos metros de pacientes 20 (2.99%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia) 7 (1.05%)
Trabajo en el mismo piso/sala/departamento 34 (5.09%)
Como parte de mi trabajo visito un piso/sala/departamento 61 (9.13%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19 143 (21.4%)
Ninguno que yo esté en conocimiento 260 (38.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 han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.: 661
0 438 (66.3%)
1 223 (33.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.: 661
0 597 (90.3%)
1 64 (9.68%)
¿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.: 661
0 525 (79.4%)
1 136 (20.6%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.: 661
0 491 (74.3%)
1 170 (25.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.: 661
0 640 (96.8%)
1 21 (3.18%)
¿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.: 661
0 598 (90.5%)
1 63 (9.53%)
¿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.: 661
0 545 (82.5%)
1 116 (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) | Se hizo el examen para descartar COVID-19.: 661
0 353 (53.4%)
1 308 (46.6%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.: 661
0 621 (93.9%)
1 40 (6.05%)
¿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).: 661
0 589 (89.1%)
1 72 (10.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) | Ninguna de las anteriores.: 661
FALSE 463 (70.0%)
TRUE 198 (30.0%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: 661
Nada 23 (3.48%)
Un poco 139 (21.0%)
Bastante 158 (23.9%)
Mucho 308 (46.6%)
No aplica 33 (4.99%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: 661
1 (Poco o nada) 33 (4.99%)
2 38 (5.75%)
3 58 (8.77%)
4 77 (11.6%)
5 134 (20.3%)
6 97 (14.7%)
7 107 (16.2%)
8 60 (9.08%)
9 30 (4.54%)
10 (Tanto miedo como nunca he sentido) 27 (4.08%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: 634
FALSE 275 (43.4%)
TRUE 359 (56.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): 634
FALSE 343 (54.1%)
TRUE 291 (45.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: 634
FALSE 246 (38.8%)
TRUE 388 (61.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: 634
FALSE 585 (92.3%)
TRUE 49 (7.73%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: 634
FALSE 84 (13.2%)
TRUE 550 (86.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: 634
FALSE 88 (13.9%)
TRUE 546 (86.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: 634
FALSE 317 (50.0%)
TRUE 317 (50.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: 634
FALSE 622 (98.1%)
TRUE 12 (1.89%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: 634
FALSE 343 (54.1%)
TRUE 291 (45.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: 634
FALSE 440 (69.4%)
TRUE 194 (30.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: 634
FALSE 539 (85.0%)
TRUE 95 (15.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: 634
FALSE 620 (97.8%)
TRUE 14 (2.21%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.: 634
Suficiente 384 (60.6%)
Insuficiente 91 (14.4%)
No Aplica 159 (25.1%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector de ojos.: 634
Suficiente 250 (39.4%)
Insuficiente 162 (25.6%)
No Aplica 222 (35.0%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.: 634
Suficiente 343 (54.1%)
Insuficiente 156 (24.6%)
No Aplica 135 (21.3%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.: 634
Suficiente 92 (14.5%)
Insuficiente 87 (13.7%)
No Aplica 455 (71.8%)
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.: 634
Suficiente 518 (81.7%)
Insuficiente 78 (12.3%)
No Aplica 38 (5.99%)
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.: 634
Suficiente 501 (79.0%)
Insuficiente 93 (14.7%)
No Aplica 40 (6.31%)
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.: 634
Suficiente 184 (29.0%)
Insuficiente 232 (36.6%)
No Aplica 218 (34.4%)
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.: 634
Suficiente 28 (4.42%)
Insuficiente 83 (13.1%)
No Aplica 523 (82.5%)
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.: 634
Suficiente 302 (47.6%)
Insuficiente 67 (10.6%)
No Aplica 265 (41.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.: 634
Suficiente 161 (25.4%)
Insuficiente 107 (16.9%)
No Aplica 366 (57.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.: 634
Suficiente 76 (12.0%)
Insuficiente 129 (20.3%)
No Aplica 429 (67.7%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: 634
Sí, en el último mes 74 (11.7%)
Sí, en los últimos 6 meses 276 (43.5%)
Sí, el año pasado 69 (10.9%)
Sí, hace 1-2 años 12 (1.89%)
Sí, hace 2-5 años 8 (1.26%)
Sí, hace más de 5 años 10 (1.58%)
No he sido capacitado 185 (29.2%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: 448
Excelente 45 (10.0%)
Buena 225 (50.2%)
Regular 152 (33.9%)
Mala 26 (5.80%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: 619
Nada 17 (2.75%)
Poco 39 (6.30%)
Algo 128 (20.7%)
Bastante 307 (49.6%)
Totalmente 86 (13.9%)
No aplica 42 (6.79%)
¿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.: 619
0 559 (90.3%)
1 60 (9.69%)
¿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.: 619
0 541 (87.4%)
1 78 (12.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.: 619
0 561 (90.6%)
1 58 (9.37%)
¿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.: 619
0 516 (83.4%)
1 103 (16.6%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica: 619
FALSE 434 (70.1%)
TRUE 185 (29.9%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: 619
Nada 12 (1.94%)
Poco 50 (8.08%)
Algo 157 (25.4%)
Bastante 270 (43.6%)
Totalmente 94 (15.2%)
No aplica 36 (5.82%)
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:: 619
Negarme a trabajar no es una opción legalmente disponible para mí 69 (11.1%)
Definitivamente, no es posible negarme a trabajar 52 (8.40%)
Es improbable que pueda negarme a trabajar 50 (8.08%)
Quizás, en una situación extrema podría negarme a trabajar 109 (17.6%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo 208 (33.6%)
Definitivamente, no dudaría en negarme a trabajar 131 (21.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.: 590
Apropiadas y bien implementadas 183 (31.0%)
Apropiadas pero mal implementadas 118 (20.0%)
Inapropiadas 22 (3.73%)
Deficientes 122 (20.7%)
No sabe 18 (3.05%)
No aplica 127 (21.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: 590
Apropiadas y bien implementadas 298 (50.5%)
Apropiadas pero mal implementadas 75 (12.7%)
Inapropiadas 10 (1.69%)
Deficientes 26 (4.41%)
No sabe 37 (6.27%)
No aplica 144 (24.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: 590
Apropiadas y bien implementadas 271 (45.9%)
Apropiadas pero mal implementadas 80 (13.6%)
Inapropiadas 12 (2.03%)
Deficientes 21 (3.56%)
No sabe 43 (7.29%)
No aplica 163 (27.6%)
¿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.: 590
Apropiadas y bien implementadas 245 (41.5%)
Apropiadas pero mal implementadas 91 (15.4%)
Inapropiadas 21 (3.56%)
Deficientes 32 (5.42%)
No sabe 54 (9.15%)
No aplica 147 (24.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: 590
Apropiadas y bien implementadas 105 (17.8%)
Apropiadas pero mal implementadas 59 (10.0%)
Inapropiadas 68 (11.5%)
Deficientes 144 (24.4%)
No sabe 75 (12.7%)
No aplica 139 (23.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: 590
Apropiadas y bien implementadas 181 (30.7%)
Apropiadas pero mal implementadas 53 (8.98%)
Inapropiadas 37 (6.27%)
Deficientes 68 (11.5%)
No sabe 65 (11.0%)
No aplica 186 (31.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.: 590
Apropiadas y bien implementadas 121 (20.5%)
Apropiadas pero mal implementadas 52 (8.81%)
Inapropiadas 67 (11.4%)
Deficientes 148 (25.1%)
No sabe 56 (9.49%)
No aplica 146 (24.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: 590
Apropiadas y bien implementadas 155 (26.3%)
Apropiadas pero mal implementadas 45 (7.63%)
Inapropiadas 35 (5.93%)
Deficientes 101 (17.1%)
No sabe 89 (15.1%)
No aplica 165 (28.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.: 590
Apropiadas y bien implementadas 271 (45.9%)
Apropiadas pero mal implementadas 60 (10.2%)
Inapropiadas 33 (5.59%)
Deficientes 54 (9.15%)
No sabe 72 (12.2%)
No aplica 100 (16.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”? | Sindicato/gremio.: 557
Totalmente de acuerdo 143 (25.7%)
De acuerdo 185 (33.2%)
Ni de acuerdo ni en desacuerdo 152 (27.3%)
En desacuerdo 58 (10.4%)
Totalmente en desacuerdo 19 (3.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”? | Empleador.: 557
Totalmente de acuerdo 122 (21.9%)
De acuerdo 228 (40.9%)
Ni de acuerdo ni en desacuerdo 115 (20.6%)
En desacuerdo 77 (13.8%)
Totalmente en desacuerdo 15 (2.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.: 557
Totalmente de acuerdo 51 (9.16%)
De acuerdo 113 (20.3%)
Ni de acuerdo ni en desacuerdo 150 (26.9%)
En desacuerdo 146 (26.2%)
Totalmente en desacuerdo 97 (17.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.: 557
Totalmente de acuerdo 85 (15.3%)
De acuerdo 158 (28.4%)
Ni de acuerdo ni en desacuerdo 203 (36.4%)
En desacuerdo 79 (14.2%)
Totalmente en desacuerdo 32 (5.75%)
¿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?: 538
Mantengo las mismas labores 358 (66.5%)
Mantengo las mismas labores, pero en un área distinta 20 (3.72%)
Mantengo las mismas labores, pero en un lugar físico distinto 43 (7.99%)
Mantengo las mismas labores, pero en área y lugar físico distintos 14 (2.60%)
Distintas labores, pero en la misma área 39 (7.25%)
Distintas labores, pero en el mismo lugar físico 28 (5.20%)
Labores, área y lugar físico distintos 36 (6.69%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: 526
Excelente 12 (2.28%)
Buena 193 (36.7%)
Regular 255 (48.5%)
Mala 66 (12.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”.: 526
Totalmente de acuerdo 86 (16.3%)
De acuerdo 182 (34.6%)
Neutral 132 (25.1%)
En desacuerdo 91 (17.3%)
Totalmente en desacuerdo 35 (6.65%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: 526
Siempre 104 (19.8%)
La mayoría <br>de las veces 143 (27.2%)
Algunas veces 198 (37.6%)
Sólo unas <br>pocas veces 64 (12.2%)
Nunca 17 (3.23%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: 526
Siempre 90 (17.1%)
La mayoría <br>de las veces 171 (32.5%)
Algunas veces 190 (36.1%)
Sólo unas <br>pocas veces 60 (11.4%)
Nunca 15 (2.85%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: 526
Siempre 98 (18.6%)
La mayoría <br>de las veces 224 (42.6%)
Algunas veces 151 (28.7%)
Sólo unas <br>pocas veces 47 (8.94%)
Nunca 6 (1.14%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: 526
Siempre 18 (3.42%)
La mayoría <br>de las veces 27 (5.13%)
Algunas veces 159 (30.2%)
Sólo unas <br>pocas veces 132 (25.1%)
Nunca 190 (36.1%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: 526
Siempre 34 (6.46%)
La mayoría <br>de las veces 74 (14.1%)
Algunas veces 216 (41.1%)
Sólo unas <br>pocas veces 125 (23.8%)
Nunca 77 (14.6%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: 526
Siempre 253 (48.1%)
La mayoría <br>de las veces 154 (29.3%)
Algunas veces 61 (11.6%)
Sólo unas <br>pocas veces 38 (7.22%)
Nunca 20 (3.80%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: 526
Siempre 202 (38.4%)
La mayoría <br>de las veces 164 (31.2%)
Algunas veces 89 (16.9%)
Sólo unas <br>pocas veces 49 (9.32%)
Nunca 22 (4.18%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: 526
Siempre 165 (31.4%)
La mayoría <br>de las veces 203 (38.6%)
Algunas veces 110 (20.9%)
Sólo unas <br>pocas veces 33 (6.27%)
Nunca 15 (2.85%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: 526
Siempre 198 (37.6%)
La mayoría <br>de las veces 239 (45.4%)
Algunas veces 70 (13.3%)
Sólo unas <br>pocas veces 13 (2.47%)
Nunca 6 (1.14%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: 526
Siempre 310 (58.9%)
La mayoría <br>de las veces 120 (22.8%)
Algunas veces 57 (10.8%)
Sólo unas <br>pocas veces 21 (3.99%)
Nunca 18 (3.42%)
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.: 523
Incorrecto 3 (0.57%)
Apenas cierto 17 (3.25%)
Más bien cierto 148 (28.3%)
Cierto 355 (67.9%)
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.: 523
Incorrecto 3 (0.57%)
Apenas cierto 26 (4.97%)
Más bien cierto 198 (37.9%)
Cierto 296 (56.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.: 523
Incorrecto 3 (0.57%)
Apenas cierto 18 (3.44%)
Más bien cierto 187 (35.8%)
Cierto 315 (60.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
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 3. Descriptivo Aplicación Total según Sexo",
          col.names=c("Variables", "Hombres", "Mujeres", "Valor-p")
         )%>%
  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 Total según Sexo
Variables Hombres Mujeres Valor-p
N=122 N=394
Sentimiento de Agotamiento, estrés e irritabilidad (terciles): 0.007
1 50 (41.0%) 117 (29.7%)
2 44 (36.1%) 129 (32.7%)
3 28 (23.0%) 148 (37.6%)
Estrés Postraumático (4° Cuartil): 0.042
Ausencia de Indicadores de Estrés Post-traumático 102 (83.6%) 292 (74.1%)
Indicadores de Estrés Post-traumático 20 (16.4%) 102 (25.9%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad 275 [200;350] 325 [231;400] <0.001
Ptjes. Estrés Postraumático 3.00 [1.00;5.00] 4.00 [2.00;6.00] 0.010
Sintomatología ansiosa: <0.001
Ausencia de Indicadores de Sintomatología Ansiosa 84 (68.9%) 191 (48.5%)
Indicadores de Sintomatología Ansiosa 38 (31.1%) 203 (51.5%)
Sintomatología depresiva: 0.021
Ausencia de Indicadores de Sintomatología Depresiva 89 (73.0%) 240 (60.9%)
Indicadores de Sintomatología Depresiva 33 (27.0%) 154 (39.1%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): 0.315
Contacto directo y estrecho con pacientes (menos de dos metros) 24 (19.7%) 97 (24.6%)
Menor o ningún contacto con pacientes 98 (80.3%) 297 (75.4%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): 0.853
1 30 (34.1%) 93 (33.0%)
2 22 (25.0%) 61 (21.6%)
3 14 (15.9%) 54 (19.1%)
Más de 3 22 (25.0%) 74 (26.2%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): 0.230
Bastante/Mucho 83 (68.0%) 292 (74.1%)
Un poco/Nada/No aplica 39 (32.0%) 102 (25.9%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): 0.050
Predomina el miedo 48 (39.3%) 197 (50.0%)
Predomina la ausencia de miedo 74 (60.7%) 197 (50.0%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): 0.499
Ha sido capacitado 90 (73.8%) 276 (70.1%)
No ha sido capacitado 32 (26.2%) 118 (29.9%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): 1.000
Mala 6 (6.67%) 17 (6.16%)
Regular a Excelente 84 (93.3%) 259 (93.8%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): 0.528
Nada/Poco/Algo/No aplica 45 (36.9%) 131 (33.2%)
Totalmente/Bastante 77 (63.1%) 263 (66.8%)
¿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.311
1 64 (81.0%) 224 (78.6%)
2 9 (11.4%) 45 (15.8%)
3 6 (7.59%) 12 (4.21%)
Más de 3 0 (0.00%) 4 (1.40%)
Mi empleador se ha rehusado a dar cierto tipo de EPP: 0.130
Empleador se ha rehusado a dar cierto tipo de EPP 7 (5.74%) 43 (10.9%)
No se constata esta situación 115 (94.3%) 351 (89.1%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): 0.746
Algo/Bastante/Totalente/No aplica 109 (89.3%) 358 (90.9%)
Poco/Nada 13 (10.7%) 36 (9.14%)
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.104
Incapacidad para negarse a trabajo inseguro 51 (41.8%) 200 (50.8%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse 71 (58.2%) 194 (49.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada): 0.632
Apropiadas/No sabe/No aplica 94 (77.0%) 293 (74.4%)
Inapropiadas/Deficientes 28 (23.0%) 101 (25.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada): 0.898
Apropiadas/No sabe/No aplica 115 (94.3%) 368 (93.4%)
Inapropiadas/Deficientes 7 (5.74%) 26 (6.60%)
¿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 115 (94.3%) 372 (94.4%)
Inapropiadas/Deficientes 7 (5.74%) 22 (5.58%)
¿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.017
Apropiadas/No sabe/No aplica 118 (96.7%) 351 (89.1%)
Inapropiadas/Deficientes 4 (3.28%) 43 (10.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): 0.685
Apropiadas/No sabe/No aplica 79 (64.8%) 245 (62.2%)
Inapropiadas/Deficientes 43 (35.2%) 149 (37.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada): 1.000
Apropiadas/No sabe/No aplica 101 (82.8%) 326 (82.7%)
Inapropiadas/Deficientes 21 (17.2%) 68 (17.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.789
Apropiadas/No sabe/No aplica 80 (65.6%) 251 (63.7%)
Inapropiadas/Deficientes 42 (34.4%) 143 (36.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): 0.687
Apropiadas/No sabe/No aplica 91 (74.6%) 303 (76.9%)
Inapropiadas/Deficientes 31 (25.4%) 91 (23.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): 0.707
Apropiadas/No sabe/No aplica 102 (83.6%) 337 (85.5%)
Inapropiadas/Deficientes 20 (16.4%) 57 (14.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada): 0.264
Desacuerdo/Totalmente en desacuerdo 13 (10.7%) 60 (15.2%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 109 (89.3%) 334 (84.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 (Dicotomizada): 0.118
Desacuerdo/Totalmente en desacuerdo 14 (11.5%) 71 (18.0%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 108 (88.5%) 323 (82.0%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada): 0.005
Desacuerdo/Totalmente en desacuerdo 39 (32.0%) 185 (47.0%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 83 (68.0%) 209 (53.0%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada): 0.085
Desacuerdo/Totalmente en desacuerdo 17 (13.9%) 85 (21.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 105 (86.1%) 309 (78.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): 0.970
Cambia área, labores o ambos producto de la pandemia 23 (18.9%) 77 (19.5%)
Mantiene las mismas labores en la misma área 99 (81.1%) 317 (80.5%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): 0.659
Excelente/Buena/Regular 109 (89.3%) 344 (87.3%)
Mala 13 (10.7%) 50 (12.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.513
De acuerdo/Totalmente de acuerdo 59 (48.4%) 206 (52.3%)
Neutral/En desacuerdo/Totalmente en desacuerdo 63 (51.6%) 188 (47.7%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): 0.944
La mayoría de las veces/Siempre 59 (48.4%) 187 (47.5%)
Nunca/Sólo unas pocas veces/Algunas veces 63 (51.6%) 207 (52.5%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): 0.275
La mayoría de las veces/Siempre 55 (45.1%) 202 (51.3%)
Nunca/Sólo unas pocas veces/Algunas veces 67 (54.9%) 192 (48.7%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): 0.996
La mayoría de las veces/Siempre 75 (61.5%) 240 (60.9%)
Nunca/Sólo unas pocas veces/Algunas veces 47 (38.5%) 154 (39.1%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): 0.480
La mayoría de las veces/Siempre 8 (6.56%) 36 (9.14%)
Nunca/Sólo unas pocas veces/Algunas veces 114 (93.4%) 358 (90.9%)
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 25 (20.5%) 80 (20.3%)
Nunca/Sólo unas pocas veces/Algunas veces 97 (79.5%) 314 (79.7%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): 0.503
La mayoría de las veces/Siempre 98 (80.3%) 303 (76.9%)
Nunca/Sólo unas pocas veces/Algunas veces 24 (19.7%) 91 (23.1%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): 0.225
La mayoría de las veces/Siempre 91 (74.6%) 269 (68.3%)
Nunca/Sólo unas pocas veces/Algunas veces 31 (25.4%) 125 (31.7%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): 0.006
La mayoría de las veces/Siempre 98 (80.3%) 263 (66.8%)
Nunca/Sólo unas pocas veces/Algunas veces 24 (19.7%) 131 (33.2%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): 0.567
La mayoría de las veces/Siempre 104 (85.2%) 325 (82.5%)
Nunca/Sólo unas pocas veces/Algunas veces 18 (14.8%) 69 (17.5%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): 0.013
La mayoría de las veces/Siempre 90 (73.8%) 332 (84.3%)
Nunca/Sólo unas pocas veces/Algunas veces 32 (26.2%) 62 (15.7%)
Suma ítems Exigencias Psicológicas ISTAS21 5.00 [4.00;6.00] 5.00 [4.00;6.00] 0.501
Suma ítems Calidad Relación con Superiores ISTAS21 10.0 [8.00;11.0] 9.00 [7.00;11.0] 0.157
Suma ítems Conflicto de Rol ISTAS21 3.00 [1.00;4.00] 3.00 [2.00;4.00] 0.189
Suma ítems Relación con Compañeros de Trabajo ISTAS21 6.00 [6.00;8.00] 6.00 [5.00;7.00] 0.038
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.582
Apenas cierto/Incorrecto 3 (2.46%) 16 (4.06%)
Más bien cierto/Cierto 119 (97.5%) 378 (95.9%)
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.956
Apenas cierto/Incorrecto 6 (4.92%) 22 (5.58%)
Más bien cierto/Cierto 116 (95.1%) 372 (94.4%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada): 0.426
Apenas cierto/Incorrecto 3 (2.46%) 17 (4.31%)
Más bien cierto/Cierto 119 (97.5%) 377 (95.7%)
Suma puntajes de resilencia 8.50 [7.00;9.00] 8.00 [6.00;9.00] 0.165
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: 0.003
Nunca 6 (4.92%) 6 (1.52%)
Sólo unas pocas <br>veces 20 (16.4%) 56 (14.2%)
Algunas veces 59 (48.4%) 141 (35.8%)
La mayoría de las veces 31 (25.4%) 159 (40.4%)
Siempre 6 (4.92%) 32 (8.12%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: <0.001
Nunca 16 (13.1%) 19 (4.82%)
Sólo unas pocas <br>veces 29 (23.8%) 54 (13.7%)
Algunas veces 49 (40.2%) 143 (36.3%)
La mayoría de las veces 22 (18.0%) 144 (36.5%)
Siempre 6 (4.92%) 34 (8.63%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: 0.018
Nunca 12 (9.84%) 15 (3.81%)
Sólo unas pocas <br>veces 24 (19.7%) 60 (15.2%)
Algunas veces 50 (41.0%) 151 (38.3%)
La mayoría de las veces 27 (22.1%) 129 (32.7%)
Siempre 9 (7.38%) 39 (9.90%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: 0.416
Nunca 17 (13.9%) 46 (11.7%)
Sólo unas pocas <br>veces 40 (32.8%) 116 (29.4%)
Algunas veces 43 (35.2%) 150 (38.1%)
La mayoría de las veces 15 (12.3%) 69 (17.5%)
Siempre 7 (5.74%) 13 (3.30%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: 0.064
Nunca 23 (18.9%) 41 (10.4%)
Sólo unas pocas <br>veces 20 (16.4%) 71 (18.0%)
Algunas veces 39 (32.0%) 112 (28.4%)
La mayoría de las veces 29 (23.8%) 112 (28.4%)
Siempre 11 (9.02%) 58 (14.7%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: 0.042
Nunca 29 (23.8%) 61 (15.5%)
Sólo unas pocas <br>veces 32 (26.2%) 77 (19.5%)
Algunas veces 29 (23.8%) 111 (28.2%)
La mayoría de las veces 19 (15.6%) 97 (24.6%)
Siempre 13 (10.7%) 48 (12.2%)
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.044
Nada 27 (22.1%) 90 (22.8%)
Un poco 50 (41.0%) 118 (29.9%)
Regular 32 (26.2%) 100 (25.4%)
Bastante 11 (9.02%) 71 (18.0%)
Mucho 2 (1.64%) 15 (3.81%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: 0.093
Nada 35 (28.7%) 74 (18.8%)
Un poco 38 (31.1%) 126 (32.0%)
Regular 24 (19.7%) 83 (21.1%)
Bastante 23 (18.9%) 90 (22.8%)
Mucho 2 (1.64%) 21 (5.33%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: 0.019
Nada 57 (46.7%) 140 (35.5%)
Un poco 41 (33.6%) 118 (29.9%)
Regular 10 (8.20%) 78 (19.8%)
Bastante 10 (8.20%) 44 (11.2%)
Mucho 4 (3.28%) 14 (3.55%)
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.001
Nunca 35 (28.7%) 61 (15.5%)
Algunos días 65 (53.3%) 193 (49.0%)
Más de la mitad de los días 17 (13.9%) 96 (24.4%)
Casi todos los días 5 (4.10%) 44 (11.2%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: 0.005
Nunca 23 (18.9%) 45 (11.4%)
Algunos días 60 (49.2%) 159 (40.4%)
Más de la mitad de los días 30 (24.6%) 123 (31.2%)
Casi todos los días 9 (7.38%) 67 (17.0%)
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.878
Nunca 29 (23.8%) 89 (22.6%)
Algunos días 59 (48.4%) 187 (47.5%)
Más de la mitad de los días 26 (21.3%) 83 (21.1%)
Casi todos los días 8 (6.56%) 35 (8.88%)
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.006
Nunca 43 (35.2%) 85 (21.6%)
Algunos días 56 (45.9%) 194 (49.2%)
Más de la mitad de los días 15 (12.3%) 90 (22.8%)
Casi todos los días 8 (6.56%) 25 (6.35%)
¿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.250
Ninguno 55 (45.1%) 180 (45.7%)
1 a 10 41 (33.6%) 161 (40.9%)
11 a 30 18 (14.8%) 35 (8.88%)
31 a 100 6 (4.92%) 15 (3.81%)
101 a 200 2 (1.64%) 3 (0.76%)
¿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.333
Ninguno 68 (55.7%) 204 (51.8%)
Sólo uno 17 (13.9%) 60 (15.2%)
2 a 10 30 (24.6%) 116 (29.4%)
11 a 25 4 (3.28%) 10 (2.54%)
26 a 50 3 (2.46%) 2 (0.51%)
Más de 50 0 (0.00%) 2 (0.51%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?: 0.312
Trabajo en contacto directo con pacientes 21 (17.2%) 87 (22.1%)
Trabajo a menos de dos metros de pacientes 3 (2.46%) 10 (2.54%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia) 0 (0.00%) 6 (1.52%)
Trabajo en el mismo piso/sala/departamento 11 (9.02%) 18 (4.57%)
Como parte de mi trabajo visito un piso/sala/departamento 13 (10.7%) 32 (8.12%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19 25 (20.5%) 88 (22.3%)
Ninguno que yo esté en conocimiento 49 (40.2%) 153 (38.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.: 1.000
0 80 (65.6%) 260 (66.0%)
1 42 (34.4%) 134 (34.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.784
0 111 (91.0%) 353 (89.6%)
1 11 (9.02%) 41 (10.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 la exposición a COVID-19.: 0.448
0 92 (75.4%) 312 (79.2%)
1 30 (24.6%) 82 (20.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) | Experimentó síntomas similares a los de COVID-19.: 1.000
0 92 (75.4%) 296 (75.1%)
1 30 (24.6%) 98 (24.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 trabajara a pesar de los síntomas.: 0.383
0 120 (98.4%) 381 (96.7%)
1 2 (1.64%) 13 (3.30%)
¿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 109 (89.3%) 354 (89.8%)
1 13 (10.7%) 40 (10.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que se aislara.: 0.946
0 101 (82.8%) 323 (82.0%)
1 21 (17.2%) 71 (18.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) | Se hizo el examen para descartar COVID-19.: 0.623
0 66 (54.1%) 201 (51.0%)
1 56 (45.9%) 193 (49.0%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.: 0.289
0 118 (96.7%) 369 (93.7%)
1 4 (3.28%) 25 (6.35%)
¿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.075
0 115 (94.3%) 347 (88.1%)
1 7 (5.74%) 47 (11.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) | Ninguna de las anteriores.: 0.953
FALSE 88 (72.1%) 281 (71.3%)
TRUE 34 (27.9%) 113 (28.7%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: 0.078
Nada 7 (5.74%) 9 (2.28%)
Un poco 30 (24.6%) 73 (18.5%)
Bastante 29 (23.8%) 103 (26.1%)
Mucho 54 (44.3%) 189 (48.0%)
No aplica 2 (1.64%) 20 (5.08%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: 0.004
1 (Poco o nada) 13 (10.7%) 11 (2.79%)
2 8 (6.56%) 18 (4.57%)
3 16 (13.1%) 33 (8.38%)
4 18 (14.8%) 44 (11.2%)
5 19 (15.6%) 91 (23.1%)
6 20 (16.4%) 60 (15.2%)
7 17 (13.9%) 64 (16.2%)
8 7 (5.74%) 38 (9.64%)
9 2 (1.64%) 19 (4.82%)
10 (Tanto miedo como nunca he sentido) 2 (1.64%) 16 (4.06%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: 0.358
FALSE 60 (49.2%) 173 (43.9%)
TRUE 62 (50.8%) 221 (56.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): 0.391
FALSE 72 (59.0%) 213 (54.1%)
TRUE 50 (41.0%) 181 (45.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: 0.151
FALSE 56 (45.9%) 150 (38.1%)
TRUE 66 (54.1%) 244 (61.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: 0.009
FALSE 105 (86.1%) 370 (93.9%)
TRUE 17 (13.9%) 24 (6.09%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: 0.284
FALSE 18 (14.8%) 42 (10.7%)
TRUE 104 (85.2%) 352 (89.3%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: 0.724
FALSE 17 (13.9%) 48 (12.2%)
TRUE 105 (86.1%) 346 (87.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: 0.909
FALSE 63 (51.6%) 199 (50.5%)
TRUE 59 (48.4%) 195 (49.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: 0.099
FALSE 118 (96.7%) 390 (99.0%)
TRUE 4 (3.28%) 4 (1.02%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: 0.134
FALSE 76 (62.3%) 213 (54.1%)
TRUE 46 (37.7%) 181 (45.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: 0.024
FALSE 98 (80.3%) 273 (69.3%)
TRUE 24 (19.7%) 121 (30.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: 1.000
FALSE 105 (86.1%) 338 (85.8%)
TRUE 17 (13.9%) 56 (14.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: 1.000
FALSE 120 (98.4%) 389 (98.7%)
TRUE 2 (1.64%) 5 (1.27%)
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.199
Suficiente 82 (67.2%) 233 (59.1%)
Insuficiente 11 (9.02%) 56 (14.2%)
No Aplica 29 (23.8%) 105 (26.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.198
Suficiente 52 (42.6%) 147 (37.3%)
Insuficiente 22 (18.0%) 102 (25.9%)
No Aplica 48 (39.3%) 145 (36.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.574
Suficiente 67 (54.9%) 210 (53.3%)
Insuficiente 25 (20.5%) 98 (24.9%)
No Aplica 30 (24.6%) 86 (21.8%)
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.323
Suficiente 21 (17.2%) 52 (13.2%)
Insuficiente 20 (16.4%) 53 (13.5%)
No Aplica 81 (66.4%) 289 (73.4%)
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.068
Suficiente 109 (89.3%) 316 (80.2%)
Insuficiente 9 (7.38%) 55 (14.0%)
No Aplica 4 (3.28%) 23 (5.84%)
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.084
Suficiente 106 (86.9%) 307 (77.9%)
Insuficiente 11 (9.02%) 66 (16.8%)
No Aplica 5 (4.10%) 21 (5.33%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla N95.: 0.517
Suficiente 41 (33.6%) 115 (29.2%)
Insuficiente 38 (31.1%) 143 (36.3%)
No Aplica 43 (35.2%) 136 (34.5%)
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.708
Suficiente 7 (5.74%) 16 (4.06%)
Insuficiente 17 (13.9%) 52 (13.2%)
No Aplica 98 (80.3%) 326 (82.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.801
Suficiente 58 (47.5%) 187 (47.5%)
Insuficiente 10 (8.20%) 40 (10.2%)
No Aplica 54 (44.3%) 167 (42.4%)
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.385
Suficiente 27 (22.1%) 97 (24.6%)
Insuficiente 16 (13.1%) 68 (17.3%)
No Aplica 79 (64.8%) 229 (58.1%)
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.266
Suficiente 20 (16.4%) 43 (10.9%)
Insuficiente 23 (18.9%) 76 (19.3%)
No Aplica 79 (64.8%) 275 (69.8%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: 0.709
Sí, en el último mes 16 (13.1%) 48 (12.2%)
Sí, en los últimos 6 meses 59 (48.4%) 164 (41.6%)
Sí, el año pasado 10 (8.20%) 45 (11.4%)
Sí, hace 1-2 años 2 (1.64%) 9 (2.28%)
Sí, hace 2-5 años 2 (1.64%) 3 (0.76%)
Sí, hace más de 5 años 1 (0.82%) 7 (1.78%)
No he sido capacitado 32 (26.2%) 118 (29.9%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: 0.230
Excelente 13 (14.4%) 21 (7.61%)
Buena 41 (45.6%) 148 (53.6%)
Regular 30 (33.3%) 90 (32.6%)
Mala 6 (6.67%) 17 (6.16%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: 0.567
Nada 2 (1.64%) 9 (2.28%)
Poco 11 (9.02%) 18 (4.57%)
Algo 24 (19.7%) 78 (19.8%)
Bastante 58 (47.5%) 205 (52.0%)
Totalmente 19 (15.6%) 58 (14.7%)
No aplica 8 (6.56%) 26 (6.60%)
¿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.130
0 115 (94.3%) 351 (89.1%)
1 7 (5.74%) 43 (10.9%)
¿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.370
0 110 (90.2%) 341 (86.5%)
1 12 (9.84%) 53 (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 mi propio EPP.: 0.374
0 113 (92.6%) 352 (89.3%)
1 9 (7.38%) 42 (10.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.: 1.000
0 101 (82.8%) 326 (82.7%)
1 21 (17.2%) 68 (17.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 aplica: 0.188
FALSE 83 (68.0%) 294 (74.6%)
TRUE 39 (32.0%) 100 (25.4%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: 0.007
Nada 1 (0.82%) 7 (1.78%)
Poco 12 (9.84%) 29 (7.36%)
Algo 19 (15.6%) 106 (26.9%)
Bastante 50 (41.0%) 179 (45.4%)
Totalmente 29 (23.8%) 53 (13.5%)
No aplica 11 (9.02%) 20 (5.08%)
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.022
Negarme a trabajar no es una opción legalmente disponible para mí 8 (6.56%) 52 (13.2%)
Definitivamente, no es posible negarme a trabajar 4 (3.28%) 35 (8.88%)
Es improbable que pueda negarme a trabajar 6 (4.92%) 33 (8.38%)
Quizás, en una situación extrema podría negarme a trabajar 27 (22.1%) 62 (15.7%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo 44 (36.1%) 132 (33.5%)
Definitivamente, no dudaría en negarme a trabajar 33 (27.0%) 80 (20.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.: 0.965
Apropiadas y bien implementadas 44 (36.1%) 124 (31.5%)
Apropiadas pero mal implementadas 22 (18.0%) 75 (19.0%)
Inapropiadas 5 (4.10%) 17 (4.31%)
Deficientes 23 (18.9%) 84 (21.3%)
No sabe 3 (2.46%) 10 (2.54%)
No aplica 25 (20.5%) 84 (21.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: 0.090
Apropiadas y bien implementadas 66 (54.1%) 198 (50.3%)
Apropiadas pero mal implementadas 10 (8.20%) 55 (14.0%)
Inapropiadas 0 (0.00%) 10 (2.54%)
Deficientes 7 (5.74%) 16 (4.06%)
No sabe 11 (9.02%) 19 (4.82%)
No aplica 28 (23.0%) 96 (24.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: 0.341
Apropiadas y bien implementadas 51 (41.8%) 187 (47.5%)
Apropiadas pero mal implementadas 16 (13.1%) 55 (14.0%)
Inapropiadas 3 (2.46%) 7 (1.78%)
Deficientes 4 (3.28%) 15 (3.81%)
No sabe 14 (11.5%) 22 (5.58%)
No aplica 34 (27.9%) 108 (27.4%)
¿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.050
Apropiadas y bien implementadas 53 (43.4%) 169 (42.9%)
Apropiadas pero mal implementadas 15 (12.3%) 61 (15.5%)
Inapropiadas 1 (0.82%) 15 (3.81%)
Deficientes 3 (2.46%) 28 (7.11%)
No sabe 15 (12.3%) 28 (7.11%)
No aplica 35 (28.7%) 93 (23.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: 0.624
Apropiadas y bien implementadas 21 (17.2%) 69 (17.5%)
Apropiadas pero mal implementadas 9 (7.38%) 44 (11.2%)
Inapropiadas 12 (9.84%) 48 (12.2%)
Deficientes 31 (25.4%) 101 (25.6%)
No sabe 15 (12.3%) 48 (12.2%)
No aplica 34 (27.9%) 84 (21.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: 0.478
Apropiadas y bien implementadas 42 (34.4%) 118 (29.9%)
Apropiadas pero mal implementadas 6 (4.92%) 40 (10.2%)
Inapropiadas 6 (4.92%) 24 (6.09%)
Deficientes 15 (12.3%) 44 (11.2%)
No sabe 16 (13.1%) 41 (10.4%)
No aplica 37 (30.3%) 127 (32.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.: 0.953
Apropiadas y bien implementadas 26 (21.3%) 79 (20.1%)
Apropiadas pero mal implementadas 11 (9.02%) 37 (9.39%)
Inapropiadas 10 (8.20%) 45 (11.4%)
Deficientes 32 (26.2%) 98 (24.9%)
No sabe 12 (9.84%) 36 (9.14%)
No aplica 31 (25.4%) 99 (25.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: 0.329
Apropiadas y bien implementadas 34 (27.9%) 105 (26.6%)
Apropiadas pero mal implementadas 8 (6.56%) 30 (7.61%)
Inapropiadas 3 (2.46%) 27 (6.85%)
Deficientes 28 (23.0%) 64 (16.2%)
No sabe 17 (13.9%) 58 (14.7%)
No aplica 32 (26.2%) 110 (27.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.: 0.946
Apropiadas y bien implementadas 54 (44.3%) 191 (48.5%)
Apropiadas pero mal implementadas 14 (11.5%) 42 (10.7%)
Inapropiadas 6 (4.92%) 21 (5.33%)
Deficientes 14 (11.5%) 36 (9.14%)
No sabe 15 (12.3%) 42 (10.7%)
No aplica 19 (15.6%) 62 (15.7%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Sindicato/gremio.: 0.027
Totalmente de acuerdo 21 (17.2%) 111 (28.2%)
De acuerdo 48 (39.3%) 129 (32.7%)
Ni de acuerdo ni en desacuerdo 40 (32.8%) 94 (23.9%)
En desacuerdo 8 (6.56%) 46 (11.7%)
Totalmente en desacuerdo 5 (4.10%) 14 (3.55%)
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.422
Totalmente de acuerdo 28 (23.0%) 88 (22.3%)
De acuerdo 51 (41.8%) 161 (40.9%)
Ni de acuerdo ni en desacuerdo 29 (23.8%) 74 (18.8%)
En desacuerdo 11 (9.02%) 60 (15.2%)
Totalmente en desacuerdo 3 (2.46%) 11 (2.79%)
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.040
Totalmente de acuerdo 15 (12.3%) 31 (7.87%)
De acuerdo 31 (25.4%) 74 (18.8%)
Ni de acuerdo ni en desacuerdo 37 (30.3%) 104 (26.4%)
En desacuerdo 21 (17.2%) 114 (28.9%)
Totalmente en desacuerdo 18 (14.8%) 71 (18.0%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.: 0.226
Totalmente de acuerdo 22 (18.0%) 59 (15.0%)
De acuerdo 41 (33.6%) 108 (27.4%)
Ni de acuerdo ni en desacuerdo 42 (34.4%) 142 (36.0%)
En desacuerdo 10 (8.20%) 62 (15.7%)
Totalmente en desacuerdo 7 (5.74%) 23 (5.84%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?: 0.228
Mantengo las mismas labores 88 (72.1%) 251 (63.7%)
Mantengo las mismas labores, pero en un área distinta 4 (3.28%) 16 (4.06%)
Mantengo las mismas labores, pero en un lugar físico distinto 4 (3.28%) 39 (9.90%)
Mantengo las mismas labores, pero en área y lugar físico distintos 3 (2.46%) 11 (2.79%)
Distintas labores, pero en la misma área 6 (4.92%) 33 (8.38%)
Distintas labores, pero en el mismo lugar físico 8 (6.56%) 20 (5.08%)
Labores, área y lugar físico distintos 9 (7.38%) 24 (6.09%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: 0.015
Excelente 7 (5.74%) 5 (1.27%)
Buena 50 (41.0%) 140 (35.5%)
Regular 52 (42.6%) 199 (50.5%)
Mala 13 (10.7%) 50 (12.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.905
Totalmente de acuerdo 17 (13.9%) 68 (17.3%)
De acuerdo 42 (34.4%) 138 (35.0%)
Neutral 32 (26.2%) 97 (24.6%)
En desacuerdo 23 (18.9%) 65 (16.5%)
Totalmente en desacuerdo 8 (6.56%) 26 (6.60%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: 0.859
Siempre 26 (21.3%) 77 (19.5%)
La mayoría <br>de las veces 33 (27.0%) 110 (27.9%)
Algunas veces 46 (37.7%) 147 (37.3%)
Sólo unas <br>pocas veces 15 (12.3%) 46 (11.7%)
Nunca 2 (1.64%) 14 (3.55%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: 0.121
Siempre 19 (15.6%) 70 (17.8%)
La mayoría <br>de las veces 36 (29.5%) 132 (33.5%)
Algunas veces 42 (34.4%) 145 (36.8%)
Sólo unas <br>pocas veces 22 (18.0%) 36 (9.14%)
Nunca 3 (2.46%) 11 (2.79%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: 0.828
Siempre 24 (19.7%) 73 (18.5%)
La mayoría <br>de las veces 51 (41.8%) 167 (42.4%)
Algunas veces 34 (27.9%) 116 (29.4%)
Sólo unas <br>pocas veces 11 (9.02%) 36 (9.14%)
Nunca 2 (1.64%) 2 (0.51%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: 0.518
Siempre 3 (2.46%) 15 (3.81%)
La mayoría <br>de las veces 5 (4.10%) 21 (5.33%)
Algunas veces 32 (26.2%) 127 (32.2%)
Sólo unas <br>pocas veces 32 (26.2%) 97 (24.6%)
Nunca 50 (41.0%) 134 (34.0%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: 0.370
Siempre 6 (4.92%) 28 (7.11%)
La mayoría <br>de las veces 19 (15.6%) 52 (13.2%)
Algunas veces 50 (41.0%) 163 (41.4%)
Sólo unas <br>pocas veces 24 (19.7%) 99 (25.1%)
Nunca 23 (18.9%) 52 (13.2%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: 0.297
Siempre 69 (56.6%) 180 (45.7%)
La mayoría <br>de las veces 29 (23.8%) 123 (31.2%)
Algunas veces 14 (11.5%) 46 (11.7%)
Sólo unas <br>pocas veces 7 (5.74%) 29 (7.36%)
Nunca 3 (2.46%) 16 (4.06%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: 0.675
Siempre 52 (42.6%) 146 (37.1%)
La mayoría <br>de las veces 39 (32.0%) 123 (31.2%)
Algunas veces 18 (14.8%) 71 (18.0%)
Sólo unas <br>pocas veces 10 (8.20%) 37 (9.39%)
Nunca 3 (2.46%) 17 (4.31%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: 0.050
Siempre 46 (37.7%) 117 (29.7%)
La mayoría <br>de las veces 52 (42.6%) 146 (37.1%)
Algunas veces 19 (15.6%) 90 (22.8%)
Sólo unas <br>pocas veces 4 (3.28%) 28 (7.11%)
Nunca 1 (0.82%) 13 (3.30%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: 0.754
Siempre 45 (36.9%) 147 (37.3%)
La mayoría <br>de las veces 59 (48.4%) 178 (45.2%)
Algunas veces 16 (13.1%) 54 (13.7%)
Sólo unas <br>pocas veces 1 (0.82%) 12 (3.05%)
Nunca 1 (0.82%) 3 (0.76%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: 0.029
Siempre 66 (54.1%) 237 (60.2%)
La mayoría <br>de las veces 24 (19.7%) 95 (24.1%)
Algunas veces 21 (17.2%) 36 (9.14%)
Sólo unas <br>pocas veces 4 (3.28%) 17 (4.31%)
Nunca 7 (5.74%) 9 (2.28%)
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.183
Incorrecto 1 (0.82%) 1 (0.25%)
Apenas cierto 2 (1.64%) 15 (3.81%)
Más bien cierto 28 (23.0%) 117 (29.7%)
Cierto 91 (74.6%) 261 (66.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.772
Incorrecto 1 (0.82%) 1 (0.25%)
Apenas cierto 5 (4.10%) 21 (5.33%)
Más bien cierto 44 (36.1%) 150 (38.1%)
Cierto 72 (59.0%) 222 (56.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.378
Incorrecto 0 (0.00%) 2 (0.51%)
Apenas cierto 3 (2.46%) 15 (3.81%)
Más bien cierto 38 (31.1%) 145 (36.8%)
Cierto 81 (66.4%) 232 (58.9%)
Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;
Variables categóricas son presentadas como el recuento y el porcentaje
#janitor::tabyl(p20_contr_cont_med_pev_1_simpler)
#   p27_cond_trab_sup_jef
table3_sup_jef <- suppressWarnings(compareGroups(p27_cond_trab_sup_jef ~ 
            agotamiento_estres_irritabilidad+
            estres_postraumatico+
            agotamiento_estres_irritabilidad_ptje+
            estres_postraumatico_ptje+
            #agotamiento_estres_irritabilidad_q75+
            #estres_postraumatico_q75+
            tamizaje_ans+
            tamizaje_dep+
            p8_exp_c19_cerca_cont_rec+
            ptjes_p9+
            p10_exp_c19_preocupa_llevar_rec+
            p11_exp_c19_miedo_pand_rec+
            p14_contr_cont_cap_epp_rec+
            p15_contr_cont_14a_eval_cap_rec+
            p16_contr_cont_conf_epps_rec+
            ptjes_p17+
            p17_contr_cont_restr_epp_1_rec+
            p18_contr_cont_conf_eval_ri_rec+
            p19_contr_cont_nieg_epp_rec+
            p20_contr_cont_med_pev_1_p20_rec+
            p20_contr_cont_med_pev_2_p20_rec+
            p20_contr_cont_med_pev_3_p20_rec+
            p20_contr_cont_med_pev_4_p20_rec+
            p20_contr_cont_med_pev_5_p20_rec+
            p20_contr_cont_med_pev_6_p20_rec+
            p20_contr_cont_med_pev_7_p20_rec+
            p20_contr_cont_med_pev_8_p20_rec+
            p20_contr_cont_med_pev_9_p20_rec+
            p26_cond_trab_ent_protec_1_p26_rec+
            p26_cond_trab_ent_protec_2_p26_rec+
            p26_cond_trab_ent_protec_3_p26_rec+
            p26_cond_trab_ent_protec_4_p26_rec+
            p36_cond_trab_reasig_rec+
            p38_cond_trab_sal_psi_rec+
            p39_cond_trab_cult_org_rec+
            p40_cond_trab_istas_01_p40_rec+
            p40_cond_trab_istas_02_p40_rec+
            p40_cond_trab_istas_03_p40_rec+
            p40_cond_trab_istas_04_p40_rec+
            p40_cond_trab_istas_05_p40_rec+
            p40_cond_trab_istas_06_p40_rec+
            p40_cond_trab_istas_07_p40_rec+
            p40_cond_trab_istas_08_p40_rec+
            p40_cond_trab_istas_09_p40_rec+
            p40_cond_trab_istas_10_p40_rec+
            p40_istas_ex_psi+
            p40_istas_rel_su+
            p40_istas_con_rol+
            p40_istas_rel_comp+
            p42_resiliencia_1_p42_rec+
            p42_resiliencia_2_p42_rec+
            p42_resiliencia_3_p42_rec+
            p42_res_total+
             p3_siente_1+
             p3_siente_2+
             p3_siente_3+
             p3_siente_4+
             p3_siente_5+
             p3_siente_6+
             p4_afront_1+
             p4_afront_2+
             p4_afront_3+
             p5_animo_1+
             p5_animo_2+
             p5_animo_3+
             p5_animo_4+
             p6_exp_c19_pac_cont+
             p7_exp_c19_trab_cont+
             p8_exp_c19_cerca_cont+
             p9_exp_c19_exp_sit_dg_01+
             p9_exp_c19_exp_sit_dg_02+
             p9_exp_c19_exp_sit_dg_03+
             p9_exp_c19_exp_sit_dg_04+
             p9_exp_c19_exp_sit_dg_05+
             p9_exp_c19_exp_sit_dg_06+
             p9_exp_c19_exp_sit_dg_07+
             p9_exp_c19_exp_sit_dg_08+
             p9_exp_c19_exp_sit_dg_09+
             p9_exp_c19_exp_sit_dg_10+
             p9_exp_c19_exp_sit_dg_11+
             p10_exp_c19_preocupa_llevar+
             p11_exp_c19_miedo_pand+
             p12_contr_cont_imp_nec_01+
             p12_contr_cont_imp_nec_02+
             p12_contr_cont_imp_nec_03+
             p12_contr_cont_imp_nec_04+
             p12_contr_cont_imp_nec_05+
             p12_contr_cont_imp_nec_06+
             p12_contr_cont_imp_nec_07+
             p12_contr_cont_imp_nec_08+
             p12_contr_cont_imp_nec_09+
             p12_contr_cont_imp_nec_10+
             p12_contr_cont_imp_nec_11+
             p12_contr_cont_imp_nec_12+
             p13_contr_cont_imp_disp_01+
             p13_contr_cont_imp_disp_02+
             p13_contr_cont_imp_disp_03+
             p13_contr_cont_imp_disp_04+
             p13_contr_cont_imp_disp_05+
             p13_contr_cont_imp_disp_06+
             p13_contr_cont_imp_disp_07+
             p13_contr_cont_imp_disp_08+
             p13_contr_cont_imp_disp_09+
             p13_contr_cont_imp_disp_10+
             p13_contr_cont_imp_disp_11+
             p14_contr_cont_cap_epp+
             p15_contr_cont_14a_eval_cap+
             p16_contr_cont_conf_epps+
             p17_contr_cont_restr_epp_1+
             p17_contr_cont_restr_epp_2+
             p17_contr_cont_restr_epp_3+
             p17_contr_cont_restr_epp_4+
             p17_contr_cont_restr_epp_6+
             p17_contr_cont_restr_epp_7+
             p18_contr_cont_conf_eval_ri+
             p19_contr_cont_nieg_epp+
             p20_contr_cont_med_pev_1+
             p20_contr_cont_med_pev_2+
             p20_contr_cont_med_pev_3+
             p20_contr_cont_med_pev_4+
             p20_contr_cont_med_pev_5+
             p20_contr_cont_med_pev_6+
             p20_contr_cont_med_pev_7+
             p20_contr_cont_med_pev_8+
             p20_contr_cont_med_pev_9+
             p26_cond_trab_ent_protec_1+
             p26_cond_trab_ent_protec_2+
             p26_cond_trab_ent_protec_3+
             p26_cond_trab_ent_protec_4+
             #p28_cond_trab_sis_trab+
             #p32_cond_trab_est+
             #p33_cond_trab_sit_cont+
             p36_cond_trab_reasig+
             #p37_cond_trab_num_est+
             p38_cond_trab_sal_psi+
             p39_cond_trab_cult_org+
             p40_cond_trab_istas_01+
             p40_cond_trab_istas_02+
             p40_cond_trab_istas_03+
             p40_cond_trab_istas_04+
             p40_cond_trab_istas_05+
             p40_cond_trab_istas_06+
             p40_cond_trab_istas_07+
             p40_cond_trab_istas_08+
             p40_cond_trab_istas_09+
             p40_cond_trab_istas_10+
             p42_resiliencia_1+
             p42_resiliencia_2+
             p42_resiliencia_3, 
           method= c(
              agotamiento_estres_irritabilidad=3,
              estres_postraumatico=3,
              agotamiento_estres_irritabilidad_ptje=2,
              estres_postraumatico_ptje=2,
             # agotamiento_estres_irritabilidad_q75=3,
             # estres_postraumatico_q75=3,
              tamizaje_ans=3,
              tamizaje_dep=3,
              p8_exp_c19_cerca_cont_rec=3,
              ptjes_p9=2,
              p10_exp_c19_preocupa_llevar_rec=3,
              p14_contr_cont_cap_epp_rec=3,
              p15_contr_cont_14a_eval_cap_rec=3,
              p16_contr_cont_conf_epps_rec=3,
              ptjes_p17=2,
              p17_contr_cont_restr_epp_1_rec=3,
              p18_contr_cont_conf_eval_ri_rec=3,
              p19_contr_cont_nieg_epp_rec=3,
              p20_contr_cont_med_pev_1_p20_rec=3,
              p20_contr_cont_med_pev_2_p20_rec=3,
              p20_contr_cont_med_pev_3_p20_rec=3,
              p20_contr_cont_med_pev_4_p20_rec=3,
              p20_contr_cont_med_pev_5_p20_rec=3,
              p20_contr_cont_med_pev_6_p20_rec=3,
              p20_contr_cont_med_pev_7_p20_rec=3,
              p20_contr_cont_med_pev_8_p20_rec=3,
              p20_contr_cont_med_pev_9_p20_rec=3,
              p26_cond_trab_ent_protec_1_p26_rec=3,
              p26_cond_trab_ent_protec_2_p26_rec=3,
              p26_cond_trab_ent_protec_3_p26_rec=3,
              p26_cond_trab_ent_protec_4_p26_rec=3,
              p36_cond_trab_reasig_rec=3,
              p38_cond_trab_sal_psi_rec=3,
              p39_cond_trab_cult_org_rec=3,
              p40_cond_trab_istas_01_p40_rec=3,
              p40_cond_trab_istas_02_p40_rec=3,
              p40_cond_trab_istas_03_p40_rec=3,
              p40_cond_trab_istas_04_p40_rec=3,
              p40_cond_trab_istas_05_p40_rec=3,
              p40_cond_trab_istas_06_p40_rec=3,
              p40_cond_trab_istas_07_p40_rec=3,
              p40_cond_trab_istas_08_p40_rec=3,
              p40_cond_trab_istas_09_p40_rec=3,
              p40_cond_trab_istas_10_p40_rec=3,
              p40_istas_ex_psi=2,
              p40_istas_rel_su=2,
              p40_istas_con_rol=2,
              p40_istas_rel_comp=2,
              p42_resiliencia_1_p42_rec=3,
              p42_resiliencia_2_p42_rec=3,
              p42_resiliencia_3_p42_rec=3,
              p42_res_total=2,
               p3_siente_1=3,
               p3_siente_2=3,
               p3_siente_3=3,
               p3_siente_4=3,
               p3_siente_5=3,
               p3_siente_6=3,
               p4_afront_1=3,
               p4_afront_2=3,
               p4_afront_3=3,
               p5_animo_1=3,
               p5_animo_2=3,
               p5_animo_3=3,
               p5_animo_4=3,
               agotamiento_estres_irritabilidad=2,
               estres_postraumatico=2,
               tamizaje_ans=3,
               tamizaje_dep=3,
               p6_exp_c19_pac_cont=3,
               p7_exp_c19_trab_cont=3,
               p8_exp_c19_cerca_cont=3,
               p9_exp_c19_exp_sit_dg_01=3,
               p9_exp_c19_exp_sit_dg_02=3,
               p9_exp_c19_exp_sit_dg_03=3,
               p9_exp_c19_exp_sit_dg_04=3,
               p9_exp_c19_exp_sit_dg_05=3,
               p9_exp_c19_exp_sit_dg_06=3,
               p9_exp_c19_exp_sit_dg_07=3,
               p9_exp_c19_exp_sit_dg_08=3,
               p9_exp_c19_exp_sit_dg_09=3,
               p9_exp_c19_exp_sit_dg_10=3,
               p9_exp_c19_exp_sit_dg_11=3,
               p10_exp_c19_preocupa_llevar=3,
               p11_exp_c19_miedo_pand=3,
               p12_contr_cont_imp_nec_01=3,
               p12_contr_cont_imp_nec_02=3,
               p12_contr_cont_imp_nec_03=3,
               p12_contr_cont_imp_nec_04=3,
               p12_contr_cont_imp_nec_05=3,
               p12_contr_cont_imp_nec_06=3,
               p12_contr_cont_imp_nec_07=3,
               p12_contr_cont_imp_nec_08=3,
               p12_contr_cont_imp_nec_09=3,
               p12_contr_cont_imp_nec_10=3,
               p12_contr_cont_imp_nec_11=3,
               p12_contr_cont_imp_nec_12=3,
               p13_contr_cont_imp_disp_01=3,
               p13_contr_cont_imp_disp_02=3,
               p13_contr_cont_imp_disp_03=3,
               p13_contr_cont_imp_disp_04=3,
               p13_contr_cont_imp_disp_05=3,
               p13_contr_cont_imp_disp_06=3,
               p13_contr_cont_imp_disp_07=3,
               p13_contr_cont_imp_disp_08=3,
               p13_contr_cont_imp_disp_09=3,
               p13_contr_cont_imp_disp_10=3,
               p13_contr_cont_imp_disp_11=3,
               p14_contr_cont_cap_epp=3,
               p15_contr_cont_14a_eval_cap=3,
               p16_contr_cont_conf_epps=3,
               p17_contr_cont_restr_epp_1=3,
               p17_contr_cont_restr_epp_2=3,
               p17_contr_cont_restr_epp_3=3,
               p17_contr_cont_restr_epp_4=3,
               p17_contr_cont_restr_epp_6=3,
               p17_contr_cont_restr_epp_7=3,
               p18_contr_cont_conf_eval_ri=3,
               p19_contr_cont_nieg_epp=3,
               p20_contr_cont_med_pev_1=3,
               p20_contr_cont_med_pev_2=3,
               p20_contr_cont_med_pev_3=3,
               p20_contr_cont_med_pev_4=3,
               p20_contr_cont_med_pev_5=3,
               p20_contr_cont_med_pev_6=3,
               p20_contr_cont_med_pev_7=3,
               p20_contr_cont_med_pev_8=3,
               p20_contr_cont_med_pev_9=3,
               p26_cond_trab_ent_protec_1=3,
               p26_cond_trab_ent_protec_2=3,
               p26_cond_trab_ent_protec_3=3,
               p26_cond_trab_ent_protec_4=3,
               #p28_cond_trab_sis_trab=3,
               #p32_cond_trab_est=3,
               #p33_cond_trab_sit_cont=3,
               p36_cond_trab_reasig=3,
               #p37_cond_trab_num_est=3,
               p38_cond_trab_sal_psi=3,
               p39_cond_trab_cult_org=3,
               p40_cond_trab_istas_01=3,
               p40_cond_trab_istas_02=3,
               p40_cond_trab_istas_03=3,
               p40_cond_trab_istas_04=3,
               p40_cond_trab_istas_05=3,
               p40_cond_trab_istas_06=3,
               p40_cond_trab_istas_07=3,
               p40_cond_trab_istas_08=3,
               p40_cond_trab_istas_09=3,
               p40_cond_trab_istas_10=3,
               p42_resiliencia_1=3,
               p42_resiliencia_2=3,
               p42_resiliencia_3=3),
    data = surveymonkey_accionsalududp_df2_cor_table,
    include.miss = F, #baja el número de casos
    p.corrected=T,
    chisq.test.perm=T,
    chisq.test.seed=1234,
    var.equal=T)
  )


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

pvals3 <- getResults(table3_sup_jef)
#p.adjust(pvals, method = "BH")
export2md(restab3_sup_jef, size=10, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Tabla 4. Descriptivo Aplicación Total según cargo de Supervisión o Jefatura",
          col.names=c("Variables", "No", "Sí", "Valor-p")
         )%>%
  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 4. Descriptivo Aplicación Total según cargo de Supervisión o Jefatura
Variables No Valor-p
N=344 N=213
Sentimiento de Agotamiento, estrés e irritabilidad (terciles): 0.282
1 118 (34.3%) 62 (29.1%)
2 110 (32.0%) 81 (38.0%)
3 116 (33.7%) 70 (32.9%)
Estrés Postraumático (4° Cuartil): 0.958
Ausencia de Indicadores de Estrés Post-traumático 262 (76.2%) 161 (75.6%)
Indicadores de Estrés Post-traumático 82 (23.8%) 52 (24.4%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad 325 [225;400] 325 [250;400] 0.276
Ptjes. Estrés Postraumático 4.00 [2.00;6.00] 4.00 [2.00;6.00] 0.346
Sintomatología ansiosa: 1.000
Ausencia de Indicadores de Sintomatología Ansiosa 185 (53.8%) 114 (53.5%)
Indicadores de Sintomatología Ansiosa 159 (46.2%) 99 (46.5%)
Sintomatología depresiva: 0.969
Ausencia de Indicadores de Sintomatología Depresiva 221 (64.2%) 138 (64.8%)
Indicadores de Sintomatología Depresiva 123 (35.8%) 75 (35.2%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): 0.077
Contacto directo y estrecho con pacientes (menos de dos metros) 90 (26.2%) 41 (19.2%)
Menor o ningún contacto con pacientes 254 (73.8%) 172 (80.8%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): 0.087
1 88 (34.9%) 43 (29.9%)
2 47 (18.7%) 43 (29.9%)
3 46 (18.3%) 23 (16.0%)
Más de 3 71 (28.2%) 35 (24.3%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): 0.109
Bastante/Mucho 257 (74.7%) 145 (68.1%)
Un poco/Nada/No aplica 87 (25.3%) 68 (31.9%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): 0.487
Predomina el miedo 170 (49.4%) 98 (46.0%)
Predomina la ausencia de miedo 174 (50.6%) 115 (54.0%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): <0.001
Ha sido capacitado 224 (65.1%) 169 (79.3%)
No ha sido capacitado 120 (34.9%) 44 (20.7%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): 0.104
Mala 18 (8.04%) 6 (3.55%)
Regular a Excelente 206 (92.0%) 163 (96.4%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): <0.001
Nada/Poco/Algo/No aplica 142 (41.3%) 52 (24.4%)
Totalmente/Bastante 202 (58.7%) 161 (75.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): 0.855
1 190 (78.8%) 116 (79.5%)
2 38 (15.8%) 21 (14.4%)
3 10 (4.15%) 8 (5.48%)
Más de 3 3 (1.24%) 1 (0.68%)
Mi empleador se ha rehusado a dar cierto tipo de EPP: 0.216
Empleador se ha rehusado a dar cierto tipo de EPP 40 (11.6%) 17 (7.98%)
No se constata esta situación 304 (88.4%) 196 (92.0%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): 0.185
Algo/Bastante/Totalente/No aplica 305 (88.7%) 197 (92.5%)
Poco/Nada 39 (11.3%) 16 (7.51%)
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.360
Incapacidad para negarse a trabajo inseguro 161 (46.8%) 109 (51.2%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse 183 (53.2%) 104 (48.8%)
¿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.009
Apropiadas/No sabe/No aplica 246 (71.5%) 174 (81.7%)
Inapropiadas/Deficientes 98 (28.5%) 39 (18.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada): 0.163
Apropiadas/No sabe/No aplica 318 (92.4%) 204 (95.8%)
Inapropiadas/Deficientes 26 (7.56%) 9 (4.23%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada): 0.076
Apropiadas/No sabe/No aplica 319 (92.7%) 206 (96.7%)
Inapropiadas/Deficientes 25 (7.27%) 7 (3.29%)
¿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.001
Apropiadas/No sabe/No aplica 301 (87.5%) 206 (96.7%)
Inapropiadas/Deficientes 43 (12.5%) 7 (3.29%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): 0.054
Apropiadas/No sabe/No aplica 205 (59.6%) 145 (68.1%)
Inapropiadas/Deficientes 139 (40.4%) 68 (31.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada): 1.000
Apropiadas/No sabe/No aplica 281 (81.7%) 174 (81.7%)
Inapropiadas/Deficientes 63 (18.3%) 39 (18.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.428
Apropiadas/No sabe/No aplica 215 (62.5%) 141 (66.2%)
Inapropiadas/Deficientes 129 (37.5%) 72 (33.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): 0.345
Apropiadas/No sabe/No aplica 258 (75.0%) 168 (78.9%)
Inapropiadas/Deficientes 86 (25.0%) 45 (21.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): 0.583
Apropiadas/No sabe/No aplica 290 (84.3%) 184 (86.4%)
Inapropiadas/Deficientes 54 (15.7%) 29 (13.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? | Sindicato/gremio (Dicotomizada): 0.989
Desacuerdo/Totalmente en desacuerdo 47 (13.7%) 30 (14.1%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 297 (86.3%) 183 (85.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.117
Desacuerdo/Totalmente en desacuerdo 64 (18.6%) 28 (13.1%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 280 (81.4%) 185 (86.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? | Gobierno (Dicotomizada): 0.029
Desacuerdo/Totalmente en desacuerdo 163 (47.4%) 80 (37.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 181 (52.6%) 133 (62.4%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada): 0.124
Desacuerdo/Totalmente en desacuerdo 61 (17.7%) 50 (23.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 283 (82.3%) 163 (76.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 63 (19.2%) 40 (19.0%)
Mantiene las mismas labores en la misma área 265 (80.8%) 170 (81.0%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): 0.179
Excelente/Buena/Regular 277 (85.8%) 183 (90.1%)
Mala 46 (14.2%) 20 (9.85%)
¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada): 0.481
De acuerdo/Totalmente de acuerdo 169 (52.3%) 99 (48.8%)
Neutral/En desacuerdo/Totalmente en desacuerdo 154 (47.7%) 104 (51.2%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): 0.569
La mayoría de las veces/Siempre 148 (45.8%) 99 (48.8%)
Nunca/Sólo unas pocas veces/Algunas veces 175 (54.2%) 104 (51.2%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): 0.225
La mayoría de las veces/Siempre 153 (47.4%) 108 (53.2%)
Nunca/Sólo unas pocas veces/Algunas veces 170 (52.6%) 95 (46.8%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): 0.213
La mayoría de las veces/Siempre 205 (63.5%) 117 (57.6%)
Nunca/Sólo unas pocas veces/Algunas veces 118 (36.5%) 86 (42.4%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): 0.495
La mayoría de las veces/Siempre 25 (7.74%) 20 (9.85%)
Nunca/Sólo unas pocas veces/Algunas veces 298 (92.3%) 183 (90.1%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): 0.629
La mayoría de las veces/Siempre 69 (21.4%) 39 (19.2%)
Nunca/Sólo unas pocas veces/Algunas veces 254 (78.6%) 164 (80.8%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): 0.169
La mayoría de las veces/Siempre 243 (75.2%) 164 (80.8%)
Nunca/Sólo unas pocas veces/Algunas veces 80 (24.8%) 39 (19.2%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): 0.408
La mayoría de las veces/Siempre 220 (68.1%) 146 (71.9%)
Nunca/Sólo unas pocas veces/Algunas veces 103 (31.9%) 57 (28.1%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): 0.098
La mayoría de las veces/Siempre 217 (67.2%) 151 (74.4%)
Nunca/Sólo unas pocas veces/Algunas veces 106 (32.8%) 52 (25.6%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): 1.000
La mayoría de las veces/Siempre 268 (83.0%) 169 (83.3%)
Nunca/Sólo unas pocas veces/Algunas veces 55 (17.0%) 34 (16.7%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): 0.570
La mayoría de las veces/Siempre 267 (82.7%) 163 (80.3%)
Nunca/Sólo unas pocas veces/Algunas veces 56 (17.3%) 40 (19.7%)
Suma ítems Exigencias Psicológicas ISTAS21 5.00 [4.00;6.00] 5.00 [4.00;6.00] 0.261
Suma ítems Calidad Relación con Superiores ISTAS21 9.00 [7.00;11.0] 9.00 [7.00;11.0] 0.505
Suma ítems Conflicto de Rol ISTAS21 3.00 [1.00;4.00] 3.00 [2.00;4.00] 0.284
Suma ítems Relación con Compañeros de Trabajo ISTAS21 6.00 [5.00;8.00] 6.00 [5.00;7.00] 0.824
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.916
Apenas cierto/Incorrecto 13 (4.05%) 7 (3.47%)
Más bien cierto/Cierto 308 (96.0%) 195 (96.5%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada): 0.289
Apenas cierto/Incorrecto 21 (6.54%) 8 (3.96%)
Más bien cierto/Cierto 300 (93.5%) 194 (96.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): 0.780
Apenas cierto/Incorrecto 14 (4.36%) 7 (3.47%)
Más bien cierto/Cierto 307 (95.6%) 195 (96.5%)
Suma puntajes de resilencia 8.00 [7.00;9.00] 8.00 [6.00;9.00] 0.563
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: 0.850
Nunca 9 (2.62%) 4 (1.88%)
Sólo unas pocas <br>veces 52 (15.1%) 27 (12.7%)
Algunas veces 134 (39.0%) 82 (38.5%)
La mayoría de las veces 124 (36.0%) 85 (39.9%)
Siempre 25 (7.27%) 15 (7.04%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: 0.076
Nunca 31 (9.01%) 6 (2.82%)
Sólo unas pocas <br>veces 53 (15.4%) 35 (16.4%)
Algunas veces 131 (38.1%) 82 (38.5%)
La mayoría de las veces 104 (30.2%) 73 (34.3%)
Siempre 25 (7.27%) 17 (7.98%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: 0.099
Nunca 24 (6.98%) 4 (1.88%)
Sólo unas pocas <br>veces 59 (17.2%) 33 (15.5%)
Algunas veces 130 (37.8%) 89 (41.8%)
La mayoría de las veces 99 (28.8%) 66 (31.0%)
Siempre 32 (9.30%) 21 (9.86%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: 0.526
Nunca 45 (13.1%) 21 (9.86%)
Sólo unas pocas <br>veces 109 (31.7%) 62 (29.1%)
Algunas veces 128 (37.2%) 83 (39.0%)
La mayoría de las veces 51 (14.8%) 36 (16.9%)
Siempre 11 (3.20%) 11 (5.16%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: 0.542
Nunca 42 (12.2%) 27 (12.7%)
Sólo unas pocas <br>veces 67 (19.5%) 30 (14.1%)
Algunas veces 98 (28.5%) 70 (32.9%)
La mayoría de las veces 94 (27.3%) 58 (27.2%)
Siempre 43 (12.5%) 28 (13.1%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: 0.729
Nunca 58 (16.9%) 39 (18.3%)
Sólo unas pocas <br>veces 78 (22.7%) 42 (19.7%)
Algunas veces 98 (28.5%) 54 (25.4%)
La mayoría de las veces 72 (20.9%) 52 (24.4%)
Siempre 38 (11.0%) 26 (12.2%)
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.040
Nada 71 (20.6%) 53 (24.9%)
Un poco 111 (32.3%) 70 (32.9%)
Regular 94 (27.3%) 50 (23.5%)
Bastante 61 (17.7%) 27 (12.7%)
Mucho 7 (2.03%) 13 (6.10%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: 0.456
Nada 76 (22.1%) 41 (19.2%)
Un poco 110 (32.0%) 65 (30.5%)
Regular 74 (21.5%) 44 (20.7%)
Bastante 71 (20.6%) 48 (22.5%)
Mucho 13 (3.78%) 15 (7.04%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: 0.120
Nada 135 (39.2%) 77 (36.2%)
Un poco 112 (32.6%) 59 (27.7%)
Regular 60 (17.4%) 38 (17.8%)
Bastante 26 (7.56%) 30 (14.1%)
Mucho 11 (3.20%) 9 (4.23%)
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.419
Nunca 73 (21.2%) 33 (15.5%)
Algunos días 167 (48.5%) 110 (51.6%)
Más de la mitad de los días 72 (20.9%) 49 (23.0%)
Casi todos los días 32 (9.30%) 21 (9.86%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: 0.924
Nunca 46 (13.4%) 29 (13.6%)
Algunos días 150 (43.6%) 88 (41.3%)
Más de la mitad de los días 101 (29.4%) 63 (29.6%)
Casi todos los días 47 (13.7%) 33 (15.5%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas.: 0.721
Nunca 74 (21.5%) 53 (24.9%)
Algunos días 172 (50.0%) 97 (45.5%)
Más de la mitad de los días 72 (20.9%) 45 (21.1%)
Casi todos los días 26 (7.56%) 18 (8.45%)
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.714
Nunca 82 (23.8%) 57 (26.8%)
Algunos días 170 (49.4%) 100 (46.9%)
Más de la mitad de los días 73 (21.2%) 41 (19.2%)
Casi todos los días 19 (5.52%) 15 (7.04%)
¿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.956
Ninguno 162 (47.1%) 100 (46.9%)
1 a 10 134 (39.0%) 78 (36.6%)
11 a 30 32 (9.30%) 23 (10.8%)
31 a 100 13 (3.78%) 10 (4.69%)
101 a 200 3 (0.87%) 2 (0.94%)
¿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.724
Ninguno 190 (55.2%) 107 (50.2%)
Sólo uno 51 (14.8%) 34 (16.0%)
2 a 10 88 (25.6%) 63 (29.6%)
11 a 25 9 (2.62%) 7 (3.29%)
26 a 50 5 (1.45%) 1 (0.47%)
Más de 50 1 (0.29%) 1 (0.47%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?: 0.007
Trabajo en contacto directo con pacientes 81 (23.5%) 36 (16.9%)
Trabajo a menos de dos metros de pacientes 9 (2.62%) 5 (2.35%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia) 3 (0.87%) 3 (1.41%)
Trabajo en el mismo piso/sala/departamento 16 (4.65%) 13 (6.10%)
Como parte de mi trabajo visito un piso/sala/departamento 19 (5.52%) 29 (13.6%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19 71 (20.6%) 54 (25.4%)
Ninguno que yo esté en conocimiento 145 (42.2%) 73 (34.3%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.: 0.445
0 222 (64.5%) 145 (68.1%)
1 122 (35.5%) 68 (31.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 han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.: 0.932
0 308 (89.5%) 192 (90.1%)
1 36 (10.5%) 21 (9.86%)
¿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.175
0 263 (76.5%) 174 (81.7%)
1 81 (23.5%) 39 (18.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.493
0 253 (73.5%) 163 (76.5%)
1 91 (26.5%) 50 (23.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de los síntomas.: 0.713
0 331 (96.2%) 207 (97.2%)
1 13 (3.78%) 6 (2.82%)
¿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.028
0 302 (87.8%) 200 (93.9%)
1 42 (12.2%) 13 (6.10%)
¿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.351
0 277 (80.5%) 179 (84.0%)
1 67 (19.5%) 34 (16.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) | Se hizo el examen para descartar COVID-19.: 0.398
0 175 (50.9%) 117 (54.9%)
1 169 (49.1%) 96 (45.1%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.: 0.745
0 325 (94.5%) 199 (93.4%)
1 19 (5.52%) 14 (6.57%)
¿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.764
0 306 (89.0%) 192 (90.1%)
1 38 (11.0%) 21 (9.86%)
¿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.209
FALSE 251 (73.0%) 144 (67.6%)
TRUE 93 (27.0%) 69 (32.4%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: 0.237
Nada 10 (2.91%) 8 (3.76%)
Un poco 62 (18.0%) 49 (23.0%)
Bastante 82 (23.8%) 58 (27.2%)
Mucho 175 (50.9%) 87 (40.8%)
No aplica 15 (4.36%) 11 (5.16%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: 0.502
1 (Poco o nada) 15 (4.36%) 12 (5.63%)
2 18 (5.23%) 12 (5.63%)
3 26 (7.56%) 24 (11.3%)
4 41 (11.9%) 27 (12.7%)
5 74 (21.5%) 40 (18.8%)
6 47 (13.7%) 35 (16.4%)
7 57 (16.6%) 32 (15.0%)
8 31 (9.01%) 20 (9.39%)
9 18 (5.23%) 7 (3.29%)
10 (Tanto miedo como nunca he sentido) 17 (4.94%) 4 (1.88%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: <0.001
FALSE 132 (38.4%) 117 (54.9%)
TRUE 212 (61.6%) 96 (45.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): 0.236
FALSE 178 (51.7%) 122 (57.3%)
TRUE 166 (48.3%) 91 (42.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: 0.109
FALSE 127 (36.9%) 94 (44.1%)
TRUE 217 (63.1%) 119 (55.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: 0.003
FALSE 307 (89.2%) 206 (96.7%)
TRUE 37 (10.8%) 7 (3.29%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: 0.408
FALSE 36 (10.5%) 28 (13.1%)
TRUE 308 (89.5%) 185 (86.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: 0.431
FALSE 48 (14.0%) 24 (11.3%)
TRUE 296 (86.0%) 189 (88.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: 0.001
FALSE 155 (45.1%) 127 (59.6%)
TRUE 189 (54.9%) 86 (40.4%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: 0.102
FALSE 335 (97.4%) 212 (99.5%)
TRUE 9 (2.62%) 1 (0.47%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: 0.093
FALSE 182 (52.9%) 129 (60.6%)
TRUE 162 (47.1%) 84 (39.4%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: 0.002
FALSE 228 (66.3%) 168 (78.9%)
TRUE 116 (33.7%) 45 (21.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: 0.498
FALSE 292 (84.9%) 186 (87.3%)
TRUE 52 (15.1%) 27 (12.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: 0.713
FALSE 340 (98.8%) 209 (98.1%)
TRUE 4 (1.16%) 4 (1.88%)
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.019
Suficiente 200 (58.1%) 137 (64.3%)
Insuficiente 58 (16.9%) 18 (8.45%)
No Aplica 86 (25.0%) 58 (27.2%)
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.172
Suficiente 124 (36.0%) 90 (42.3%)
Insuficiente 95 (27.6%) 45 (21.1%)
No Aplica 125 (36.3%) 78 (36.6%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.: 0.186
Suficiente 174 (50.6%) 124 (58.2%)
Insuficiente 92 (26.7%) 45 (21.1%)
No Aplica 78 (22.7%) 44 (20.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.: 0.058
Suficiente 45 (13.1%) 30 (14.1%)
Insuficiente 57 (16.6%) 20 (9.39%)
No Aplica 242 (70.3%) 163 (76.5%)
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.767
Suficiente 279 (81.1%) 177 (83.1%)
Insuficiente 46 (13.4%) 24 (11.3%)
No Aplica 19 (5.52%) 12 (5.63%)
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.231
Suficiente 267 (77.6%) 178 (83.6%)
Insuficiente 56 (16.3%) 26 (12.2%)
No Aplica 21 (6.10%) 9 (4.23%)
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.001
Suficiente 91 (26.5%) 73 (34.3%)
Insuficiente 147 (42.7%) 54 (25.4%)
No Aplica 106 (30.8%) 86 (40.4%)
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.363
Suficiente 13 (3.78%) 10 (4.69%)
Insuficiente 51 (14.8%) 23 (10.8%)
No Aplica 280 (81.4%) 180 (84.5%)
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.111
Suficiente 161 (46.8%) 102 (47.9%)
Insuficiente 41 (11.9%) 14 (6.57%)
No Aplica 142 (41.3%) 97 (45.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.005
Suficiente 80 (23.3%) 58 (27.2%)
Insuficiente 70 (20.3%) 21 (9.86%)
No Aplica 194 (56.4%) 134 (62.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.001
Suficiente 31 (9.01%) 36 (16.9%)
Insuficiente 90 (26.2%) 19 (8.92%)
No Aplica 223 (64.8%) 158 (74.2%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: 0.001
Sí, en el último mes 32 (9.30%) 33 (15.5%)
Sí, en los últimos 6 meses 136 (39.5%) 105 (49.3%)
Sí, el año pasado 39 (11.3%) 22 (10.3%)
Sí, hace 1-2 años 4 (1.16%) 7 (3.29%)
Sí, hace 2-5 años 4 (1.16%) 2 (0.94%)
Sí, hace más de 5 años 9 (2.62%) 0 (0.00%)
No he sido capacitado 120 (34.9%) 44 (20.7%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: <0.001
Excelente 6 (2.68%) 30 (17.8%)
Buena 115 (51.3%) 84 (49.7%)
Regular 85 (37.9%) 49 (29.0%)
Mala 18 (8.04%) 6 (3.55%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: 0.001
Nada 10 (2.91%) 4 (1.88%)
Poco 24 (6.98%) 8 (3.76%)
Algo 84 (24.4%) 28 (13.1%)
Bastante 165 (48.0%) 118 (55.4%)
Totalmente 37 (10.8%) 43 (20.2%)
No aplica 24 (6.98%) 12 (5.63%)
¿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.216
0 304 (88.4%) 196 (92.0%)
1 40 (11.6%) 17 (7.98%)
¿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.944
0 300 (87.2%) 187 (87.8%)
1 44 (12.8%) 26 (12.2%)
¿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.279
0 316 (91.9%) 189 (88.7%)
1 28 (8.14%) 24 (11.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 EPP’s utilizados previamente por otros.: 0.651
0 289 (84.0%) 175 (82.2%)
1 55 (16.0%) 38 (17.8%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica: 1.000
FALSE 246 (71.5%) 152 (71.4%)
TRUE 98 (28.5%) 61 (28.6%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: 0.001
Nada 7 (2.03%) 3 (1.41%)
Poco 32 (9.30%) 13 (6.10%)
Algo 97 (28.2%) 39 (18.3%)
Bastante 147 (42.7%) 102 (47.9%)
Totalmente 37 (10.8%) 49 (23.0%)
No aplica 24 (6.98%) 7 (3.29%)
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.079
Negarme a trabajar no es una opción legalmente disponible para mí 34 (9.88%) 27 (12.7%)
Definitivamente, no es posible negarme a trabajar 35 (10.2%) 11 (5.16%)
Es improbable que pueda negarme a trabajar 24 (6.98%) 19 (8.92%)
Quizás, en una situación extrema podría negarme a trabajar 68 (19.8%) 29 (13.6%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo 115 (33.4%) 75 (35.2%)
Definitivamente, no dudaría en negarme a trabajar 68 (19.8%) 52 (24.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.: 0.003
Apropiadas y bien implementadas 91 (26.5%) 81 (38.0%)
Apropiadas pero mal implementadas 78 (22.7%) 34 (16.0%)
Inapropiadas 13 (3.78%) 9 (4.23%)
Deficientes 85 (24.7%) 30 (14.1%)
No sabe 8 (2.33%) 8 (3.76%)
No aplica 69 (20.1%) 51 (23.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: 0.111
Apropiadas y bien implementadas 158 (45.9%) 121 (56.8%)
Apropiadas pero mal implementadas 48 (14.0%) 23 (10.8%)
Inapropiadas 9 (2.62%) 1 (0.47%)
Deficientes 17 (4.94%) 8 (3.76%)
No sabe 22 (6.40%) 12 (5.63%)
No aplica 90 (26.2%) 48 (22.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: 0.185
Apropiadas y bien implementadas 147 (42.7%) 109 (51.2%)
Apropiadas pero mal implementadas 51 (14.8%) 23 (10.8%)
Inapropiadas 8 (2.33%) 3 (1.41%)
Deficientes 17 (4.94%) 4 (1.88%)
No sabe 25 (7.27%) 15 (7.04%)
No aplica 96 (27.9%) 59 (27.7%)
¿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.001
Apropiadas y bien implementadas 128 (37.2%) 105 (49.3%)
Apropiadas pero mal implementadas 59 (17.2%) 26 (12.2%)
Inapropiadas 17 (4.94%) 1 (0.47%)
Deficientes 26 (7.56%) 6 (2.82%)
No sabe 32 (9.30%) 17 (7.98%)
No aplica 82 (23.8%) 58 (27.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: 0.104
Apropiadas y bien implementadas 52 (15.1%) 43 (20.2%)
Apropiadas pero mal implementadas 32 (9.30%) 24 (11.3%)
Inapropiadas 47 (13.7%) 19 (8.92%)
Deficientes 92 (26.7%) 49 (23.0%)
No sabe 36 (10.5%) 33 (15.5%)
No aplica 85 (24.7%) 45 (21.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: 0.464
Apropiadas y bien implementadas 97 (28.2%) 70 (32.9%)
Apropiadas pero mal implementadas 33 (9.59%) 18 (8.45%)
Inapropiadas 25 (7.27%) 10 (4.69%)
Deficientes 38 (11.0%) 29 (13.6%)
No sabe 35 (10.2%) 25 (11.7%)
No aplica 116 (33.7%) 61 (28.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.: 0.933
Apropiadas y bien implementadas 70 (20.3%) 44 (20.7%)
Apropiadas pero mal implementadas 29 (8.43%) 21 (9.86%)
Inapropiadas 41 (11.9%) 21 (9.86%)
Deficientes 88 (25.6%) 51 (23.9%)
No sabe 30 (8.72%) 22 (10.3%)
No aplica 86 (25.0%) 54 (25.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: 0.539
Apropiadas y bien implementadas 81 (23.5%) 65 (30.5%)
Apropiadas pero mal implementadas 26 (7.56%) 16 (7.51%)
Inapropiadas 21 (6.10%) 13 (6.10%)
Deficientes 65 (18.9%) 32 (15.0%)
No sabe 51 (14.8%) 32 (15.0%)
No aplica 100 (29.1%) 55 (25.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.: 0.944
Apropiadas y bien implementadas 154 (44.8%) 102 (47.9%)
Apropiadas pero mal implementadas 36 (10.5%) 24 (11.3%)
Inapropiadas 19 (5.52%) 11 (5.16%)
Deficientes 35 (10.2%) 18 (8.45%)
No sabe 42 (12.2%) 22 (10.3%)
No aplica 58 (16.9%) 36 (16.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”? | Sindicato/gremio.: 0.936
Totalmente de acuerdo 91 (26.5%) 52 (24.4%)
De acuerdo 110 (32.0%) 75 (35.2%)
Ni de acuerdo ni en desacuerdo 96 (27.9%) 56 (26.3%)
En desacuerdo 35 (10.2%) 23 (10.8%)
Totalmente en desacuerdo 12 (3.49%) 7 (3.29%)
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.001
Totalmente de acuerdo 58 (16.9%) 64 (30.0%)
De acuerdo 137 (39.8%) 91 (42.7%)
Ni de acuerdo ni en desacuerdo 85 (24.7%) 30 (14.1%)
En desacuerdo 53 (15.4%) 24 (11.3%)
Totalmente en desacuerdo 11 (3.20%) 4 (1.88%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Gobierno.: 0.018
Totalmente de acuerdo 24 (6.98%) 27 (12.7%)
De acuerdo 60 (17.4%) 53 (24.9%)
Ni de acuerdo ni en desacuerdo 97 (28.2%) 53 (24.9%)
En desacuerdo 96 (27.9%) 50 (23.5%)
Totalmente en desacuerdo 67 (19.5%) 30 (14.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.051
Totalmente de acuerdo 47 (13.7%) 38 (17.8%)
De acuerdo 95 (27.6%) 63 (29.6%)
Ni de acuerdo ni en desacuerdo 141 (41.0%) 62 (29.1%)
En desacuerdo 45 (13.1%) 34 (16.0%)
Totalmente en desacuerdo 16 (4.65%) 16 (7.51%)
¿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.972
Mantengo las mismas labores 217 (66.2%) 141 (67.1%)
Mantengo las mismas labores, pero en un área distinta 12 (3.66%) 8 (3.81%)
Mantengo las mismas labores, pero en un lugar físico distinto 27 (8.23%) 16 (7.62%)
Mantengo las mismas labores, pero en área y lugar físico distintos 9 (2.74%) 5 (2.38%)
Distintas labores, pero en la misma área 24 (7.32%) 15 (7.14%)
Distintas labores, pero en el mismo lugar físico 15 (4.57%) 13 (6.19%)
Labores, área y lugar físico distintos 24 (7.32%) 12 (5.71%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: 0.013
Excelente 12 (3.72%) 0 (0.00%)
Buena 115 (35.6%) 78 (38.4%)
Regular 150 (46.4%) 105 (51.7%)
Mala 46 (14.2%) 20 (9.85%)
¿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.033
Totalmente de acuerdo 55 (17.0%) 31 (15.3%)
De acuerdo 114 (35.3%) 68 (33.5%)
Neutral 91 (28.2%) 41 (20.2%)
En desacuerdo 46 (14.2%) 45 (22.2%)
Totalmente en desacuerdo 17 (5.26%) 18 (8.87%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: 0.238
Siempre 68 (21.1%) 36 (17.7%)
La mayoría <br>de las veces 80 (24.8%) 63 (31.0%)
Algunas veces 118 (36.5%) 80 (39.4%)
Sólo unas <br>pocas veces 45 (13.9%) 19 (9.36%)
Nunca 12 (3.72%) 5 (2.46%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: 0.567
Siempre 53 (16.4%) 37 (18.2%)
La mayoría <br>de las veces 100 (31.0%) 71 (35.0%)
Algunas veces 118 (36.5%) 72 (35.5%)
Sólo unas <br>pocas veces 42 (13.0%) 18 (8.87%)
Nunca 10 (3.10%) 5 (2.46%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: 0.081
Siempre 68 (21.1%) 30 (14.8%)
La mayoría <br>de las veces 137 (42.4%) 87 (42.9%)
Algunas veces 90 (27.9%) 61 (30.0%)
Sólo unas <br>pocas veces 27 (8.36%) 20 (9.85%)
Nunca 1 (0.31%) 5 (2.46%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: 0.046
Siempre 13 (4.02%) 5 (2.46%)
La mayoría <br>de las veces 12 (3.72%) 15 (7.39%)
Algunas veces 96 (29.7%) 63 (31.0%)
Sólo unas <br>pocas veces 73 (22.6%) 59 (29.1%)
Nunca 129 (39.9%) 61 (30.0%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: 0.379
Siempre 20 (6.19%) 14 (6.90%)
La mayoría <br>de las veces 49 (15.2%) 25 (12.3%)
Algunas veces 131 (40.6%) 85 (41.9%)
Sólo unas <br>pocas veces 70 (21.7%) 55 (27.1%)
Nunca 53 (16.4%) 24 (11.8%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: 0.279
Siempre 157 (48.6%) 96 (47.3%)
La mayoría <br>de las veces 86 (26.6%) 68 (33.5%)
Algunas veces 44 (13.6%) 17 (8.37%)
Sólo unas <br>pocas veces 24 (7.43%) 14 (6.90%)
Nunca 12 (3.72%) 8 (3.94%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: 0.144
Siempre 128 (39.6%) 74 (36.5%)
La mayoría <br>de las veces 92 (28.5%) 72 (35.5%)
Algunas veces 59 (18.3%) 30 (14.8%)
Sólo unas <br>pocas veces 34 (10.5%) 15 (7.39%)
Nunca 10 (3.10%) 12 (5.91%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: 0.030
Siempre 110 (34.1%) 55 (27.1%)
La mayoría <br>de las veces 107 (33.1%) 96 (47.3%)
Algunas veces 73 (22.6%) 37 (18.2%)
Sólo unas <br>pocas veces 23 (7.12%) 10 (4.93%)
Nunca 10 (3.10%) 5 (2.46%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: 0.458
Siempre 126 (39.0%) 72 (35.5%)
La mayoría <br>de las veces 142 (44.0%) 97 (47.8%)
Algunas veces 46 (14.2%) 24 (11.8%)
Sólo unas <br>pocas veces 7 (2.17%) 6 (2.96%)
Nunca 2 (0.62%) 4 (1.97%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: 0.362
Siempre 199 (61.6%) 111 (54.7%)
La mayoría <br>de las veces 68 (21.1%) 52 (25.6%)
Algunas veces 35 (10.8%) 22 (10.8%)
Sólo unas <br>pocas veces 13 (4.02%) 8 (3.94%)
Nunca 8 (2.48%) 10 (4.93%)
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.633
Incorrecto 2 (0.62%) 1 (0.50%)
Apenas cierto 11 (3.43%) 6 (2.97%)
Más bien cierto 84 (26.2%) 64 (31.7%)
Cierto 224 (69.8%) 131 (64.9%)
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.475
Incorrecto 2 (0.62%) 1 (0.50%)
Apenas cierto 19 (5.92%) 7 (3.47%)
Más bien cierto 115 (35.8%) 83 (41.1%)
Cierto 185 (57.6%) 111 (55.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.689
Incorrecto 2 (0.62%) 1 (0.50%)
Apenas cierto 12 (3.74%) 6 (2.97%)
Más bien cierto 108 (33.6%) 79 (39.1%)
Cierto 199 (62.0%) 116 (57.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
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,
              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)

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 Total según Tipo de Contrato",
          col.names=c("Variables", "Titulares", "Contrata", "Honorarios", "Becario/Interno/Practicante",    "Otros",     "Sig. Total", "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 Total según Tipo de Contrato
Variables Titulares Contrata Honorarios Becario/Interno/Practicante Otros Sig. Total Sig. ordinal
N=91 N=344 N=63 N=3 N=37
Sentimiento de Agotamiento, estrés e irritabilidad (terciles): 0.450 0.132
1 28 (30.8%) 104 (30.2%) 25 (39.7%) 0 (0.00%) 15 (40.5%)
2 34 (37.4%) 112 (32.6%) 21 (33.3%) 2 (66.7%) 13 (35.1%)
3 29 (31.9%) 128 (37.2%) 17 (27.0%) 1 (33.3%) 9 (24.3%)
Estrés Postraumático (4° Cuartil): 0.027 0.873
Ausencia de Indicadores de Estrés Post-traumático 77 (84.6%) 246 (71.5%) 53 (84.1%) 3 (100%) 29 (78.4%)
Indicadores de Estrés Post-traumático 14 (15.4%) 98 (28.5%) 10 (15.9%) 0 (0.00%) 8 (21.6%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad 325 [250;375] 325 [225;400] 300 [175;375] 350 [325;375] 325 [225;350] 0.316 0.081
Ptjes. Estrés Postraumático 4.00 [2.00;5.00] 4.00 [2.00;7.00] 3.00 [1.00;5.00] 5.00 [4.50;5.50] 3.00 [1.00;6.00] 0.050 0.078
Sintomatología ansiosa: 0.714 0.905
Ausencia de Indicadores de Sintomatología Ansiosa 48 (52.7%) 181 (52.6%) 38 (60.3%) 1 (33.3%) 18 (48.6%)
Indicadores de Sintomatología Ansiosa 43 (47.3%) 163 (47.4%) 25 (39.7%) 2 (66.7%) 19 (51.4%)
Sintomatología depresiva: 0.804 0.944
Ausencia de Indicadores de Sintomatología Depresiva 60 (65.9%) 216 (62.8%) 42 (66.7%) 1 (33.3%) 24 (64.9%)
Indicadores de Sintomatología Depresiva 31 (34.1%) 128 (37.2%) 21 (33.3%) 2 (66.7%) 13 (35.1%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): 0.003 0.045
Contacto directo y estrecho con pacientes (menos de dos metros) 22 (24.2%) 68 (19.8%) 25 (39.7%) 2 (66.7%) 11 (29.7%)
Menor o ningún contacto con pacientes 69 (75.8%) 276 (80.2%) 38 (60.3%) 1 (33.3%) 26 (70.3%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): 0.020 0.001
1 29 (46.8%) 77 (32.5%) 17 (30.9%) 0 (0.00%) 6 (21.4%)
2 17 (27.4%) 52 (21.9%) 12 (21.8%) 0 (0.00%) 4 (14.3%)
3 10 (16.1%) 41 (17.3%) 9 (16.4%) 0 (0.00%) 9 (32.1%)
Más de 3 6 (9.68%) 67 (28.3%) 17 (30.9%) 2 (100%) 9 (32.1%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): 0.849 0.280
Bastante/Mucho 64 (70.3%) 246 (71.5%) 48 (76.2%) 2 (66.7%) 29 (78.4%)
Un poco/Nada/No aplica 27 (29.7%) 98 (28.5%) 15 (23.8%) 1 (33.3%) 8 (21.6%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): 0.091 0.076
Predomina el miedo 45 (49.5%) 174 (50.6%) 23 (36.5%) 0 (0.00%) 15 (40.5%)
Predomina la ausencia de miedo 46 (50.5%) 170 (49.4%) 40 (63.5%) 3 (100%) 22 (59.5%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): 0.065 0.252
Ha sido capacitado 72 (79.1%) 231 (67.2%) 50 (79.4%) 2 (66.7%) 23 (62.2%)
No ha sido capacitado 19 (20.9%) 113 (32.8%) 13 (20.6%) 1 (33.3%) 14 (37.8%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): 0.804 0.614
Mala 4 (5.56%) 17 (7.36%) 2 (4.00%) 0 (0.00%) 1 (4.35%)
Regular a Excelente 68 (94.4%) 214 (92.6%) 48 (96.0%) 2 (100%) 22 (95.7%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): 0.138 0.011
Nada/Poco/Algo/No aplica 39 (42.9%) 120 (34.9%) 17 (27.0%) 1 (33.3%) 8 (21.6%)
Totalmente/Bastante 52 (57.1%) 224 (65.1%) 46 (73.0%) 2 (66.7%) 29 (78.4%)
¿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.031 <0.001
1 58 (87.9%) 193 (81.1%) 30 (68.2%) 2 (100%) 15 (55.6%)
2 6 (9.09%) 33 (13.9%) 11 (25.0%) 0 (0.00%) 7 (25.9%)
3 0 (0.00%) 11 (4.62%) 2 (4.55%) 0 (0.00%) 5 (18.5%)
Más de 3 2 (3.03%) 1 (0.42%) 1 (2.27%) 0 (0.00%) 0 (0.00%)
Mi empleador se ha rehusado a dar cierto tipo de EPP: 0.647 0.566
Empleador se ha rehusado a dar cierto tipo de EPP 10 (11.0%) 36 (10.5%) 3 (4.76%) 0 (0.00%) 4 (10.8%)
No se constata esta situación 81 (89.0%) 308 (89.5%) 60 (95.2%) 3 (100%) 33 (89.2%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): 0.491 0.137
Algo/Bastante/Totalente/No aplica 82 (90.1%) 306 (89.0%) 58 (92.1%) 3 (100%) 36 (97.3%)
Poco/Nada 9 (9.89%) 38 (11.0%) 5 (7.94%) 0 (0.00%) 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): 0.945 0.855
Incapacidad para negarse a trabajo inseguro 45 (49.5%) 167 (48.5%) 28 (44.4%) 2 (66.7%) 18 (48.6%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse 46 (50.5%) 177 (51.5%) 35 (55.6%) 1 (33.3%) 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): 0.990 0.686
Apropiadas/No sabe/No aplica 68 (74.7%) 259 (75.3%) 48 (76.2%) 2 (66.7%) 29 (78.4%)
Inapropiadas/Deficientes 23 (25.3%) 85 (24.7%) 15 (23.8%) 1 (33.3%) 8 (21.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada): 0.353 0.316
Apropiadas/No sabe/No aplica 88 (96.7%) 319 (92.7%) 61 (96.8%) 3 (100%) 33 (89.2%)
Inapropiadas/Deficientes 3 (3.30%) 25 (7.27%) 2 (3.17%) 0 (0.00%) 4 (10.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada): 0.481 0.244
Apropiadas/No sabe/No aplica 86 (94.5%) 322 (93.6%) 62 (98.4%) 3 (100%) 36 (97.3%)
Inapropiadas/Deficientes 5 (5.49%) 22 (6.40%) 1 (1.59%) 0 (0.00%) 1 (2.70%)
¿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.488 0.118
Apropiadas/No sabe/No aplica 84 (92.3%) 315 (91.6%) 56 (88.9%) 3 (100%) 31 (83.8%)
Inapropiadas/Deficientes 7 (7.69%) 29 (8.43%) 7 (11.1%) 0 (0.00%) 6 (16.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): 0.452 0.931
Apropiadas/No sabe/No aplica 59 (64.8%) 210 (61.0%) 46 (73.0%) 2 (66.7%) 22 (59.5%)
Inapropiadas/Deficientes 32 (35.2%) 134 (39.0%) 17 (27.0%) 1 (33.3%) 15 (40.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada): 0.623 0.241
Apropiadas/No sabe/No aplica 75 (82.4%) 278 (80.8%) 53 (84.1%) 3 (100%) 33 (89.2%)
Inapropiadas/Deficientes 16 (17.6%) 66 (19.2%) 10 (15.9%) 0 (0.00%) 4 (10.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): 0.345 0.239
Apropiadas/No sabe/No aplica 61 (67.0%) 220 (64.0%) 45 (71.4%) 2 (66.7%) 19 (51.4%)
Inapropiadas/Deficientes 30 (33.0%) 124 (36.0%) 18 (28.6%) 1 (33.3%) 18 (48.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): 0.823 0.554
Apropiadas/No sabe/No aplica 70 (76.9%) 269 (78.2%) 45 (71.4%) 2 (66.7%) 28 (75.7%)
Inapropiadas/Deficientes 21 (23.1%) 75 (21.8%) 18 (28.6%) 1 (33.3%) 9 (24.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): 0.783 0.417
Apropiadas/No sabe/No aplica 78 (85.7%) 288 (83.7%) 55 (87.3%) 3 (100%) 33 (89.2%)
Inapropiadas/Deficientes 13 (14.3%) 56 (16.3%) 8 (12.7%) 0 (0.00%) 4 (10.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? | Sindicato/gremio (Dicotomizada): 0.422 0.164
Desacuerdo/Totalmente en desacuerdo 13 (14.3%) 55 (16.0%) 6 (9.52%) 0 (0.00%) 3 (8.11%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 78 (85.7%) 289 (84.0%) 57 (90.5%) 3 (100%) 34 (91.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.681 0.833
Desacuerdo/Totalmente en desacuerdo 15 (16.5%) 60 (17.4%) 7 (11.1%) 0 (0.00%) 7 (18.9%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 76 (83.5%) 284 (82.6%) 56 (88.9%) 3 (100%) 30 (81.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? | Gobierno (Dicotomizada): 0.276 0.434
Desacuerdo/Totalmente en desacuerdo 36 (39.6%) 159 (46.2%) 24 (38.1%) 0 (0.00%) 14 (37.8%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 55 (60.4%) 185 (53.8%) 39 (61.9%) 3 (100%) 23 (62.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.064 0.149
Desacuerdo/Totalmente en desacuerdo 16 (17.6%) 80 (23.3%) 6 (9.52%) 0 (0.00%) 5 (13.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 75 (82.4%) 264 (76.7%) 57 (90.5%) 3 (100%) 32 (86.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): 0.390 0.814
Cambia área, labores o ambos producto de la pandemia 13 (14.3%) 74 (21.5%) 10 (15.9%) 0 (0.00%) 6 (16.2%)
Mantiene las mismas labores en la misma área 78 (85.7%) 270 (78.5%) 53 (84.1%) 3 (100%) 31 (83.8%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): 0.066 0.034
Excelente/Buena/Regular 76 (86.4%) 287 (85.4%) 59 (95.2%) 2 (66.7%) 36 (97.3%)
Mala 12 (13.6%) 49 (14.6%) 3 (4.84%) 1 (33.3%) 1 (2.70%)
¿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.002 <0.001
De acuerdo/Totalmente de acuerdo 53 (60.2%) 179 (53.3%) 25 (40.3%) 1 (33.3%) 10 (27.0%)
Neutral/En desacuerdo/Totalmente en desacuerdo 35 (39.8%) 157 (46.7%) 37 (59.7%) 2 (66.7%) 27 (73.0%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): 0.011 0.397
La mayoría de las veces/Siempre 41 (46.6%) 161 (47.9%) 21 (33.9%) 0 (0.00%) 24 (64.9%)
Nunca/Sólo unas pocas veces/Algunas veces 47 (53.4%) 175 (52.1%) 41 (66.1%) 3 (100%) 13 (35.1%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): <0.001 0.532
La mayoría de las veces/Siempre 40 (45.5%) 177 (52.7%) 20 (32.3%) 0 (0.00%) 24 (64.9%)
Nunca/Sólo unas pocas veces/Algunas veces 48 (54.5%) 159 (47.3%) 42 (67.7%) 3 (100%) 13 (35.1%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): 0.027 0.758
La mayoría de las veces/Siempre 62 (70.5%) 190 (56.5%) 44 (71.0%) 1 (33.3%) 25 (67.6%)
Nunca/Sólo unas pocas veces/Algunas veces 26 (29.5%) 146 (43.5%) 18 (29.0%) 2 (66.7%) 12 (32.4%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): 0.212 0.133
La mayoría de las veces/Siempre 8 (9.09%) 25 (7.44%) 5 (8.06%) 1 (33.3%) 6 (16.2%)
Nunca/Sólo unas pocas veces/Algunas veces 80 (90.9%) 311 (92.6%) 57 (91.9%) 2 (66.7%) 31 (83.8%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): 0.256 0.201
La mayoría de las veces/Siempre 12 (13.6%) 75 (22.3%) 10 (16.1%) 1 (33.3%) 10 (27.0%)
Nunca/Sólo unas pocas veces/Algunas veces 76 (86.4%) 261 (77.7%) 52 (83.9%) 2 (66.7%) 27 (73.0%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): 0.001 0.138
La mayoría de las veces/Siempre 64 (72.7%) 257 (76.5%) 55 (88.7%) 0 (0.00%) 31 (83.8%)
Nunca/Sólo unas pocas veces/Algunas veces 24 (27.3%) 79 (23.5%) 7 (11.3%) 3 (100%) 6 (16.2%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): <0.001 0.004
La mayoría de las veces/Siempre 53 (60.2%) 230 (68.5%) 52 (83.9%) 0 (0.00%) 31 (83.8%)
Nunca/Sólo unas pocas veces/Algunas veces 35 (39.8%) 106 (31.5%) 10 (16.1%) 3 (100%) 6 (16.2%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): 0.091 0.816
La mayoría de las veces/Siempre 53 (60.2%) 245 (72.9%) 45 (72.6%) 1 (33.3%) 24 (64.9%)
Nunca/Sólo unas pocas veces/Algunas veces 35 (39.8%) 91 (27.1%) 17 (27.4%) 2 (66.7%) 13 (35.1%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): 0.024 0.592
La mayoría de las veces/Siempre 70 (79.5%) 278 (82.7%) 58 (93.5%) 1 (33.3%) 30 (81.1%)
Nunca/Sólo unas pocas veces/Algunas veces 18 (20.5%) 58 (17.3%) 4 (6.45%) 2 (66.7%) 7 (18.9%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): 0.111 0.586
La mayoría de las veces/Siempre 70 (79.5%) 278 (82.7%) 48 (77.4%) 1 (33.3%) 33 (89.2%)
Nunca/Sólo unas pocas veces/Algunas veces 18 (20.5%) 58 (17.3%) 14 (22.6%) 2 (66.7%) 4 (10.8%)
Suma ítems Exigencias Psicológicas ISTAS21 5.00 [4.00;6.00] 5.00 [4.00;6.00] 4.00 [3.00;6.00] 4.00 [2.00;4.00] 6.00 [4.00;7.00] 0.011 0.893
Suma ítems Calidad Relación con Superiores ISTAS21 9.00 [7.00;10.0] 9.00 [7.00;11.0] 10.0 [9.00;11.0] 3.00 [1.50;4.50] 10.0 [8.00;11.0] 0.001 0.006
Suma ítems Conflicto de Rol ISTAS21 3.00 [2.00;4.00] 3.00 [1.00;4.00] 2.00 [1.00;4.00] 4.00 [2.00;5.00] 3.00 [1.00;4.00] 0.479 0.447
Suma ítems Relación con Compañeros de Trabajo ISTAS21 6.00 [5.00;6.25] 6.00 [5.00;7.25] 6.00 [6.00;7.75] 4.00 [2.00;5.50] 6.00 [5.00;8.00] 0.007 0.004
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.001 0.003
Apenas cierto/Incorrecto 3 (3.41%) 8 (2.40%) 3 (4.84%) 2 (66.7%) 4 (10.8%)
Más bien cierto/Cierto 85 (96.6%) 325 (97.6%) 59 (95.2%) 1 (33.3%) 33 (89.2%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada): 0.001 0.074
Apenas cierto/Incorrecto 5 (5.68%) 15 (4.50%) 3 (4.84%) 2 (66.7%) 4 (10.8%)
Más bien cierto/Cierto 83 (94.3%) 318 (95.5%) 59 (95.2%) 1 (33.3%) 33 (89.2%)
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.001 0.052
Apenas cierto/Incorrecto 4 (4.55%) 9 (2.70%) 3 (4.84%) 2 (66.7%) 3 (8.11%)
Más bien cierto/Cierto 84 (95.5%) 324 (97.3%) 59 (95.2%) 1 (33.3%) 34 (91.9%)
Suma puntajes de resilencia 8.00 [7.00;9.00] 8.00 [7.00;9.00] 8.00 [7.00;9.00] 3.00 [1.50;4.50] 8.00 [7.00;9.00] 0.046 0.112
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: 0.515 0.038
Nunca 0 (0.00%) 10 (2.91%) 1 (1.59%) 0 (0.00%) 1 (2.70%)
Sólo unas pocas <br>veces 9 (9.89%) 49 (14.2%) 11 (17.5%) 0 (0.00%) 9 (24.3%)
Algunas veces 40 (44.0%) 124 (36.0%) 26 (41.3%) 1 (33.3%) 15 (40.5%)
La mayoría de las veces 37 (40.7%) 130 (37.8%) 23 (36.5%) 2 (66.7%) 10 (27.0%)
Siempre 5 (5.49%) 31 (9.01%) 2 (3.17%) 0 (0.00%) 2 (5.41%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: 0.287 0.170
Nunca 2 (2.20%) 26 (7.56%) 6 (9.52%) 0 (0.00%) 2 (5.41%)
Sólo unas pocas <br>veces 12 (13.2%) 51 (14.8%) 14 (22.2%) 0 (0.00%) 7 (18.9%)
Algunas veces 40 (44.0%) 125 (36.3%) 26 (41.3%) 2 (66.7%) 11 (29.7%)
La mayoría de las veces 29 (31.9%) 112 (32.6%) 13 (20.6%) 1 (33.3%) 17 (45.9%)
Siempre 8 (8.79%) 30 (8.72%) 4 (6.35%) 0 (0.00%) 0 (0.00%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: 0.283 0.312
Nunca 0 (0.00%) 18 (5.23%) 8 (12.7%) 0 (0.00%) 2 (5.41%)
Sólo unas pocas <br>veces 16 (17.6%) 55 (16.0%) 10 (15.9%) 0 (0.00%) 6 (16.2%)
Algunas veces 39 (42.9%) 132 (38.4%) 19 (30.2%) 1 (33.3%) 18 (48.6%)
La mayoría de las veces 29 (31.9%) 104 (30.2%) 20 (31.7%) 2 (66.7%) 7 (18.9%)
Siempre 7 (7.69%) 35 (10.2%) 6 (9.52%) 0 (0.00%) 4 (10.8%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: 0.479 0.138
Nunca 6 (6.59%) 38 (11.0%) 15 (23.8%) 0 (0.00%) 5 (13.5%)
Sólo unas pocas <br>veces 29 (31.9%) 105 (30.5%) 14 (22.2%) 1 (33.3%) 12 (32.4%)
Algunas veces 37 (40.7%) 128 (37.2%) 23 (36.5%) 1 (33.3%) 15 (40.5%)
La mayoría de las veces 17 (18.7%) 56 (16.3%) 9 (14.3%) 1 (33.3%) 4 (10.8%)
Siempre 2 (2.20%) 17 (4.94%) 2 (3.17%) 0 (0.00%) 1 (2.70%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: 0.198 0.253
Nunca 5 (5.49%) 49 (14.2%) 10 (15.9%) 0 (0.00%) 3 (8.11%)
Sólo unas pocas <br>veces 18 (19.8%) 55 (16.0%) 13 (20.6%) 0 (0.00%) 8 (21.6%)
Algunas veces 32 (35.2%) 89 (25.9%) 17 (27.0%) 1 (33.3%) 17 (45.9%)
La mayoría de las veces 26 (28.6%) 102 (29.7%) 16 (25.4%) 2 (66.7%) 5 (13.5%)
Siempre 10 (11.0%) 49 (14.2%) 7 (11.1%) 0 (0.00%) 4 (10.8%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: 0.513 0.054
Nunca 10 (11.0%) 65 (18.9%) 13 (20.6%) 0 (0.00%) 7 (18.9%)
Sólo unas pocas <br>veces 20 (22.0%) 67 (19.5%) 15 (23.8%) 1 (33.3%) 10 (27.0%)
Algunas veces 29 (31.9%) 84 (24.4%) 19 (30.2%) 2 (66.7%) 12 (32.4%)
La mayoría de las veces 23 (25.3%) 83 (24.1%) 9 (14.3%) 0 (0.00%) 6 (16.2%)
Siempre 9 (9.89%) 45 (13.1%) 7 (11.1%) 0 (0.00%) 2 (5.41%)
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.228 0.869
Nada 20 (22.0%) 74 (21.5%) 17 (27.0%) 0 (0.00%) 9 (24.3%)
Un poco 37 (40.7%) 99 (28.8%) 24 (38.1%) 1 (33.3%) 13 (35.1%)
Regular 24 (26.4%) 92 (26.7%) 14 (22.2%) 2 (66.7%) 7 (18.9%)
Bastante 9 (9.89%) 64 (18.6%) 5 (7.94%) 0 (0.00%) 8 (21.6%)
Mucho 1 (1.10%) 15 (4.36%) 3 (4.76%) 0 (0.00%) 0 (0.00%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: 0.194 0.089
Nada 15 (16.5%) 68 (19.8%) 16 (25.4%) 1 (33.3%) 11 (29.7%)
Un poco 36 (39.6%) 97 (28.2%) 27 (42.9%) 1 (33.3%) 10 (27.0%)
Regular 20 (22.0%) 78 (22.7%) 6 (9.52%) 1 (33.3%) 8 (21.6%)
Bastante 15 (16.5%) 80 (23.3%) 13 (20.6%) 0 (0.00%) 8 (21.6%)
Mucho 5 (5.49%) 21 (6.10%) 1 (1.59%) 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.012 0.030
Nada 22 (24.2%) 129 (37.5%) 33 (52.4%) 0 (0.00%) 19 (51.4%)
Un poco 38 (41.8%) 102 (29.7%) 16 (25.4%) 0 (0.00%) 9 (24.3%)
Regular 21 (23.1%) 55 (16.0%) 10 (15.9%) 2 (66.7%) 6 (16.2%)
Bastante 6 (6.59%) 45 (13.1%) 3 (4.76%) 1 (33.3%) 1 (2.70%)
Mucho 4 (4.40%) 13 (3.78%) 1 (1.59%) 0 (0.00%) 2 (5.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.046 0.359
Nunca 11 (12.1%) 61 (17.7%) 21 (33.3%) 0 (0.00%) 6 (16.2%)
Algunos días 50 (54.9%) 170 (49.4%) 27 (42.9%) 3 (100%) 19 (51.4%)
Más de la mitad de los días 21 (23.1%) 77 (22.4%) 14 (22.2%) 0 (0.00%) 6 (16.2%)
Casi todos los días 9 (9.89%) 36 (10.5%) 1 (1.59%) 0 (0.00%) 6 (16.2%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: 0.025 0.233
Nunca 9 (9.89%) 40 (11.6%) 17 (27.0%) 0 (0.00%) 5 (13.5%)
Algunos días 43 (47.3%) 147 (42.7%) 22 (34.9%) 1 (33.3%) 16 (43.2%)
Más de la mitad de los días 22 (24.2%) 104 (30.2%) 22 (34.9%) 2 (66.7%) 10 (27.0%)
Casi todos los días 17 (18.7%) 53 (15.4%) 2 (3.17%) 0 (0.00%) 6 (16.2%)
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.481 0.633
Nunca 17 (18.7%) 81 (23.5%) 13 (20.6%) 0 (0.00%) 12 (32.4%)
Algunos días 51 (56.0%) 155 (45.1%) 35 (55.6%) 1 (33.3%) 14 (37.8%)
Más de la mitad de los días 16 (17.6%) 80 (23.3%) 10 (15.9%) 2 (66.7%) 8 (21.6%)
Casi todos los días 7 (7.69%) 28 (8.14%) 5 (7.94%) 0 (0.00%) 3 (8.11%)
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.044 0.307
Nunca 12 (13.2%) 95 (27.6%) 16 (25.4%) 0 (0.00%) 9 (24.3%)
Algunos días 54 (59.3%) 150 (43.6%) 36 (57.1%) 1 (33.3%) 20 (54.1%)
Más de la mitad de los días 18 (19.8%) 80 (23.3%) 6 (9.52%) 1 (33.3%) 6 (16.2%)
Casi todos los días 7 (7.69%) 19 (5.52%) 5 (7.94%) 1 (33.3%) 2 (5.41%)
¿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.110 0.185
Ninguno 37 (40.7%) 173 (50.3%) 24 (38.1%) 1 (33.3%) 14 (37.8%)
1 a 10 41 (45.1%) 127 (36.9%) 26 (41.3%) 1 (33.3%) 13 (35.1%)
11 a 30 7 (7.69%) 28 (8.14%) 9 (14.3%) 0 (0.00%) 9 (24.3%)
31 a 100 4 (4.40%) 14 (4.07%) 3 (4.76%) 1 (33.3%) 1 (2.70%)
101 a 200 2 (2.20%) 2 (0.58%) 1 (1.59%) 0 (0.00%) 0 (0.00%)
¿Cuántos TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?: 0.072 0.366
Ninguno 55 (60.4%) 170 (49.4%) 39 (61.9%) 1 (33.3%) 21 (56.8%)
Sólo uno 6 (6.59%) 60 (17.4%) 10 (15.9%) 0 (0.00%) 5 (13.5%)
2 a 10 25 (27.5%) 99 (28.8%) 12 (19.0%) 1 (33.3%) 11 (29.7%)
11 a 25 2 (2.20%) 10 (2.91%) 2 (3.17%) 1 (33.3%) 0 (0.00%)
26 a 50 1 (1.10%) 5 (1.45%) 0 (0.00%) 0 (0.00%) 0 (0.00%)
Más de 50 2 (2.20%) 0 (0.00%) 0 (0.00%) 0 (0.00%) 0 (0.00%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?: 0.267 0.039
Trabajo en contacto directo con pacientes 21 (23.1%) 60 (17.4%) 23 (36.5%) 2 (66.7%) 9 (24.3%)
Trabajo a menos de dos metros de pacientes 1 (1.10%) 8 (2.33%) 2 (3.17%) 0 (0.00%) 2 (5.41%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia) 1 (1.10%) 5 (1.45%) 0 (0.00%) 0 (0.00%) 0 (0.00%)
Trabajo en el mismo piso/sala/departamento 3 (3.30%) 20 (5.81%) 4 (6.35%) 0 (0.00%) 2 (5.41%)
Como parte de mi trabajo visito un piso/sala/departamento 6 (6.59%) 31 (9.01%) 5 (7.94%) 1 (33.3%) 3 (8.11%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19 23 (25.3%) 73 (21.2%) 14 (22.2%) 0 (0.00%) 8 (21.6%)
Ninguno que yo esté en conocimiento 36 (39.6%) 147 (42.7%) 15 (23.8%) 0 (0.00%) 13 (35.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.001 <0.001
0 68 (74.7%) 237 (68.9%) 30 (47.6%) 1 (33.3%) 19 (51.4%)
1 23 (25.3%) 107 (31.1%) 33 (52.4%) 2 (66.7%) 18 (48.6%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.: 0.358 0.256
0 87 (95.6%) 308 (89.5%) 55 (87.3%) 3 (100%) 33 (89.2%)
1 4 (4.40%) 36 (10.5%) 8 (12.7%) 0 (0.00%) 4 (10.8%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de la exposición a COVID-19.: 0.004 0.001
0 82 (90.1%) 268 (77.9%) 48 (76.2%) 1 (33.3%) 24 (64.9%)
1 9 (9.89%) 76 (22.1%) 15 (23.8%) 2 (66.7%) 13 (35.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) | Experimentó síntomas similares a los de COVID-19.: 0.056 0.105
0 76 (83.5%) 257 (74.7%) 39 (61.9%) 2 (66.7%) 28 (75.7%)
1 15 (16.5%) 87 (25.3%) 24 (38.1%) 1 (33.3%) 9 (24.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.: 0.181 0.026
0 91 (100%) 333 (96.8%) 61 (96.8%) 3 (100%) 34 (91.9%)
1 0 (0.00%) 11 (3.20%) 2 (3.17%) 0 (0.00%) 3 (8.11%)
¿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.020 0.425
0 86 (94.5%) 307 (89.2%) 57 (90.5%) 1 (33.3%) 34 (91.9%)
1 5 (5.49%) 37 (10.8%) 6 (9.52%) 2 (66.7%) 3 (8.11%)
¿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.083 0.053
0 78 (85.7%) 287 (83.4%) 49 (77.8%) 1 (33.3%) 28 (75.7%)
1 13 (14.3%) 57 (16.6%) 14 (22.2%) 2 (66.7%) 9 (24.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.245 0.065
0 50 (54.9%) 187 (54.4%) 26 (41.3%) 1 (33.3%) 16 (43.2%)
1 41 (45.1%) 157 (45.6%) 37 (58.7%) 2 (66.7%) 21 (56.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) | Dio positivo en el examen para descartar COVID-19.: 0.091 0.165
0 83 (91.2%) 326 (94.8%) 59 (93.7%) 2 (66.7%) 37 (100%)
1 8 (8.79%) 18 (5.23%) 4 (6.35%) 1 (33.3%) 0 (0.00%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).: 0.912 0.500
0 83 (91.2%) 307 (89.2%) 56 (88.9%) 3 (100%) 32 (86.5%)
1 8 (8.79%) 37 (10.8%) 7 (11.1%) 0 (0.00%) 5 (13.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.: 0.042 0.077
FALSE 62 (68.1%) 236 (68.6%) 55 (87.3%) 2 (66.7%) 28 (75.7%)
TRUE 29 (31.9%) 108 (31.4%) 8 (12.7%) 1 (33.3%) 9 (24.3%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: 0.208 0.899
Nada 4 (4.40%) 12 (3.49%) 1 (1.59%) 0 (0.00%) 0 (0.00%)
Un poco 15 (16.5%) 71 (20.6%) 13 (20.6%) 0 (0.00%) 8 (21.6%)
Bastante 22 (24.2%) 86 (25.0%) 19 (30.2%) 2 (66.7%) 8 (21.6%)
Mucho 42 (46.2%) 160 (46.5%) 29 (46.0%) 0 (0.00%) 21 (56.8%)
No aplica 8 (8.79%) 15 (4.36%) 1 (1.59%) 1 (33.3%) 0 (0.00%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: 0.003 0.317
1 (Poco o nada) 4 (4.40%) 20 (5.81%) 1 (1.59%) 1 (33.3%) 0 (0.00%)
2 4 (4.40%) 16 (4.65%) 7 (11.1%) 0 (0.00%) 2 (5.41%)
3 13 (14.3%) 22 (6.40%) 8 (12.7%) 1 (33.3%) 5 (13.5%)
4 8 (8.79%) 38 (11.0%) 17 (27.0%) 0 (0.00%) 3 (8.11%)
5 17 (18.7%) 74 (21.5%) 7 (11.1%) 1 (33.3%) 12 (32.4%)
6 18 (19.8%) 48 (14.0%) 10 (15.9%) 0 (0.00%) 4 (10.8%)
7 8 (8.79%) 66 (19.2%) 10 (15.9%) 0 (0.00%) 3 (8.11%)
8 10 (11.0%) 32 (9.30%) 3 (4.76%) 0 (0.00%) 3 (8.11%)
9 2 (2.20%) 19 (5.52%) 0 (0.00%) 0 (0.00%) 3 (8.11%)
10 (Tanto miedo como nunca he sentido) 7 (7.69%) 9 (2.62%) 0 (0.00%) 0 (0.00%) 2 (5.41%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: 0.003 0.053
FALSE 39 (42.9%) 173 (50.3%) 17 (27.0%) 1 (33.3%) 13 (35.1%)
TRUE 52 (57.1%) 171 (49.7%) 46 (73.0%) 2 (66.7%) 24 (64.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): 0.006 0.829
FALSE 41 (45.1%) 204 (59.3%) 26 (41.3%) 3 (100%) 20 (54.1%)
TRUE 50 (54.9%) 140 (40.7%) 37 (58.7%) 0 (0.00%) 17 (45.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: 0.101 0.149
FALSE 35 (38.5%) 149 (43.3%) 18 (28.6%) 2 (66.7%) 11 (29.7%)
TRUE 56 (61.5%) 195 (56.7%) 45 (71.4%) 1 (33.3%) 26 (70.3%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: 0.181 0.306
FALSE 83 (91.2%) 323 (93.9%) 54 (85.7%) 3 (100%) 33 (89.2%)
TRUE 8 (8.79%) 21 (6.10%) 9 (14.3%) 0 (0.00%) 4 (10.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: 0.077 0.042
FALSE 15 (16.5%) 38 (11.0%) 9 (14.3%) 1 (33.3%) 0 (0.00%)
TRUE 76 (83.5%) 306 (89.0%) 54 (85.7%) 2 (66.7%) 37 (100%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: 0.895 0.937
FALSE 12 (13.2%) 44 (12.8%) 7 (11.1%) 1 (33.3%) 5 (13.5%)
TRUE 79 (86.8%) 300 (87.2%) 56 (88.9%) 2 (66.7%) 32 (86.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: 0.242 0.348
FALSE 42 (46.2%) 188 (54.7%) 27 (42.9%) 1 (33.3%) 16 (43.2%)
TRUE 49 (53.8%) 156 (45.3%) 36 (57.1%) 2 (66.7%) 21 (56.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: 0.679 0.598
FALSE 89 (97.8%) 339 (98.5%) 61 (96.8%) 3 (100%) 37 (100%)
TRUE 2 (2.20%) 5 (1.45%) 2 (3.17%) 0 (0.00%) 0 (0.00%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: 0.001 0.316
FALSE 47 (51.6%) 211 (61.3%) 22 (34.9%) 2 (66.7%) 20 (54.1%)
TRUE 44 (48.4%) 133 (38.7%) 41 (65.1%) 1 (33.3%) 17 (45.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: 0.064 0.531
FALSE 63 (69.2%) 259 (75.3%) 37 (58.7%) 3 (100%) 26 (70.3%)
TRUE 28 (30.8%) 85 (24.7%) 26 (41.3%) 0 (0.00%) 11 (29.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: 0.414 0.655
FALSE 75 (82.4%) 300 (87.2%) 55 (87.3%) 3 (100%) 29 (78.4%)
TRUE 16 (17.6%) 44 (12.8%) 8 (12.7%) 0 (0.00%) 8 (21.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: 0.029 0.903
FALSE 90 (98.9%) 338 (98.3%) 63 (100%) 2 (66.7%) 37 (100%)
TRUE 1 (1.10%) 6 (1.74%) 0 (0.00%) 1 (33.3%) 0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.: 0.028 0.295
Suficiente 58 (63.7%) 197 (57.3%) 47 (74.6%) 2 (66.7%) 23 (62.2%)
Insuficiente 11 (12.1%) 44 (12.8%) 12 (19.0%) 0 (0.00%) 5 (13.5%)
No Aplica 22 (24.2%) 103 (29.9%) 4 (6.35%) 1 (33.3%) 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.: 0.001 0.030
Suficiente 39 (42.9%) 113 (32.8%) 35 (55.6%) 1 (33.3%) 20 (54.1%)
Insuficiente 24 (26.4%) 82 (23.8%) 17 (27.0%) 1 (33.3%) 7 (18.9%)
No Aplica 28 (30.8%) 149 (43.3%) 11 (17.5%) 1 (33.3%) 10 (27.0%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.: 0.012 0.003
Suficiente 47 (51.6%) 173 (50.3%) 42 (66.7%) 1 (33.3%) 26 (70.3%)
Insuficiente 23 (25.3%) 81 (23.5%) 17 (27.0%) 1 (33.3%) 8 (21.6%)
No Aplica 21 (23.1%) 90 (26.2%) 4 (6.35%) 1 (33.3%) 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)? | Overol.: 0.581 0.944
Suficiente 13 (14.3%) 43 (12.5%) 12 (19.0%) 1 (33.3%) 5 (13.5%)
Insuficiente 15 (16.5%) 46 (13.4%) 10 (15.9%) 1 (33.3%) 3 (8.11%)
No Aplica 63 (69.2%) 255 (74.1%) 41 (65.1%) 1 (33.3%) 29 (78.4%)
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.170 0.200
Suficiente 73 (80.2%) 278 (80.8%) 55 (87.3%) 2 (66.7%) 31 (83.8%)
Insuficiente 12 (13.2%) 44 (12.8%) 8 (12.7%) 0 (0.00%) 6 (16.2%)
No Aplica 6 (6.59%) 22 (6.40%) 0 (0.00%) 1 (33.3%) 0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla quirúrgica.: 0.063 0.166
Suficiente 69 (75.8%) 278 (80.8%) 51 (81.0%) 1 (33.3%) 31 (83.8%)
Insuficiente 14 (15.4%) 47 (13.7%) 12 (19.0%) 1 (33.3%) 6 (16.2%)
No Aplica 8 (8.79%) 19 (5.52%) 0 (0.00%) 1 (33.3%) 0 (0.00%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Mascarilla N95.: 0.150 0.068
Suficiente 30 (33.0%) 95 (27.6%) 22 (34.9%) 1 (33.3%) 13 (35.1%)
Insuficiente 24 (26.4%) 122 (35.5%) 28 (44.4%) 1 (33.3%) 15 (40.5%)
No Aplica 37 (40.7%) 127 (36.9%) 13 (20.6%) 1 (33.3%) 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)? | Respiradores de partículas de aire impulsado.: 0.272 0.189
Suficiente 4 (4.40%) 14 (4.07%) 2 (3.17%) 1 (33.3%) 2 (5.41%)
Insuficiente 11 (12.1%) 42 (12.2%) 10 (15.9%) 1 (33.3%) 7 (18.9%)
No Aplica 76 (83.5%) 288 (83.7%) 51 (81.0%) 1 (33.3%) 28 (75.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.023 0.054
Suficiente 44 (48.4%) 146 (42.4%) 43 (68.3%) 1 (33.3%) 20 (54.1%)
Insuficiente 8 (8.79%) 35 (10.2%) 5 (7.94%) 1 (33.3%) 4 (10.8%)
No Aplica 39 (42.9%) 163 (47.4%) 15 (23.8%) 1 (33.3%) 13 (35.1%)
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.303 0.327
Suficiente 22 (24.2%) 76 (22.1%) 20 (31.7%) 0 (0.00%) 13 (35.1%)
Insuficiente 17 (18.7%) 56 (16.3%) 11 (17.5%) 1 (33.3%) 2 (5.41%)
No Aplica 52 (57.1%) 212 (61.6%) 32 (50.8%) 2 (66.7%) 22 (59.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.573 0.933
Suficiente 16 (17.6%) 37 (10.8%) 6 (9.52%) 1 (33.3%) 5 (13.5%)
Insuficiente 15 (16.5%) 65 (18.9%) 15 (23.8%) 1 (33.3%) 8 (21.6%)
No Aplica 60 (65.9%) 242 (70.3%) 42 (66.7%) 1 (33.3%) 24 (64.9%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: 0.492 0.421
Sí, en el último mes 12 (13.2%) 39 (11.3%) 10 (15.9%) 0 (0.00%) 4 (10.8%)
Sí, en los últimos 6 meses 47 (51.6%) 135 (39.2%) 32 (50.8%) 1 (33.3%) 17 (45.9%)
Sí, el año pasado 12 (13.2%) 37 (10.8%) 5 (7.94%) 1 (33.3%) 2 (5.41%)
Sí, hace 1-2 años 0 (0.00%) 9 (2.62%) 2 (3.17%) 0 (0.00%) 0 (0.00%)
Sí, hace 2-5 años 0 (0.00%) 4 (1.16%) 1 (1.59%) 0 (0.00%) 0 (0.00%)
Sí, hace más de 5 años 1 (1.10%) 7 (2.03%) 0 (0.00%) 0 (0.00%) 0 (0.00%)
No he sido capacitado 19 (20.9%) 113 (32.8%) 13 (20.6%) 1 (33.3%) 14 (37.8%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: 0.313 0.311
Excelente 9 (12.5%) 25 (10.8%) 2 (4.00%) 0 (0.00%) 0 (0.00%)
Buena 39 (54.2%) 114 (49.4%) 25 (50.0%) 0 (0.00%) 16 (69.6%)
Regular 20 (27.8%) 75 (32.5%) 21 (42.0%) 2 (100%) 6 (26.1%)
Mala 4 (5.56%) 17 (7.36%) 2 (4.00%) 0 (0.00%) 1 (4.35%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: 0.045 0.726
Nada 1 (1.10%) 11 (3.20%) 0 (0.00%) 1 (33.3%) 1 (2.70%)
Poco 2 (2.20%) 23 (6.69%) 5 (7.94%) 0 (0.00%) 1 (2.70%)
Algo 27 (29.7%) 62 (18.0%) 11 (17.5%) 0 (0.00%) 5 (13.5%)
Bastante 38 (41.8%) 175 (50.9%) 38 (60.3%) 2 (66.7%) 22 (59.5%)
Totalmente 14 (15.4%) 49 (14.2%) 8 (12.7%) 0 (0.00%) 7 (18.9%)
No aplica 9 (9.89%) 24 (6.98%) 1 (1.59%) 0 (0.00%) 1 (2.70%)
¿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.644 0.566
0 81 (89.0%) 308 (89.5%) 60 (95.2%) 3 (100%) 33 (89.2%)
1 10 (11.0%) 36 (10.5%) 3 (4.76%) 0 (0.00%) 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.: 0.511 0.496
0 82 (90.1%) 298 (86.6%) 54 (85.7%) 3 (100%) 35 (94.6%)
1 9 (9.89%) 46 (13.4%) 9 (14.3%) 0 (0.00%) 2 (5.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 se me permite reutilizar mi propio EPP.: 0.037 0.003
0 84 (92.3%) 316 (91.9%) 55 (87.3%) 3 (100%) 28 (75.7%)
1 7 (7.69%) 28 (8.14%) 8 (12.7%) 0 (0.00%) 9 (24.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 EPP’s utilizados previamente por otros.: 0.060 0.004
0 79 (86.8%) 290 (84.3%) 50 (79.4%) 2 (66.7%) 25 (67.6%)
1 12 (13.2%) 54 (15.7%) 13 (20.6%) 1 (33.3%) 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 aplica: 0.687 0.811
FALSE 66 (72.5%) 250 (72.7%) 45 (71.4%) 1 (33.3%) 27 (73.0%)
TRUE 25 (27.5%) 94 (27.3%) 18 (28.6%) 2 (66.7%) 10 (27.0%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: 0.969 0.301
Nada 2 (2.20%) 6 (1.74%) 2 (3.17%) 0 (0.00%) 0 (0.00%)
Poco 7 (7.69%) 32 (9.30%) 3 (4.76%) 0 (0.00%) 1 (2.70%)
Algo 21 (23.1%) 84 (24.4%) 16 (25.4%) 2 (66.7%) 8 (21.6%)
Bastante 40 (44.0%) 152 (44.2%) 28 (44.4%) 1 (33.3%) 18 (48.6%)
Totalmente 15 (16.5%) 52 (15.1%) 9 (14.3%) 0 (0.00%) 8 (21.6%)
No aplica 6 (6.59%) 18 (5.23%) 5 (7.94%) 0 (0.00%) 2 (5.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.906 0.256
Negarme a trabajar no es una opción legalmente disponible para mí 9 (9.89%) 39 (11.3%) 8 (12.7%) 0 (0.00%) 4 (10.8%)
Definitivamente, no es posible negarme a trabajar 3 (3.30%) 30 (8.72%) 4 (6.35%) 0 (0.00%) 4 (10.8%)
Es improbable que pueda negarme a trabajar 10 (11.0%) 23 (6.69%) 4 (6.35%) 1 (33.3%) 4 (10.8%)
Quizás, en una situación extrema podría negarme a trabajar 14 (15.4%) 60 (17.4%) 11 (17.5%) 1 (33.3%) 7 (18.9%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo 32 (35.2%) 117 (34.0%) 24 (38.1%) 0 (0.00%) 12 (32.4%)
Definitivamente, no dudaría en negarme a trabajar 23 (25.3%) 75 (21.8%) 12 (19.0%) 1 (33.3%) 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.: 0.211 0.045
Apropiadas y bien implementadas 27 (29.7%) 108 (31.4%) 19 (30.2%) 1 (33.3%) 15 (40.5%)
Apropiadas pero mal implementadas 16 (17.6%) 63 (18.3%) 18 (28.6%) 0 (0.00%) 8 (21.6%)
Inapropiadas 4 (4.40%) 13 (3.78%) 3 (4.76%) 0 (0.00%) 2 (5.41%)
Deficientes 19 (20.9%) 72 (20.9%) 12 (19.0%) 1 (33.3%) 6 (16.2%)
No sabe 5 (5.49%) 6 (1.74%) 2 (3.17%) 1 (33.3%) 2 (5.41%)
No aplica 20 (22.0%) 82 (23.8%) 9 (14.3%) 0 (0.00%) 4 (10.8%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: 0.025 0.400
Apropiadas y bien implementadas 52 (57.1%) 161 (46.8%) 40 (63.5%) 1 (33.3%) 21 (56.8%)
Apropiadas pero mal implementadas 10 (11.0%) 45 (13.1%) 8 (12.7%) 0 (0.00%) 3 (8.11%)
Inapropiadas 1 (1.10%) 8 (2.33%) 0 (0.00%) 0 (0.00%) 1 (2.70%)
Deficientes 2 (2.20%) 17 (4.94%) 2 (3.17%) 0 (0.00%) 3 (8.11%)
No sabe 6 (6.59%) 16 (4.65%) 5 (7.94%) 2 (66.7%) 3 (8.11%)
No aplica 20 (22.0%) 97 (28.2%) 8 (12.7%) 0 (0.00%) 6 (16.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: 0.172 0.244
Apropiadas y bien implementadas 46 (50.5%) 145 (42.2%) 36 (57.1%) 1 (33.3%) 21 (56.8%)
Apropiadas pero mal implementadas 11 (12.1%) 47 (13.7%) 12 (19.0%) 1 (33.3%) 2 (5.41%)
Inapropiadas 0 (0.00%) 8 (2.33%) 1 (1.59%) 0 (0.00%) 1 (2.70%)
Deficientes 5 (5.49%) 14 (4.07%) 0 (0.00%) 0 (0.00%) 0 (0.00%)
No sabe 4 (4.40%) 24 (6.98%) 5 (7.94%) 1 (33.3%) 4 (10.8%)
No aplica 25 (27.5%) 106 (30.8%) 9 (14.3%) 0 (0.00%) 9 (24.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.: 0.038 0.646
Apropiadas y bien implementadas 40 (44.0%) 140 (40.7%) 33 (52.4%) 1 (33.3%) 14 (37.8%)
Apropiadas pero mal implementadas 16 (17.6%) 47 (13.7%) 11 (17.5%) 0 (0.00%) 5 (13.5%)
Inapropiadas 3 (3.30%) 8 (2.33%) 2 (3.17%) 0 (0.00%) 4 (10.8%)
Deficientes 4 (4.40%) 21 (6.10%) 5 (7.94%) 0 (0.00%) 2 (5.41%)
No sabe 6 (6.59%) 29 (8.43%) 4 (6.35%) 2 (66.7%) 5 (13.5%)
No aplica 22 (24.2%) 99 (28.8%) 8 (12.7%) 0 (0.00%) 7 (18.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: 0.118 0.969
Apropiadas y bien implementadas 22 (24.2%) 45 (13.1%) 18 (28.6%) 1 (33.3%) 7 (18.9%)
Apropiadas pero mal implementadas 8 (8.79%) 35 (10.2%) 10 (15.9%) 0 (0.00%) 2 (5.41%)
Inapropiadas 16 (17.6%) 38 (11.0%) 4 (6.35%) 0 (0.00%) 4 (10.8%)
Deficientes 16 (17.6%) 96 (27.9%) 13 (20.6%) 1 (33.3%) 11 (29.7%)
No sabe 11 (12.1%) 45 (13.1%) 5 (7.94%) 1 (33.3%) 5 (13.5%)
No aplica 18 (19.8%) 85 (24.7%) 13 (20.6%) 0 (0.00%) 8 (21.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: 0.550 0.722
Apropiadas y bien implementadas 32 (35.2%) 93 (27.0%) 25 (39.7%) 1 (33.3%) 13 (35.1%)
Apropiadas pero mal implementadas 10 (11.0%) 27 (7.85%) 6 (9.52%) 1 (33.3%) 3 (8.11%)
Inapropiadas 7 (7.69%) 22 (6.40%) 2 (3.17%) 0 (0.00%) 1 (2.70%)
Deficientes 9 (9.89%) 44 (12.8%) 8 (12.7%) 0 (0.00%) 3 (8.11%)
No sabe 5 (5.49%) 40 (11.6%) 7 (11.1%) 1 (33.3%) 6 (16.2%)
No aplica 28 (30.8%) 118 (34.3%) 15 (23.8%) 0 (0.00%) 11 (29.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.: 0.014 0.312
Apropiadas y bien implementadas 19 (20.9%) 62 (18.0%) 25 (39.7%) 1 (33.3%) 4 (10.8%)
Apropiadas pero mal implementadas 9 (9.89%) 30 (8.72%) 5 (7.94%) 0 (0.00%) 5 (13.5%)
Inapropiadas 15 (16.5%) 32 (9.30%) 4 (6.35%) 1 (33.3%) 5 (13.5%)
Deficientes 15 (16.5%) 92 (26.7%) 14 (22.2%) 0 (0.00%) 13 (35.1%)
No sabe 7 (7.69%) 34 (9.88%) 7 (11.1%) 1 (33.3%) 2 (5.41%)
No aplica 26 (28.6%) 94 (27.3%) 8 (12.7%) 0 (0.00%) 8 (21.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: 0.131 0.197
Apropiadas y bien implementadas 22 (24.2%) 86 (25.0%) 23 (36.5%) 1 (33.3%) 12 (32.4%)
Apropiadas pero mal implementadas 11 (12.1%) 23 (6.69%) 5 (7.94%) 0 (0.00%) 2 (5.41%)
Inapropiadas 6 (6.59%) 15 (4.36%) 8 (12.7%) 1 (33.3%) 1 (2.70%)
Deficientes 15 (16.5%) 60 (17.4%) 10 (15.9%) 0 (0.00%) 8 (21.6%)
No sabe 14 (15.4%) 53 (15.4%) 8 (12.7%) 1 (33.3%) 4 (10.8%)
No aplica 23 (25.3%) 107 (31.1%) 9 (14.3%) 0 (0.00%) 10 (27.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.: 0.081 0.020
Apropiadas y bien implementadas 43 (47.3%) 143 (41.6%) 39 (61.9%) 1 (33.3%) 25 (67.6%)
Apropiadas pero mal implementadas 8 (8.79%) 43 (12.5%) 4 (6.35%) 0 (0.00%) 2 (5.41%)
Inapropiadas 5 (5.49%) 19 (5.52%) 4 (6.35%) 0 (0.00%) 1 (2.70%)
Deficientes 8 (8.79%) 37 (10.8%) 4 (6.35%) 0 (0.00%) 3 (8.11%)
No sabe 13 (14.3%) 39 (11.3%) 6 (9.52%) 2 (66.7%) 1 (2.70%)
No aplica 14 (15.4%) 63 (18.3%) 6 (9.52%) 0 (0.00%) 5 (13.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.: 0.204 0.885
Totalmente de acuerdo 19 (20.9%) 95 (27.6%) 15 (23.8%) 0 (0.00%) 9 (24.3%)
De acuerdo 28 (30.8%) 118 (34.3%) 23 (36.5%) 2 (66.7%) 9 (24.3%)
Ni de acuerdo ni en desacuerdo 31 (34.1%) 76 (22.1%) 19 (30.2%) 1 (33.3%) 16 (43.2%)
En desacuerdo 11 (12.1%) 43 (12.5%) 3 (4.76%) 0 (0.00%) 1 (2.70%)
Totalmente en desacuerdo 2 (2.20%) 12 (3.49%) 3 (4.76%) 0 (0.00%) 2 (5.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”? | Empleador.: 0.149 0.727
Totalmente de acuerdo 16 (17.6%) 77 (22.4%) 15 (23.8%) 0 (0.00%) 11 (29.7%)
De acuerdo 40 (44.0%) 141 (41.0%) 30 (47.6%) 0 (0.00%) 11 (29.7%)
Ni de acuerdo ni en desacuerdo 20 (22.0%) 66 (19.2%) 11 (17.5%) 3 (100%) 8 (21.6%)
En desacuerdo 12 (13.2%) 52 (15.1%) 6 (9.52%) 0 (0.00%) 4 (10.8%)
Totalmente en desacuerdo 3 (3.30%) 8 (2.33%) 1 (1.59%) 0 (0.00%) 3 (8.11%)
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.669 0.817
Totalmente de acuerdo 6 (6.59%) 35 (10.2%) 6 (9.52%) 0 (0.00%) 3 (8.11%)
De acuerdo 19 (20.9%) 67 (19.5%) 15 (23.8%) 1 (33.3%) 8 (21.6%)
Ni de acuerdo ni en desacuerdo 30 (33.0%) 83 (24.1%) 18 (28.6%) 2 (66.7%) 12 (32.4%)
En desacuerdo 26 (28.6%) 93 (27.0%) 15 (23.8%) 0 (0.00%) 6 (16.2%)
Totalmente en desacuerdo 10 (11.0%) 66 (19.2%) 9 (14.3%) 0 (0.00%) 8 (21.6%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.: 0.239 0.598
Totalmente de acuerdo 15 (16.5%) 55 (16.0%) 8 (12.7%) 0 (0.00%) 7 (18.9%)
De acuerdo 23 (25.3%) 94 (27.3%) 25 (39.7%) 1 (33.3%) 9 (24.3%)
Ni de acuerdo ni en desacuerdo 37 (40.7%) 115 (33.4%) 24 (38.1%) 2 (66.7%) 16 (43.2%)
En desacuerdo 13 (14.3%) 58 (16.9%) 4 (6.35%) 0 (0.00%) 1 (2.70%)
Totalmente en desacuerdo 3 (3.30%) 22 (6.40%) 2 (3.17%) 0 (0.00%) 4 (10.8%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal?: 0.358 0.870
Mantengo las mismas labores 60 (65.9%) 227 (66.0%) 46 (73.0%) 2 (66.7%) 23 (62.2%)
Mantengo las mismas labores, pero en un área distinta 5 (5.49%) 9 (2.62%) 4 (6.35%) 1 (33.3%) 1 (2.70%)
Mantengo las mismas labores, pero en un lugar físico distinto 10 (11.0%) 26 (7.56%) 1 (1.59%) 0 (0.00%) 6 (16.2%)
Mantengo las mismas labores, pero en área y lugar físico distintos 3 (3.30%) 8 (2.33%) 2 (3.17%) 0 (0.00%) 1 (2.70%)
Distintas labores, pero en la misma área 4 (4.40%) 29 (8.43%) 3 (4.76%) 0 (0.00%) 3 (8.11%)
Distintas labores, pero en el mismo lugar físico 4 (4.40%) 22 (6.40%) 1 (1.59%) 0 (0.00%) 1 (2.70%)
Labores, área y lugar físico distintos 5 (5.49%) 23 (6.69%) 6 (9.52%) 0 (0.00%) 2 (5.41%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: 0.087 0.012
Excelente 0 (0.00%) 6 (1.79%) 4 (6.45%) 0 (0.00%) 2 (5.41%)
Buena 33 (37.5%) 116 (34.5%) 29 (46.8%) 0 (0.00%) 15 (40.5%)
Regular 43 (48.9%) 165 (49.1%) 26 (41.9%) 2 (66.7%) 19 (51.4%)
Mala 12 (13.6%) 49 (14.6%) 3 (4.84%) 1 (33.3%) 1 (2.70%)
¿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.001 0.010
Totalmente de acuerdo 9 (10.2%) 68 (20.2%) 7 (11.3%) 1 (33.3%) 1 (2.70%)
De acuerdo 44 (50.0%) 111 (33.0%) 18 (29.0%) 0 (0.00%) 9 (24.3%)
Neutral 13 (14.8%) 78 (23.2%) 26 (41.9%) 0 (0.00%) 15 (40.5%)
En desacuerdo 17 (19.3%) 56 (16.7%) 8 (12.9%) 1 (33.3%) 9 (24.3%)
Totalmente en desacuerdo 5 (5.68%) 23 (6.85%) 3 (4.84%) 1 (33.3%) 3 (8.11%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: 0.011 0.477
Siempre 16 (18.2%) 67 (19.9%) 14 (22.6%) 0 (0.00%) 7 (18.9%)
La mayoría <br>de las veces 25 (28.4%) 94 (28.0%) 7 (11.3%) 0 (0.00%) 17 (45.9%)
Algunas veces 30 (34.1%) 130 (38.7%) 25 (40.3%) 2 (66.7%) 11 (29.7%)
Sólo unas <br>pocas veces 13 (14.8%) 37 (11.0%) 13 (21.0%) 0 (0.00%) 1 (2.70%)
Nunca 4 (4.55%) 8 (2.38%) 3 (4.84%) 1 (33.3%) 1 (2.70%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: 0.007 0.317
Siempre 9 (10.2%) 62 (18.5%) 11 (17.7%) 0 (0.00%) 8 (21.6%)
La mayoría <br>de las veces 31 (35.2%) 115 (34.2%) 9 (14.5%) 0 (0.00%) 16 (43.2%)
Algunas veces 33 (37.5%) 118 (35.1%) 28 (45.2%) 2 (66.7%) 9 (24.3%)
Sólo unas <br>pocas veces 9 (10.2%) 35 (10.4%) 12 (19.4%) 0 (0.00%) 4 (10.8%)
Nunca 6 (6.82%) 6 (1.79%) 2 (3.23%) 1 (33.3%) 0 (0.00%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: 0.001 0.329
Siempre 13 (14.8%) 56 (16.7%) 19 (30.6%) 0 (0.00%) 10 (27.0%)
La mayoría <br>de las veces 49 (55.7%) 134 (39.9%) 25 (40.3%) 1 (33.3%) 15 (40.5%)
Algunas veces 21 (23.9%) 109 (32.4%) 12 (19.4%) 0 (0.00%) 9 (24.3%)
Sólo unas <br>pocas veces 2 (2.27%) 35 (10.4%) 6 (9.68%) 1 (33.3%) 3 (8.11%)
Nunca 3 (3.41%) 2 (0.60%) 0 (0.00%) 1 (33.3%) 0 (0.00%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: 0.537 0.888
Siempre 3 (3.41%) 11 (3.27%) 2 (3.23%) 0 (0.00%) 2 (5.41%)
La mayoría <br>de las veces 5 (5.68%) 14 (4.17%) 3 (4.84%) 1 (33.3%) 4 (10.8%)
Algunas veces 27 (30.7%) 107 (31.8%) 14 (22.6%) 1 (33.3%) 10 (27.0%)
Sólo unas <br>pocas veces 25 (28.4%) 85 (25.3%) 17 (27.4%) 0 (0.00%) 5 (13.5%)
Nunca 28 (31.8%) 119 (35.4%) 26 (41.9%) 1 (33.3%) 16 (43.2%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: 0.243 0.855
Siempre 4 (4.55%) 23 (6.85%) 2 (3.23%) 0 (0.00%) 5 (13.5%)
La mayoría <br>de las veces 8 (9.09%) 52 (15.5%) 8 (12.9%) 1 (33.3%) 5 (13.5%)
Algunas veces 44 (50.0%) 137 (40.8%) 21 (33.9%) 1 (33.3%) 13 (35.1%)
Sólo unas <br>pocas veces 19 (21.6%) 82 (24.4%) 19 (30.6%) 0 (0.00%) 5 (13.5%)
Nunca 13 (14.8%) 42 (12.5%) 12 (19.4%) 1 (33.3%) 9 (24.3%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: 0.005 0.061
Siempre 36 (40.9%) 159 (47.3%) 38 (61.3%) 0 (0.00%) 20 (54.1%)
La mayoría <br>de las veces 28 (31.8%) 98 (29.2%) 17 (27.4%) 0 (0.00%) 11 (29.7%)
Algunas veces 11 (12.5%) 41 (12.2%) 5 (8.06%) 0 (0.00%) 4 (10.8%)
Sólo unas <br>pocas veces 10 (11.4%) 22 (6.55%) 2 (3.23%) 2 (66.7%) 2 (5.41%)
Nunca 3 (3.41%) 16 (4.76%) 0 (0.00%) 1 (33.3%) 0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: 0.007 0.008
Siempre 24 (27.3%) 128 (38.1%) 30 (48.4%) 0 (0.00%) 20 (54.1%)
La mayoría <br>de las veces 29 (33.0%) 102 (30.4%) 22 (35.5%) 0 (0.00%) 11 (29.7%)
Algunas veces 21 (23.9%) 59 (17.6%) 6 (9.68%) 1 (33.3%) 2 (5.41%)
Sólo unas <br>pocas veces 13 (14.8%) 30 (8.93%) 1 (1.61%) 1 (33.3%) 4 (10.8%)
Nunca 1 (1.14%) 17 (5.06%) 3 (4.84%) 1 (33.3%) 0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: 0.002 0.398
Siempre 14 (15.9%) 114 (33.9%) 21 (33.9%) 1 (33.3%) 15 (40.5%)
La mayoría <br>de las veces 39 (44.3%) 131 (39.0%) 24 (38.7%) 0 (0.00%) 9 (24.3%)
Algunas veces 25 (28.4%) 63 (18.8%) 15 (24.2%) 1 (33.3%) 6 (16.2%)
Sólo unas <br>pocas veces 4 (4.55%) 23 (6.85%) 2 (3.23%) 0 (0.00%) 4 (10.8%)
Nunca 6 (6.82%) 5 (1.49%) 0 (0.00%) 1 (33.3%) 3 (8.11%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: 0.014 0.117
Siempre 23 (26.1%) 128 (38.1%) 30 (48.4%) 0 (0.00%) 17 (45.9%)
La mayoría <br>de las veces 47 (53.4%) 150 (44.6%) 28 (45.2%) 1 (33.3%) 13 (35.1%)
Algunas veces 14 (15.9%) 46 (13.7%) 4 (6.45%) 1 (33.3%) 5 (13.5%)
Sólo unas <br>pocas veces 2 (2.27%) 9 (2.68%) 0 (0.00%) 0 (0.00%) 2 (5.41%)
Nunca 2 (2.27%) 3 (0.89%) 0 (0.00%) 1 (33.3%) 0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: 0.051 0.797
Siempre 45 (51.1%) 209 (62.2%) 35 (56.5%) 0 (0.00%) 21 (56.8%)
La mayoría <br>de las veces 25 (28.4%) 69 (20.5%) 13 (21.0%) 1 (33.3%) 12 (32.4%)
Algunas veces 14 (15.9%) 31 (9.23%) 7 (11.3%) 1 (33.3%) 4 (10.8%)
Sólo unas <br>pocas veces 3 (3.41%) 13 (3.87%) 5 (8.06%) 0 (0.00%) 0 (0.00%)
Nunca 1 (1.14%) 14 (4.17%) 2 (3.23%) 1 (33.3%) 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.002 0.084
Incorrecto 0 (0.00%) 2 (0.60%) 0 (0.00%) 1 (33.3%) 0 (0.00%)
Apenas cierto 3 (3.41%) 6 (1.80%) 3 (4.84%) 1 (33.3%) 4 (10.8%)
Más bien cierto 23 (26.1%) 98 (29.4%) 18 (29.0%) 1 (33.3%) 8 (21.6%)
Cierto 62 (70.5%) 227 (68.2%) 41 (66.1%) 0 (0.00%) 25 (67.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.: 0.006 0.047
Incorrecto 0 (0.00%) 1 (0.30%) 1 (1.61%) 1 (33.3%) 0 (0.00%)
Apenas cierto 5 (5.68%) 14 (4.20%) 2 (3.23%) 1 (33.3%) 4 (10.8%)
Más bien cierto 29 (33.0%) 130 (39.0%) 23 (37.1%) 1 (33.3%) 15 (40.5%)
Cierto 54 (61.4%) 188 (56.5%) 36 (58.1%) 0 (0.00%) 18 (48.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.: 0.002 0.111
Incorrecto 0 (0.00%) 1 (0.30%) 0 (0.00%) 1 (33.3%) 1 (2.70%)
Apenas cierto 4 (4.55%) 8 (2.40%) 3 (4.84%) 1 (33.3%) 2 (5.41%)
Más bien cierto 29 (33.0%) 118 (35.4%) 29 (46.8%) 1 (33.3%) 10 (27.0%)
Cierto 55 (62.5%) 206 (61.9%) 30 (48.4%) 0 (0.00%) 24 (64.9%)
Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75;
Variables categóricas son presentadas como el recuento y el porcentaje
#janitor::tabyl(p20_contr_cont_med_pev_1_simpler)
#   p27_cond_trab_sup_jef
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_estamento <- createTable(table5_estamento, show.p.overall = T)

pvals5 <- getResults(table5_estamento)
#p.adjust(pvals, method = "BH")
export2md(restab5_estamento, size=10, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Tabla 6. Descriptivo Aplicación Total 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 Total según Estamento
Variables Admin. Enfermeros Médicos Otros Prof. No-Médicos Técnicos y Aux. Sig.
N=59 N=92 N=55 N=251 N=81
Sentimiento de Agotamiento, estrés e irritabilidad (terciles): 0.019
1 22 (37.3%) 21 (22.8%) 23 (41.8%) 82 (32.7%) 24 (29.6%)
2 16 (27.1%) 33 (35.9%) 20 (36.4%) 94 (37.5%) 19 (23.5%)
3 21 (35.6%) 38 (41.3%) 12 (21.8%) 75 (29.9%) 38 (46.9%)
Estrés Postraumático (4° Cuartil): 0.001
Ausencia de Indicadores de Estrés Post-traumático 44 (74.6%) 61 (66.3%) 48 (87.3%) 203 (80.9%) 52 (64.2%)
Indicadores de Estrés Post-traumático 15 (25.4%) 31 (33.7%) 7 (12.7%) 48 (19.1%) 29 (35.8%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad 325 [175;412] 338 [275;431] 300 [212;350] 300 [225;375] 350 [225;450] 0.033
Ptjes. Estrés Postraumático 3.00 [1.00;6.50] 5.00 [3.00;7.00] 4.00 [2.00;5.50] 4.00 [2.00;6.00] 4.00 [2.00;7.00] 0.040
Sintomatología ansiosa: 0.227
Ausencia de Indicadores de Sintomatología Ansiosa 34 (57.6%) 40 (43.5%) 32 (58.2%) 140 (55.8%) 40 (49.4%)
Indicadores de Sintomatología Ansiosa 25 (42.4%) 52 (56.5%) 23 (41.8%) 111 (44.2%) 41 (50.6%)
Sintomatología depresiva: 0.563
Ausencia de Indicadores de Sintomatología Depresiva 38 (64.4%) 54 (58.7%) 40 (72.7%) 160 (63.7%) 51 (63.0%)
Indicadores de Sintomatología Depresiva 21 (35.6%) 38 (41.3%) 15 (27.3%) 91 (36.3%) 30 (37.0%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): <0.001
Contacto directo y estrecho con pacientes (menos de dos metros) 4 (6.78%) 39 (42.4%) 26 (47.3%) 27 (10.8%) 32 (39.5%)
Menor o ningún contacto con pacientes 55 (93.2%) 53 (57.6%) 29 (52.7%) 224 (89.2%) 49 (60.5%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): 0.153
1 14 (42.4%) 22 (28.9%) 11 (23.9%) 60 (37.5%) 22 (31.9%)
2 6 (18.2%) 12 (15.8%) 14 (30.4%) 40 (25.0%) 13 (18.8%)
3 6 (18.2%) 12 (15.8%) 8 (17.4%) 30 (18.8%) 13 (18.8%)
Más de 3 7 (21.2%) 30 (39.5%) 13 (28.3%) 30 (18.8%) 21 (30.4%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): 0.001
Bastante/Mucho 43 (72.9%) 76 (82.6%) 34 (61.8%) 167 (66.5%) 69 (85.2%)
Un poco/Nada/No aplica 16 (27.1%) 16 (17.4%) 21 (38.2%) 84 (33.5%) 12 (14.8%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): 0.236
Predomina el miedo 28 (47.5%) 50 (54.3%) 19 (34.5%) 120 (47.8%) 40 (49.4%)
Predomina la ausencia de miedo 31 (52.5%) 42 (45.7%) 36 (65.5%) 131 (52.2%) 41 (50.6%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): <0.001
Ha sido capacitado 28 (47.5%) 81 (88.0%) 47 (85.5%) 161 (64.1%) 61 (75.3%)
No ha sido capacitado 31 (52.5%) 11 (12.0%) 8 (14.5%) 90 (35.9%) 20 (24.7%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): 0.498
Mala 3 (10.7%) 3 (3.70%) 2 (4.26%) 10 (6.21%) 6 (9.84%)
Regular a Excelente 25 (89.3%) 78 (96.3%) 45 (95.7%) 151 (93.8%) 55 (90.2%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): <0.001
Nada/Poco/Algo/No aplica 34 (57.6%) 15 (16.3%) 9 (16.4%) 105 (41.8%) 22 (27.2%)
Totalmente/Bastante 25 (42.4%) 77 (83.7%) 46 (83.6%) 146 (58.2%) 59 (72.8%)
¿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.305
1 26 (83.9%) 55 (73.3%) 36 (85.7%) 133 (81.1%) 48 (73.8%)
2 4 (12.9%) 16 (21.3%) 4 (9.52%) 25 (15.2%) 8 (12.3%)
3 1 (3.23%) 3 (4.00%) 2 (4.76%) 5 (3.05%) 7 (10.8%)
Más de 3 0 (0.00%) 1 (1.33%) 0 (0.00%) 1 (0.61%) 2 (3.08%)
Mi empleador se ha rehusado a dar cierto tipo de EPP: 0.013
Empleador se ha rehusado a dar cierto tipo de EPP 5 (8.47%) 13 (14.1%) 3 (5.45%) 17 (6.77%) 15 (18.5%)
No se constata esta situación 54 (91.5%) 79 (85.9%) 52 (94.5%) 234 (93.2%) 66 (81.5%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): 0.426
Algo/Bastante/Totalente/No aplica 49 (83.1%) 84 (91.3%) 50 (90.9%) 229 (91.2%) 73 (90.1%)
Poco/Nada 10 (16.9%) 8 (8.70%) 5 (9.09%) 22 (8.76%) 8 (9.88%)
Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro (dicotomizada): 0.740
Incapacidad para negarse a trabajo inseguro 31 (52.5%) 47 (51.1%) 29 (52.7%) 114 (45.4%) 39 (48.1%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse 28 (47.5%) 45 (48.9%) 26 (47.3%) 137 (54.6%) 42 (51.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada): 0.053
Apropiadas/No sabe/No aplica 50 (84.7%) 64 (69.6%) 45 (81.8%) 193 (76.9%) 54 (66.7%)
Inapropiadas/Deficientes 9 (15.3%) 28 (30.4%) 10 (18.2%) 58 (23.1%) 27 (33.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada): 0.010
Apropiadas/No sabe/No aplica 56 (94.9%) 83 (90.2%) 53 (96.4%) 242 (96.4%) 70 (86.4%)
Inapropiadas/Deficientes 3 (5.08%) 9 (9.78%) 2 (3.64%) 9 (3.59%) 11 (13.6%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada): 0.648
Apropiadas/No sabe/No aplica 58 (98.3%) 86 (93.5%) 52 (94.5%) 238 (94.8%) 75 (92.6%)
Inapropiadas/Deficientes 1 (1.69%) 6 (6.52%) 3 (5.45%) 13 (5.18%) 6 (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 (Dicotomizada): 0.002
Apropiadas/No sabe/No aplica 58 (98.3%) 78 (84.8%) 54 (98.2%) 231 (92.0%) 68 (84.0%)
Inapropiadas/Deficientes 1 (1.69%) 14 (15.2%) 1 (1.82%) 20 (7.97%) 13 (16.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): <0.001
Apropiadas/No sabe/No aplica 45 (76.3%) 39 (42.4%) 29 (52.7%) 179 (71.3%) 47 (58.0%)
Inapropiadas/Deficientes 14 (23.7%) 53 (57.6%) 26 (47.3%) 72 (28.7%) 34 (42.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada): <0.001
Apropiadas/No sabe/No aplica 59 (100%) 56 (60.9%) 40 (72.7%) 224 (89.2%) 63 (77.8%)
Inapropiadas/Deficientes 0 (0.00%) 36 (39.1%) 15 (27.3%) 27 (10.8%) 18 (22.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada): <0.001
Apropiadas/No sabe/No aplica 52 (88.1%) 48 (52.2%) 27 (49.1%) 177 (70.5%) 43 (53.1%)
Inapropiadas/Deficientes 7 (11.9%) 44 (47.8%) 28 (50.9%) 74 (29.5%) 38 (46.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): 0.019
Apropiadas/No sabe/No aplica 55 (93.2%) 69 (75.0%) 42 (76.4%) 192 (76.5%) 56 (69.1%)
Inapropiadas/Deficientes 4 (6.78%) 23 (25.0%) 13 (23.6%) 59 (23.5%) 25 (30.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): 0.584
Apropiadas/No sabe/No aplica 54 (91.5%) 78 (84.8%) 48 (87.3%) 209 (83.3%) 68 (84.0%)
Inapropiadas/Deficientes 5 (8.47%) 14 (15.2%) 7 (12.7%) 42 (16.7%) 13 (16.0%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada): 0.823
Desacuerdo/Totalmente en desacuerdo 6 (10.2%) 15 (16.3%) 8 (14.5%) 38 (15.1%) 10 (12.3%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 53 (89.8%) 77 (83.7%) 47 (85.5%) 213 (84.9%) 71 (87.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? | Empleador (Dicotomizada): 0.012
Desacuerdo/Totalmente en desacuerdo 2 (3.39%) 19 (20.7%) 6 (10.9%) 51 (20.3%) 11 (13.6%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 57 (96.6%) 73 (79.3%) 49 (89.1%) 200 (79.7%) 70 (86.4%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada): 0.014
Desacuerdo/Totalmente en desacuerdo 15 (25.4%) 40 (43.5%) 20 (36.4%) 115 (45.8%) 43 (53.1%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 44 (74.6%) 52 (56.5%) 35 (63.6%) 136 (54.2%) 38 (46.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 (Dicotomizada): 0.044
Desacuerdo/Totalmente en desacuerdo 5 (8.47%) 21 (22.8%) 6 (10.9%) 58 (23.1%) 17 (21.0%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 54 (91.5%) 71 (77.2%) 49 (89.1%) 193 (76.9%) 64 (79.0%)
¿Actualmente está desempeñando sus labores habituales, o ha sido reasignado en función de la actual crisis sanitaria en su lugar de trabajo principal? (Dicotomizada): 0.003
Cambia área, labores o ambos producto de la pandemia 14 (23.7%) 27 (29.3%) 15 (27.3%) 39 (15.5%) 8 (9.88%)
Mantiene las mismas labores en la misma área 45 (76.3%) 65 (70.7%) 40 (72.7%) 212 (84.5%) 73 (90.1%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): 0.419
Excelente/Buena/Regular 55 (94.8%) 78 (85.7%) 47 (88.7%) 211 (85.8%) 69 (88.5%)
Mala 3 (5.17%) 13 (14.3%) 6 (11.3%) 35 (14.2%) 9 (11.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.116
De acuerdo/Totalmente de acuerdo 21 (36.2%) 48 (52.7%) 29 (54.7%) 134 (54.5%) 36 (46.2%)
Neutral/En desacuerdo/Totalmente en desacuerdo 37 (63.8%) 43 (47.3%) 24 (45.3%) 112 (45.5%) 42 (53.8%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): 0.057
La mayoría de las veces/Siempre 23 (39.7%) 53 (58.2%) 20 (37.7%) 110 (44.7%) 41 (52.6%)
Nunca/Sólo unas pocas veces/Algunas veces 35 (60.3%) 38 (41.8%) 33 (62.3%) 136 (55.3%) 37 (47.4%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): <0.001
La mayoría de las veces/Siempre 21 (36.2%) 64 (70.3%) 27 (50.9%) 112 (45.5%) 37 (47.4%)
Nunca/Sólo unas pocas veces/Algunas veces 37 (63.8%) 27 (29.7%) 26 (49.1%) 134 (54.5%) 41 (52.6%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): 0.530
La mayoría de las veces/Siempre 39 (67.2%) 58 (63.7%) 34 (64.2%) 141 (57.3%) 50 (64.1%)
Nunca/Sólo unas pocas veces/Algunas veces 19 (32.8%) 33 (36.3%) 19 (35.8%) 105 (42.7%) 28 (35.9%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): 0.906
La mayoría de las veces/Siempre 6 (10.3%) 9 (9.89%) 3 (5.66%) 21 (8.54%) 6 (7.69%)
Nunca/Sólo unas pocas veces/Algunas veces 52 (89.7%) 82 (90.1%) 50 (94.3%) 225 (91.5%) 72 (92.3%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): 0.627
La mayoría de las veces/Siempre 15 (25.9%) 22 (24.2%) 10 (18.9%) 45 (18.3%) 16 (20.5%)
Nunca/Sólo unas pocas veces/Algunas veces 43 (74.1%) 69 (75.8%) 43 (81.1%) 201 (81.7%) 62 (79.5%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): 0.349
La mayoría de las veces/Siempre 43 (74.1%) 77 (84.6%) 43 (81.1%) 184 (74.8%) 60 (76.9%)
Nunca/Sólo unas pocas veces/Algunas veces 15 (25.9%) 14 (15.4%) 10 (18.9%) 62 (25.2%) 18 (23.1%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): 0.748
La mayoría de las veces/Siempre 40 (69.0%) 67 (73.6%) 38 (71.7%) 171 (69.5%) 50 (64.1%)
Nunca/Sólo unas pocas veces/Algunas veces 18 (31.0%) 24 (26.4%) 15 (28.3%) 75 (30.5%) 28 (35.9%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): 0.281
La mayoría de las veces/Siempre 38 (65.5%) 68 (74.7%) 42 (79.2%) 170 (69.1%) 50 (64.1%)
Nunca/Sólo unas pocas veces/Algunas veces 20 (34.5%) 23 (25.3%) 11 (20.8%) 76 (30.9%) 28 (35.9%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): 0.924
La mayoría de las veces/Siempre 47 (81.0%) 75 (82.4%) 46 (86.8%) 203 (82.5%) 66 (84.6%)
Nunca/Sólo unas pocas veces/Algunas veces 11 (19.0%) 16 (17.6%) 7 (13.2%) 43 (17.5%) 12 (15.4%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): 0.048
La mayoría de las veces/Siempre 52 (89.7%) 76 (83.5%) 39 (73.6%) 206 (83.7%) 57 (73.1%)
Nunca/Sólo unas pocas veces/Algunas veces 6 (10.3%) 15 (16.5%) 14 (26.4%) 40 (16.3%) 21 (26.9%)
Suma ítems Exigencias Psicológicas ISTAS21 4.00 [4.00;6.00] 6.00 [4.50;7.50] 5.00 [4.00;6.00] 5.00 [4.00;6.00] 5.00 [4.00;7.00] <0.001
Suma ítems Calidad Relación con Superiores ISTAS21 9.50 [7.00;11.0] 9.00 [8.00;11.0] 9.00 [7.00;11.0] 9.00 [7.00;11.0] 9.00 [7.00;11.0] 0.463
Suma ítems Conflicto de Rol ISTAS21 2.00 [1.00;4.00] 4.00 [2.00;4.00] 3.00 [2.00;4.00] 3.00 [1.00;4.00] 3.00 [1.00;4.00] 0.108
Suma ítems Relación con Compañeros de Trabajo ISTAS21 7.00 [5.00;8.00] 6.00 [6.00;7.00] 6.00 [6.00;7.00] 6.00 [5.00;7.00] 6.00 [5.00;7.00] 0.607
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.090
Apenas cierto/Incorrecto 4 (6.90%) 2 (2.22%) 3 (5.66%) 5 (2.05%) 6 (7.69%)
Más bien cierto/Cierto 54 (93.1%) 88 (97.8%) 50 (94.3%) 239 (98.0%) 72 (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): 0.748
Apenas cierto/Incorrecto 5 (8.62%) 3 (3.33%) 3 (5.66%) 14 (5.74%) 4 (5.13%)
Más bien cierto/Cierto 53 (91.4%) 87 (96.7%) 50 (94.3%) 230 (94.3%) 74 (94.9%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada): 0.436
Apenas cierto/Incorrecto 3 (5.17%) 3 (3.33%) 2 (3.77%) 7 (2.87%) 6 (7.69%)
Más bien cierto/Cierto 55 (94.8%) 87 (96.7%) 51 (96.2%) 237 (97.1%) 72 (92.3%)
Suma puntajes de resilencia 8.00 [7.00;9.00] 8.00 [7.00;9.00] 8.00 [6.00;9.00] 8.00 [6.00;9.00] 8.00 [7.00;9.00] 0.968
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: 0.876
Nunca 2 (3.39%) 1 (1.09%) 0 (0.00%) 7 (2.79%) 2 (2.47%)
Sólo unas pocas <br>veces 8 (13.6%) 9 (9.78%) 10 (18.2%) 39 (15.5%) 12 (14.8%)
Algunas veces 23 (39.0%) 33 (35.9%) 23 (41.8%) 100 (39.8%) 27 (33.3%)
La mayoría de las veces 21 (35.6%) 42 (45.7%) 19 (34.5%) 89 (35.5%) 31 (38.3%)
Siempre 5 (8.47%) 7 (7.61%) 3 (5.45%) 16 (6.37%) 9 (11.1%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: 0.710
Nunca 7 (11.9%) 4 (4.35%) 2 (3.64%) 16 (6.37%) 7 (8.64%)
Sólo unas pocas <br>veces 7 (11.9%) 11 (12.0%) 10 (18.2%) 44 (17.5%) 12 (14.8%)
Algunas veces 21 (35.6%) 35 (38.0%) 24 (43.6%) 99 (39.4%) 25 (30.9%)
La mayoría de las veces 17 (28.8%) 34 (37.0%) 16 (29.1%) 74 (29.5%) 31 (38.3%)
Siempre 7 (11.9%) 8 (8.70%) 3 (5.45%) 18 (7.17%) 6 (7.41%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: 0.467
Nunca 6 (10.2%) 2 (2.17%) 3 (5.45%) 13 (5.18%) 4 (4.94%)
Sólo unas pocas <br>veces 9 (15.3%) 10 (10.9%) 10 (18.2%) 44 (17.5%) 14 (17.3%)
Algunas veces 24 (40.7%) 39 (42.4%) 23 (41.8%) 95 (37.8%) 28 (34.6%)
La mayoría de las veces 12 (20.3%) 28 (30.4%) 16 (29.1%) 81 (32.3%) 25 (30.9%)
Siempre 8 (13.6%) 13 (14.1%) 3 (5.45%) 18 (7.17%) 10 (12.3%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: 0.077
Nunca 13 (22.0%) 7 (7.61%) 5 (9.09%) 26 (10.4%) 13 (16.0%)
Sólo unas pocas <br>veces 16 (27.1%) 25 (27.2%) 17 (30.9%) 88 (35.1%) 15 (18.5%)
Algunas veces 16 (27.1%) 35 (38.0%) 22 (40.0%) 93 (37.1%) 38 (46.9%)
La mayoría de las veces 12 (20.3%) 21 (22.8%) 8 (14.5%) 36 (14.3%) 10 (12.3%)
Siempre 2 (3.39%) 4 (4.35%) 3 (5.45%) 8 (3.19%) 5 (6.17%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: 0.073
Nunca 9 (15.3%) 10 (10.9%) 9 (16.4%) 30 (12.0%) 9 (11.1%)
Sólo unas pocas <br>veces 10 (16.9%) 12 (13.0%) 15 (27.3%) 45 (17.9%) 12 (14.8%)
Algunas veces 15 (25.4%) 30 (32.6%) 16 (29.1%) 82 (32.7%) 13 (16.0%)
La mayoría de las veces 16 (27.1%) 25 (27.2%) 9 (16.4%) 65 (25.9%) 36 (44.4%)
Siempre 9 (15.3%) 15 (16.3%) 6 (10.9%) 29 (11.6%) 11 (13.6%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: 0.019
Nunca 12 (20.3%) 11 (12.0%) 18 (32.7%) 42 (16.7%) 12 (14.8%)
Sólo unas pocas <br>veces 11 (18.6%) 19 (20.7%) 17 (30.9%) 53 (21.1%) 13 (16.0%)
Algunas veces 12 (20.3%) 24 (26.1%) 11 (20.0%) 79 (31.5%) 20 (24.7%)
La mayoría de las veces 16 (27.1%) 28 (30.4%) 5 (9.09%) 50 (19.9%) 22 (27.2%)
Siempre 8 (13.6%) 10 (10.9%) 4 (7.27%) 27 (10.8%) 14 (17.3%)
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.228
Nada 14 (23.7%) 20 (21.7%) 13 (23.6%) 57 (22.7%) 16 (19.8%)
Un poco 18 (30.5%) 22 (23.9%) 20 (36.4%) 89 (35.5%) 25 (30.9%)
Regular 15 (25.4%) 26 (28.3%) 14 (25.5%) 68 (27.1%) 16 (19.8%)
Bastante 9 (15.3%) 19 (20.7%) 8 (14.5%) 28 (11.2%) 22 (27.2%)
Mucho 3 (5.08%) 5 (5.43%) 0 (0.00%) 9 (3.59%) 2 (2.47%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: 0.076
Nada 15 (25.4%) 14 (15.2%) 11 (20.0%) 54 (21.5%) 17 (21.0%)
Un poco 21 (35.6%) 22 (23.9%) 20 (36.4%) 88 (35.1%) 20 (24.7%)
Regular 12 (20.3%) 21 (22.8%) 13 (23.6%) 48 (19.1%) 19 (23.5%)
Bastante 7 (11.9%) 26 (28.3%) 9 (16.4%) 56 (22.3%) 18 (22.2%)
Mucho 4 (6.78%) 9 (9.78%) 2 (3.64%) 5 (1.99%) 7 (8.64%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: 0.148
Nada 30 (50.8%) 25 (27.2%) 20 (36.4%) 99 (39.4%) 29 (35.8%)
Un poco 13 (22.0%) 32 (34.8%) 16 (29.1%) 80 (31.9%) 24 (29.6%)
Regular 4 (6.78%) 22 (23.9%) 13 (23.6%) 43 (17.1%) 12 (14.8%)
Bastante 10 (16.9%) 9 (9.78%) 5 (9.09%) 20 (7.97%) 12 (14.8%)
Mucho 2 (3.39%) 4 (4.35%) 1 (1.82%) 9 (3.59%) 4 (4.94%)
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.062
Nunca 16 (27.1%) 14 (15.2%) 9 (16.4%) 46 (18.3%) 14 (17.3%)
Algunos días 26 (44.1%) 40 (43.5%) 38 (69.1%) 127 (50.6%) 38 (46.9%)
Más de la mitad de los días 11 (18.6%) 24 (26.1%) 7 (12.7%) 58 (23.1%) 18 (22.2%)
Casi todos los días 6 (10.2%) 14 (15.2%) 1 (1.82%) 20 (7.97%) 11 (13.6%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: 0.436
Nunca 8 (13.6%) 8 (8.70%) 9 (16.4%) 34 (13.5%) 12 (14.8%)
Algunos días 26 (44.1%) 33 (35.9%) 23 (41.8%) 115 (45.8%) 32 (39.5%)
Más de la mitad de los días 15 (25.4%) 34 (37.0%) 18 (32.7%) 64 (25.5%) 29 (35.8%)
Casi todos los días 10 (16.9%) 17 (18.5%) 5 (9.09%) 38 (15.1%) 8 (9.88%)
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.566
Nunca 16 (27.1%) 17 (18.5%) 9 (16.4%) 63 (25.1%) 18 (22.2%)
Algunos días 21 (35.6%) 44 (47.8%) 33 (60.0%) 115 (45.8%) 43 (53.1%)
Más de la mitad de los días 16 (27.1%) 22 (23.9%) 9 (16.4%) 53 (21.1%) 16 (19.8%)
Casi todos los días 6 (10.2%) 9 (9.78%) 4 (7.27%) 20 (7.97%) 4 (4.94%)
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.467
Nunca 19 (32.2%) 24 (26.1%) 13 (23.6%) 61 (24.3%) 15 (18.5%)
Algunos días 23 (39.0%) 41 (44.6%) 31 (56.4%) 124 (49.4%) 42 (51.9%)
Más de la mitad de los días 10 (16.9%) 20 (21.7%) 8 (14.5%) 52 (20.7%) 21 (25.9%)
Casi todos los días 7 (11.9%) 7 (7.61%) 3 (5.45%) 14 (5.58%) 3 (3.70%)
¿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.003
Ninguno 32 (54.2%) 32 (34.8%) 18 (32.7%) 139 (55.4%) 28 (34.6%)
1 a 10 20 (33.9%) 37 (40.2%) 26 (47.3%) 88 (35.1%) 37 (45.7%)
11 a 30 5 (8.47%) 15 (16.3%) 7 (12.7%) 15 (5.98%) 11 (13.6%)
31 a 100 1 (1.69%) 8 (8.70%) 3 (5.45%) 6 (2.39%) 5 (6.17%)
101 a 200 1 (1.69%) 0 (0.00%) 1 (1.82%) 3 (1.20%) 0 (0.00%)
¿Cuántos TRABAJADORES contagiados con COVID-19 (con sospecha y/o confirmado) hay en total en su lugar de trabajo principal, en la última semana?: 0.017
Ninguno 30 (50.8%) 38 (41.3%) 22 (40.0%) 149 (59.4%) 47 (58.0%)
Sólo uno 9 (15.3%) 17 (18.5%) 13 (23.6%) 33 (13.1%) 9 (11.1%)
2 a 10 16 (27.1%) 31 (33.7%) 19 (34.5%) 58 (23.1%) 24 (29.6%)
11 a 25 0 (0.00%) 6 (6.52%) 1 (1.82%) 7 (2.79%) 1 (1.23%)
26 a 50 3 (5.08%) 0 (0.00%) 0 (0.00%) 3 (1.20%) 0 (0.00%)
Más de 50 1 (1.69%) 0 (0.00%) 0 (0.00%) 1 (0.40%) 0 (0.00%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?: <0.001
Trabajo en contacto directo con pacientes 2 (3.39%) 35 (38.0%) 25 (45.5%) 24 (9.56%) 29 (35.8%)
Trabajo a menos de dos metros de pacientes 2 (3.39%) 4 (4.35%) 1 (1.82%) 3 (1.20%) 3 (3.70%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia) 0 (0.00%) 1 (1.09%) 0 (0.00%) 4 (1.59%) 1 (1.23%)
Trabajo en el mismo piso/sala/departamento 2 (3.39%) 10 (10.9%) 2 (3.64%) 8 (3.19%) 7 (8.64%)
Como parte de mi trabajo visito un piso/sala/departamento 3 (5.08%) 14 (15.2%) 10 (18.2%) 15 (5.98%) 4 (4.94%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19 16 (27.1%) 16 (17.4%) 7 (12.7%) 59 (23.5%) 20 (24.7%)
Ninguno que yo esté en conocimiento 34 (57.6%) 12 (13.0%) 10 (18.2%) 138 (55.0%) 17 (21.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.: <0.001
0 49 (83.1%) 41 (44.6%) 28 (50.9%) 196 (78.1%) 41 (50.6%)
1 10 (16.9%) 51 (55.4%) 27 (49.1%) 55 (21.9%) 40 (49.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 han dicho que tuvo contacto con un paciente COVID-19 fuera del trabajo.: 0.459
0 51 (86.4%) 80 (87.0%) 49 (89.1%) 231 (92.0%) 75 (92.6%)
1 8 (13.6%) 12 (13.0%) 6 (10.9%) 20 (7.97%) 6 (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.041
0 49 (83.1%) 65 (70.7%) 45 (81.8%) 207 (82.5%) 57 (70.4%)
1 10 (16.9%) 27 (29.3%) 10 (18.2%) 44 (17.5%) 24 (29.6%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.: 0.012
0 49 (83.1%) 60 (65.2%) 37 (67.3%) 200 (79.7%) 56 (69.1%)
1 10 (16.9%) 32 (34.8%) 18 (32.7%) 51 (20.3%) 25 (30.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 trabajara a pesar de los síntomas.: 0.001
0 59 (100%) 83 (90.2%) 54 (98.2%) 247 (98.4%) 79 (97.5%)
1 0 (0.00%) 9 (9.78%) 1 (1.82%) 4 (1.59%) 2 (2.47%)
¿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.691
0 56 (94.9%) 81 (88.0%) 49 (89.1%) 225 (89.6%) 74 (91.4%)
1 3 (5.08%) 11 (12.0%) 6 (10.9%) 26 (10.4%) 7 (8.64%)
¿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.003
0 47 (79.7%) 73 (79.3%) 39 (70.9%) 223 (88.8%) 61 (75.3%)
1 12 (20.3%) 19 (20.7%) 16 (29.1%) 28 (11.2%) 20 (24.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) | Se hizo el examen para descartar COVID-19.: <0.001
0 37 (62.7%) 35 (38.0%) 21 (38.2%) 149 (59.4%) 38 (46.9%)
1 22 (37.3%) 57 (62.0%) 34 (61.8%) 102 (40.6%) 43 (53.1%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.: 0.078
0 58 (98.3%) 82 (89.1%) 50 (90.9%) 240 (95.6%) 77 (95.1%)
1 1 (1.69%) 10 (10.9%) 5 (9.09%) 11 (4.38%) 4 (4.94%)
¿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.496
0 54 (91.5%) 82 (89.1%) 49 (89.1%) 228 (90.8%) 68 (84.0%)
1 5 (8.47%) 10 (10.9%) 6 (10.9%) 23 (9.16%) 13 (16.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) | Ninguna de las anteriores.: <0.001
FALSE 33 (55.9%) 76 (82.6%) 46 (83.6%) 159 (63.3%) 69 (85.2%)
TRUE 26 (44.1%) 16 (17.4%) 9 (16.4%) 92 (36.7%) 12 (14.8%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: 0.004
Nada 2 (3.39%) 0 (0.00%) 3 (5.45%) 10 (3.98%) 2 (2.47%)
Un poco 11 (18.6%) 15 (16.3%) 18 (32.7%) 54 (21.5%) 9 (11.1%)
Bastante 20 (33.9%) 22 (23.9%) 16 (29.1%) 57 (22.7%) 22 (27.2%)
Mucho 23 (39.0%) 54 (58.7%) 18 (32.7%) 110 (43.8%) 47 (58.0%)
No aplica 3 (5.08%) 1 (1.09%) 0 (0.00%) 20 (7.97%) 1 (1.23%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: 0.007
1 (Poco o nada) 4 (6.78%) 2 (2.17%) 2 (3.64%) 12 (4.78%) 6 (7.41%)
2 4 (6.78%) 5 (5.43%) 6 (10.9%) 8 (3.19%) 6 (7.41%)
3 1 (1.69%) 5 (5.43%) 11 (20.0%) 25 (9.96%) 7 (8.64%)
4 7 (11.9%) 9 (9.78%) 6 (10.9%) 35 (13.9%) 9 (11.1%)
5 15 (25.4%) 21 (22.8%) 11 (20.0%) 51 (20.3%) 13 (16.0%)
6 8 (13.6%) 16 (17.4%) 6 (10.9%) 46 (18.3%) 4 (4.94%)
7 14 (23.7%) 18 (19.6%) 3 (5.45%) 39 (15.5%) 13 (16.0%)
8 1 (1.69%) 8 (8.70%) 8 (14.5%) 18 (7.17%) 13 (16.0%)
9 2 (3.39%) 7 (7.61%) 2 (3.64%) 8 (3.19%) 5 (6.17%)
10 (Tanto miedo como nunca he sentido) 3 (5.08%) 1 (1.09%) 0 (0.00%) 9 (3.59%) 5 (6.17%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: <0.001
FALSE 35 (59.3%) 24 (26.1%) 17 (30.9%) 157 (62.5%) 10 (12.3%)
TRUE 24 (40.7%) 68 (73.9%) 38 (69.1%) 94 (37.5%) 71 (87.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): <0.001
FALSE 42 (71.2%) 40 (43.5%) 23 (41.8%) 162 (64.5%) 27 (33.3%)
TRUE 17 (28.8%) 52 (56.5%) 32 (58.2%) 89 (35.5%) 54 (66.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: <0.001
FALSE 36 (61.0%) 24 (26.1%) 18 (32.7%) 115 (45.8%) 22 (27.2%)
TRUE 23 (39.0%) 68 (73.9%) 37 (67.3%) 136 (54.2%) 59 (72.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: <0.001
FALSE 59 (100%) 88 (95.7%) 51 (92.7%) 236 (94.0%) 62 (76.5%)
TRUE 0 (0.00%) 4 (4.35%) 4 (7.27%) 15 (5.98%) 19 (23.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: 0.095
FALSE 9 (15.3%) 9 (9.78%) 4 (7.27%) 37 (14.7%) 4 (4.94%)
TRUE 50 (84.7%) 83 (90.2%) 51 (92.7%) 214 (85.3%) 77 (95.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: 0.276
FALSE 7 (11.9%) 7 (7.61%) 11 (20.0%) 32 (12.7%) 12 (14.8%)
TRUE 52 (88.1%) 85 (92.4%) 44 (80.0%) 219 (87.3%) 69 (85.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: <0.001
FALSE 40 (67.8%) 35 (38.0%) 13 (23.6%) 160 (63.7%) 26 (32.1%)
TRUE 19 (32.2%) 57 (62.0%) 42 (76.4%) 91 (36.3%) 55 (67.9%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: 0.966
FALSE 58 (98.3%) 91 (98.9%) 54 (98.2%) 247 (98.4%) 79 (97.5%)
TRUE 1 (1.69%) 1 (1.09%) 1 (1.82%) 4 (1.59%) 2 (2.47%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: <0.001
FALSE 57 (96.6%) 27 (29.3%) 10 (18.2%) 185 (73.7%) 23 (28.4%)
TRUE 2 (3.39%) 65 (70.7%) 45 (81.8%) 66 (26.3%) 58 (71.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: <0.001
FALSE 58 (98.3%) 51 (55.4%) 39 (70.9%) 202 (80.5%) 38 (46.9%)
TRUE 1 (1.69%) 41 (44.6%) 16 (29.1%) 49 (19.5%) 43 (53.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: <0.001
FALSE 56 (94.9%) 76 (82.6%) 45 (81.8%) 232 (92.4%) 53 (65.4%)
TRUE 3 (5.08%) 16 (17.4%) 10 (18.2%) 19 (7.57%) 28 (34.6%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: 0.177
FALSE 57 (96.6%) 92 (100%) 55 (100%) 245 (97.6%) 81 (100%)
TRUE 2 (3.39%) 0 (0.00%) 0 (0.00%) 6 (2.39%) 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)? | Guantes.: <0.001
Suficiente 20 (33.9%) 74 (80.4%) 50 (90.9%) 117 (46.6%) 66 (81.5%)
Insuficiente 7 (11.9%) 8 (8.70%) 2 (3.64%) 41 (16.3%) 14 (17.3%)
No Aplica 32 (54.2%) 10 (10.9%) 3 (5.45%) 93 (37.1%) 1 (1.23%)
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.001
Suficiente 17 (28.8%) 53 (57.6%) 28 (50.9%) 67 (26.7%) 43 (53.1%)
Insuficiente 7 (11.9%) 24 (26.1%) 17 (30.9%) 56 (22.3%) 27 (33.3%)
No Aplica 35 (59.3%) 15 (16.3%) 10 (18.2%) 128 (51.0%) 11 (13.6%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.: <0.001
Suficiente 22 (37.3%) 68 (73.9%) 41 (74.5%) 109 (43.4%) 49 (60.5%)
Insuficiente 16 (27.1%) 15 (16.3%) 10 (18.2%) 64 (25.5%) 25 (30.9%)
No Aplica 21 (35.6%) 9 (9.78%) 4 (7.27%) 78 (31.1%) 7 (8.64%)
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 4 (6.78%) 13 (14.1%) 13 (23.6%) 33 (13.1%) 11 (13.6%)
Insuficiente 3 (5.08%) 17 (18.5%) 7 (12.7%) 24 (9.56%) 24 (29.6%)
No Aplica 52 (88.1%) 62 (67.4%) 35 (63.6%) 194 (77.3%) 46 (56.8%)
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.003
Suficiente 45 (76.3%) 79 (85.9%) 54 (98.2%) 192 (76.5%) 69 (85.2%)
Insuficiente 10 (16.9%) 10 (10.9%) 1 (1.82%) 37 (14.7%) 12 (14.8%)
No Aplica 4 (6.78%) 3 (3.26%) 0 (0.00%) 22 (8.76%) 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.001
Suficiente 42 (71.2%) 81 (88.0%) 52 (94.5%) 187 (74.5%) 68 (84.0%)
Insuficiente 11 (18.6%) 10 (10.9%) 1 (1.82%) 45 (17.9%) 13 (16.0%)
No Aplica 6 (10.2%) 1 (1.09%) 2 (3.64%) 19 (7.57%) 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.001
Suficiente 7 (11.9%) 41 (44.6%) 34 (61.8%) 56 (22.3%) 23 (28.4%)
Insuficiente 16 (27.1%) 34 (37.0%) 14 (25.5%) 80 (31.9%) 46 (56.8%)
No Aplica 36 (61.0%) 17 (18.5%) 7 (12.7%) 115 (45.8%) 12 (14.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.001
Suficiente 2 (3.39%) 9 (9.78%) 4 (7.27%) 5 (1.99%) 3 (3.70%)
Insuficiente 5 (8.47%) 16 (17.4%) 10 (18.2%) 21 (8.37%) 19 (23.5%)
No Aplica 52 (88.1%) 67 (72.8%) 41 (74.5%) 225 (89.6%) 59 (72.8%)
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.001
Suficiente 5 (8.47%) 71 (77.2%) 46 (83.6%) 75 (29.9%) 57 (70.4%)
Insuficiente 2 (3.39%) 7 (7.61%) 4 (7.27%) 26 (10.4%) 14 (17.3%)
No Aplica 52 (88.1%) 14 (15.2%) 5 (9.09%) 150 (59.8%) 10 (12.3%)
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.001
Suficiente 4 (6.78%) 40 (43.5%) 22 (40.0%) 35 (13.9%) 30 (37.0%)
Insuficiente 3 (5.08%) 16 (17.4%) 9 (16.4%) 39 (15.5%) 20 (24.7%)
No Aplica 52 (88.1%) 36 (39.1%) 24 (43.6%) 177 (70.5%) 31 (38.3%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cubre calzado.: <0.001
Suficiente 2 (3.39%) 21 (22.8%) 13 (23.6%) 18 (7.17%) 11 (13.6%)
Insuficiente 6 (10.2%) 24 (26.1%) 10 (18.2%) 34 (13.5%) 30 (37.0%)
No Aplica 51 (86.4%) 47 (51.1%) 32 (58.2%) 199 (79.3%) 40 (49.4%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: <0.001
Sí, en el último mes 9 (15.3%) 18 (19.6%) 7 (12.7%) 20 (7.97%) 11 (13.6%)
Sí, en los últimos 6 meses 18 (30.5%) 44 (47.8%) 30 (54.5%) 99 (39.4%) 41 (50.6%)
Sí, el año pasado 1 (1.69%) 15 (16.3%) 9 (16.4%) 23 (9.16%) 9 (11.1%)
Sí, hace 1-2 años 0 (0.00%) 4 (4.35%) 1 (1.82%) 6 (2.39%) 0 (0.00%)
Sí, hace 2-5 años 0 (0.00%) 0 (0.00%) 0 (0.00%) 5 (1.99%) 0 (0.00%)
Sí, hace más de 5 años 0 (0.00%) 0 (0.00%) 0 (0.00%) 8 (3.19%) 0 (0.00%)
No he sido capacitado 31 (52.5%) 11 (12.0%) 8 (14.5%) 90 (35.9%) 20 (24.7%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: 0.003
Excelente 0 (0.00%) 17 (21.0%) 6 (12.8%) 11 (6.83%) 2 (3.28%)
Buena 12 (42.9%) 40 (49.4%) 30 (63.8%) 84 (52.2%) 28 (45.9%)
Regular 13 (46.4%) 21 (25.9%) 9 (19.1%) 56 (34.8%) 25 (41.0%)
Mala 3 (10.7%) 3 (3.70%) 2 (4.26%) 10 (6.21%) 6 (9.84%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: <0.001
Nada 3 (5.08%) 0 (0.00%) 0 (0.00%) 10 (3.98%) 1 (1.23%)
Poco 6 (10.2%) 1 (1.09%) 1 (1.82%) 14 (5.58%) 9 (11.1%)
Algo 15 (25.4%) 13 (14.1%) 6 (10.9%) 60 (23.9%) 11 (13.6%)
Bastante 24 (40.7%) 53 (57.6%) 35 (63.6%) 122 (48.6%) 41 (50.6%)
Totalmente 1 (1.69%) 24 (26.1%) 11 (20.0%) 24 (9.56%) 18 (22.2%)
No aplica 10 (16.9%) 1 (1.09%) 2 (3.64%) 21 (8.37%) 1 (1.23%)
¿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.013
0 54 (91.5%) 79 (85.9%) 52 (94.5%) 234 (93.2%) 66 (81.5%)
1 5 (8.47%) 13 (14.1%) 3 (5.45%) 17 (6.77%) 15 (18.5%)
¿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.005
0 56 (94.9%) 72 (78.3%) 49 (89.1%) 228 (90.8%) 67 (82.7%)
1 3 (5.08%) 20 (21.7%) 6 (10.9%) 23 (9.16%) 14 (17.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.462
0 55 (93.2%) 83 (90.2%) 49 (89.1%) 230 (91.6%) 69 (85.2%)
1 4 (6.78%) 9 (9.78%) 6 (10.9%) 21 (8.37%) 12 (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.077
0 54 (91.5%) 74 (80.4%) 42 (76.4%) 214 (85.3%) 62 (76.5%)
1 5 (8.47%) 18 (19.6%) 13 (23.6%) 37 (14.7%) 19 (23.5%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica: <0.001
FALSE 32 (54.2%) 77 (83.7%) 43 (78.2%) 171 (68.1%) 66 (81.5%)
TRUE 27 (45.8%) 15 (16.3%) 12 (21.8%) 80 (31.9%) 15 (18.5%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: <0.001
Nada 1 (1.69%) 3 (3.26%) 0 (0.00%) 4 (1.59%) 2 (2.47%)
Poco 9 (15.3%) 5 (5.43%) 5 (9.09%) 18 (7.17%) 6 (7.41%)
Algo 18 (30.5%) 21 (22.8%) 4 (7.27%) 65 (25.9%) 23 (28.4%)
Bastante 20 (33.9%) 39 (42.4%) 28 (50.9%) 116 (46.2%) 36 (44.4%)
Totalmente 5 (8.47%) 24 (26.1%) 17 (30.9%) 25 (9.96%) 13 (16.0%)
No aplica 6 (10.2%) 0 (0.00%) 1 (1.82%) 23 (9.16%) 1 (1.23%)
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.015
Negarme a trabajar no es una opción legalmente disponible para mí 7 (11.9%) 14 (15.2%) 3 (5.45%) 22 (8.76%) 14 (17.3%)
Definitivamente, no es posible negarme a trabajar 7 (11.9%) 6 (6.52%) 3 (5.45%) 18 (7.17%) 7 (8.64%)
Es improbable que pueda negarme a trabajar 6 (10.2%) 6 (6.52%) 4 (7.27%) 20 (7.97%) 6 (7.41%)
Quizás, en una situación extrema podría negarme a trabajar 9 (15.3%) 12 (13.0%) 8 (14.5%) 60 (23.9%) 4 (4.94%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo 19 (32.2%) 33 (35.9%) 18 (32.7%) 77 (30.7%) 38 (46.9%)
Definitivamente, no dudaría en negarme a trabajar 11 (18.6%) 21 (22.8%) 19 (34.5%) 54 (21.5%) 12 (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.001
Apropiadas y bien implementadas 20 (33.9%) 33 (35.9%) 27 (49.1%) 63 (25.1%) 27 (33.3%)
Apropiadas pero mal implementadas 16 (27.1%) 22 (23.9%) 15 (27.3%) 34 (13.5%) 18 (22.2%)
Inapropiadas 0 (0.00%) 8 (8.70%) 0 (0.00%) 10 (3.98%) 4 (4.94%)
Deficientes 9 (15.3%) 20 (21.7%) 10 (18.2%) 48 (19.1%) 23 (28.4%)
No sabe 0 (0.00%) 1 (1.09%) 2 (3.64%) 9 (3.59%) 4 (4.94%)
No aplica 14 (23.7%) 8 (8.70%) 1 (1.82%) 87 (34.7%) 5 (6.17%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: <0.001
Apropiadas y bien implementadas 31 (52.5%) 59 (64.1%) 38 (69.1%) 99 (39.4%) 48 (59.3%)
Apropiadas pero mal implementadas 4 (6.78%) 11 (12.0%) 12 (21.8%) 23 (9.16%) 16 (19.8%)
Inapropiadas 0 (0.00%) 5 (5.43%) 1 (1.82%) 1 (0.40%) 3 (3.70%)
Deficientes 3 (5.08%) 4 (4.35%) 1 (1.82%) 8 (3.19%) 8 (9.88%)
No sabe 2 (3.39%) 2 (2.17%) 1 (1.82%) 27 (10.8%) 0 (0.00%)
No aplica 19 (32.2%) 11 (12.0%) 2 (3.64%) 93 (37.1%) 6 (7.41%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: <0.001
Apropiadas y bien implementadas 26 (44.1%) 52 (56.5%) 39 (70.9%) 88 (35.1%) 44 (54.3%)
Apropiadas pero mal implementadas 4 (6.78%) 23 (25.0%) 8 (14.5%) 20 (7.97%) 18 (22.2%)
Inapropiadas 0 (0.00%) 4 (4.35%) 2 (3.64%) 2 (0.80%) 2 (2.47%)
Deficientes 1 (1.69%) 2 (2.17%) 1 (1.82%) 11 (4.38%) 4 (4.94%)
No sabe 7 (11.9%) 2 (2.17%) 2 (3.64%) 25 (9.96%) 2 (2.47%)
No aplica 21 (35.6%) 9 (9.78%) 3 (5.45%) 105 (41.8%) 11 (13.6%)
¿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.001
Apropiadas y bien implementadas 25 (42.4%) 47 (51.1%) 37 (67.3%) 79 (31.5%) 40 (49.4%)
Apropiadas pero mal implementadas 9 (15.3%) 16 (17.4%) 9 (16.4%) 28 (11.2%) 17 (21.0%)
Inapropiadas 0 (0.00%) 7 (7.61%) 0 (0.00%) 5 (1.99%) 5 (6.17%)
Deficientes 1 (1.69%) 7 (7.61%) 1 (1.82%) 15 (5.98%) 8 (9.88%)
No sabe 4 (6.78%) 3 (3.26%) 6 (10.9%) 29 (11.6%) 4 (4.94%)
No aplica 20 (33.9%) 12 (13.0%) 2 (3.64%) 95 (37.8%) 7 (8.64%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: <0.001
Apropiadas y bien implementadas 11 (18.6%) 17 (18.5%) 12 (21.8%) 34 (13.5%) 19 (23.5%)
Apropiadas pero mal implementadas 3 (5.08%) 6 (6.52%) 6 (10.9%) 28 (11.2%) 12 (14.8%)
Inapropiadas 5 (8.47%) 16 (17.4%) 8 (14.5%) 24 (9.56%) 9 (11.1%)
Deficientes 9 (15.3%) 37 (40.2%) 18 (32.7%) 48 (19.1%) 25 (30.9%)
No sabe 12 (20.3%) 5 (5.43%) 5 (9.09%) 39 (15.5%) 6 (7.41%)
No aplica 19 (32.2%) 11 (12.0%) 6 (10.9%) 78 (31.1%) 10 (12.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: <0.001
Apropiadas y bien implementadas 24 (40.7%) 29 (31.5%) 27 (49.1%) 58 (23.1%) 26 (32.1%)
Apropiadas pero mal implementadas 2 (3.39%) 9 (9.78%) 3 (5.45%) 15 (5.98%) 18 (22.2%)
Inapropiadas 0 (0.00%) 13 (14.1%) 2 (3.64%) 11 (4.38%) 6 (7.41%)
Deficientes 0 (0.00%) 23 (25.0%) 13 (23.6%) 16 (6.37%) 12 (14.8%)
No sabe 11 (18.6%) 3 (3.26%) 6 (10.9%) 35 (13.9%) 4 (4.94%)
No aplica 22 (37.3%) 15 (16.3%) 4 (7.27%) 116 (46.2%) 15 (18.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal.: <0.001
Apropiadas y bien implementadas 15 (25.4%) 22 (23.9%) 15 (27.3%) 32 (12.7%) 27 (33.3%)
Apropiadas pero mal implementadas 2 (3.39%) 13 (14.1%) 5 (9.09%) 22 (8.76%) 7 (8.64%)
Inapropiadas 0 (0.00%) 13 (14.1%) 5 (9.09%) 26 (10.4%) 13 (16.0%)
Deficientes 7 (11.9%) 31 (33.7%) 23 (41.8%) 48 (19.1%) 25 (30.9%)
No sabe 14 (23.7%) 2 (2.17%) 4 (7.27%) 27 (10.8%) 4 (4.94%)
No aplica 21 (35.6%) 11 (12.0%) 3 (5.45%) 96 (38.2%) 5 (6.17%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: <0.001
Apropiadas y bien implementadas 17 (28.8%) 40 (43.5%) 19 (34.5%) 40 (15.9%) 28 (34.6%)
Apropiadas pero mal implementadas 2 (3.39%) 13 (14.1%) 2 (3.64%) 17 (6.77%) 7 (8.64%)
Inapropiadas 1 (1.69%) 6 (6.52%) 1 (1.82%) 17 (6.77%) 6 (7.41%)
Deficientes 3 (5.08%) 17 (18.5%) 12 (21.8%) 42 (16.7%) 19 (23.5%)
No sabe 14 (23.7%) 4 (4.35%) 16 (29.1%) 38 (15.1%) 8 (9.88%)
No aplica 22 (37.3%) 12 (13.0%) 5 (9.09%) 97 (38.6%) 13 (16.0%)
¿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 22 (37.3%) 58 (63.0%) 30 (54.5%) 90 (35.9%) 51 (63.0%)
Apropiadas pero mal implementadas 4 (6.78%) 14 (15.2%) 5 (9.09%) 25 (9.96%) 9 (11.1%)
Inapropiadas 2 (3.39%) 7 (7.61%) 3 (5.45%) 13 (5.18%) 4 (4.94%)
Deficientes 3 (5.08%) 7 (7.61%) 4 (7.27%) 29 (11.6%) 9 (11.1%)
No sabe 13 (22.0%) 3 (3.26%) 12 (21.8%) 28 (11.2%) 5 (6.17%)
No aplica 15 (25.4%) 3 (3.26%) 1 (1.82%) 66 (26.3%) 3 (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”? | Sindicato/gremio.: 0.672
Totalmente de acuerdo 23 (39.0%) 24 (26.1%) 9 (16.4%) 56 (22.3%) 26 (32.1%)
De acuerdo 15 (25.4%) 31 (33.7%) 20 (36.4%) 88 (35.1%) 26 (32.1%)
Ni de acuerdo ni en desacuerdo 15 (25.4%) 22 (23.9%) 18 (32.7%) 69 (27.5%) 19 (23.5%)
En desacuerdo 5 (8.47%) 12 (13.0%) 6 (10.9%) 28 (11.2%) 7 (8.64%)
Totalmente en desacuerdo 1 (1.69%) 3 (3.26%) 2 (3.64%) 10 (3.98%) 3 (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”? | Empleador.: <0.001
Totalmente de acuerdo 16 (27.1%) 30 (32.6%) 15 (27.3%) 48 (19.1%) 10 (12.3%)
De acuerdo 27 (45.8%) 24 (26.1%) 26 (47.3%) 113 (45.0%) 32 (39.5%)
Ni de acuerdo ni en desacuerdo 14 (23.7%) 19 (20.7%) 8 (14.5%) 39 (15.5%) 28 (34.6%)
En desacuerdo 2 (3.39%) 17 (18.5%) 5 (9.09%) 41 (16.3%) 9 (11.1%)
Totalmente en desacuerdo 0 (0.00%) 2 (2.17%) 1 (1.82%) 10 (3.98%) 2 (2.47%)
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.044
Totalmente de acuerdo 6 (10.2%) 13 (14.1%) 6 (10.9%) 22 (8.76%) 3 (3.70%)
De acuerdo 15 (25.4%) 15 (16.3%) 12 (21.8%) 56 (22.3%) 12 (14.8%)
Ni de acuerdo ni en desacuerdo 23 (39.0%) 24 (26.1%) 17 (30.9%) 58 (23.1%) 23 (28.4%)
En desacuerdo 12 (20.3%) 25 (27.2%) 16 (29.1%) 63 (25.1%) 24 (29.6%)
Totalmente en desacuerdo 3 (5.08%) 15 (16.3%) 4 (7.27%) 52 (20.7%) 19 (23.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.: 0.143
Totalmente de acuerdo 12 (20.3%) 16 (17.4%) 7 (12.7%) 39 (15.5%) 11 (13.6%)
De acuerdo 24 (40.7%) 17 (18.5%) 18 (32.7%) 67 (26.7%) 26 (32.1%)
Ni de acuerdo ni en desacuerdo 18 (30.5%) 38 (41.3%) 24 (43.6%) 87 (34.7%) 27 (33.3%)
En desacuerdo 5 (8.47%) 14 (15.2%) 5 (9.09%) 42 (16.7%) 10 (12.3%)
Totalmente en desacuerdo 0 (0.00%) 7 (7.61%) 1 (1.82%) 16 (6.37%) 7 (8.64%)
¿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.001
Mantengo las mismas labores 38 (64.4%) 52 (56.5%) 34 (61.8%) 169 (67.3%) 65 (80.2%)
Mantengo las mismas labores, pero en un área distinta 3 (5.08%) 3 (3.26%) 3 (5.45%) 5 (1.99%) 6 (7.41%)
Mantengo las mismas labores, pero en un lugar físico distinto 4 (6.78%) 4 (4.35%) 2 (3.64%) 32 (12.7%) 1 (1.23%)
Mantengo las mismas labores, pero en área y lugar físico distintos 0 (0.00%) 6 (6.52%) 1 (1.82%) 6 (2.39%) 1 (1.23%)
Distintas labores, pero en la misma área 9 (15.3%) 7 (7.61%) 3 (5.45%) 16 (6.37%) 4 (4.94%)
Distintas labores, pero en el mismo lugar físico 4 (6.78%) 8 (8.70%) 7 (12.7%) 9 (3.59%) 0 (0.00%)
Labores, área y lugar físico distintos 1 (1.69%) 12 (13.0%) 5 (9.09%) 14 (5.58%) 4 (4.94%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: 0.007
Excelente 1 (1.72%) 0 (0.00%) 1 (1.89%) 4 (1.63%) 6 (7.69%)
Buena 31 (53.4%) 30 (33.0%) 16 (30.2%) 97 (39.4%) 19 (24.4%)
Regular 23 (39.7%) 48 (52.7%) 30 (56.6%) 110 (44.7%) 44 (56.4%)
Mala 3 (5.17%) 13 (14.3%) 6 (11.3%) 35 (14.2%) 9 (11.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.016
Totalmente de acuerdo 8 (13.8%) 16 (17.6%) 9 (17.0%) 43 (17.5%) 10 (12.8%)
De acuerdo 13 (22.4%) 32 (35.2%) 20 (37.7%) 91 (37.0%) 26 (33.3%)
Neutral 20 (34.5%) 24 (26.4%) 9 (17.0%) 47 (19.1%) 32 (41.0%)
En desacuerdo 11 (19.0%) 13 (14.3%) 14 (26.4%) 45 (18.3%) 8 (10.3%)
Totalmente en desacuerdo 6 (10.3%) 6 (6.59%) 1 (1.89%) 20 (8.13%) 2 (2.56%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: 0.013
Siempre 6 (10.3%) 28 (30.8%) 3 (5.66%) 45 (18.3%) 22 (28.2%)
La mayoría <br>de las veces 17 (29.3%) 25 (27.5%) 17 (32.1%) 65 (26.4%) 19 (24.4%)
Algunas veces 23 (39.7%) 33 (36.3%) 23 (43.4%) 95 (38.6%) 24 (30.8%)
Sólo unas <br>pocas veces 8 (13.8%) 3 (3.30%) 8 (15.1%) 33 (13.4%) 12 (15.4%)
Nunca 4 (6.90%) 2 (2.20%) 2 (3.77%) 8 (3.25%) 1 (1.28%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: <0.001
Siempre 8 (13.8%) 30 (33.0%) 6 (11.3%) 30 (12.2%) 16 (20.5%)
La mayoría <br>de las veces 13 (22.4%) 34 (37.4%) 21 (39.6%) 82 (33.3%) 21 (26.9%)
Algunas veces 28 (48.3%) 23 (25.3%) 19 (35.8%) 90 (36.6%) 30 (38.5%)
Sólo unas <br>pocas veces 7 (12.1%) 3 (3.30%) 4 (7.55%) 38 (15.4%) 8 (10.3%)
Nunca 2 (3.45%) 1 (1.10%) 3 (5.66%) 6 (2.44%) 3 (3.85%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: 0.839
Siempre 12 (20.7%) 16 (17.6%) 10 (18.9%) 40 (16.3%) 20 (25.6%)
La mayoría <br>de las veces 27 (46.6%) 42 (46.2%) 24 (45.3%) 101 (41.1%) 30 (38.5%)
Algunas veces 13 (22.4%) 24 (26.4%) 13 (24.5%) 77 (31.3%) 24 (30.8%)
Sólo unas <br>pocas veces 6 (10.3%) 8 (8.79%) 6 (11.3%) 24 (9.76%) 3 (3.85%)
Nunca 0 (0.00%) 1 (1.10%) 0 (0.00%) 4 (1.63%) 1 (1.28%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: 0.072
Siempre 2 (3.45%) 4 (4.40%) 0 (0.00%) 9 (3.66%) 3 (3.85%)
La mayoría <br>de las veces 4 (6.90%) 5 (5.49%) 3 (5.66%) 12 (4.88%) 3 (3.85%)
Algunas veces 13 (22.4%) 34 (37.4%) 22 (41.5%) 61 (24.8%) 29 (37.2%)
Sólo unas <br>pocas veces 8 (13.8%) 24 (26.4%) 11 (20.8%) 73 (29.7%) 16 (20.5%)
Nunca 31 (53.4%) 24 (26.4%) 17 (32.1%) 91 (37.0%) 27 (34.6%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: 0.226
Siempre 5 (8.62%) 8 (8.79%) 0 (0.00%) 16 (6.50%) 5 (6.41%)
La mayoría <br>de las veces 10 (17.2%) 14 (15.4%) 10 (18.9%) 29 (11.8%) 11 (14.1%)
Algunas veces 19 (32.8%) 41 (45.1%) 26 (49.1%) 103 (41.9%) 27 (34.6%)
Sólo unas <br>pocas veces 15 (25.9%) 23 (25.3%) 10 (18.9%) 60 (24.4%) 17 (21.8%)
Nunca 9 (15.5%) 5 (5.49%) 7 (13.2%) 38 (15.4%) 18 (23.1%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: 0.837
Siempre 31 (53.4%) 49 (53.8%) 27 (50.9%) 111 (45.1%) 35 (44.9%)
La mayoría <br>de las veces 12 (20.7%) 28 (30.8%) 16 (30.2%) 73 (29.7%) 25 (32.1%)
Algunas veces 8 (13.8%) 7 (7.69%) 6 (11.3%) 30 (12.2%) 10 (12.8%)
Sólo unas <br>pocas veces 3 (5.17%) 6 (6.59%) 3 (5.66%) 20 (8.13%) 6 (7.69%)
Nunca 4 (6.90%) 1 (1.10%) 1 (1.89%) 12 (4.88%) 2 (2.56%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: 0.455
Siempre 28 (48.3%) 39 (42.9%) 20 (37.7%) 92 (37.4%) 23 (29.5%)
La mayoría <br>de las veces 12 (20.7%) 28 (30.8%) 18 (34.0%) 79 (32.1%) 27 (34.6%)
Algunas veces 10 (17.2%) 15 (16.5%) 10 (18.9%) 36 (14.6%) 18 (23.1%)
Sólo unas <br>pocas veces 4 (6.90%) 5 (5.49%) 3 (5.66%) 31 (12.6%) 6 (7.69%)
Nunca 4 (6.90%) 4 (4.40%) 2 (3.77%) 8 (3.25%) 4 (5.13%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: 0.139
Siempre 24 (41.4%) 33 (36.3%) 15 (28.3%) 75 (30.5%) 18 (23.1%)
La mayoría <br>de las veces 14 (24.1%) 35 (38.5%) 27 (50.9%) 95 (38.6%) 32 (41.0%)
Algunas veces 12 (20.7%) 18 (19.8%) 9 (17.0%) 49 (19.9%) 22 (28.2%)
Sólo unas <br>pocas veces 4 (6.90%) 4 (4.40%) 1 (1.89%) 21 (8.54%) 3 (3.85%)
Nunca 4 (6.90%) 1 (1.10%) 1 (1.89%) 6 (2.44%) 3 (3.85%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: 0.568
Siempre 28 (48.3%) 36 (39.6%) 15 (28.3%) 89 (36.2%) 30 (38.5%)
La mayoría <br>de las veces 19 (32.8%) 39 (42.9%) 31 (58.5%) 114 (46.3%) 36 (46.2%)
Algunas veces 9 (15.5%) 13 (14.3%) 7 (13.2%) 30 (12.2%) 11 (14.1%)
Sólo unas <br>pocas veces 2 (3.45%) 2 (2.20%) 0 (0.00%) 8 (3.25%) 1 (1.28%)
Nunca 0 (0.00%) 1 (1.10%) 0 (0.00%) 5 (2.03%) 0 (0.00%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: 0.031
Siempre 37 (63.8%) 58 (63.7%) 32 (60.4%) 144 (58.5%) 39 (50.0%)
La mayoría <br>de las veces 15 (25.9%) 18 (19.8%) 7 (13.2%) 62 (25.2%) 18 (23.1%)
Algunas veces 2 (3.45%) 9 (9.89%) 9 (17.0%) 19 (7.72%) 18 (23.1%)
Sólo unas <br>pocas veces 1 (1.72%) 3 (3.30%) 3 (5.66%) 11 (4.47%) 3 (3.85%)
Nunca 3 (5.17%) 3 (3.30%) 2 (3.77%) 10 (4.07%) 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.241
Incorrecto 1 (1.72%) 0 (0.00%) 0 (0.00%) 1 (0.41%) 1 (1.28%)
Apenas cierto 3 (5.17%) 2 (2.22%) 3 (5.66%) 4 (1.64%) 5 (6.41%)
Más bien cierto 14 (24.1%) 32 (35.6%) 17 (32.1%) 70 (28.7%) 15 (19.2%)
Cierto 40 (69.0%) 56 (62.2%) 33 (62.3%) 169 (69.3%) 57 (73.1%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.: 0.883
Incorrecto 1 (1.72%) 0 (0.00%) 1 (1.89%) 1 (0.41%) 0 (0.00%)
Apenas cierto 4 (6.90%) 3 (3.33%) 2 (3.77%) 13 (5.33%) 4 (5.13%)
Más bien cierto 17 (29.3%) 36 (40.0%) 21 (39.6%) 95 (38.9%) 29 (37.2%)
Cierto 36 (62.1%) 51 (56.7%) 29 (54.7%) 135 (55.3%) 45 (57.7%)
De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas.: 0.798
Incorrecto 1 (1.72%) 0 (0.00%) 0 (0.00%) 1 (0.41%) 1 (1.28%)
Apenas cierto 2 (3.45%) 3 (3.33%) 2 (3.77%) 6 (2.46%) 5 (6.41%)
Más bien cierto 21 (36.2%) 32 (35.6%) 23 (43.4%) 88 (36.1%) 23 (29.5%)
Cierto 34 (58.6%) 55 (61.1%) 28 (52.8%) 149 (61.1%) 49 (62.8%)
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
table6_surv <- suppressWarnings(compareGroups(surv_terc ~ 
            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)
  )


restab6_surv <- createTable(table6_surv, show.p.overall = T)

pvals6 <- getResults(table6_surv)
#p.adjust(pvals, method = "BH")
export2md(restab6_surv, size=10, first.strip=T, hide.no="no", position="center",
          format="html",caption= "Tabla 7. Descriptivo Aplicación Total según Surv (Preguntas Respondidas) (Terciles)",
         # 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 7. Descriptivo Aplicación Total según Surv (Preguntas Respondidas) (Terciles)
1 2 3 p.overall p.trend
N=0 N=70 N=118
Sentimiento de Agotamiento, estrés e irritabilidad (terciles): 0.435 0.666
1 0 (.%) 26 (37.1%) 42 (35.6%)
2 0 (.%) 19 (27.1%) 42 (35.6%)
3 0 (.%) 25 (35.7%) 34 (28.8%)
Estrés Postraumático (4° Cuartil): 0.299 0.228
Ausencia de Indicadores de Estrés Post-traumático 0 (.%) 43 (66.2%) 88 (74.6%)
Indicadores de Estrés Post-traumático 0 (.%) 22 (33.8%) 30 (25.4%)
Ptjes. Sentimiento de Agotamiento, estrés e irritabilidad . [.;.] 312 [200;400] 300 [200;394] 0.773 0.774
Ptjes. Estrés Postraumático . [.;.] 4.00 [1.00;7.00] 3.00 [1.25;6.00] 0.936 0.936
Sintomatología ansiosa: 0.531 0.429
Ausencia de Indicadores de Sintomatología Ansiosa 0 (.%) 28 (52.8%) 70 (59.3%)
Indicadores de Sintomatología Ansiosa 0 (.%) 25 (47.2%) 48 (40.7%)
Sintomatología depresiva: 0.378 0.292
Ausencia de Indicadores de Sintomatología Depresiva 0 (.%) 32 (60.4%) 81 (68.6%)
Indicadores de Sintomatología Depresiva 0 (.%) 21 (39.6%) 37 (31.4%)
¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): 1.000 0.884
Contacto directo y estrecho con pacientes (menos de dos metros) 0 (.%) 8 (25.8%) 32 (27.1%)
Menor o ningún contacto con pacientes 0 (.%) 23 (74.2%) 86 (72.9%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): 0.148 0.501
1 0 (.%) 3 (25.0%) 28 (34.6%)
2 0 (.%) 5 (41.7%) 16 (19.8%)
3 0 (.%) 3 (25.0%) 12 (14.8%)
Más de 3 0 (.%) 1 (8.33%) 25 (30.9%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): 0.893 0.715
Bastante/Mucho 0 (.%) 16 (66.7%) 74 (62.7%)
Un poco/Nada/No aplica 0 (.%) 8 (33.3%) 44 (37.3%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): 0.817 0.650
Predomina el miedo 0 (.%) 12 (50.0%) 65 (55.1%)
Predomina la ausencia de miedo 0 (.%) 12 (50.0%) 53 (44.9%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): . .
Ha sido capacitado 0 (.%) 0 (.%) 81 (70.4%)
No ha sido capacitado 0 (.%) 0 (.%) 34 (29.6%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): . .
Mala 0 (.%) 0 (.%) 3 (3.75%)
Regular a Excelente 0 (.%) 0 (.%) 77 (96.2%)
¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): . .
Nada/Poco/Algo/No aplica 0 (.%) 0 (.%) 48 (48.0%)
Totalmente/Bastante 0 (.%) 0 (.%) 52 (52.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): . .
1 0 (.%) 0 (.%) 41 (71.9%)
2 0 (.%) 0 (.%) 15 (26.3%)
3 0 (.%) 0 (.%) 1 (1.75%)
Mi empleador se ha rehusado a dar cierto tipo de EPP: . .
Empleador se ha rehusado a dar cierto tipo de EPP 0 (.%) 0 (.%) 10 (10.0%)
No se constata esta situación 0 (.%) 0 (.%) 90 (90.0%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): . .
Algo/Bastante/Totalente/No aplica 0 (.%) 0 (.%) 88 (88.0%)
Poco/Nada 0 (.%) 0 (.%) 12 (12.0%)
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): . .
Incapacidad para negarse a trabajo inseguro 0 (.%) 0 (.%) 51 (51.0%)
Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse 0 (.%) 0 (.%) 49 (49.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): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 56 (78.9%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 15 (21.1%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 68 (95.8%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 3 (4.23%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 67 (94.4%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 4 (5.63%)
¿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): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 66 (93.0%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 5 (7.04%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 52 (73.2%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 19 (26.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): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 56 (78.9%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 15 (21.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 (Dicotomizada): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 41 (57.7%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 30 (42.3%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 57 (80.3%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 14 (19.7%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): . .
Apropiadas/No sabe/No aplica 0 (.%) 0 (.%) 61 (85.9%)
Inapropiadas/Deficientes 0 (.%) 0 (.%) 10 (14.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): . .
Desacuerdo/Totalmente en desacuerdo 0 (.%) 0 (.%) 4 (10.5%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 0 (.%) 0 (.%) 34 (89.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Empleador (Dicotomizada): . .
Desacuerdo/Totalmente en desacuerdo 0 (.%) 0 (.%) 7 (18.4%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 0 (.%) 0 (.%) 31 (81.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): . .
Desacuerdo/Totalmente en desacuerdo 0 (.%) 0 (.%) 19 (50.0%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 0 (.%) 0 (.%) 19 (50.0%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada): . .
Desacuerdo/Totalmente en desacuerdo 0 (.%) 0 (.%) 9 (23.7%)
Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo 0 (.%) 0 (.%) 29 (76.3%)
¿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): . .
Cambia área, labores o ambos producto de la pandemia 0 (.%) 0 (.%) 2 (10.5%)
Mantiene las mismas labores en la misma área 0 (.%) 0 (.%) 17 (89.5%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): . .
Excelente/Buena/Regular 0 (.%) 0 (.%) 5 (71.4%)
Mala 0 (.%) 0 (.%) 2 (28.6%)
¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada): . .
De acuerdo/Totalmente de acuerdo 0 (.%) 0 (.%) 3 (42.9%)
Neutral/En desacuerdo/Totalmente en desacuerdo 0 (.%) 0 (.%) 4 (57.1%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 2 (28.6%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 5 (71.4%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 4 (57.1%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 3 (42.9%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 4 (57.1%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 3 (42.9%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 1 (14.3%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 6 (85.7%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 3 (42.9%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 4 (57.1%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 4 (57.1%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 3 (42.9%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 4 (57.1%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 3 (42.9%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 5 (71.4%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 2 (28.6%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 6 (85.7%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 1 (14.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): . .
La mayoría de las veces/Siempre 0 (.%) 0 (.%) 5 (71.4%)
Nunca/Sólo unas pocas veces/Algunas veces 0 (.%) 0 (.%) 2 (28.6%)
Suma ítems Exigencias Psicológicas ISTAS21 . [.;.] . [.;.] 5.00 [3.50;6.50] . .
Suma ítems Calidad Relación con Superiores ISTAS21 . [.;.] . [.;.] 9.00 [5.00;10.0] . .
Suma ítems Conflicto de Rol ISTAS21 . [.;.] . [.;.] 3.00 [2.00;4.00] . .
Suma ítems Relación con Compañeros de Trabajo ISTAS21 . [.;.] . [.;.] 6.00 [5.50;7.50] . .
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): Más bien cierto/Cierto 0 (.%) 0 (.%) 4 (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): Más bien cierto/Cierto 0 (.%) 0 (.%) 4 (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): Más bien cierto/Cierto 0 (.%) 0 (.%) 4 (100%) . .
Suma puntajes de resilencia . [.;.] . [.;.] 6.50 [6.00;7.50] . .
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: 0.246 0.535
Nunca 0 (.%) 5 (7.14%) 2 (1.69%)
Sólo unas pocas <br>veces 0 (.%) 11 (15.7%) 21 (17.8%)
Algunas veces 0 (.%) 22 (31.4%) 45 (38.1%)
La mayoría de las veces 0 (.%) 29 (41.4%) 41 (34.7%)
Siempre 0 (.%) 3 (4.29%) 9 (7.63%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: 0.695 0.426
Nunca 0 (.%) 5 (7.14%) 6 (5.08%)
Sólo unas pocas <br>veces 0 (.%) 12 (17.1%) 26 (22.0%)
Algunas veces 0 (.%) 22 (31.4%) 42 (35.6%)
La mayoría de las veces 0 (.%) 23 (32.9%) 36 (30.5%)
Siempre 0 (.%) 8 (11.4%) 8 (6.78%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: 0.559 0.750
Nunca 0 (.%) 2 (2.86%) 5 (4.24%)
Sólo unas pocas <br>veces 0 (.%) 15 (21.4%) 26 (22.0%)
Algunas veces 0 (.%) 24 (34.3%) 45 (38.1%)
La mayoría de las veces 0 (.%) 25 (35.7%) 30 (25.4%)
Siempre 0 (.%) 4 (5.71%) 12 (10.2%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: 0.091 0.364
Nunca 0 (.%) 11 (15.7%) 13 (11.0%)
Sólo unas pocas <br>veces 0 (.%) 15 (21.4%) 41 (34.7%)
Algunas veces 0 (.%) 27 (38.6%) 48 (40.7%)
La mayoría de las veces 0 (.%) 14 (20.0%) 10 (8.47%)
Siempre 0 (.%) 3 (4.29%) 6 (5.08%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: 0.752 0.797
Nunca 0 (.%) 9 (12.9%) 17 (14.4%)
Sólo unas pocas <br>veces 0 (.%) 17 (24.3%) 20 (16.9%)
Algunas veces 0 (.%) 21 (30.0%) 43 (36.4%)
La mayoría de las veces 0 (.%) 16 (22.9%) 25 (21.2%)
Siempre 0 (.%) 7 (10.0%) 13 (11.0%)
En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: 0.782 0.866
Nunca 0 (.%) 12 (17.1%) 19 (16.1%)
Sólo unas pocas <br>veces 0 (.%) 16 (22.9%) 30 (25.4%)
Algunas veces 0 (.%) 20 (28.6%) 33 (28.0%)
La mayoría de las veces 0 (.%) 18 (25.7%) 24 (20.3%)
Siempre 0 (.%) 4 (5.71%) 12 (10.2%)
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.294 0.997
Nada 0 (.%) 20 (30.8%) 25 (21.2%)
Un poco 0 (.%) 13 (20.0%) 41 (34.7%)
Regular 0 (.%) 15 (23.1%) 26 (22.0%)
Bastante 0 (.%) 14 (21.5%) 21 (17.8%)
Mucho 0 (.%) 3 (4.62%) 5 (4.24%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: 0.708 0.887
Nada 0 (.%) 20 (30.8%) 34 (28.8%)
Un poco 0 (.%) 16 (24.6%) 27 (22.9%)
Regular 0 (.%) 13 (20.0%) 33 (28.0%)
Bastante 0 (.%) 13 (20.0%) 17 (14.4%)
Mucho 0 (.%) 3 (4.62%) 7 (5.93%)
En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: 0.911 0.456
Nada 0 (.%) 23 (35.4%) 47 (39.8%)
Un poco 0 (.%) 20 (30.8%) 39 (33.1%)
Regular 0 (.%) 14 (21.5%) 19 (16.1%)
Bastante 0 (.%) 5 (7.69%) 8 (6.78%)
Mucho 0 (.%) 3 (4.62%) 5 (4.24%)
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.543 0.254
Nunca 0 (.%) 11 (20.8%) 26 (22.0%)
Algunos días 0 (.%) 24 (45.3%) 62 (52.5%)
Más de la mitad de los días 0 (.%) 11 (20.8%) 22 (18.6%)
Casi todos los días 0 (.%) 7 (13.2%) 8 (6.78%)
Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: 0.278 0.529
Nunca 0 (.%) 13 (24.5%) 22 (18.6%)
Algunos días 0 (.%) 16 (30.2%) 52 (44.1%)
Más de la mitad de los días 0 (.%) 12 (22.6%) 27 (22.9%)
Casi todos los días 0 (.%) 12 (22.6%) 17 (14.4%)
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.065 0.123
Nunca 0 (.%) 18 (34.0%) 22 (18.6%)
Algunos días 0 (.%) 22 (41.5%) 66 (55.9%)
Más de la mitad de los días 0 (.%) 10 (18.9%) 16 (13.6%)
Casi todos los días 0 (.%) 3 (5.66%) 14 (11.9%)
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.160 0.469
Nunca 0 (.%) 15 (28.3%) 27 (22.9%)
Algunos días 0 (.%) 20 (37.7%) 66 (55.9%)
Más de la mitad de los días 0 (.%) 14 (26.4%) 19 (16.1%)
Casi todos los días 0 (.%) 4 (7.55%) 6 (5.08%)
¿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.579 0.844
Ninguno 0 (.%) 12 (38.7%) 57 (48.3%)
1 a 10 0 (.%) 16 (51.6%) 42 (35.6%)
11 a 30 0 (.%) 1 (3.23%) 12 (10.2%)
31 a 100 0 (.%) 1 (3.23%) 3 (2.54%)
101 a 200 0 (.%) 0 (0.00%) 1 (0.85%)
Más de 200 0 (.%) 1 (3.23%) 3 (2.54%)
¿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.077 0.052
Ninguno 0 (.%) 14 (45.2%) 65 (55.1%)
Sólo uno 0 (.%) 1 (3.23%) 14 (11.9%)
2 a 10 0 (.%) 12 (38.7%) 36 (30.5%)
11 a 25 0 (.%) 3 (9.68%) 2 (1.69%)
26 a 50 0 (.%) 1 (3.23%) 1 (0.85%)
¿Qué  tan cercano es el contacto que usted tiene con pacientes con COVID-19?: 0.614 0.978
Trabajo en contacto directo con pacientes 0 (.%) 8 (25.8%) 25 (21.2%)
Trabajo a menos de dos metros de pacientes 0 (.%) 0 (0.00%) 7 (5.93%)
Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia) 0 (.%) 0 (0.00%) 1 (0.85%)
Trabajo en el mismo piso/sala/departamento 0 (.%) 1 (3.23%) 4 (3.39%)
Como parte de mi trabajo visito un piso/sala/departamento 0 (.%) 5 (16.1%) 11 (9.32%)
Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19 0 (.%) 4 (12.9%) 26 (22.0%)
Ninguno que yo esté en conocimiento 0 (.%) 13 (41.9%) 44 (37.3%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.: 0.492 0.357
0 0 (.%) 18 (75.0%) 77 (65.3%)
1 0 (.%) 6 (25.0%) 41 (34.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.471 0.409
0 0 (.%) 23 (95.8%) 107 (90.7%)
1 0 (.%) 1 (4.17%) 11 (9.32%)
¿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.249 0.221
0 0 (.%) 22 (91.7%) 96 (81.4%)
1 0 (.%) 2 (8.33%) 22 (18.6%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.: 0.202 0.130
0 0 (.%) 20 (83.3%) 80 (67.8%)
1 0 (.%) 4 (16.7%) 38 (32.2%)
¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de los síntomas.: 1.000 0.988
0 0 (.%) 23 (95.8%) 113 (95.8%)
1 0 (.%) 1 (4.17%) 5 (4.24%)
¿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.691 0.547
0 0 (.%) 23 (95.8%) 109 (92.4%)
1 0 (.%) 1 (4.17%) 9 (7.63%)
¿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.068 0.059
0 0 (.%) 23 (95.8%) 94 (79.7%)
1 0 (.%) 1 (4.17%) 24 (20.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.115 0.072
0 0 (.%) 18 (75.0%) 65 (55.1%)
1 0 (.%) 6 (25.0%) 53 (44.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.681 0.473
0 0 (.%) 23 (95.8%) 108 (91.5%)
1 0 (.%) 1 (4.17%) 10 (8.47%)
¿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.736 0.521
0 0 (.%) 20 (83.3%) 104 (88.1%)
1 0 (.%) 4 (16.7%) 14 (11.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) | Ninguna de las anteriores.: 0.130 0.081
FALSE 0 (.%) 12 (50.0%) 81 (68.6%)
TRUE 0 (.%) 12 (50.0%) 37 (31.4%)
¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: 0.155 0.299
Nada 0 (.%) 0 (0.00%) 7 (5.93%)
Un poco 0 (.%) 8 (33.3%) 27 (22.9%)
Bastante 0 (.%) 7 (29.2%) 19 (16.1%)
Mucho 0 (.%) 9 (37.5%) 55 (46.6%)
No aplica 0 (.%) 0 (0.00%) 10 (8.47%)
¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: 0.935 0.373
1 (Poco o nada) 0 (.%) 1 (4.17%) 7 (5.93%)
2 0 (.%) 3 (12.5%) 9 (7.63%)
3 0 (.%) 2 (8.33%) 7 (5.93%)
4 0 (.%) 3 (12.5%) 9 (7.63%)
5 0 (.%) 3 (12.5%) 21 (17.8%)
6 0 (.%) 3 (12.5%) 14 (11.9%)
7 0 (.%) 5 (20.8%) 22 (18.6%)
8 0 (.%) 2 (8.33%) 13 (11.0%)
9 0 (.%) 2 (8.33%) 7 (5.93%)
10 (Tanto miedo como nunca he sentido) 0 (.%) 0 (0.00%) 9 (7.63%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: . .
FALSE 0 (.%) 0 (.%) 39 (33.9%)
TRUE 0 (.%) 0 (.%) 76 (66.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): . .
FALSE 0 (.%) 0 (.%) 55 (47.8%)
TRUE 0 (.%) 0 (.%) 60 (52.2%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: . .
FALSE 0 (.%) 0 (.%) 38 (33.0%)
TRUE 0 (.%) 0 (.%) 77 (67.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: . .
FALSE 0 (.%) 0 (.%) 107 (93.0%)
TRUE 0 (.%) 0 (.%) 8 (6.96%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: . .
FALSE 0 (.%) 0 (.%) 23 (20.0%)
TRUE 0 (.%) 0 (.%) 92 (80.0%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: . .
FALSE 0 (.%) 0 (.%) 21 (18.3%)
TRUE 0 (.%) 0 (.%) 94 (81.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: . .
FALSE 0 (.%) 0 (.%) 52 (45.2%)
TRUE 0 (.%) 0 (.%) 63 (54.8%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: . .
FALSE 0 (.%) 0 (.%) 111 (96.5%)
TRUE 0 (.%) 0 (.%) 4 (3.48%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: . .
FALSE 0 (.%) 0 (.%) 51 (44.3%)
TRUE 0 (.%) 0 (.%) 64 (55.7%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: . .
FALSE 0 (.%) 0 (.%) 65 (56.5%)
TRUE 0 (.%) 0 (.%) 50 (43.5%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: . .
FALSE 0 (.%) 0 (.%) 93 (80.9%)
TRUE 0 (.%) 0 (.%) 22 (19.1%)
En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: . .
FALSE 0 (.%) 0 (.%) 109 (94.8%)
TRUE 0 (.%) 0 (.%) 6 (5.22%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes.: . .
Suficiente 0 (.%) 0 (.%) 68 (59.1%)
Insuficiente 0 (.%) 0 (.%) 24 (20.9%)
No Aplica 0 (.%) 0 (.%) 23 (20.0%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector de ojos.: . .
Suficiente 0 (.%) 0 (.%) 49 (42.6%)
Insuficiente 0 (.%) 0 (.%) 39 (33.9%)
No Aplica 0 (.%) 0 (.%) 27 (23.5%)
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.: . .
Suficiente 0 (.%) 0 (.%) 65 (56.5%)
Insuficiente 0 (.%) 0 (.%) 32 (27.8%)
No Aplica 0 (.%) 0 (.%) 18 (15.7%)
En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.: . .
Suficiente 0 (.%) 0 (.%) 19 (16.5%)
Insuficiente 0 (.%) 0 (.%) 14 (12.2%)
No Aplica 0 (.%) 0 (.%) 82 (71.3%)
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.: . .
Suficiente 0 (.%) 0 (.%) 91 (79.1%)
Insuficiente 0 (.%) 0 (.%) 14 (12.2%)
No Aplica 0 (.%) 0 (.%) 10 (8.70%)
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.: . .
Suficiente 0 (.%) 0 (.%) 86 (74.8%)
Insuficiente 0 (.%) 0 (.%) 16 (13.9%)
No Aplica 0 (.%) 0 (.%) 13 (11.3%)
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.: . .
Suficiente 0 (.%) 0 (.%) 28 (24.3%)
Insuficiente 0 (.%) 0 (.%) 50 (43.5%)
No Aplica 0 (.%) 0 (.%) 37 (32.2%)
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.: . .
Suficiente 0 (.%) 0 (.%) 5 (4.35%)
Insuficiente 0 (.%) 0 (.%) 14 (12.2%)
No Aplica 0 (.%) 0 (.%) 96 (83.5%)
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.: . .
Suficiente 0 (.%) 0 (.%) 56 (48.7%)
Insuficiente 0 (.%) 0 (.%) 17 (14.8%)
No Aplica 0 (.%) 0 (.%) 42 (36.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.: . .
Suficiente 0 (.%) 0 (.%) 36 (31.3%)
Insuficiente 0 (.%) 0 (.%) 23 (20.0%)
No Aplica 0 (.%) 0 (.%) 56 (48.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.: . .
Suficiente 0 (.%) 0 (.%) 14 (12.2%)
Insuficiente 0 (.%) 0 (.%) 30 (26.1%)
No Aplica 0 (.%) 0 (.%) 71 (61.7%)
¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: . .
Sí, en el último mes 0 (.%) 0 (.%) 9 (7.83%)
Sí, en los últimos 6 meses 0 (.%) 0 (.%) 52 (45.2%)
Sí, el año pasado 0 (.%) 0 (.%) 14 (12.2%)
Sí, hace 1-2 años 0 (.%) 0 (.%) 1 (0.87%)
Sí, hace 2-5 años 0 (.%) 0 (.%) 3 (2.61%)
Sí, hace más de 5 años 0 (.%) 0 (.%) 2 (1.74%)
No he sido capacitado 0 (.%) 0 (.%) 34 (29.6%)
¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: . .
Excelente 0 (.%) 0 (.%) 11 (13.8%)
Buena 0 (.%) 0 (.%) 34 (42.5%)
Regular 0 (.%) 0 (.%) 32 (40.0%)
Mala 0 (.%) 0 (.%) 3 (3.75%)
¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: . .
Nada 0 (.%) 0 (.%) 5 (5.00%)
Poco 0 (.%) 0 (.%) 10 (10.0%)
Algo 0 (.%) 0 (.%) 25 (25.0%)
Bastante 0 (.%) 0 (.%) 43 (43.0%)
Totalmente 0 (.%) 0 (.%) 9 (9.00%)
No aplica 0 (.%) 0 (.%) 8 (8.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 0 (.%) 0 (.%) 90 (90.0%)
1 0 (.%) 0 (.%) 10 (10.0%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Necesito permiso para utilizar algún EPP específico.: . .
0 0 (.%) 0 (.%) 87 (87.0%)
1 0 (.%) 0 (.%) 13 (13.0%)
¿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 0 (.%) 0 (.%) 93 (93.0%)
1 0 (.%) 0 (.%) 7 (7.00%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar EPP’s utilizados previamente por otros.: . .
0 0 (.%) 0 (.%) 86 (86.0%)
1 0 (.%) 0 (.%) 14 (14.0%)
¿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: . .
FALSE 0 (.%) 0 (.%) 58 (58.0%)
TRUE 0 (.%) 0 (.%) 42 (42.0%)
¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | Otro (especifique).: . .
A excepción de escudos faciales que se les hace aseo después de cada uso 0 (.%) 0 (.%) 1 (20.0%)
Falta área que se encargue de salud 0 (.%) 0 (.%) 1 (20.0%)
si no trabajan no pagan 0 (.%) 0 (.%) 1 (20.0%)
Uso de 2 a 3 mascarillas diarias en turno de 12 hrs 0 (.%) 0 (.%) 1 (20.0%)
uso racional de EPP 0 (.%) 0 (.%) 1 (20.0%)
¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: . .
Nada 0 (.%) 0 (.%) 3 (3.00%)
Poco 0 (.%) 0 (.%) 9 (9.00%)
Algo 0 (.%) 0 (.%) 31 (31.0%)
Bastante 0 (.%) 0 (.%) 40 (40.0%)
Totalmente 0 (.%) 0 (.%) 12 (12.0%)
No aplica 0 (.%) 0 (.%) 5 (5.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:: . .
Negarme a trabajar no es una opción legalmente disponible para mí 0 (.%) 0 (.%) 10 (10.0%)
Definitivamente, no es posible negarme a trabajar 0 (.%) 0 (.%) 13 (13.0%)
Es improbable que pueda negarme a trabajar 0 (.%) 0 (.%) 10 (10.0%)
Quizás, en una situación extrema podría negarme a trabajar 0 (.%) 0 (.%) 19 (19.0%)
Probablemente, podría negarme a trabajar si considero que el riesgo es significativo 0 (.%) 0 (.%) 30 (30.0%)
Definitivamente, no dudaría en negarme a trabajar 0 (.%) 0 (.%) 18 (18.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 15 (21.1%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 20 (28.2%)
Deficientes 0 (.%) 0 (.%) 15 (21.1%)
No sabe 0 (.%) 0 (.%) 4 (5.63%)
No aplica 0 (.%) 0 (.%) 17 (23.9%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 32 (45.1%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 10 (14.1%)
Deficientes 0 (.%) 0 (.%) 3 (4.23%)
No sabe 0 (.%) 0 (.%) 6 (8.45%)
No aplica 0 (.%) 0 (.%) 20 (28.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 31 (43.7%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 9 (12.7%)
Inapropiadas 0 (.%) 0 (.%) 2 (2.82%)
Deficientes 0 (.%) 0 (.%) 2 (2.82%)
No sabe 0 (.%) 0 (.%) 6 (8.45%)
No aplica 0 (.%) 0 (.%) 21 (29.6%)
¿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.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 22 (31.0%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 16 (22.5%)
Inapropiadas 0 (.%) 0 (.%) 5 (7.04%)
No sabe 0 (.%) 0 (.%) 10 (14.1%)
No aplica 0 (.%) 0 (.%) 18 (25.4%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 15 (21.1%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 6 (8.45%)
Inapropiadas 0 (.%) 0 (.%) 8 (11.3%)
Deficientes 0 (.%) 0 (.%) 11 (15.5%)
No sabe 0 (.%) 0 (.%) 11 (15.5%)
No aplica 0 (.%) 0 (.%) 20 (28.2%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 21 (29.6%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 7 (9.86%)
Inapropiadas 0 (.%) 0 (.%) 7 (9.86%)
Deficientes 0 (.%) 0 (.%) 8 (11.3%)
No sabe 0 (.%) 0 (.%) 7 (9.86%)
No aplica 0 (.%) 0 (.%) 21 (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.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 14 (19.7%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 4 (5.63%)
Inapropiadas 0 (.%) 0 (.%) 12 (16.9%)
Deficientes 0 (.%) 0 (.%) 18 (25.4%)
No sabe 0 (.%) 0 (.%) 7 (9.86%)
No aplica 0 (.%) 0 (.%) 16 (22.5%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 15 (21.1%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 7 (9.86%)
Inapropiadas 0 (.%) 0 (.%) 5 (7.04%)
Deficientes 0 (.%) 0 (.%) 9 (12.7%)
No sabe 0 (.%) 0 (.%) 13 (18.3%)
No aplica 0 (.%) 0 (.%) 22 (31.0%)
¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.: . .
Apropiadas y bien implementadas 0 (.%) 0 (.%) 24 (33.8%)
Apropiadas pero mal implementadas 0 (.%) 0 (.%) 4 (5.63%)
Inapropiadas 0 (.%) 0 (.%) 6 (8.45%)
Deficientes 0 (.%) 0 (.%) 4 (5.63%)
No sabe 0 (.%) 0 (.%) 15 (21.1%)
No aplica 0 (.%) 0 (.%) 18 (25.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.: . .
Totalmente de acuerdo 0 (.%) 0 (.%) 11 (28.9%)
De acuerdo 0 (.%) 0 (.%) 8 (21.1%)
Ni de acuerdo ni en desacuerdo 0 (.%) 0 (.%) 15 (39.5%)
En desacuerdo 0 (.%) 0 (.%) 4 (10.5%)
En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Empleador.: . .
Totalmente de acuerdo 0 (.%) 0 (.%) 6 (15.8%)
De acuerdo 0 (.%) 0 (.%) 14 (36.8%)
Ni de acuerdo ni en desacuerdo 0 (.%) 0 (.%) 11 (28.9%)
En desacuerdo 0 (.%) 0 (.%) 6 (15.8%)
Totalmente en desacuerdo 0 (.%) 0 (.%) 1 (2.63%)
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.: . .
Totalmente de acuerdo 0 (.%) 0 (.%) 5 (13.2%)
De acuerdo 0 (.%) 0 (.%) 7 (18.4%)
Ni de acuerdo ni en desacuerdo 0 (.%) 0 (.%) 7 (18.4%)
En desacuerdo 0 (.%) 0 (.%) 11 (28.9%)
Totalmente en desacuerdo 0 (.%) 0 (.%) 8 (21.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.: . .
Totalmente de acuerdo 0 (.%) 0 (.%) 4 (10.5%)
De acuerdo 0 (.%) 0 (.%) 8 (21.1%)
Ni de acuerdo ni en desacuerdo 0 (.%) 0 (.%) 17 (44.7%)
En desacuerdo 0 (.%) 0 (.%) 7 (18.4%)
Totalmente en desacuerdo 0 (.%) 0 (.%) 2 (5.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?: . .
Mantengo las mismas labores 0 (.%) 0 (.%) 17 (89.5%)
Labores, área y lugar físico distintos 0 (.%) 0 (.%) 2 (10.5%)
¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: . .
Buena 0 (.%) 0 (.%) 1 (14.3%)
Regular 0 (.%) 0 (.%) 4 (57.1%)
Mala 0 (.%) 0 (.%) 2 (28.6%)
¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.: . .
Totalmente de acuerdo 0 (.%) 0 (.%) 1 (14.3%)
De acuerdo 0 (.%) 0 (.%) 2 (28.6%)
Neutral 0 (.%) 0 (.%) 2 (28.6%)
En desacuerdo 0 (.%) 0 (.%) 2 (28.6%)
En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: . .
Siempre 0 (.%) 0 (.%) 2 (28.6%)
Algunas veces 0 (.%) 0 (.%) 3 (42.9%)
Sólo unas <br>pocas veces 0 (.%) 0 (.%) 2 (28.6%)
En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: . .
Siempre 0 (.%) 0 (.%) 2 (28.6%)
La mayoría <br>de las veces 0 (.%) 0 (.%) 2 (28.6%)
Algunas veces 0 (.%) 0 (.%) 2 (28.6%)
Sólo unas <br>pocas veces 0 (.%) 0 (.%) 1 (14.3%)
En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: . .
La mayoría <br>de las veces 0 (.%) 0 (.%) 4 (57.1%)
Algunas veces 0 (.%) 0 (.%) 2 (28.6%)
Nunca 0 (.%) 0 (.%) 1 (14.3%)
En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: . .
La mayoría <br>de las veces 0 (.%) 0 (.%) 1 (14.3%)
Algunas veces 0 (.%) 0 (.%) 1 (14.3%)
Sólo unas <br>pocas veces 0 (.%) 0 (.%) 2 (28.6%)
Nunca 0 (.%) 0 (.%) 3 (42.9%)
En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: . .
La mayoría <br>de las veces 0 (.%) 0 (.%) 3 (42.9%)
Algunas veces 0 (.%) 0 (.%) 2 (28.6%)
Sólo unas <br>pocas veces 0 (.%) 0 (.%) 1 (14.3%)
Nunca 0 (.%) 0 (.%) 1 (14.3%)
En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: . .
Siempre 0 (.%) 0 (.%) 2 (28.6%)
La mayoría <br>de las veces 0 (.%) 0 (.%) 2 (28.6%)
Algunas veces 0 (.%) 0 (.%) 1 (14.3%)
Sólo unas <br>pocas veces 0 (.%) 0 (.%) 2 (28.6%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: . .
Siempre 0 (.%) 0 (.%) 3 (42.9%)
La mayoría <br>de las veces 0 (.%) 0 (.%) 1 (14.3%)
Sólo unas <br>pocas veces 0 (.%) 0 (.%) 2 (28.6%)
Nunca 0 (.%) 0 (.%) 1 (14.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: . .
Siempre 0 (.%) 0 (.%) 2 (28.6%)
La mayoría <br>de las veces 0 (.%) 0 (.%) 3 (42.9%)
Algunas veces 0 (.%) 0 (.%) 1 (14.3%)
Sólo unas <br>pocas veces 0 (.%) 0 (.%) 1 (14.3%)
En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: . .
Siempre 0 (.%) 0 (.%) 3 (42.9%)
La mayoría <br>de las veces 0 (.%) 0 (.%) 3 (42.9%)
Nunca 0 (.%) 0 (.%) 1 (14.3%)
En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: . .
Siempre 0 (.%) 0 (.%) 5 (71.4%)
Sólo unas <br>pocas veces 0 (.%) 0 (.%) 1 (14.3%)
Nunca 0 (.%) 0 (.%) 1 (14.3%)
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.: . .
Más bien cierto 0 (.%) 0 (.%) 2 (50.0%)
Cierto 0 (.%) 0 (.%) 2 (50.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.: . .
Más bien cierto 0 (.%) 0 (.%) 3 (75.0%)
Cierto 0 (.%) 0 (.%) 1 (25.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.: . .
Más bien cierto 0 (.%) 0 (.%) 3 (75.0%)
Cierto 0 (.%) 0 (.%) 1 (25.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
ggsurvplot_fit_abandono_temprano_rec<-
  ggsurvplot(survfit(Surv(surv, resp_status=="partial") ~estres_postraumatico, 
                     data=surveymonkey_accionsalududp_df2_cor_table),#,
                                    #type ="fleming-harrington", conf.type = "log-log"),              
            # data = surveymonkey_accionsalududp_df2_cor_table,
           fun = "cumhaz",
           conf.int = TRUE,
           legend.labs = c("Ausencia", "Presencia"), 
           risk.table = "abs_pct",
           #ncensor.plot = TRUE,
           ggtheme = theme_classic2(base_size=10),
           risk.table.y.text.col = F,
           risk.table.col="black",
           font.tickslab = c(10),
           risk.table.height = .2,
           risk.table.fontsize = 2.5,
           pval = T,
           ylim=c(0,4),
           legend = c(0.88, 0.15), 
           pval.coord = c(0.03,.8),
           ylab="Riesgo acumulativo",
           legend.title="Estrés Postraumático",
           xlab= "Preguntas respondidas", 
           #cumevents=T,
           surv.connect = T,
           censor= F,
           xscale=  "d_y",
           palette = c("skyblue4","orangered4"))
ggsurvplot_fit_abandono_temprano_rec
Figura 7a. Gráfico de Supervivencia, ítems respondidos según Estrés Postraumático (4to cuartil)

Figura 7a. Gráfico de Supervivencia, ítems respondidos según Estrés Postraumático (4to cuartil)

ggsurvplot_fit_requiere_atencion<-
  ggsurvplot(survfit(Surv(surv, resp_status=="partial") ~requiere_atencion, 
                     data=surveymonkey_accionsalududp_df2_cor_table),#,
                                    #type ="fleming-harrington", conf.type = "log-log"),              
            # data = surveymonkey_accionsalududp_df2_cor_table,
           fun = "cumhaz",
           conf.int = TRUE,
           legend.labs = c("Ausencia", "Presencia"), 
           risk.table = "abs_pct",
           #ncensor.plot = TRUE,
           ggtheme = theme_classic2(base_size=10),
           risk.table.y.text.col = F,
           risk.table.col="black",
           font.tickslab = c(10),
           risk.table.height = .2,
           risk.table.fontsize = 2.5,
           pval = T,
           ylim=c(0,4),
           legend = c(0.88, 0.15), 
           pval.coord = c(0.05,2.8),
           ylab="Riesgo acumulativo",
           legend.title="Requiere Atención",
           xlab= "Preguntas respondidas", 
           #cumevents=T,
           surv.connect = T,
           censor= F,
           xscale=  "d_y",
           palette = c("skyblue4","orangered4"))
ggsurvplot_fit_requiere_atencion
Figura 7a. Gráfico de Supervivencia, ítems respondidos según condición de Requerir Atención (>48 ptos. preguntas salud mental)

Figura 7a. Gráfico de Supervivencia, ítems respondidos según condición de Requerir Atención (>48 ptos. preguntas salud mental)

ggsurvplot_fit_abandono_temprano_rec2<-
  ggsurvplot(survfit(Surv(surv, resp_status=="partial") ~subdir_otr_rec_inclusivo, 
                     data=surveymonkey_accionsalududp_df2_cor_table),#,
           fun = "cumhaz",
           conf.int = TRUE,
           legend.labs = c("Staff", "Clínica"), 
           risk.table = "abs_pct",
           #ncensor.plot = TRUE,
           ggtheme = theme_classic2(base_size=10),
           risk.table.y.text.col = F,
           risk.table.col="black",
           font.tickslab = c(10),
           risk.table.height = .2,
           risk.table.fontsize = 2.5,
           pval = T,
           ylim=c(0,4),
           legend = c(0.88, 0.15), 
           pval.coord = c(0.03,.8),
           ylab="Riesgo acumulativo",
           legend.title="Subdirección",
           xlab= "Preguntas respondidas", 
           #cumevents=T,
           surv.connect = T,
           censor= F,
           xscale=  "d_y",
           palette = c("skyblue4","orangered4"))
ggsurvplot_fit_abandono_temprano_rec2
Figura 7c. Gráfico de Supervivencia, ítems respondidos según Lugar de Trabajo

Figura 7c. Gráfico de Supervivencia, ítems respondidos según Lugar de Trabajo

ggsurvplot_fit_abandono_temprano_rec3<-
  ggsurvplot(survfit(Surv(surv, resp_status=="partial") ~estres_postraumatico+subdir_otr_rec_inclusivo, 
                     data=surveymonkey_accionsalududp_df2_cor_table),#,
                                    #type ="fleming-harrington", conf.type = "log-log"),              
            # data = surveymonkey_accionsalududp_df2_cor_table,
           fun = "cumhaz",
           conf.int = TRUE,
           legend.labs = c("Ausencia Estrés & Staff","Ausencia Estrés & Clínica", #"Presencia Estrés & Otros",
                            "Presencia Estrés & Staff",  "Presencia Estrés & Clínica"), 
           risk.table = "abs_pct",
           #ncensor.plot = TRUE,
           ggtheme = theme_classic2(base_size=10),
           risk.table.y.text.col = F,
           risk.table.col="black",
           font.tickslab = c(10),
           risk.table.height = .2,
           risk.table.fontsize = 2.5,
           pval = T,
           ylim=c(0,4),
           legend = c(0.3,0.7), 
           pval.coord = c(0.03,.8),
           ylab="Riesgo acumulativo",
           legend.title="Estrés & Subdirección",
           xlab= "Preguntas respondidas", 
           #cumevents=T,
           surv.connect = T,
           censor= F,
           xscale=  "d_y",
           palette = c("skyblue4","orangered4", "green","yellow"))#,"black"
ggsurvplot_fit_abandono_temprano_rec3
Figura 7d. Gráfico de Supervivencia, ítems respondidos según Estrés Postraumático (4to cuartil) & Subdirección

Figura 7d. Gráfico de Supervivencia, ítems respondidos según Estrés Postraumático (4to cuartil) & Subdirección


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 8a. 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("Plots_general/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_table %>% 
 # 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))
## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA
## Warning in mask$eval_all_mutate(quo): NAs introducidos por coerción
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)
## Warning: Removed 26 rows containing missing values (position_stack).

Figura 8b. 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 8c. 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 8d. Sintomatología Ansiosa y Depresiva

ans_sex<-
surveymonkey_accionsalududp_df2_cor_table %>%
    dplyr::group_by(tamizaje_ans,p45_demo_sexo)%>%
    dplyr::summarise(n=n()) %>% 
    dplyr::ungroup() %>% 
    dplyr::filter(!is.na(tamizaje_ans),!is.na(p45_demo_sexo)) %>% 
    dplyr::group_by(p45_demo_sexo) %>% 
    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")

dep_sex<-
surveymonkey_accionsalududp_df2_cor_table %>%
    dplyr::group_by(tamizaje_dep,p45_demo_sexo)%>%
    dplyr::summarise(n=n()) %>% 
    dplyr::ungroup() %>% 
    dplyr::filter(!is.na(tamizaje_dep),!is.na(p45_demo_sexo)) %>% 
    dplyr::group_by(p45_demo_sexo) %>% 
    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")

rbind(dep_sex,ans_sex) %>% 
  dplyr::mutate(percent_lab=scales::percent(percent)) %>% 
  dplyr::filter(label!="") %>% 
  dplyr::mutate(var=ifelse(grepl("dep",var),"Sintomatología\nDepresiva","Sintomatología\nAnsiosa")) %>% 
ggplot(aes(y=percent, x=var, fill=p45_demo_sexo))+
  geom_bar(stat="identity", position=position_dodge())+
  geom_text(aes(label=percent_lab), position=position_dodge(width=1.), vjust = -1.5, size = 5) +
  theme_sjplot() +
  scale_y_continuous(limits=c(0,1),labels=scales::percent)+
  theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())+
   theme(axis.text.x =element_text(size=16),
          axis.text.y =element_text(size=16),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_text(size=15),
        legend.text = element_text(size=15))+
  scale_fill_manual("Sexo",values=c("grey55", "grey30"),labels=c("Hombre","Mujer"))
Figura 8e. Sintomatología Ansiosa y Depresiva, por Sexo

Figura 8e. Sintomatología Ansiosa y Depresiva, por Sexo

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


 ocdMelt1 <- 
   surveymonkey_accionsalududp_df2_cor_table[c("p45_demo_sexo", "agotamiento_estres_irritabilidad_ptje", "estres_postraumatico_ptje")] %>% 
   tidyr::pivot_longer(!p45_demo_sexo, names_to = "variable", values_to = "value") %>% 
   dplyr::filter(!is.na(p45_demo_sexo),!is.na(value)) %>% 
   dplyr::mutate(variable= dplyr::case_when(as.character(variable)=="agotamiento_estres_irritabilidad_ptje"~"Suma de Puntajes Brutos, Preguntas sobre Agotamiento, Estrés e Irritabilidad",as.character(variable)=="estres_postraumatico_ptje"~"Suma de Puntajes Brutos, Preguntas sobre Estrés Postraumático"))%>%
    dplyr::mutate(variable= as.factor(variable))

IQR_agot_est_postr <- 
 ocdMelt1 %>% 
    dplyr::group_by(p45_demo_sexo) %>% 
    dplyr::summarise(med_val_agot=median(value[grepl("Agotamiento",variable)],na.rm=T),
                     p25_agot=quantile(value[grepl("Agotamiento",variable)], .25,na.rm=T),
                     p75_agot=quantile(value[grepl("Agotamiento",variable)], .75, na.rm=T),
                     med_val_postr=median(value[grepl("Postraumático",variable)],na.rm=T),
                     p25_postr=quantile(value[grepl("Postraumático",variable)], .25,na.rm=T),
                     p75_postr=quantile(value[grepl("Postraumático",variable)], .75, na.rm=T)) %>% 
    dplyr::mutate(pres_postr=paste0(med_val_postr, "(",p25_postr,"-",p75_postr,")"),
                  pres_agot=paste0(med_val_agot, "(",p25_agot,"-",p75_agot,")")
                             ) %>% 
  tidyr::pivot_longer(c("pres_postr", "pres_agot"), names_to = "variable", values_to = "iqr") %>% 
  dplyr::mutate(variable=dplyr::case_when(grepl("postr",variable)~
                  "Suma de Puntajes Brutos, Preguntas sobre Estrés Postraumático",
                    grepl("agot",variable)~"Suma de Puntajes Brutos, Preguntas sobre Agotamiento, Estrés e Irritabilidad"))

# plot
agotamiento_plot_sex <-
  ggplot(ocdMelt1 %>% dplyr::filter(grepl("Agotamiento",variable)), aes(variable, value, fill = p45_demo_sexo)) + 
  #geom_jitter(alpha=0.05) +
  geom_boxplot() + 
  labs(x='Variables', y='Puntajes', color='Denominación') + 
  scale_y_continuous(breaks=seq(0,1000, by=100))+  
  sjPlot::theme_sjplot2() + 
  scale_fill_manual(name="Sexo",values=c("grey55", "grey30"),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())+
   theme(axis.text.x =element_text(size=15),
          axis.text.y =element_text(size=14),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_text(size=16),
        legend.text = element_text(size=16))+
    geom_text(data = IQR_agot_est_postr%>% dplyr::filter(grepl("Agotamiento",variable)),
              aes(x=variable, y=p75_agot+100),
                label = IQR_agot_est_postr$iqr[which(grepl("Agotamiento",IQR_agot_est_postr$variable))],
              position=position_dodge(width=1), size=6) 

postraumatico_plot_sex <-
 ggplot(ocdMelt1 %>% dplyr::filter(grepl("Postraumático",variable)), aes(variable, value, fill = p45_demo_sexo)) + 
  #geom_jitter(alpha=0.05) +
  geom_boxplot() + 
  labs(x='Variables', y='Puntajes', color='Denominación') + 
  scale_y_continuous(breaks=seq(0,20, by=2))+  
  sjPlot::theme_sjplot2() + 
  scale_fill_manual(name="Sexo",values=c("grey55", "grey30"),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())+
   theme(axis.text.x =element_text(size=15),
          axis.text.y =element_text(size=14),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_text(size=16),
        legend.text = element_text(size=16))+
    geom_text(data = IQR_agot_est_postr%>% dplyr::filter(grepl("Postraumático",variable)),
              aes(x=variable, y=p75_postr+6),
                label = IQR_agot_est_postr$iqr[which(grepl("Postr",IQR_agot_est_postr$variable))],
              position=position_dodge(width=1), size=6) 


ggarrange(postraumatico_plot_sex, agotamiento_plot_sex, ncol=1, nrow=2, common.legend = TRUE, legend="bottom")
Figura 8(f) Diarama de Cajas Preguntas Continuas (Texto Mediana e IQR)

Figura 8(f) Diarama de Cajas Preguntas Continuas (Texto Mediana e IQR)


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", 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),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        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)+25)+
   theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())
 # theme_set(theme_blank(base_size = 18)) 

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

p_9_10_plot
Figura 11. ¿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?

Figura 11. ¿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_general/_Fig1a_p9_10.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_table %>%
  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 12. ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?

p8_df<-
surveymonkey_accionsalududp_df2_cor_table %>%
  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,max(p8_df$num_perc,na.rm=T)+10)+
  ylab("Porcentaje de Respuesta")+
 # 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.text.y =element_text(size=14),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))+
     theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())

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

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

  jpeg("Plots_general/_Fig1a_p8.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 13a. ¿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,max(ptjes_p9$num_perc,na.rm=T)+15)+
  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=15),
          axis.text.y =element_text(size=14),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))+
     theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())

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

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

  jpeg("Plots_general/_Fig1a_ptjes_9.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
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_blank(),
        axis.title.y =  element_blank(),
        legend.title = element_text(size=13),
        legend.text = element_text(size=11))+
  theme(
  panel.grid.minor = element_blank(), 
  panel.grid.major = element_blank(),
  panel.grid.major.x = element_blank(),
  panel.background = element_blank(),
  line = element_blank())


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

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

  jpeg("Plots_general/_Fig1b_p10.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::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.3,
      textposition = 'outside',
      textinfo = 'text',
      text = ~label, 
      automargin = TRUE,
      sort = FALSE,
      direction = "clockwise",
      textfont =list(size = 19),
      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 17a. 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",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
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 Necesario e  Insuficiente)

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 Necesario e Insuficiente)

  jpeg("Plots_general/_Fig1b_p12_13.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p12_13_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()
## png 
##   2
  #</div> , height = 600, width=800
#, results='asis'  fig.width = 7, fig.height=10,
# StatStratum <- StatStratum
library(ggalluvial)

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

#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 17c. 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 17d. Necesidad vs. Disponibilidad de Elementos de Protección Personal

library(plotly)

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.text.y=element_text(size=15),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title =element_blank(),
        legend.text = element_text(size=11))+
       theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())



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

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

  jpeg("Plots_general/_Fig1a_p16.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 20a.¿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)

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

surveymonkey_accionsalududp_df2_cor  %>%
      dplyr::mutate(p17_contr_cont_restr_epp_1=dplyr::case_when(grepl("TRUE",as.character(p17_contr_cont_restr_epp_1))~"Ha ocurrido",grepl("FALSE",as.character(p17_contr_cont_restr_epp_1))~"No ha ocurrido",TRUE~NA_character_))%>%
     dplyr::group_by(p17_contr_cont_restr_epp_1)%>%
     # 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(p17_contr_cont_restr_epp_1=stringr::str_replace(p17_contr_cont_restr_epp_1,"\\<br\\>$","")) %>% 
    dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p17_contr_cont_restr_epp_1)])),2),
                  valid_percent=ifelse(is.na(p17_contr_cont_restr_epp_1),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(p17_contr_cont_restr_epp_1,"<br>(",valid_percent,")")) %>% 

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

Figura 20b.¿Su empleador se ha rehusado a dar cierto tipo de EPP?

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 20c.¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (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_especial2<-
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_plot2<-
ggplot(p17_df_especial2, 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,max(p17_df_especial$num_perc,na.rm=T)+15)+
  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.text.y=element_text(size=15),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_blank(),
        legend.text = element_text(size=11))+
       theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())

p17_df_especial_plot2
Figura 20c.¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP's? (nro. respuestas)

Figura 20c.¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (nro. respuestas)

  jpeg("Plots_general/_Fig1b_p17.jpg", height = 7, width = 11.5, units = 'in', res = 600)
  p17_df_especial_plot2+ theme(plot.background = element_rect(fill=NA, color = NA))
  dev.off()
## png 
##   2
library(plotly)

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.text.y=element_text(size=14),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_blank(),
        legend.text = element_text(size=11))+
       theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())

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

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

  jpeg("Plots_general/_Fig1c_p18.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)

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,max(p19_df$num_perc,na.rm=T)+15)+
  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.text.y=element_text(size=15),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title =element_blank(),
        legend.text = element_text(size=11))+
       theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())


p19_plot_print<-
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 = 5) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,max(p19_df$num_perc,na.rm=T)+15)+
  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=10),
          axis.text.y=element_text(size=10.5),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title =element_blank(),
        legend.text = element_text(size=11))+
       theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())


p19_plot_print
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:

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_general/_Fig1d_p19.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 23a. ¿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
# ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.
#Levels: Apropiadas y bien implementadas < Apropiadas pero mal implementadas < Inapropiadas < Deficientes < No sabe < No aplica
med_prev_bars<-
surveymonkey_accionsalududp_df2_cor_table %>% 
  dplyr::mutate_at(.vars=vars(paste0("p20_contr_cont_med_pev_",1:9,"_p20_rec")),.funs = ~as.numeric(.)) %>% 
  dplyr::select(paste0("p20_contr_cont_med_pev_",1:9,"_p20_rec")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::mutate(key=
  dplyr::case_when(key=="p20_contr_cont_med_pev_1_p20_rec"~"Evaluación pacientes en\nla entrada al recinto de salud",
                   key=="p20_contr_cont_med_pev_2_p20_rec"~"Uso obligatorio de mascarillas\nen pacientes sintomáticos",
                   key=="p20_contr_cont_med_pev_3_p20_rec"~"Aislación de pacientes\ncon síntomas respiratorios",
                   key=="p20_contr_cont_med_pev_4_p20_rec"~"Restricción del acceso\ny flujo de pacientes con COVID\nen el recinto de salud",
                   key=="p20_contr_cont_med_pev_5_p20_rec"~"Funcionamiento de\nsistemas de ventilación",
                   key=="p20_contr_cont_med_pev_6_p20_rec"~"Habilitación de salas de\naislamiento de infecciones aéreas",
                   key=="p20_contr_cont_med_pev_7_p20_rec"~"Habilitación de camarín o\nespacios de higiene del personal",
                   key=="p20_contr_cont_med_pev_8_p20_rec"~"Mecanismos de limpieza de\nropa e indumentarial",
                   key=="p20_contr_cont_med_pev_9_p20_rec"~"Procesos de eliminación\nde residuos"
                   )) %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n(),
                val=ordered(val,levels=c("1","2"), labels=c("Apropiadas/No sabe/No aplica","Inapropiadas/Deficientes"))) %>% 
  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::filter(!is.na(val)) %>% 
  dplyr::mutate(num_perc=readr::parse_number(valid_perc, "\\d+")) 
## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA

## Warning in max(label, na.rm = T): no non-missing arguments, returning NA
## Warning in mask$eval_all_mutate(quo): NAs introducidos por coerción
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=key,y=num_perc,fill=val,label= valid_perc))+
    geom_col() +
    scale_fill_manual(name="Categoría", values=c("gray70","gray35"))+
  sjPlot::theme_sjplot2()+
      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),#position_dodge(width = .5), #,#"identity",
              size = 8,
            colour = "white", fontface = "bold")+
            #direction = "y",
            #force=1,
            #seed=123,
            #)+
  coord_flip()+
  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))+
  theme(legend.position = "bottom",
        axis.title.y = element_blank(),
        axis.title.x = element_blank(),
        plot.caption=element_text(hjust = 0),
        axis.text.x=element_text(size=15),
        axis.text.y=element_text(size=15),
        legend.title =element_blank(),
        legend.text = element_text(size=15))

med_prev_bars_plot
Figura 23b. ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? (Recodificado)

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

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


2.3.4 Cuarta Sección - Preguntas sobre el lugar 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 951 rows containing non-finite values (stat_boxplot).

Figura 24. Diagrama de Cajas Preguntas Continuas


#```{r ent_protegen, eval=T}
library(ggrepel)
ent_proteg_pers_bars<-
surveymonkey_accionsalududp_df2_cor %>% 
  dplyr::mutate_at(.vars=vars(starts_with("p26_cond_trab_ent_protec_")),.funs = ~if_else(as.numeric(.)>=3,1,0,NA_real_)) %>% 
  dplyr::select(starts_with("p26_cond_trab_ent_protec_")) %>% 
  tidyr::gather(key = "key", value = "val") %>% 
  dplyr::group_by(key,val) %>% 
  dplyr::mutate(sum=n()) %>% 
  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)=="0"~'Totalmente de acuerdo(1)-De acuerdo(2)',
                                         as.character(val)=="1"~'Ni de acuerdo ni en desacuerdo(3) a Totalmente en desacuerdo(5)',
                                         is.na(val)~"No responde",
                                         TRUE~as.character(val)
                                         ))%>% 
  dplyr::filter(!is.na(val),!is.na(V2))
  
#dplyr::summarise(median=median(val,na.rm=T), p25=quantile(val,.25,na.rm=T), p75=quantile(val,.75,na.rm=T)) %>% 
ent_proteg_pers_bars_plots <-
ggplot(ent_proteg_pers_bars ,aes(x=label,y=sum,fill=factor(val), label= valid_perc))+
    geom_col() +
    scale_fill_manual(name="Respuesta",values=c("gray30","gray70"),labels=c("Acuerdo", "Neutral o en Desacuerdo"))+
  sjPlot::theme_sjplot2()+
  labs(x="Instituciones están haciendo todo lo posible para proteger al personal",y="Porcentaje de Respuestas")+
  #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 = 8, face = "bold"),
        axis.text.y = element_blank(),
        plot.caption=element_text(hjust = 0))+
        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")+
     theme(legend.position = "bottom",
           axis.title.y = element_blank(),
           axis.title.x = element_blank(),
           plot.caption=element_text(hjust = 0),
           axis.text.x=element_text(size=15),
           legend.title =element_blank(),
           legend.text = element_text(size=15))+
         theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())



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


2.3.5 Quinta Sección - Preguntas sobre el entorno psicosocial del trabajo

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 25b. 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?

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 =15), "\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,max(p36_df$num_perc,na.rm=T)+15)+
  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=15),
          axis.text.y=element_text(size=15),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_blank(),
        legend.text = element_text(size=11))+
       theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())

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?

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_general/_Fig1e_p36.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)
# fig.width = 7, fig.height=10, 
#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 = 6) +
  theme_sjplot() +
  guides(fill=guide_legend(nrow=2,byrow=TRUE))+
  ylim(0,max(p38_df$num_perc,na.rm=T)+15)+
  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=16.5),
          axis.text.y=element_text(size=15),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_blank(),
        legend.text = element_text(size=11))+
       theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())


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?

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_general/_Fig1f_p38.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)
#fig.width = 7, fig.height=10, 
#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 = 6) +
  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=16),
          axis.text.y=element_text(size=15),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.title = element_blank(),
        legend.text = element_text(size=11))+
       theme(
    panel.grid.minor = element_blank(), 
    panel.grid.major = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.background = element_blank(),
    line = element_blank())

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

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_general/_Fig1g_p39.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


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(b). 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(b). Gráfico de Barras, Preguntas Sobre Condiciones Psicosociales del Trabajo (Dicotomizada)

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

  jpeg("Plots_general/_Fig1g_p40.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
library(ggrepel)

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)) %>% 
  dplyr::mutate(valid_perc_num=readr::parse_number(valid_perc, "\\d+"))

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 30b. Gráfico de Barras, Preguntas Sobre Resiliencia

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



3 Compilación

3.1 Descarga para exportación

#hetcor_matp42 hetcor_matp40
#dim_resi_p42_original dim_suseso_p40_original

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_sel_2<-
  surveymonkey_accionsalududp_df2_cor_table %>% 
  dplyr::mutate(comp_hosp=if_else(inst=="Hospital San Vicente de Arauco",1,0,0))%>% 
  dplyr::mutate_at(.vars=vars(paste0("p20_contr_cont_med_pev_",1:9)),.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")))) %>% 
  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::ungroup() %>% 
  dplyr::mutate(rn=row_number()) %>% 
  dplyr::select(-c("resp_id","date_created","date_mod","ip","duration","email","primer_nombre", "ultimo_nombre","collector_id","collector_type","custom_value","correo_final")) %>% 
  janitor::clean_names()


for (i in 1:length(surveymonkey_accionsalududp_df2_cor_table)){
    x<-names(surveymonkey_accionsalududp_df2_cor_table)[i]
    attr(surveymonkey_accionsalududp_df2_cor_sel_2[[x]],"label")<- attr(surveymonkey_accionsalududp_df2_cor_table[[x]],"label")
}
## Error in attr(surveymonkey_accionsalududp_df2_cor_sel_2[[x]], "label") <- attr(surveymonkey_accionsalududp_df2_cor_table[[x]], : se intenta especificar un atributo en un NULL
attr(surveymonkey_accionsalududp_df2_cor_sel_2$comp_hosp,"label")<-'Comparativo con un Hospital de Referencia (Para Análisis)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$rn,"label")<-'Número de Fila'

attr(surveymonkey_accionsalududp_df2_cor_sel_2$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_sel_2$estres_postraumatico_q75,"label")<-'Cuartil de Mayor Puntaje en Estrés Postraumático (Referencia de Aplicación General)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_1_simpler,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (sin No sabe y No aplica)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_2_simpler,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (sin No sabe y No aplica)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_3_simpler,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (sin No sabe y No aplica)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_4_simpler,"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 (sin No sabe y No aplica)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_5_simpler,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (sin No sabe y No aplica)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_6_simpler,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (sin No sabe y No aplica)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_7_simpler,"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 (sin No sabe y No aplica)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_8_simpler,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (sin No sabe y No aplica)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$p20_contr_cont_med_pev_9_simpler,"label")<-'¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (sin No sabe y No aplica)'


var_labels_df<-data.frame()
for (i in 1:length(surveymonkey_accionsalududp_df2_cor_sel_2)){
  x<-names(surveymonkey_accionsalududp_df2_cor_sel_2)[i]
var_labels_df<-rbind.data.frame(var_labels_df, cbind(x, attr(surveymonkey_accionsalududp_df2_cor_sel_2[[x]],"label")))
}
## Error in rbind.data.frame(var_labels_df, cbind(x, attr(surveymonkey_accionsalududp_df2_cor_sel_2[[x]], : numbers of columns of arguments do not match
codebook::var_label(surveymonkey_accionsalududp_df2_cor_sel_2) <-
var_labels_df%>% 
  codebook::dict_to_list()

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

write_csv2(surveymonkey_accionsalududp_df2_cor_sel_2, paste0(
  getwd(),"/___historial_data_exp/",input2,"_",sub("-","_",sub("-","_",substr(Sys.time(),1,10))),"_bd_accionsalud_ins.csv"),
           na="")

save.image("__accion_salud_exp_post_crash.RData")
rpivotTable(data = surveymonkey_accionsalududp_df2_cor_sel_2 %>% dplyr::select(-correo_final_comp), rows="requiere_atencion",cols = c("p45_demo_sexo","sit_contractual"), vals = "Cuenta", aggregatorName = "Cuenta",rendererName = "Table", locale="es")




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

load("__accion_salud_exp_post_crash.RData")

ExPanDaR::ExPanD(df= surveymonkey_accionsalududp_df2_cor_sel_2 %>% dplyr::select(-correo_final_comp), cs_id = "rn",title = "Datos Encuesta Acción Salud UDP")
#options(rsconnect.http.trace = TRUE)
#options(rsconnect.http.verbose = TRUE)
#options(rsconnect.launch.browser = FALSE)
#getOption("rsconnect.max.bundle.size")
options(shiny.error = browser)

## Including Plots
#plot(pressure)

3.2 Libro de Códigos

El libro de códigos puede encontrarse aquí, y el resto de material exploratorio puede encontrarse aquí.

3.3 Información de la Sesión

Sys.getenv("R_LIBS_USER")
## [1] "C:/Users/andre/Google Drive/AccionSaludUDP_win/renv/library/R-4.0/x86_64-w64-mingw32;C:/Users/andre/AppData/Local/Temp/Rtmp4yXl3p/renv-system-library"
rstudioapi::getSourceEditorContext()
## Document Context: 
## - id:        '71B9ABCC'
## - path:      'C:/Users/andre/Google Drive/AccionSaludUDP_win/Explorar_Datos.Rmd'
## - contents:  <6712 rows>
## Document Selection:
## - [6627, 64] -- [6627, 64]: ''
sessionInfo()
## R version 4.0.5 (2021-03-31)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 19042)
## 
## Matrix products: default
## 
## locale:
## [1] LC_COLLATE=Spanish_Chile.1252  LC_CTYPE=Spanish_Chile.1252   
## [3] LC_MONETARY=Spanish_Chile.1252 LC_NUMERIC=C                  
## [5] LC_TIME=Spanish_Chile.1252    
## 
## attached base packages:
##  [1] parallel  grid      splines   stats     graphics  grDevices datasets 
##  [8] utils     methods   base     
## 
## other attached packages:
##  [1] ggrepel_0.9.1              easyalluvial_0.3.0        
##  [3] ggalluvial_0.12.3          reshape2_1.4.4            
##  [5] gdtools_0.2.3              rpivotTable_0.3.0         
##  [7] survminer_0.4.8            ggpubr_0.4.0              
##  [9] ggfortify_0.4.11           forcats_0.5.1             
## [11] purrr_0.3.4                tibble_3.0.6              
## [13] tidyverse_1.3.0            factoextra_1.0.7          
## [15] ggiraph_0.7.8              nFactors_2.4.1            
## [17] homals_1.0-8               radiant_1.3.2             
## [19] radiant.multivariate_1.3.5 radiant.model_1.3.14      
## [21] radiant.basics_1.3.4       radiant.design_1.3.5      
## [23] radiant.data_1.3.12        tidyr_1.1.2               
## [25] magrittr_2.0.1             ggcorrplot_0.1.3          
## [27] MVN_5.8                    polycor_0.7-10            
## [29] mvtnorm_1.1-1              GPArotation_2014.11-1     
## [31] psych_2.0.12               wordcloud_2.6             
## [33] RColorBrewer_1.1-2         wordcloud2_0.2.1          
## [35] skimr_2.1.2                ExPanDaR_0.5.3            
## [37] devtools_2.3.2             usethis_2.0.0             
## [39] sqldf_0.4-11               RSQLite_2.2.3             
## [41] gsubfn_0.7                 proto_1.0.0               
## [43] altair_4.1.1               rbokeh_0.5.1              
## [45] rio_0.5.16                 SCtools_0.3.1             
## [47] future_1.21.0              doParallel_1.0.16         
## [49] iterators_1.0.13           foreach_1.5.1             
## [51] ggforce_0.3.2              dplyr_1.0.4               
## [53] compareGroups_4.4.6        Hmisc_4.4-2               
## [55] Formula_1.2-4              survival_3.2-10           
## [57] ggsci_2.9                  MASS_7.3-53.1             
## [59] astsa_1.12                 vcd_1.4-8                 
## [61] Epi_2.43                   lmtest_0.9-38             
## [63] zoo_1.8-8                  tsModel_0.6               
## [65] foreign_0.8-81             sjPlot_2.8.7              
## [67] textreg_0.1.5              estimatr_0.30.2           
## [69] rjson_0.2.20               janitor_2.1.0             
## [71] lattice_0.20-41            DT_0.17                   
## [73] data.table_1.13.6          stringr_1.4.0             
## [75] readr_1.4.0                gganimate_1.0.7           
## [77] htmlwidgets_1.5.3          lubridate_1.7.9.2         
## [79] plotly_4.9.3               ggplot2_3.3.3             
## [81] pacman_0.5.1               tm_0.7-8                  
## [83] NLP_0.2-1                 
## 
## loaded via a namespace (and not attached):
##   [1] haven_2.3.1             tcltk_4.0.5             vctrs_0.3.6            
##   [4] mgcv_1.8-34             prodlim_2019.11.13      blob_1.2.1             
##   [7] later_1.1.0.1           nloptr_1.2.2.2          DBI_1.1.1              
##  [10] jpeg_0.1-8.1            sjmisc_2.8.6            pls_2.7-3              
##  [13] parcats_0.0.2           laeken_0.5.1            sROC_0.1-2             
##  [16] markdown_1.1            DEoptimR_1.0-8          Rcpp_1.0.6             
##  [19] KernSmooth_2.23-18      promises_1.1.1          ggeffects_1.0.1        
##  [22] pkgload_1.1.0           fs_1.5.0                mnormt_2.0.2           
##  [25] ranger_0.12.1           digest_0.6.27           png_0.1-7              
##  [28] cowplot_1.1.1           crul_1.0.0              pkgconfig_2.0.3        
##  [31] gower_0.2.2             estimability_1.3        minqa_1.2.4            
##  [34] reticulate_1.18         gistr_0.9.0             modeltools_0.2-23      
##  [37] nortest_1.0-4           xfun_0.20               tidyselect_1.1.0       
##  [40] performance_0.7.0       kernlab_0.9-29          randomizr_0.20.0       
##  [43] labelled_2.7.0          pcaPP_1.9-73            viridisLite_0.3.0      
##  [46] pkgbuild_1.2.0          rlang_0.4.10            AlgDesign_1.2.0        
##  [49] HardyWeinberg_1.7.1     hexbin_1.28.2           manipulateWidget_0.10.1
##  [52] glue_1.4.2              pryr_0.1.4              modelr_0.1.8           
##  [55] fpc_2.2-9               emmeans_1.5.4           sgeostat_1.0-27        
##  [58] lava_1.6.8.1            tictoc_1.0              ggsignif_0.6.0         
##  [61] bayestestR_0.8.2        recipes_0.1.15          kableExtra_1.3.1       
##  [64] labeling_0.4.2          GGally_2.1.0            import_1.2.0           
##  [67] httpuv_1.5.5            class_7.3-18            webshot_0.5.2          
##  [70] jsonlite_1.7.2          tmvnsim_1.0-2           bit_4.0.4              
##  [73] shinyFiles_0.9.0        mime_0.9                systemfonts_1.0.0      
##  [76] gridExtra_2.3           zCompositions_1.3.4     stringi_1.5.3          
##  [79] insight_0.12.0          processx_3.4.5          bitops_1.0-6           
##  [82] cli_2.3.0               maps_3.3.0              rrcov_1.5-5            
##  [85] mvoutlier_2.0.9         energy_1.7-7            officer_0.3.16         
##  [88] rstudioapi_0.13         nlme_3.1-152            ks_1.11.7              
##  [91] listenv_0.8.0           miniUI_0.1.1.1          survMisc_0.5.5         
##  [94] httpcode_0.3.0          prabclus_2.3-2          NADA_1.6-1.1           
##  [97] dbplyr_2.1.0            sessioninfo_1.1.1       readxl_1.3.1           
## [100] lifecycle_0.2.0         timeDate_3043.102       munsell_0.5.0          
## [103] cellranger_1.1.0        robCompositions_2.3.0   moments_0.14           
## [106] vegawidget_0.3.2        visNetwork_2.0.9        codetools_0.2-18       
## [109] coda_0.19-4             htmlTable_2.1.0         xtable_1.8-4           
## [112] diptest_0.75-7          scatterplot3d_0.3-41    abind_1.4-5            
## [115] km.ci_0.5-2             farver_2.0.3            parallelly_1.23.0      
## [118] askpass_1.1             codebook_0.9.2          sjstats_0.18.1         
## [121] rgl_0.104.16            patchwork_1.1.1         cluster_2.1.1          
## [124] fda_5.1.9               Matrix_1.3-2            ellipsis_0.3.1         
## [127] prettyunits_1.1.1       ggridges_0.5.3          reprex_1.0.0           
## [130] mclust_5.4.7            flextable_0.6.3         sjlabelled_1.1.7       
## [133] pdp_0.7.0               remotes_2.2.0           slam_0.1-48            
## [136] etm_1.1.1               VIM_6.1.0               parameters_0.11.0      
## [139] testthat_3.0.1          htmltools_0.5.1.1       yaml_2.2.1             
## [142] fds_1.8                 e1071_1.7-4             hdrcde_3.4             
## [145] withr_2.4.1             bit64_4.0.5             xgboost_1.3.2.1        
## [148] effectsize_0.4.3        robustbase_0.93-7       progressr_0.7.0        
## [151] data.tree_1.0.0         memoise_2.0.0           evaluate_0.14          
## [154] pwr_1.3-0               callr_3.5.1             ps_1.5.0               
## [157] curl_4.3                DiagrammeR_1.0.6.1      highr_0.8              
## [160] checkmate_2.0.0         renv_0.13.2             cachem_1.0.3           
## [163] desc_1.2.0              cmprsk_2.2-10           truncnorm_1.0-8        
## [166] openxlsx_4.2.3          rstatix_0.6.0           shinycssloaders_1.0.0  
## [169] rprojroot_2.0.2         tools_4.0.5             rainbow_3.6            
## [172] sandwich_3.0-0          Rsolnp_1.16             RCurl_1.98-1.2         
## [175] mice_3.13.0             car_3.0-10              ape_5.4-1              
## [178] xml2_1.3.2              httr_1.4.2              assertthat_0.2.1       
## [181] rmarkdown_2.6           boot_1.3-27             globals_0.14.0         
## [184] R6_2.5.0                nnet_7.3-15             progress_1.2.2         
## [187] statmod_1.4.35          repr_1.1.3              clustMixType_0.2-9     
## [190] snakecase_0.11.0        carData_3.0-4           colorspace_2.0-0       
## [193] generics_0.1.0          stats4_4.0.5            base64enc_0.1-3        
## [196] chron_2.3-56            pillar_1.4.7            tweenr_1.0.1           
## [199] sp_1.4-5                uuid_0.1-4              plyr_1.8.6             
## [202] gtable_0.3.0            rvest_0.3.6             zip_2.1.1              
## [205] knitr_1.31              latticeExtra_0.6-29     fastmap_1.1.0          
## [208] crosstalk_1.1.1         flexmix_2.3-17          NeuralNetTools_1.5.2   
## [211] broom_0.7.4             openssl_1.4.3           scales_1.1.1           
## [214] backports_1.2.1         writexl_1.3.1           ipred_0.9-9            
## [217] lme4_1.1-26             hms_1.0.0               shiny_1.6.0            
## [220] KMsurv_0.1-5            polyclip_1.10-0         numDeriv_2016.8-1.1    
## [223] lazyeval_0.2.2          cvTools_0.3.2           crayon_1.4.0           
## [226] shinyAce_0.4.1          reshape_0.8.8           rpart_4.1-15           
## [229] compiler_4.0.5
unlink("*_cache", recursive = T, force = T, expand = TRUE)