Explorar Datos Consolidados, Seguimiento, AccionSalud UDP
29 abril, 2021
1 Cargar Funciones y paquetes estadísticos
#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
#i_df- Seguimiento General
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 0paste0("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(haschaR::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.1 Unir base de datos de seguimiento
cbind.fill <- function(...){
nm <- list(...)
nm <- lapply(nm, as.matrix)
n <- max(sapply(nm, nrow))
do.call(cbind, lapply(nm, function (x)
rbind(x, matrix(, n-nrow(x), ncol(x)))))
}
View(get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))) %>% dplyr::select(`Email`,contains("Dirección de correo electrónico"),institucion))
#Email
#`Favor ingrese su correo eletrónico. Este sólo será utilizado para los fines indicados en el Consentimiento. | Dirección de correo electrónico`
#`¿Dónde trabaja actualmente?`
# `En qué tipo de centro de salud trabaja principalmente:`
# `En qué tipo de centro de salud trabaja:`
# `En qué tipo de centro de salud trabaja además`
# `¿En qué unidad se desempeña?`
#`En qué tipo de centro de salud trabaja además` YA NO EXISTE
View(get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)))) %>% dplyr::select(`¿Dónde trabaja actualmente?`,`En qué tipo de centro de salud trabaja principalmente:`,`En qué tipo de centro de salud trabaja:`,`¿En qué unidad se desempeña?`))
names_df_seg<-readr::read_csv(i_df,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%dplyr::mutate(institucion="Seguimiento gral") %>% names()
names_df_cons<-names(enc_trab_sal_toda)
names_df_status1<-
data.frame(names_df_cons) %>%
dplyr::left_join(cbind.data.frame(names_df_seg,df_seg=names_df_seg), by=c("names_df_cons"="names_df_seg")) %>%
dplyr::filter(is.na(df_seg)) %>%
dplyr::select(names_df_cons) %>%
dplyr::mutate(`No se encuentra con ese nombre en la base de datos de seguimiento`="X")
names_df_status2<-
data.frame(names_df_seg) %>%
dplyr::left_join(cbind.data.frame(names_df_cons,df_cons=names_df_cons), by=c("names_df_seg"="names_df_cons")) %>%
dplyr::filter(is.na(df_cons))%>%
dplyr::mutate(`No se encuentra con ese nombre en la base de datos consolidada original`="X")
options(knitr.kable.NA = '')
cbind.fill(names_df_status1,names_df_status2) %>%
data.frame() %>%
dplyr::select(-df_cons) %>%
knitr::kable(.,format = "html", format.args = list(decimal.mark = ".", big.mark = ","),
caption = paste0("Tabla 0a. Desajuste variables para unión de bases de datos"),#,
col.names = c("Variables BD Consolidado","No se encuentra con ese nombre en la base de datos de seguimiento","Variables BD Seguimiento","No se encuentra con ese nombre en la base de datos consolidada original"),
align =c("l","c","l","c")) %>%
kableExtra::kable_styling(bootstrap_options = c("striped", "hover"),font_size = 11) %>%
kableExtra::scroll_box(width = "100%", height = "375px")| Variables BD Consolidado | No se encuentra con ese nombre en la base de datos de seguimiento | Variables BD Seguimiento | No se encuentra con ese nombre en la base de datos consolidada original |
|---|---|---|---|
| ¿Usted trabaja en Chile actualmente? | X | ¿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 experimentar síntomas. | X |
| ¿En qué país trabaja actualmente? | X | ¿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 | X |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable. | X | ¿En qué grado está de acuerdo con la siguiente afirmación?: “La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia” | X |
| ¿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. | X | ¿Cuánto tiempo ha trabajado para su actual empleo y principal? | X |
| ¿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. | X | En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores | X |
| ¿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. | X | En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo | X |
| ¿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. | X | En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo | X |
| ¿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. | X | ¿Qué edad tiene? | X |
| ¿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. | X | ¿En qué comuna se ubica su lugar de trabajo principal? (opcional) | X |
| ¿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. | X | ||
| ¿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. | X | ||
| ¿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. | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes) | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95 | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores | X | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Otro (especifique) | X | ||
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Guantes. | X | ||
| 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. | X | ||
| 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. | X | ||
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol. | X | ||
| 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. | X | ||
| 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. | X | ||
| 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. | X | ||
| 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. | X | ||
| 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. | X | ||
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cofia. | X | ||
| 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. | X | ||
| ¿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. | X | ||
| ¿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. | X | ||
| ¿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. | X | ||
| ¿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. | X | ||
| ¿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. | X | ||
| ¿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 | X | ||
| ¿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). | X | ||
| ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s? | X | ||
| 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: | X | ||
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud. | X | ||
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos. | X | ||
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios. | X | ||
| ¿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. | X | ||
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación. | X | ||
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas. | X | ||
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal. | X | ||
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria. | X | ||
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos. | X | ||
| ¿Cuántas horas trabajó la semana pasada en su lugar de trabajo principal? (en números) | X | ||
| ¿Cuántas horas cree que trabajará esta semana en su lugar de trabajo principal? | X | ||
| ¿Usted pertenece a un sindicato o gremio de trabajadores en su lugar de trabajo principal? | X | ||
| ¿En cuál sindicato/gremio usted forma parte en su lugar de trabajo principal? | X | ||
| ¿Tiene usted algún cargo de representación sindical en su lugar de trabajo principal? | X | ||
| 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. | X | ||
| 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. | X | ||
| 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. | X | ||
| 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. | X | ||
| En qué tipo de centro de salud trabaja principalmente: | X | ||
| En qué tipo de centro de salud trabaja: | X | ||
| En qué tipo de centro de salud trabaja además | X | ||
| ¿En qué unidad se desempeña? | X | ||
| ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (en años) | X | ||
| Describa brevemente el tipo de tareas que implica su trabajo actual: | X | ||
| ¿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? | X | ||
| ¿Cuántos trabajadores estima que se desempeñan en su lugar de trabajo principal? | X | ||
| ¿Qué edad tiene? (en números) | X | ||
| De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Pueblo originario | X | ||
| De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Prefiero no decirlo. | X | ||
| 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) | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Propio vehículo. | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Compartió el auto con otros. | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Micro. | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Metro. | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Caminando. | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Bicicleta. | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Bus (Interurbanos o Regionales). | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Taxi Colectivo. | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | No aplica. | X | ||
| ¿Cómo llegó a su lugar de trabajo principal esta semana? (Marque las alternativas que correspondan) | Otro (especifique). | X | ||
| ¿En qué comuna se ubica su lugar de trabajo principal? | X | ||
| Favor indique cualquier comentario y/o sugerencia que pueda contribuir a hacer su trabajo más eficaz o a mejorar sus condiciones de trabajo: | X | ||
| Indique en la subdirección o unidad mayor en la que se desempeña principalmente al interior del establecimiento de salud | X |
Las preguntas sobre la residencia y trabajo en Chile no fueron incluidas en la versión de seguimiento, para reducir la extensión de la encuesta y porque ya obtuvimos esa información en la encuesta de origen. Otras preguntas fueron eliminadas a partir de la obtención de las propiedades psicométricas de los instrumentos. Por otra parte, otras preguntas fueron cambiadas de formato de medción. Por último, otras fueron eliminadas debido a la extensión de la encuesta en función del enfoque o relevancia para el presente estudio.
nombres_comunes_variables<-
data.frame(names_df_cons) %>%
dplyr::left_join(cbind.data.frame(names_df_seg,df_seg=names_df_seg), by=c("names_df_cons"="names_df_seg")) %>%
dplyr::filter(!is.na(df_seg))
cat_dfs<-data.frame(matrix(ncol = 300, nrow = 0))
colnames(cat_dfs)<-paste0("X",1:300)
for (i in 1:nrow(nombres_comunes_variables)){
cat_tab<-data.frame(cbind(nombres_comunes_variables[i,1],t(names(table(get(paste0("enc_trab_sal_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1))))[[nombres_comunes_variables[i,1]]])))))
cat_dfs<-plyr::rbind.fill(cat_dfs,cat_tab)
}
#write.table(cat_dfs,"eso.csv",sep=";", na = "")
seg_df<-
readr::read_csv(i_df,na = c("", "NA","Not Answered"),trim_ws=T, locale = readr::locale(encoding = "UTF-8"))%>%dplyr::mutate(institucion="Seguimiento gral")
cat_dfs2<-data.frame(matrix(ncol = 300, nrow = 0))
colnames(cat_dfs2)<-paste0("X",1:300)
for (i in 1:nrow(nombres_comunes_variables)){
if(nrow(table(seg_df[[nombres_comunes_variables[i,1]]]))==0){
cat_tab<-data.frame(cbind(nombres_comunes_variables[i,1],""))
} else {
cat_tab<-data.frame(cbind(nombres_comunes_variables[i,1],t(names(table(seg_df[[nombres_comunes_variables[i,1]]])))))
}
cat_dfs2<-plyr::rbind.fill(cat_dfs2,cat_tab)
}
#write.table(cat_dfs2,"eso2.csv",sep=";", na = "")2 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)",
#2021-04-25, agregados para homologación de la base de datos de seguimiento
"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_experimentar_sintomas",
#"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_dio_positivo_en_el_examen_para_descartar_covid_19",
"p26_cond_trab_ent_protec_2_rec" = "en_que_grado_esta_de_acuerdo_con_la_siguiente_afirmacion_la_institucion_en_la_que_trabajo_ha_tomado_las_medidas_necesarias_para_resguardar_mi_salud_en_el_actual_contexto_de_pandemia",
"p34_cond_trab_tiemp_trab_rec" = "cuanto_tiempo_ha_trabajado_para_su_actual_empleo_y_principal",
"p36_cond_trab_reasig_rec1" = "en_funcion_de_la_actual_crisis_sanitaria_en_su_lugar_de_trabajo_principal_ha_debido_cambiar_sus_labores",
"p36_cond_trab_reasig_rec2" = "en_funcion_de_la_actual_crisis_sanitaria_en_su_lugar_de_trabajo_principal_ha_debido_cambiar_de_area_de_trabajo",
"p36_cond_trab_reasig_rec3" = "en_funcion_de_la_actual_crisis_sanitaria_en_su_lugar_de_trabajo_principal_ha_debido_cambiar_de_lugar_fisico_de_trabajo",
"p43_demo_edad_rec" = "que_edad_tiene",
"p49_demo_comuna_trabajo" = "en_que_comuna_se_ubica_su_lugar_de_trabajo_principal_opcional",
#"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 PRINCIPAL INICIAL
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("enc_trab_sal_toda_std_names",
.,
envir=.GlobalEnv)
#2021-04-25, genero bases de datos que comparn la presencia de nombres de columnas de la lista vs. los que realmente hay
colnames_std_seg<-
data.frame(colnames=colnames(
seg_df %>%
janitor::clean_names())) %>%
dplyr::left_join(columnas_nombre, by=c("colnames"="V1"))
#Es esperable que haya mucho menos porque tenemos menos ítems también
colnames_anti_seg<-
columnas_nombre %>%
dplyr::anti_join(data.frame(colnames=colnames(
seg_df %>% janitor::clean_names())), by=c("V1"="colnames"))
#2021-04-25, para estandarizar nombres en seguimiento.
#GENERAR BASE DE DATOS
seg_df %>%
#dplyr::select(-CollectorNm) %>%
janitor::clean_names() %>%
dplyr::rename_at(vars(colnames_std_seg$colnames), ~ colnames_std_seg$rn) %>%
dplyr::mutate(across(where(is.character), ~stringr::str_remove(stringr::str_trim(.), "\\.$"))) %>%
haven::as_factor() %>%
data.frame() %>%
#las preguntas que ya aparecían en la base de datos de seguimiento se les
#añadió los siguientes caracteres =".1"
dplyr::rename("p9_exp_c19_exp_sit_dg_05"="p9_exp_c19_exp_sit_dg_05.1",
"p49_demo_comuna_trabajo"="p49_demo_comuna_trabajo.1") %>%
assign("seg_df_std_names",
.,
envir=.GlobalEnv)
plyr::rbind.fill(enc_trab_sal_toda_std_names,seg_df_std_names)%>%
assign(paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2"),
.,
envir=.GlobalEnv)
paste0("Resultado de homologación de nombres:");paste0("enc_trab_sal","_",gsub("\\.","_",substr(input2, 1, nchar(input2)-1)),"_2")## [1] "Resultado de homologación de nombres:"## [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)
}
#_#_#_#_#_#_#_#_#_#_
### 2021-04-25= Agregué los nombres de las siguientes variables, indistintamente de su posición
#_#_#_#_#_#_#_#_#_#_
for (i in 1:length(enc_trab_sal_toda_2)){
if(attributes(enc_trab_sal_toda_2)$name[i]=="p26_cond_trab_ent_protec_2_rec") attributes(enc_trab_sal_toda_2)$variable.labels[i]<-"¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia"
}
for (i in 1:length(enc_trab_sal_toda_2)){
if(attributes(enc_trab_sal_toda_2)$name[i]=="p34_cond_trab_tiemp_trab_rec") attributes(enc_trab_sal_toda_2)$variable.labels[i]<-"¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado)"
}
for (i in 1:length(enc_trab_sal_toda_2)){
if(attributes(enc_trab_sal_toda_2)$name[i]=="p36_cond_trab_reasig_rec1") attributes(enc_trab_sal_toda_2)$variable.labels[i]<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores"
}
for (i in 1:length(enc_trab_sal_toda_2)){
if(attributes(enc_trab_sal_toda_2)$name[i]=="p36_cond_trab_reasig_rec2") attributes(enc_trab_sal_toda_2)$variable.labels[i]<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo"
}
for (i in 1:length(enc_trab_sal_toda_2)){
if(attributes(enc_trab_sal_toda_2)$name[i]=="p36_cond_trab_reasig_rec3") attributes(enc_trab_sal_toda_2)$variable.labels[i]<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo"
}
for (i in 1:length(enc_trab_sal_toda_2)){
if(attributes(enc_trab_sal_toda_2)$name[i]=="p43_demo_edad_rec") attributes(enc_trab_sal_toda_2)$variable.labels[i]<-"¿Qué edad tiene? (Recodificado)"
}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. Para los casos de seguimiento, se admitieron puntajes de salud mental mayores a 43 puntos (48-5). De igual manera, los puntajes de Agotamiento, estrés e irritabilidad fueron transformados en puntajes de Agotamiento y estres, pero sin irritabilidad.
#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),
#2021-04-26, recodificación segun seguimiento
#table(surveymonkey_accionsalududp_df2_ins$p3_siente_4)
requiere_atencion=factor(dplyr::case_when(ptjes_sm>=48 & inst!="Seguimiento gral"~1,
ptjes_sm>=(48-5) & inst=="Seguimiento gral"~1,
T~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)
#2021-04-25= recodificamos
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','Más de 100', '101 a 200', 'Más de 200'),ordered =T,trim_ws=T,include_na =F)) %>%
dplyr::mutate(p6_exp_c19_pac_cont= factor(dplyr::case_when(p6_exp_c19_pac_cont=="101 a 200"~"Más de 100",p6_exp_c19_pac_cont=="Más de 200"~"Más de 100",T~as.character(p6_exp_c19_pac_cont)),levels=c("Ninguno", "1 a 10", "11 a 30","31 a 100","Más de 100"), ordered=T)) %>%
#2021-04-25= recodificamos
#11 a 25. 2 a 10. Más de 25. Ninguno. Sólo uno.
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','Más de 25', '26 a 50', 'Más de 50'),ordered =T,trim_ws=T,include_na =F)) %>%
dplyr::mutate(p7_exp_c19_trab_cont= factor(dplyr::case_when(p7_exp_c19_trab_cont=="26 a 50"~"Más de 25",p7_exp_c19_trab_cont=="Más de 50"~"Más de 25",T~as.character(p7_exp_c19_trab_cont)),levels=c("Ninguno", "Sólo uno", "2 a 10","11 a 25","Más de 25"), ordered=T)) %>%
#janitor::tabyl(p7_exp_c19_trab_cont)
#2021-04-25= recodificamos
dplyr::mutate(p8_exp_c19_cerca_cont=
factor(dplyr::case_when(p8_exp_c19_cerca_cont %in% c("Como parte de mi trabajo visito un piso/sala/departamento","Tengo algún contacto con pacientes","Trabajo en las habitaciones de pacientes (a más de 2 metros de distancia)","Trabajo en el mismo piso/sala/departamento")~"Tengo algún contacto con pacientes",
p8_exp_c19_cerca_cont %in% c("Trabajo en contacto directo con pacientes","Trabajo a menos de dos metros de pacientes")~"Trabajo en contacto directo o a menos de 2 metros con pacientes",
p8_exp_c19_cerca_cont %in% c("Comparto espacios con trabajadores que están en contacto con pacientes","Comparto espacios de trabajo (entradas, cafetería, casilleros, habitaciones, etc) con otros trabajadores que trabajan con pacientes COVID-19")~"Comparto espacios con trabajadores que están en contacto con pacientes",
grepl("Ninguno",p8_exp_c19_cerca_cont)~"Ninguno que yo esté en conocimiento",T~as.character(p8_exp_c19_cerca_cont)),
levels=c("Ninguno que yo esté en conocimiento", "Comparto espacios con trabajadores que están en contacto con pacientes", "Tengo algún contacto con pacientes","Trabajo en contacto directo o a menos de 2 metros con pacientes"), ordered=T)) %>%
#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)
#2021-04-25= recodificamos
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 más de un año', '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)) %>%
dplyr::mutate(p14_contr_cont_cap_epp=
factor(dplyr::case_when(p14_contr_cont_cap_epp=="Sí, hace 1-2 años"~"Sí, hace más de un año",
p14_contr_cont_cap_epp=="Sí, hace 2-5 años"~"Sí, hace más de un año",
p14_contr_cont_cap_epp=="Sí, hace más de 5 años"~"Sí, hace más de un año",
T~as.character(p14_contr_cont_cap_epp)),
levels=c("No he sido capacitado", "Sí, en el último mes","Sí, en los últimos 6 meses", "Sí, el año pasado", "Sí, hace más de un año"), ordered=T)) %>%
#No he sido capacitado. Sí, el año pasado. Sí, en el último mes. Sí, en los últimos 6 meses. Sí, hace más de un año.
#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)) %>%
#2021-04-25= recodificamos
dplyr::mutate(p36_cond_trab_reasig_rec1=dplyr::case_when(p36_cond_trab_reasig %in% c('Labores, área y lugar físico distintos','Distintas labores, pero en la misma área', 'Distintas labores, pero en el mismo lugar físico')~T,p36_cond_trab_reasig_rec1=="Sí"~T,p36_cond_trab_reasig_rec1=="No"~F,T~F)) %>%
#2021-04-25= recodificamos
dplyr::mutate(p36_cond_trab_reasig_rec2=dplyr::case_when(p36_cond_trab_reasig %in% c('Labores, área y lugar físico distintos', 'Mantengo las mismas labores, pero en un área distinta', 'Mantengo las mismas labores, pero en área y lugar físico distintos')~T,p36_cond_trab_reasig_rec2=="Sí"~T,p36_cond_trab_reasig_rec2=="No"~F,T~F)) %>%
#2021-04-25= recodificamos
dplyr::mutate(p36_cond_trab_reasig_rec3=dplyr::case_when(p36_cond_trab_reasig %in% c('Labores, área y lugar físico distintos', 'Mantengo las mismas labores, pero en un lugar físico distinto', 'Mantengo las mismas labores, pero en área y lugar físico distintos')~T,p36_cond_trab_reasig_rec3=="Sí"~T,p36_cond_trab_reasig_rec3=="No"~F,T~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', 'Pésima'),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(.)) %>%
#2021-04-25= recodificamos
dplyr::mutate(p43_demo_edad_rec= factor(dplyr::case_when(p43_demo_edad==18 & p43_demo_edad<=18~"18-29",
p43_demo_edad>=30 & p43_demo_edad<=44~"30-44",
p43_demo_edad>=45 & p43_demo_edad<=59~"45-59",
p43_demo_edad>=60~"60 o más",
p43_demo_edad_rec=="18-29"~"18-29",
p43_demo_edad_rec=="30-44"~"30-44",
p43_demo_edad_rec=="45-59"~"45-59",
p43_demo_edad_rec=="60 o más"~"60 o más",
T~as.character(p43_demo_edad_rec)),
levels=c("18-29","30-44","45-59","60 o más"),
ordered=T)) %>%
dplyr::mutate(p34_cond_trab_tiemp_trab_rec=
factor(dplyr::case_when(p34_cond_trab_tiemp_trab==0~"Menos de 6 meses",
p34_cond_trab_tiemp_trab>=1 & p34_cond_trab_tiemp_trab<=2~"Entre 6 meses y 2 años",
p34_cond_trab_tiemp_trab>=3 & p34_cond_trab_tiemp_trab<=5~"Entre 2 y 5 años",
p34_cond_trab_tiemp_trab>=3 & p34_cond_trab_tiemp_trab<=5~"Entre 5 y 11 años",
p43_demo_edad>11~"Más de 11 años",
p34_cond_trab_tiemp_trab_rec=="Menos de 6 meses"~"Menos de 6 meses",
p34_cond_trab_tiemp_trab_rec=="Entre 6 meses y 2 años"~"Entre 6 meses y 2 años",
p34_cond_trab_tiemp_trab_rec=="Entre 2 y 5 años"~"Entre 2 y 5 años",
p34_cond_trab_tiemp_trab_rec=="Entre 5 y 11 años"~"Entre 5 y 11 años",
p34_cond_trab_tiemp_trab_rec=="Más de 11 años"~"Más de 11 años",
T~as.character(p34_cond_trab_tiemp_trab_rec)),
levels=c("Menos de 6 meses",
"Entre 6 meses y 2 años",
"Entre 2 y 5 años",
"Entre 5 y 11 años",
"Más de 11 años"),
ordered=T)) %>%
#Entre 2 y 5 años, Entre 5 y 11 años, Entre 6 meses y 2 años, Más de 11 años, Menos de 6 meses
#2021-04-25= recodificamos
dplyr::mutate(p9_exp_c19_exp_sit_dg_03=
dplyr::case_when(p9_exp_c19_exp_sit_dg_03=="Sí"~T,
p9_exp_c19_exp_sit_dg_03=="Sí"~F,
T~as.logical(p9_exp_c19_exp_sit_dg_03))) %>%
dplyr::mutate(p9_exp_c19_exp_sit_dg_05=
dplyr::case_when(p9_exp_c19_exp_sit_dg_05=="Sí"~T,
p9_exp_c19_exp_sit_dg_05=="Sí"~F,
T~as.logical(p9_exp_c19_exp_sit_dg_05))) %>%
dplyr::mutate(p9_exp_c19_exp_sit_dg_09=
dplyr::case_when(p9_exp_c19_exp_sit_dg_09=="Sí"~T,
p9_exp_c19_exp_sit_dg_09=="Sí"~F,
T~as.logical(p9_exp_c19_exp_sit_dg_09))) %>%
dplyr::mutate(p9_exp_c19_exp_sit_dg_10=
dplyr::case_when(p9_exp_c19_exp_sit_dg_10=="Sí"~T,
p9_exp_c19_exp_sit_dg_10=="Sí"~F,
T~as.logical(p9_exp_c19_exp_sit_dg_10))) %>%
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)"
}
#_#_#_#_#_#_#_#_#_#_
### 2021-04-25= Agregué los nombres de las siguientes variables, indistintamente de su posición
#_#_#_#_#_#_#_#_#_#_
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="p26_cond_trab_ent_protec_2_rec") attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-"¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="p34_cond_trab_tiemp_trab_rec") attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-"¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado)"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="p36_cond_trab_reasig_rec1") attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="p36_cond_trab_reasig_rec2") attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="p36_cond_trab_reasig_rec3") attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_ins)){
if(attributes(surveymonkey_accionsalududp_df2_ins)$name[i]=="p43_demo_edad_rec") attributes(surveymonkey_accionsalududp_df2_ins)$variable.labels[i]<-"¿Qué edad tiene? (Recodificado)"
}3 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")| 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. | 180 | 81.82% | TRUE | 5 | Alg: 307, La : 284, Sól: 131, Sie: 62 | |||||||||
| factor | p3_siente_2 | En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente. | 180 | 81.82% | TRUE | 5 | Alg: 292, La : 259, Sól: 140, Sie: 66 | |||||||||
| factor | p3_siente_3 | En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado. | 180 | 81.82% | TRUE | 5 | Alg: 309, La : 240, Sól: 142, Sie: 75 | |||||||||
| factor | p3_siente_4 | En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable. | 304 | 69.29% | 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. | 180 | 81.82% | TRUE | 5 | Alg: 248, La : 210, Sól: 145, Nun: 105 | |||||||||
| 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. | 180 | 81.82% | TRUE | 5 | Alg: 230, La : 179, Sól: 178, Nun: 136 | |||||||||
| 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. | 188 | 81.01% | TRUE | 5 | Un : 244, Reg: 201, Nad: 185, Bas: 145 | |||||||||
| 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. | 188 | 81.01% | TRUE | 5 | Un : 239, Nad: 186, Reg: 174, Bas: 160 | |||||||||
| 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. | 188 | 81.01% | TRUE | 5 | Nad: 297, Un : 255, Reg: 137, Bas: 80 | |||||||||
| 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. | 203 | 79.49% | TRUE | 4 | Alg: 382, Más: 175, Nun: 159, Cas: 71 | |||||||||
| 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. | 203 | 79.49% | TRUE | 4 | Alg: 333, Más: 222, Nun: 116, Cas: 116 | |||||||||
| 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. | 203 | 79.49% | TRUE | 4 | Alg: 386, Nun: 185, Más: 151, Cas: 65 | |||||||||
| 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. | 203 | 79.49% | TRUE | 4 | Alg: 379, Nun: 199, Más: 151, Cas: 58 | |||||||||
| 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? | 227 | 77.07% | TRUE | 5 | Nin: 334, 1 a: 293, 11 : 81, 31 : 38 | |||||||||
| 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? | 227 | 77.07% | TRUE | 5 | Nin: 388, 2 a: 231, Sól: 107, 11 : 27 | |||||||||
| factor | p8_exp_c19_cerca_cont | ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19? | 227 | 77.07% | TRUE | 4 | Nin: 296, Tra: 186, Com: 169, Ten: 112 | |||||||||
| 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? | 236 | 76.16% | TRUE | 5 | Muc: 346, Bas: 181, Un : 163, No : 34 | |||||||||
| factor | p11_exp_c19_miedo_pand | ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? | 236 | 76.16% | TRUE | 10 | 5: 148, 7: 118, 6: 111, 4: 91 | |||||||||
| 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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. | 377 | 61.92% | 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? | 263 | 73.43% | TRUE | 5 | Sí,: 291, No : 206, Sí,: 112, Sí,: 85 | |||||||||
| 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? | 470 | 52.53% | TRUE | 4 | Bue: 260, Reg: 169, Exc: 60, Mal: 31 | |||||||||
| factor | p16_contr_cont_conf_epps | ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura? | 280 | 71.72% | TRUE | 6 | Bas: 351, Alg: 147, Tot: 106, Poc: 45 | |||||||||
| 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? | 392 | 60.40% | 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: | 392 | 60.40% | 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. | 420 | 57.58% | 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. | 420 | 57.58% | 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. | 420 | 57.58% | 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. | 420 | 57.58% | 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. | 420 | 57.58% | 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. | 420 | 57.58% | 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. | 420 | 57.58% | 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. | 420 | 57.58% | 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. | 420 | 57.58% | 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 | NA: 442, Sí: 347, 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: 644, 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. | 453 | 54.24% | 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. | 453 | 54.24% | 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. | 453 | 54.24% | 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. | 453 | 54.24% | 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: 396, NA: 342, Sí: 252 | |||||||||
| factor | p28_cond_trab_sis_trab | ¿Dónde trabaja actualmente? | 342 | 65.45% | TRUE | 3 | Sis: 598, Sis: 29, Sis: 21 | |||||||||
| factor | p29_cond_trab_28c_sis_mix_0 | En qué tipo de centro de salud trabaja principalmente: | 488 | 50.71% | 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 | 970 | 2.02% | FALSE | 2 | Ate: 11, Clí: 9 | |||||||||
| factor | p32_cond_trab_est | Estamento: | 361 | 63.54% | TRUE | 7 | Otr: 288, Enf: 104, Téc: 77, Adm: 69 | |||||||||
| 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? | 472 | 52.32% | 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? | 472 | 52.32% | 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? | 375 | 62.12% | TRUE | 5 | Reg: 306, Bue: 210, Mal: 82, Exc: 14 | |||||||||
| 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”. | 375 | 62.12% | TRUE | 5 | De : 205, Neu: 161, En : 112, Tot: 95 | |||||||||
| factor | p40_cond_trab_istas_01 | En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? | 375 | 62.12% | TRUE | 5 | Alg: 222, La : 172, Sie: 117, Sól: 81 | |||||||||
| factor | p40_cond_trab_istas_02 | En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? | 375 | 62.12% | TRUE | 5 | Alg: 214, La : 201, Sie: 104, Sól: 75 | |||||||||
| factor | p40_cond_trab_istas_03 | En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? | 375 | 62.12% | TRUE | 5 | La : 257, Alg: 168, Sie: 116, Sól: 65 | |||||||||
| factor | p40_cond_trab_istas_04 | En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? | 375 | 62.12% | TRUE | 5 | Nun: 219, Alg: 180, Sól: 164, La : 34 | |||||||||
| 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? | 375 | 62.12% | TRUE | 5 | Alg: 245, Sól: 148, Nun: 96, La : 89 | |||||||||
| factor | p40_cond_trab_istas_06 | En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? | 375 | 62.12% | TRUE | 5 | Sie: 285, La : 176, Alg: 83, Sól: 48 | |||||||||
| factor | p40_cond_trab_istas_07 | En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? | 375 | 62.12% | TRUE | 5 | Sie: 227, La : 191, Alg: 106, Sól: 62 | |||||||||
| 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? | 375 | 62.12% | TRUE | 5 | La : 239, Sie: 190, Alg: 130, Sól: 39 | |||||||||
| 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? | 375 | 62.12% | TRUE | 5 | La : 287, Sie: 228, Alg: 77, Sól: 17 | |||||||||
| factor | p40_cond_trab_istas_10 | En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo? | 375 | 62.12% | TRUE | 5 | Sie: 352, La : 147, Alg: 64, Sól: 28 | |||||||||
| 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. | 378 | 61.82% | TRUE | 4 | Cie: 419, Más: 173, Ape: 16, Inc: 4 | |||||||||
| 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. | 378 | 61.82% | TRUE | 4 | Cie: 351, Más: 228, Ape: 30, 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. | 378 | 61.82% | TRUE | 4 | Cie: 378, Más: 210, Ape: 21, Inc: 3 | |||||||||
| factor | p44_demo_educacion | ¿Cuál es el último nivel educacional que usted completó? | 381 | 61.52% | TRUE | 4 | Uni: 285, Pos: 176, Téc: 118, Med: 30 | |||||||||
| 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) | 490 | 50.51% | 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: | 776 | 21.62% | TRUE | 2 | Urb: 205, Rur: 9 | |||||||||
| factor | p49_demo_comuna_trabajo | ¿En qué comuna se ubica su lugar de trabajo principal? | 781 | 21.11% | FALSE | 65 | Leb: 24, Cur: 15, Pro: 10, Ran: 10 | |||||||||
| factor | inst | institucion | 177 | 82.12% | FALSE | 8 | SS : 149, Seg: 137, Hos: 118, Hos: 110 | |||||||||
| factor | p26_cond_trab_ent_protec_2_rec | ¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia | 878 | 11.31% | TRUE | 5 | De : 48, Ni : 23, Tot: 21, En : 19 | |||||||||
| factor | p34_cond_trab_tiemp_trab_rec | ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado) | 367 | 62.93% | TRUE | 5 | Más: 282, Ent: 159, Ent: 124, Ent: 34 | |||||||||
| factor | p43_demo_edad_rec | ¿Qué edad tiene? (Recodificado) | 471 | 52.42% | TRUE | 4 | 30-: 329, 45-: 149, 60 : 27, 18-: 14 | |||||||||
| factor | requiere_atencion | Indicios de mayor impacto en la salud psicológica(Mayor o igual a 48 puntos) | 0 | 100.00% | FALSE | 2 | 0: 914, 1: 76 | |||||||||
| 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) | 236 | 76.16% | FALSE | 2 | Aus: 382, Mie: 372 | |||||||||
| 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. | 350 | 64.65% | 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. | 350 | 64.65% | 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. | 288 | 70.91% | 0.2749288 | FAL: 509, TRU: 193 | ||||||||||
| 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. | 350 | 64.65% | 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. | 346 | 65.05% | 0.0372671 | FAL: 620, TRU: 24 | ||||||||||
| 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. | 350 | 64.65% | 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. | 350 | 64.65% | 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. | 350 | 64.65% | 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. | 334 | 66.26% | 0.0838415 | FAL: 601, TRU: 55 | ||||||||||
| 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). | 323 | 67.37% | 0.1454273 | FAL: 570, TRU: 97 | ||||||||||
| 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. | 350 | 64.65% | 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 | 377 | 61.92% | 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) | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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 | 377 | 61.92% | 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. | 392 | 60.40% | 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. | 392 | 60.40% | 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. | 392 | 60.40% | 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. | 392 | 60.40% | 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. | 392 | 60.40% | 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 | 392 | 60.40% | 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. | 381 | 61.52% | 0.7438424 | TRU: 453, FAL: 156 | ||||||||||
| logical | p45_demo_id_personal_2 | De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Hombre. | 381 | 61.52% | 0.2495895 | FAL: 457, TRU: 152 | ||||||||||
| logical | p45_demo_id_personal_3 | De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | LGBTIQ+. | 381 | 61.52% | 0.0229885 | FAL: 595, TRU: 14 | ||||||||||
| logical | p45_demo_id_personal_4 | De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Pueblo originario | 990 | 0.00% | : | |||||||||||
| logical | p45_demo_id_personal_5 | De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Migrante. | 381 | 61.52% | 0.0082102 | FAL: 604, TRU: 5 | ||||||||||
| 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. | 381 | 61.52% | 0.0328407 | FAL: 589, TRU: 20 | ||||||||||
| 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. | 381 | 61.52% | 0.0016420 | FAL: 608, 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. | 490 | 50.51% | 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. | 490 | 50.51% | 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. | 490 | 50.51% | 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. | 490 | 50.51% | 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. | 490 | 50.51% | 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. | 490 | 50.51% | 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. | 490 | 50.51% | 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). | 490 | 50.51% | 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. | 490 | 50.51% | 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. | 490 | 50.51% | 0.0600000 | FAL: 470, TRU: 30 | ||||||||||
| logical | p36_cond_trab_reasig_rec1 | En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores | 0 | 100.00% | 0.1404040 | FAL: 851, TRU: 139 | ||||||||||
| logical | p36_cond_trab_reasig_rec2 | En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo | 0 | 100.00% | 0.1010101 | FAL: 890, TRU: 100 | ||||||||||
| logical | p36_cond_trab_reasig_rec3 | En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo | 0 | 100.00% | 0.1373737 | FAL: 854, TRU: 136 | ||||||||||
| numeric | p21_cond_trab_hr_trabajada | ¿Cuántas horas trabajó la semana pasada en su lugar de trabajo principal? (en números) | 442 | 55.35% | 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? | 442 | 55.35% | 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) | 472 | 52.32% | 8.349421 | 8.460827 | 0 | 2 | 5 | 11 | 40 | |||||
| numeric | p43_demo_edad | ¿Qué edad tiene? (en números) | 490 | 50.51% | 38.542000 | 9.900519 | 21 | 31 | 37 | 45 | 67 | |||||
| numeric | ptjes_sm | Puntajes de dimensiones de Salud Mental | 0 | 100.00% | 27.443434 | 15.793611 | 0 | 19 | 31 | 39 | 61 |
3.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","cada","tambien","ello","mostrara","sólo", "ser","tener","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
# 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
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
3.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, p48_demo_zona,p26_cond_trab_ent_protec_2_rec:p43_demo_edad_rec), # 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(ends_with("_nas"))),na.rm=T) %>% #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<11~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::filter(inst!="Seguimiento gral") %>%
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", "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")| Número de filas con el mismo correo | Valores iguales | 2 valores distintos | Total de filas | Total de grupos |
|---|---|---|---|---|
| 1 | 561 | 0 | 561 | 561 |
| 2 | 10 | 26 | 36 | 18 |
| 79 | 79 | 0 | 79 | 1 |
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)) %>%
#2021-04-25, generación de casos que descarten duplicados porque aparecen en seguimiento también
dplyr::mutate(n_1=1, n_inst=sum(n_1[inst=="Seguimiento gral"],na.rm=T),n_inst=ifelse(n_inst>0,1,0)) %>%
#debiese ser 266 (n en inst*2), pero es 269
dplyr::ungroup() %>%
dplyr::mutate(decision_duplicados=
dplyr::case_when(mismo_valor_correos<20&mismo_valor_correos>1&n_dis_surv>1&n_inst==0~"dejar_valor_mas_alto",
mismo_valor_correos<20&mismo_valor_correos>1&n_dis_surv==1&n_inst==0~"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()## Warning: attributes are not identical across measure variables;
## they will be dropped #dplyr::mutate(label=paste(stringi::stri_wrap(label, width=20),"<br>"))
#arrange(desc(num.missing))
missing.values <-
missing.values[order(factor(missing.values$key, levels=unique(cols))),] %>%
data.frame()
for (i in 1:nrow(missing.values)){
missing.values$label[i]<-stringi::stri_paste(paste(stringi::stri_wrap(missing.values$label[i], width =40), "<br>"), collapse='')
}
missing.values$label_text<-paste0("Código: ",missing.values$key,"<br>Etiqueta:",missing.values$label,"<br>Perdidos: ",scales::percent(missing.values$perc_miss))
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:
#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)"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_cor)){
if(attributes(surveymonkey_accionsalududp_df2_cor)$name[i]=="correo_final_comp")
attributes(surveymonkey_accionsalududp_df2_cor)$variable.labels[i]<-"Correo electrónico (combinación distintas entradas)"
}
for (i in 1:length(surveymonkey_accionsalududp_df2_cor)){
if(attributes(surveymonkey_accionsalududp_df2_cor)$name[i]=="decision_duplicados")
attributes(surveymonkey_accionsalududp_df2_cor)$variable.labels[i]<-"Decisión por correos duplicados"
}
cols_labels_df2_cor<-
rbind.data.frame(text=names(surveymonkey_accionsalududp_df2_cor),
labels=unlist(attributes(surveymonkey_accionsalududp_df2_cor)$"variable.labels")) %>% t() %>% data.table(keep.rownames=F)#<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 (no distingue entre datos de seguimiento y el resto
#</div>3.3 Descriptivo
Cabe señalar que las siguientes variables son comunes tanto a seguimiento como a la aplicación inicial:
- p3_siente_1:En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.
- p3_siente_2:En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.
- p3_siente_3:En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.
- p3_siente_4:En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.
- p3_siente_5:En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.
- 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.
- 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.
- 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.
- p4_afront_3:En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.
- 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.
- 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.
- 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.
- 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.
- 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? *Se reducen las alternativas de respuesta (se colapsan en Más de 100.)
- 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? *Se reducen las alternativas de respuesta (se colapsan en Más de 25.)
- p8_exp_c19_cerca_cont:¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19? *Se reducen las alternativas de respuesta a 4
- 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. *Sí No, cambiado a V/F
- 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. *Sí No, cambiado a V/F
- 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. *Sí No, cambiado a V/F
- 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). *Sí No, cambiado a V/F
- 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:¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?
- p14_contr_cont_cap_epp:¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?
- 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?
- p16_contr_cont_conf_epps:¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?
- p28_cond_trab_sis_trab:¿Dónde trabaja actualmente?
- p32_cond_trab_est:Estamento:
- p33_cond_trab_sit_cont:Situación Contractual:
- p34_cond_trab_tiemp_trab: ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (en años) *Recodificado en grupos de edad, en
p34_cond_trab_tiemp_trab_rec - 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? *Recodificado en variables dummy (V/F): rec1, rec2 y rec3
- 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? *Se agrega la opción “Pésima”
- 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”.
- p40_cond_trab_istas_01: En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido 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 información 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 deberían hacerse de otra manera?
- p40_cond_trab_istas_06: En su trabajo principal: | Su superior directo, ¿está 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 compañeras o compañeros de trabajo?
- p40_cond_trab_istas_09: En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?
- p40_cond_trab_istas_10: En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?
- p42_resiliencia_1: De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles.
- 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.
- 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.
- p43_demo_edad: ¿Qué edad tiene? (en números)*Recodificado en grupos de edad, en p43_demo_edad_rec
- p44_demo_educacion: ¿Cuál es el último nivel educacional que usted completó?
- 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+.
- p45_demo_id_personal_5: De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Migrante.
- p45_demo_id_personal_6: De los siguientes elementos ¿Cuáles reflejan su identidad personal? (marque todas las que correspondan) | Perteneciente a alguna etnia.
- 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.
- p48_demo_zona: Su lugar de trabajo principal está ubicado en una zona:
- p49_demo_comuna_trabajo: ¿En qué comuna se ubica su lugar de trabajo principal?
#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')
figFigura 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()
#EDAD: PENDIENTE
#p43_demo_edad_rec+En las sumas de puntajes, se debe tener en cuenta que las variables de seguimiento pueden distorsionar algunas sumas (ej., p9, debido a que sólo tiene 3 ítems en él)
#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_sin_irritabilidad = sum(dplyr::c_across(c(p3_siente_1_p3_num, p3_siente_2_p3_num, p3_siente_3_p3_num, p3_siente_5_p3_num, p3_siente_6_p3_num)), na.rm = T)) %>%
#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_sin_irritabilidad_ptje= agotamiento_estres_sin_irritabilidad) %>%
dplyr::mutate(estres_postraumatico_ptje= estres_postraumatico) %>%
dplyr::mutate(agotamiento_estres_sin_irritabilidad= dplyr::ntile(agotamiento_estres_sin_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_sin_irritabilidad)
#table(surveymonkey_accionsalududp_df2_cor_table$estres_postraumatico)
#table(surveymonkey_accionsalududp_df2_cor_table$agotamiento_estres_sin_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?
#2021-04-25, recodificar
dplyr::mutate(p8_exp_c19_cerca_cont_rec=
factor(dplyr::case_when(grepl("Trabajo en contacto directo o a menos de 2 metros con pacientes",
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(c("p26_cond_trab_ent_protec_1","p26_cond_trab_ent_protec_2","p26_cond_trab_ent_protec_3","p26_cond_trab_ent_protec_4")), #
.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))~"Pésima/Mala",grepl("Pésima",as.character(p38_cond_trab_sal_psi))~"Pésima/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)) %>%
#2021-04-26, se eliminó el ítem 3 y 10
dplyr::mutate(p40_istas_rel_su = sum(c_across(c("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_df2_cor$V1[i]
attr(surveymonkey_accionsalududp_df2_cor_table[[x]],"label")<-cols_labels_df2_cor$V2[i]
}
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_
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_sin_irritabilidad,"label")<-'Sentimiento de Agotamiento y estrés (sin 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_sin_irritabilidad_ptje,"label")<-'Ptjes. Sentimiento de Agotamiento y estrés (sin 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 (sin ítem 03)'
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$p43_demo_edad_rec,"label")<-"¿Qué edad tiene? (Recodificado)"
attr(surveymonkey_accionsalududp_df2_cor_table$p36_cond_trab_reasig_rec1,"label")<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores"
attr(surveymonkey_accionsalududp_df2_cor_table$p36_cond_trab_reasig_rec2,"label")<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo"
attr(surveymonkey_accionsalududp_df2_cor_table$p36_cond_trab_reasig_rec3,"label")<-"En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo"
attr(surveymonkey_accionsalududp_df2_cor_table$p34_cond_trab_tiemp_trab_rec,"label")<-"¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado)"
attr(surveymonkey_accionsalududp_df2_cor_table$p26_cond_trab_ent_protec_2_rec,"label")<-"¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia"
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_sin_irritabilidad+
estres_postraumatico+
agotamiento_estres_sin_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_2_rec+
p26_cond_trab_ent_protec_3_p26_rec+
p26_cond_trab_ent_protec_4_p26_rec+
p34_cond_trab_tiemp_trab_rec+
p36_cond_trab_reasig_rec1+
p36_cond_trab_reasig_rec2+
p36_cond_trab_reasig_rec3+
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_sin_irritabilidad=3,
estres_postraumatico=3,
agotamiento_estres_sin_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_2_rec=3,
p26_cond_trab_ent_protec_3_p26_rec=3,
p26_cond_trab_ent_protec_4_p26_rec=3,
p34_cond_trab_tiemp_trab_rec=3,
p36_cond_trab_reasig_rec1=3,
p36_cond_trab_reasig_rec2=3,
p36_cond_trab_reasig_rec3=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_sin_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")| Variables | Todos los casos | N |
|---|---|---|
| N=1007 | ||
| Sentimiento de Agotamiento y estrés (sin irritabilidad) (terciles): | 1007 | |
| 1 | 336 (33.4%) | |
| 2 | 336 (33.4%) | |
| 3 | 335 (33.3%) | |
| Estrés Postraumático (4° Cuartil): | 820 | |
| Ausencia de Indicadores de Estrés Post-traumático | 615 (75.0%) | |
| Indicadores de Estrés Post-traumático | 205 (25.0%) | |
| Ptjes. Sentimiento de Agotamiento y estrés (sin irritabilidad) | 250 [100;325] | 1007 |
| Ptjes. Estrés Postraumático | 4.00 [2.00;6.00] | 820 |
| Sintomatología ansiosa: | 804 | |
| Ausencia de Indicadores de Sintomatología Ansiosa | 431 (53.6%) | |
| Indicadores de Sintomatología Ansiosa | 373 (46.4%) | |
| Sintomatología depresiva: | 804 | |
| Ausencia de Indicadores de Sintomatología Depresiva | 519 (64.6%) | |
| Indicadores de Sintomatología Depresiva | 285 (35.4%) | |
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): | 780 | |
| Contacto directo y estrecho con pacientes (menos de dos metros) | 187 (24.0%) | |
| Menor o ningún contacto con pacientes | 593 (76.0%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): | 536 | |
| 1 | 202 (37.7%) | |
| 2 | 125 (23.3%) | |
| 3 | 88 (16.4%) | |
| Más de 3 | 121 (22.6%) | |
| ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): | 771 | |
| Bastante/Mucho | 540 (70.0%) | |
| Un poco/Nada/No aplica | 231 (30.0%) | |
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): | 771 | |
| Predomina el miedo | 383 (49.7%) | |
| Predomina la ausencia de miedo | 388 (50.3%) | |
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): | 744 | |
| Ha sido capacitado | 533 (71.6%) | |
| No ha sido capacitado | 211 (28.4%) | |
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): | 532 | |
| Mala | 31 (5.83%) | |
| Regular a Excelente | 501 (94.2%) | |
| ¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): | 727 | |
| Nada/Poco/Algo/No aplica | 262 (36.0%) | |
| Totalmente/Bastante | 465 (64.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): | 417 | |
| 1 | 326 (78.2%) | |
| 2 | 68 (16.3%) | |
| 3 | 19 (4.56%) | |
| Más de 3 | 4 (0.96%) | |
| Mi empleador se ha rehusado a dar cierto tipo de EPP: | 616 | |
| Empleador se ha rehusado a dar cierto tipo de EPP | 59 (9.58%) | |
| No se constata esta situación | 557 (90.4%) | |
| ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): | 616 | |
| Algo/Bastante/Totalente/No aplica | 554 (89.9%) | |
| Poco/Nada | 62 (10.1%) | |
| Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro (dicotomizada): | 616 | |
| Incapacidad para negarse a trabajo inseguro | 300 (48.7%) | |
| Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse | 316 (51.3%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada): | 587 | |
| Apropiadas/No sabe/No aplica | 444 (75.6%) | |
| Inapropiadas/Deficientes | 143 (24.4%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada): | 587 | |
| Apropiadas/No sabe/No aplica | 551 (93.9%) | |
| Inapropiadas/Deficientes | 36 (6.13%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada): | 587 | |
| Apropiadas/No sabe/No aplica | 554 (94.4%) | |
| Inapropiadas/Deficientes | 33 (5.62%) | |
| ¿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): | 587 | |
| Apropiadas/No sabe/No aplica | 534 (91.0%) | |
| Inapropiadas/Deficientes | 53 (9.03%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): | 587 | |
| Apropiadas/No sabe/No aplica | 375 (63.9%) | |
| Inapropiadas/Deficientes | 212 (36.1%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas (Dicotomizada): | 587 | |
| Apropiadas/No sabe/No aplica | 482 (82.1%) | |
| Inapropiadas/Deficientes | 105 (17.9%) | |
| ¿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): | 587 | |
| Apropiadas/No sabe/No aplica | 372 (63.4%) | |
| Inapropiadas/Deficientes | 215 (36.6%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): | 587 | |
| Apropiadas/No sabe/No aplica | 452 (77.0%) | |
| Inapropiadas/Deficientes | 135 (23.0%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): | 587 | |
| Apropiadas/No sabe/No aplica | 500 (85.2%) | |
| Inapropiadas/Deficientes | 87 (14.8%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada): | 554 | |
| Desacuerdo/Totalmente en desacuerdo | 77 (13.9%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 477 (86.1%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Empleador (Dicotomizada): | 554 | |
| Desacuerdo/Totalmente en desacuerdo | 92 (16.6%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 462 (83.4%) | |
| ¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia: | 111 | |
| Totalmente de acuerdo | 21 (18.9%) | |
| De acuerdo | 47 (42.3%) | |
| Ni de acuerdo ni en desacuerdo | 23 (20.7%) | |
| En desacuerdo | 19 (17.1%) | |
| Totalmente en desacuerdo | 1 (0.90%) | |
| 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): | 554 | |
| Desacuerdo/Totalmente en desacuerdo | 242 (43.7%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 312 (56.3%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada): | 554 | |
| Desacuerdo/Totalmente en desacuerdo | 110 (19.9%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 444 (80.1%) | |
| ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado): | 640 | |
| Menos de 6 meses | 24 (3.75%) | |
| Entre 6 meses y 2 años | 126 (19.7%) | |
| Entre 2 y 5 años | 166 (25.9%) | |
| Entre 5 y 11 años | 34 (5.31%) | |
| Más de 11 años | 290 (45.3%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores: | 1007 | |
| FALSE | 863 (85.7%) | |
| TRUE | 144 (14.3%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo: | 1007 | |
| FALSE | 905 (89.9%) | |
| TRUE | 102 (10.1%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo: | 1007 | |
| FALSE | 868 (86.2%) | |
| TRUE | 139 (13.8%) | |
| ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): | 632 | |
| Excelente/Buena/Regular | 545 (86.2%) | |
| Pésima/Mala | 87 (13.8%) | |
| ¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada): | 632 | |
| De acuerdo/Totalmente de acuerdo | 310 (49.1%) | |
| Neutral/En desacuerdo/Totalmente en desacuerdo | 322 (50.9%) | |
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 295 (46.7%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 337 (53.3%) | |
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 313 (49.5%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 319 (50.5%) | |
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 380 (60.1%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 252 (39.9%) | |
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 53 (8.39%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 579 (91.6%) | |
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 129 (20.4%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 503 (79.6%) | |
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 475 (75.2%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 157 (24.8%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 429 (67.9%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 203 (32.1%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 441 (69.8%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 191 (30.2%) | |
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 530 (83.9%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 102 (16.1%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): | 632 | |
| La mayoría de las veces/Siempre | 514 (81.3%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 118 (18.7%) | |
| Suma ítems Exigencias Psicológicas ISTAS21 | 5.00 [4.00;6.00] | 632 |
| Suma ítems Calidad Relación con Superiores ISTAS21 (sin ítem 03) | 6.00 [5.00;8.00] | 632 |
| Suma ítems Conflicto de Rol ISTAS21 | 3.00 [1.00;4.00] | 632 |
| Suma ítems Relación con Compañeros de Trabajo ISTAS21 | 6.00 [5.00;7.00] | 632 |
| 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): | 629 | |
| Apenas cierto/Incorrecto | 21 (3.34%) | |
| Más bien cierto/Cierto | 608 (96.7%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada): | 629 | |
| Apenas cierto/Incorrecto | 34 (5.41%) | |
| Más bien cierto/Cierto | 595 (94.6%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas (Dicotomizada): | 629 | |
| Apenas cierto/Incorrecto | 25 (3.97%) | |
| Más bien cierto/Cierto | 604 (96.0%) | |
| Suma puntajes de resilencia | 8.00 [7.00;9.00] | 629 |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: | 828 | |
| Nunca | 26 (3.14%) | |
| Sólo unas pocas <br>veces | 132 (15.9%) | |
| Algunas veces | 311 (37.6%) | |
| La mayoría de las veces | 294 (35.5%) | |
| Siempre | 65 (7.85%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: | 828 | |
| Nunca | 53 (6.40%) | |
| Sólo unas pocas <br>veces | 141 (17.0%) | |
| Algunas veces | 299 (36.1%) | |
| La mayoría de las veces | 265 (32.0%) | |
| Siempre | 70 (8.45%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: | 828 | |
| Nunca | 44 (5.31%) | |
| Sólo unas pocas <br>veces | 144 (17.4%) | |
| Algunas veces | 311 (37.6%) | |
| La mayoría de las veces | 250 (30.2%) | |
| Siempre | 79 (9.54%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: | 705 | |
| Nunca | 87 (12.3%) | |
| Sólo unas pocas <br>veces | 212 (30.1%) | |
| Algunas veces | 271 (38.4%) | |
| La mayoría de las veces | 106 (15.0%) | |
| Siempre | 29 (4.11%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: | 828 | |
| Nunca | 106 (12.8%) | |
| Sólo unas pocas <br>veces | 145 (17.5%) | |
| Algunas veces | 253 (30.6%) | |
| La mayoría de las veces | 218 (26.3%) | |
| Siempre | 106 (12.8%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: | 828 | |
| Nunca | 137 (16.5%) | |
| Sólo unas pocas <br>veces | 179 (21.6%) | |
| Algunas veces | 235 (28.4%) | |
| La mayoría de las veces | 185 (22.3%) | |
| Siempre | 92 (11.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.: | 820 | |
| Nada | 187 (22.8%) | |
| Un poco | 247 (30.1%) | |
| Regular | 208 (25.4%) | |
| Bastante | 149 (18.2%) | |
| Mucho | 29 (3.54%) | |
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: | 820 | |
| Nada | 188 (22.9%) | |
| Un poco | 242 (29.5%) | |
| Regular | 177 (21.6%) | |
| Bastante | 167 (20.4%) | |
| Mucho | 46 (5.61%) | |
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: | 820 | |
| Nada | 301 (36.7%) | |
| Un poco | 259 (31.6%) | |
| Regular | 143 (17.4%) | |
| Bastante | 83 (10.1%) | |
| Mucho | 34 (4.15%) | |
| 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.: | 804 | |
| Nunca | 161 (20.0%) | |
| Algunos días | 387 (48.1%) | |
| Más de la mitad de los días | 180 (22.4%) | |
| Casi todos los días | 76 (9.45%) | |
| Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: | 804 | |
| Nunca | 118 (14.7%) | |
| Algunos días | 334 (41.5%) | |
| Más de la mitad de los días | 228 (28.4%) | |
| Casi todos los días | 124 (15.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.: | 804 | |
| Nunca | 187 (23.3%) | |
| Algunos días | 393 (48.9%) | |
| Más de la mitad de los días | 155 (19.3%) | |
| Casi todos los días | 69 (8.58%) | |
| Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | Me he sentido decaído, deprimido o desesperanzado.: | 804 | |
| Nunca | 200 (24.9%) | |
| Algunos días | 387 (48.1%) | |
| Más de la mitad de los días | 158 (19.7%) | |
| Casi todos los días | 59 (7.34%) | |
| ¿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?: | 780 | |
| Ninguno | 345 (44.2%) | |
| 1 a 10 | 298 (38.2%) | |
| 11 a 30 | 81 (10.4%) | |
| 31 a 100 | 38 (4.87%) | |
| Más de 100 | 18 (2.31%) | |
| ¿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?: | 780 | |
| Ninguno | 398 (51.0%) | |
| Sólo uno | 109 (14.0%) | |
| 2 a 10 | 236 (30.3%) | |
| 11 a 25 | 27 (3.46%) | |
| Más de 25 | 10 (1.28%) | |
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?: | 780 | |
| Ninguno que yo esté en conocimiento | 308 (39.5%) | |
| Comparto espacios con trabajadores que están en contacto con pacientes | 173 (22.2%) | |
| Tengo algún contacto con pacientes | 112 (14.4%) | |
| Trabajo en contacto directo o a menos de 2 metros con pacientes | 187 (24.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.: | 658 | |
| 0 | 436 (66.3%) | |
| 1 | 222 (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.: | 658 | |
| 0 | 594 (90.3%) | |
| 1 | 64 (9.73%) | |
| ¿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.: | 719 | |
| 0 | 523 (72.7%) | |
| 1 | 196 (27.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.: | 658 | |
| 0 | 489 (74.3%) | |
| 1 | 169 (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.: | 662 | |
| 0 | 637 (96.2%) | |
| 1 | 25 (3.78%) | |
| ¿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.: | 658 | |
| 0 | 595 (90.4%) | |
| 1 | 63 (9.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) | Le solicitaron que se aislara.: | 658 | |
| 0 | 543 (82.5%) | |
| 1 | 115 (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.: | 658 | |
| 0 | 351 (53.3%) | |
| 1 | 307 (46.7%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Dio positivo en el examen para descartar COVID-19.: | 673 | |
| 0 | 618 (91.8%) | |
| 1 | 55 (8.17%) | |
| ¿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).: | 684 | |
| 0 | 586 (85.7%) | |
| 1 | 98 (14.3%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.: | 658 | |
| FALSE | 462 (70.2%) | |
| TRUE | 196 (29.8%) | |
| ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: | 771 | |
| Nada | 30 (3.89%) | |
| Un poco | 165 (21.4%) | |
| Bastante | 187 (24.3%) | |
| Mucho | 353 (45.8%) | |
| No aplica | 36 (4.67%) | |
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: | 771 | |
| 1 (Poco o nada) | 38 (4.93%) | |
| 2 | 41 (5.32%) | |
| 3 | 65 (8.43%) | |
| 4 | 94 (12.2%) | |
| 5 | 150 (19.5%) | |
| 6 | 112 (14.5%) | |
| 7 | 121 (15.7%) | |
| 8 | 80 (10.4%) | |
| 9 | 37 (4.80%) | |
| 10 (Tanto miedo como nunca he sentido) | 33 (4.28%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: | 631 | |
| FALSE | 274 (43.4%) | |
| TRUE | 357 (56.6%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): | 631 | |
| FALSE | 340 (53.9%) | |
| TRUE | 291 (46.1%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: | 631 | |
| FALSE | 246 (39.0%) | |
| TRUE | 385 (61.0%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: | 631 | |
| FALSE | 582 (92.2%) | |
| TRUE | 49 (7.77%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: | 631 | |
| FALSE | 83 (13.2%) | |
| TRUE | 548 (86.8%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: | 631 | |
| FALSE | 88 (13.9%) | |
| TRUE | 543 (86.1%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: | 631 | |
| FALSE | 316 (50.1%) | |
| TRUE | 315 (49.9%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: | 631 | |
| FALSE | 619 (98.1%) | |
| TRUE | 12 (1.90%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: | 631 | |
| FALSE | 342 (54.2%) | |
| TRUE | 289 (45.8%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: | 631 | |
| FALSE | 437 (69.3%) | |
| TRUE | 194 (30.7%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: | 631 | |
| FALSE | 536 (84.9%) | |
| TRUE | 95 (15.1%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: | 631 | |
| FALSE | 617 (97.8%) | |
| TRUE | 14 (2.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.: | 631 | |
| Suficiente | 382 (60.5%) | |
| Insuficiente | 91 (14.4%) | |
| No Aplica | 158 (25.0%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector de ojos.: | 631 | |
| Suficiente | 249 (39.5%) | |
| Insuficiente | 162 (25.7%) | |
| No Aplica | 220 (34.9%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Protector facial.: | 631 | |
| Suficiente | 340 (53.9%) | |
| Insuficiente | 156 (24.7%) | |
| No Aplica | 135 (21.4%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Overol.: | 631 | |
| Suficiente | 92 (14.6%) | |
| Insuficiente | 87 (13.8%) | |
| No Aplica | 452 (71.6%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Desinfectante de manos.: | 631 | |
| Suficiente | 516 (81.8%) | |
| Insuficiente | 77 (12.2%) | |
| No Aplica | 38 (6.02%) | |
| 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.: | 631 | |
| Suficiente | 498 (78.9%) | |
| Insuficiente | 93 (14.7%) | |
| No Aplica | 40 (6.34%) | |
| 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.: | 631 | |
| Suficiente | 183 (29.0%) | |
| Insuficiente | 230 (36.5%) | |
| No Aplica | 218 (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.: | 631 | |
| Suficiente | 28 (4.44%) | |
| Insuficiente | 83 (13.2%) | |
| No Aplica | 520 (82.4%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Delantal/Pechera.: | 631 | |
| Suficiente | 300 (47.5%) | |
| Insuficiente | 67 (10.6%) | |
| No Aplica | 264 (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.: | 631 | |
| Suficiente | 161 (25.5%) | |
| Insuficiente | 107 (17.0%) | |
| No Aplica | 363 (57.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.: | 631 | |
| Suficiente | 76 (12.0%) | |
| Insuficiente | 128 (20.3%) | |
| No Aplica | 427 (67.7%) | |
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: | 744 | |
| No he sido capacitado | 211 (28.4%) | |
| Sí, en el último mes | 86 (11.6%) | |
| Sí, en los últimos 6 meses | 296 (39.8%) | |
| Sí, el año pasado | 115 (15.5%) | |
| Sí, hace más de un año | 36 (4.84%) | |
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: | 532 | |
| Excelente | 60 (11.3%) | |
| Buena | 267 (50.2%) | |
| Regular | 174 (32.7%) | |
| Mala | 31 (5.83%) | |
| ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: | 727 | |
| Nada | 17 (2.34%) | |
| Poco | 45 (6.19%) | |
| Algo | 152 (20.9%) | |
| Bastante | 359 (49.4%) | |
| Totalmente | 106 (14.6%) | |
| No aplica | 48 (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.: | 616 | |
| 0 | 557 (90.4%) | |
| 1 | 59 (9.58%) | |
| ¿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.: | 616 | |
| 0 | 539 (87.5%) | |
| 1 | 77 (12.5%) | |
| ¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No se me permite reutilizar mi propio EPP.: | 616 | |
| 0 | 558 (90.6%) | |
| 1 | 58 (9.42%) | |
| ¿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.: | 616 | |
| 0 | 514 (83.4%) | |
| 1 | 102 (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: | 616 | |
| FALSE | 431 (70.0%) | |
| TRUE | 185 (30.0%) | |
| ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: | 616 | |
| Nada | 12 (1.95%) | |
| Poco | 50 (8.12%) | |
| Algo | 156 (25.3%) | |
| Bastante | 268 (43.5%) | |
| Totalmente | 94 (15.3%) | |
| No aplica | 36 (5.84%) | |
| Si se le niega el EPP apropiado, seleccione la afirmación que mejor exprese su sentir frente al ejercer su derecho a negarse a realizar un trabajo inseguro:: | 616 | |
| Negarme a trabajar no es una opción legalmente disponible para mí | 69 (11.2%) | |
| Definitivamente, no es posible negarme a trabajar | 51 (8.28%) | |
| Es improbable que pueda negarme a trabajar | 50 (8.12%) | |
| Quizás, en una situación extrema podría negarme a trabajar | 109 (17.7%) | |
| Probablemente, podría negarme a trabajar si considero que el riesgo es significativo | 207 (33.6%) | |
| Definitivamente, no dudaría en negarme a trabajar | 130 (21.1%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.: | 587 | |
| Apropiadas y bien implementadas | 181 (30.8%) | |
| Apropiadas pero mal implementadas | 118 (20.1%) | |
| Inapropiadas | 22 (3.75%) | |
| Deficientes | 121 (20.6%) | |
| No sabe | 18 (3.07%) | |
| No aplica | 127 (21.6%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: | 587 | |
| Apropiadas y bien implementadas | 295 (50.3%) | |
| Apropiadas pero mal implementadas | 75 (12.8%) | |
| Inapropiadas | 10 (1.70%) | |
| Deficientes | 26 (4.43%) | |
| No sabe | 37 (6.30%) | |
| No aplica | 144 (24.5%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: | 587 | |
| Apropiadas y bien implementadas | 268 (45.7%) | |
| Apropiadas pero mal implementadas | 80 (13.6%) | |
| Inapropiadas | 12 (2.04%) | |
| Deficientes | 21 (3.58%) | |
| No sabe | 43 (7.33%) | |
| No aplica | 163 (27.8%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.: | 587 | |
| Apropiadas y bien implementadas | 244 (41.6%) | |
| Apropiadas pero mal implementadas | 89 (15.2%) | |
| Inapropiadas | 21 (3.58%) | |
| Deficientes | 32 (5.45%) | |
| No sabe | 54 (9.20%) | |
| No aplica | 147 (25.0%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: | 587 | |
| Apropiadas y bien implementadas | 105 (17.9%) | |
| Apropiadas pero mal implementadas | 59 (10.1%) | |
| Inapropiadas | 68 (11.6%) | |
| Deficientes | 144 (24.5%) | |
| No sabe | 72 (12.3%) | |
| No aplica | 139 (23.7%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: | 587 | |
| Apropiadas y bien implementadas | 180 (30.7%) | |
| Apropiadas pero mal implementadas | 53 (9.03%) | |
| Inapropiadas | 37 (6.30%) | |
| Deficientes | 68 (11.6%) | |
| No sabe | 64 (10.9%) | |
| No aplica | 185 (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.: | 587 | |
| Apropiadas y bien implementadas | 120 (20.4%) | |
| Apropiadas pero mal implementadas | 52 (8.86%) | |
| Inapropiadas | 67 (11.4%) | |
| Deficientes | 148 (25.2%) | |
| No sabe | 55 (9.37%) | |
| No aplica | 145 (24.7%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: | 587 | |
| Apropiadas y bien implementadas | 154 (26.2%) | |
| Apropiadas pero mal implementadas | 45 (7.67%) | |
| Inapropiadas | 35 (5.96%) | |
| Deficientes | 100 (17.0%) | |
| No sabe | 88 (15.0%) | |
| No aplica | 165 (28.1%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.: | 587 | |
| Apropiadas y bien implementadas | 269 (45.8%) | |
| Apropiadas pero mal implementadas | 60 (10.2%) | |
| Inapropiadas | 33 (5.62%) | |
| Deficientes | 54 (9.20%) | |
| No sabe | 71 (12.1%) | |
| No aplica | 100 (17.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.: | 554 | |
| Totalmente de acuerdo | 142 (25.6%) | |
| De acuerdo | 184 (33.2%) | |
| Ni de acuerdo ni en desacuerdo | 151 (27.3%) | |
| En desacuerdo | 58 (10.5%) | |
| Totalmente en desacuerdo | 19 (3.43%) | |
| 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.: | 554 | |
| Totalmente de acuerdo | 122 (22.0%) | |
| De acuerdo | 226 (40.8%) | |
| Ni de acuerdo ni en desacuerdo | 114 (20.6%) | |
| En desacuerdo | 77 (13.9%) | |
| Totalmente en desacuerdo | 15 (2.71%) | |
| 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.: | 554 | |
| Totalmente de acuerdo | 51 (9.21%) | |
| De acuerdo | 113 (20.4%) | |
| Ni de acuerdo ni en desacuerdo | 148 (26.7%) | |
| En desacuerdo | 145 (26.2%) | |
| Totalmente en desacuerdo | 97 (17.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.: | 554 | |
| Totalmente de acuerdo | 85 (15.3%) | |
| De acuerdo | 156 (28.2%) | |
| Ni de acuerdo ni en desacuerdo | 203 (36.6%) | |
| En desacuerdo | 78 (14.1%) | |
| Totalmente en desacuerdo | 32 (5.78%) | |
| ¿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?: | 535 | |
| Mantengo las mismas labores | 356 (66.5%) | |
| Mantengo las mismas labores, pero en un área distinta | 20 (3.74%) | |
| Mantengo las mismas labores, pero en un lugar físico distinto | 43 (8.04%) | |
| Mantengo las mismas labores, pero en área y lugar físico distintos | 14 (2.62%) | |
| Distintas labores, pero en la misma área | 38 (7.10%) | |
| Distintas labores, pero en el mismo lugar físico | 28 (5.23%) | |
| Labores, área y lugar físico distintos | 36 (6.73%) | |
| ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: | 632 | |
| Excelente | 14 (2.22%) | |
| Buena | 216 (34.2%) | |
| Regular | 315 (49.8%) | |
| Mala | 84 (13.3%) | |
| Pésima | 3 (0.47%) | |
| ¿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”.: | 632 | |
| Totalmente de acuerdo | 99 (15.7%) | |
| De acuerdo | 211 (33.4%) | |
| Neutral | 165 (26.1%) | |
| En desacuerdo | 114 (18.0%) | |
| Totalmente en desacuerdo | 43 (6.80%) | |
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: | 632 | |
| Siempre | 120 (19.0%) | |
| La mayoría <br>de las veces | 175 (27.7%) | |
| Algunas veces | 230 (36.4%) | |
| Sólo unas <br>pocas veces | 83 (13.1%) | |
| Nunca | 24 (3.80%) | |
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: | 632 | |
| Siempre | 107 (16.9%) | |
| La mayoría <br>de las veces | 206 (32.6%) | |
| Algunas veces | 220 (34.8%) | |
| Sólo unas <br>pocas veces | 77 (12.2%) | |
| Nunca | 22 (3.48%) | |
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: | 632 | |
| Siempre | 119 (18.8%) | |
| La mayoría <br>de las veces | 261 (41.3%) | |
| Algunas veces | 176 (27.8%) | |
| Sólo unas <br>pocas veces | 67 (10.6%) | |
| Nunca | 9 (1.42%) | |
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: | 632 | |
| Siempre | 19 (3.01%) | |
| La mayoría <br>de las veces | 34 (5.38%) | |
| Algunas veces | 185 (29.3%) | |
| Sólo unas <br>pocas veces | 169 (26.7%) | |
| Nunca | 225 (35.6%) | |
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: | 632 | |
| Siempre | 38 (6.01%) | |
| La mayoría <br>de las veces | 91 (14.4%) | |
| Algunas veces | 252 (39.9%) | |
| Sólo unas <br>pocas veces | 153 (24.2%) | |
| Nunca | 98 (15.5%) | |
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: | 632 | |
| Siempre | 295 (46.7%) | |
| La mayoría <br>de las veces | 180 (28.5%) | |
| Algunas veces | 84 (13.3%) | |
| Sólo unas <br>pocas veces | 49 (7.75%) | |
| Nunca | 24 (3.80%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: | 632 | |
| Siempre | 234 (37.0%) | |
| La mayoría <br>de las veces | 195 (30.9%) | |
| Algunas veces | 110 (17.4%) | |
| Sólo unas <br>pocas veces | 63 (9.97%) | |
| Nunca | 30 (4.75%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: | 632 | |
| Siempre | 197 (31.2%) | |
| La mayoría <br>de las veces | 244 (38.6%) | |
| Algunas veces | 133 (21.0%) | |
| Sólo unas <br>pocas veces | 39 (6.17%) | |
| Nunca | 19 (3.01%) | |
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: | 632 | |
| Siempre | 233 (36.9%) | |
| La mayoría <br>de las veces | 297 (47.0%) | |
| Algunas veces | 79 (12.5%) | |
| Sólo unas <br>pocas veces | 17 (2.69%) | |
| Nunca | 6 (0.95%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: | 632 | |
| Siempre | 364 (57.6%) | |
| La mayoría <br>de las veces | 150 (23.7%) | |
| Algunas veces | 64 (10.1%) | |
| Sólo unas <br>pocas veces | 30 (4.75%) | |
| Nunca | 24 (3.80%) | |
| 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.: | 629 | |
| Incorrecto | 4 (0.64%) | |
| Apenas cierto | 17 (2.70%) | |
| Más bien cierto | 178 (28.3%) | |
| Cierto | 430 (68.4%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.: | 629 | |
| Incorrecto | 3 (0.48%) | |
| Apenas cierto | 31 (4.93%) | |
| Más bien cierto | 236 (37.5%) | |
| Cierto | 359 (57.1%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas.: | 629 | |
| Incorrecto | 3 (0.48%) | |
| Apenas cierto | 22 (3.50%) | |
| Más bien cierto | 219 (34.8%) | |
| Cierto | 385 (61.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
#p26_cond_trab_ent_protec_2_rec p34_cond_trab_tiemp_trab_rec p36_cond_trab_reasig_rec1 p36_cond_trab_reasig_rec2 p36_cond_trab_reasig_rec3 p43_demo_edad_rec
table2_sex <- suppressWarnings(compareGroups(p45_demo_sexo ~
agotamiento_estres_sin_irritabilidad+
estres_postraumatico+
agotamiento_estres_sin_irritabilidad_ptje+
estres_postraumatico_ptje+
#agotamiento_estres_sin_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_2_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_sin_irritabilidad=3,
estres_postraumatico=3,
agotamiento_estres_sin_irritabilidad_ptje=2,
estres_postraumatico_ptje=2,
# agotamiento_estres_sin_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_2_rec=3,
p26_cond_trab_ent_protec_3_p26_rec=3,
p26_cond_trab_ent_protec_4_p26_rec=3,
p34_cond_trab_tiemp_trab_rec=3,
p36_cond_trab_reasig_rec1=3,
p36_cond_trab_reasig_rec2=3,
p36_cond_trab_reasig_rec3=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,
p43_demo_edad_rec=3,
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_sin_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")| Variables | Hombres | Mujeres | Valor-p |
|---|---|---|---|
| N=153 | N=469 | ||
| Sentimiento de Agotamiento y estrés (sin irritabilidad) (terciles): | <0.001 | ||
| 1 | 34 (22.2%) | 75 (16.0%) | |
| 2 | 76 (49.7%) | 177 (37.7%) | |
| 3 | 43 (28.1%) | 217 (46.3%) | |
| Estrés Postraumático (4° Cuartil): | 0.043 | ||
| Ausencia de Indicadores de Estrés Post-traumático | 125 (81.7%) | 343 (73.1%) | |
| Indicadores de Estrés Post-traumático | 28 (18.3%) | 126 (26.9%) | |
| Ptjes. Sentimiento de Agotamiento y estrés (sin irritabilidad) | 250 [175;300] | 300 [200;350] | <0.001 |
| Ptjes. Estrés Postraumático | 3.00 [1.00;5.00] | 4.00 [2.00;7.00] | 0.012 |
| Sintomatología ansiosa: | <0.001 | ||
| Ausencia de Indicadores de Sintomatología Ansiosa | 102 (66.7%) | 227 (48.4%) | |
| Indicadores de Sintomatología Ansiosa | 51 (33.3%) | 242 (51.6%) | |
| Sintomatología depresiva: | 0.003 | ||
| Ausencia de Indicadores de Sintomatología Depresiva | 114 (74.5%) | 286 (61.0%) | |
| Indicadores de Sintomatología Depresiva | 39 (25.5%) | 183 (39.0%) | |
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): | 0.072 | ||
| Contacto directo y estrecho con pacientes (menos de dos metros) | 27 (17.6%) | 118 (25.2%) | |
| Menor o ningún contacto con pacientes | 126 (82.4%) | 351 (74.8%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): | 0.609 | ||
| 1 | 45 (42.1%) | 123 (36.8%) | |
| 2 | 26 (24.3%) | 78 (23.4%) | |
| 3 | 14 (13.1%) | 60 (18.0%) | |
| Más de 3 | 22 (20.6%) | 73 (21.9%) | |
| ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): | 0.282 | ||
| Bastante/Mucho | 104 (68.0%) | 342 (72.9%) | |
| Un poco/Nada/No aplica | 49 (32.0%) | 127 (27.1%) | |
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): | 0.028 | ||
| Predomina el miedo | 63 (41.2%) | 243 (51.8%) | |
| Predomina la ausencia de miedo | 90 (58.8%) | 226 (48.2%) | |
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): | 0.494 | ||
| Ha sido capacitado | 114 (74.5%) | 334 (71.2%) | |
| No ha sido capacitado | 39 (25.5%) | 135 (28.8%) | |
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): | 0.779 | ||
| Mala | 6 (5.26%) | 22 (6.59%) | |
| Regular a Excelente | 108 (94.7%) | 312 (93.4%) | |
| ¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): | 0.906 | ||
| Nada/Poco/Algo/No aplica | 53 (34.6%) | 158 (33.7%) | |
| Totalmente/Bastante | 100 (65.4%) | 311 (66.3%) | |
| ¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas): | 0.336 | ||
| 1 | 64 (81.0%) | 222 (78.7%) | |
| 2 | 9 (11.4%) | 44 (15.6%) | |
| 3 | 6 (7.59%) | 12 (4.26%) | |
| Más de 3 | 0 (0.00%) | 4 (1.42%) | |
| Mi empleador se ha rehusado a dar cierto tipo de EPP: | 0.143 | ||
| Empleador se ha rehusado a dar cierto tipo de EPP | 7 (5.74%) | 42 (10.7%) | |
| No se constata esta situación | 115 (94.3%) | 349 (89.3%) | |
| ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): | 0.765 | ||
| Algo/Bastante/Totalente/No aplica | 109 (89.3%) | 355 (90.8%) | |
| Poco/Nada | 13 (10.7%) | 36 (9.21%) | |
| 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.109 | ||
| Incapacidad para negarse a trabajo inseguro | 51 (41.8%) | 198 (50.6%) | |
| Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse | 71 (58.2%) | 193 (49.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.642 | ||
| Apropiadas/No sabe/No aplica | 94 (77.0%) | 291 (74.4%) | |
| Inapropiadas/Deficientes | 28 (23.0%) | 100 (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.883 | ||
| Apropiadas/No sabe/No aplica | 115 (94.3%) | 365 (93.4%) | |
| Inapropiadas/Deficientes | 7 (5.74%) | 26 (6.65%) | |
| ¿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%) | 369 (94.4%) | |
| Inapropiadas/Deficientes | 7 (5.74%) | 22 (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): | 0.016 | ||
| Apropiadas/No sabe/No aplica | 118 (96.7%) | 348 (89.0%) | |
| Inapropiadas/Deficientes | 4 (3.28%) | 43 (11.0%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): | 0.643 | ||
| Apropiadas/No sabe/No aplica | 79 (64.8%) | 242 (61.9%) | |
| Inapropiadas/Deficientes | 43 (35.2%) | 149 (38.1%) | |
| ¿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%) | 323 (82.6%) | |
| Inapropiadas/Deficientes | 21 (17.2%) | 68 (17.4%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada): | 0.747 | ||
| Apropiadas/No sabe/No aplica | 80 (65.6%) | 248 (63.4%) | |
| Inapropiadas/Deficientes | 42 (34.4%) | 143 (36.6%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): | 0.674 | ||
| Apropiadas/No sabe/No aplica | 91 (74.6%) | 301 (77.0%) | |
| Inapropiadas/Deficientes | 31 (25.4%) | 90 (23.0%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): | 0.730 | ||
| Apropiadas/No sabe/No aplica | 102 (83.6%) | 334 (85.4%) | |
| Inapropiadas/Deficientes | 20 (16.4%) | 57 (14.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.252 | ||
| Desacuerdo/Totalmente en desacuerdo | 13 (10.7%) | 60 (15.3%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 109 (89.3%) | 331 (84.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.111 | ||
| Desacuerdo/Totalmente en desacuerdo | 14 (11.5%) | 71 (18.2%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 108 (88.5%) | 320 (81.8%) | |
| ¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia: | 0.271 | ||
| Totalmente de acuerdo | 4 (12.9%) | 17 (21.8%) | |
| De acuerdo | 18 (58.1%) | 27 (34.6%) | |
| Ni de acuerdo ni en desacuerdo | 5 (16.1%) | 18 (23.1%) | |
| En desacuerdo | 4 (12.9%) | 15 (19.2%) | |
| Totalmente en desacuerdo | 0 (0.00%) | 1 (1.28%) | |
| 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%) | 184 (47.1%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 83 (68.0%) | 207 (52.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.089 | ||
| Desacuerdo/Totalmente en desacuerdo | 17 (13.9%) | 84 (21.5%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 105 (86.1%) | 307 (78.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.991 | ||
| Cambia área, labores o ambos producto de la pandemia | 23 (18.9%) | 76 (19.4%) | |
| Mantiene las mismas labores en la misma área | 99 (81.1%) | 315 (80.6%) | |
| ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): | 0.965 | ||
| Excelente/Buena/Regular | 133 (86.9%) | 405 (86.4%) | |
| Pésima/Mala | 20 (13.1%) | 64 (13.6%) | |
| ¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada): | 0.998 | ||
| De acuerdo/Totalmente de acuerdo | 75 (49.0%) | 232 (49.5%) | |
| Neutral/En desacuerdo/Totalmente en desacuerdo | 78 (51.0%) | 237 (50.5%) | |
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): | 0.553 | ||
| La mayoría de las veces/Siempre | 76 (49.7%) | 218 (46.5%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 77 (50.3%) | 251 (53.5%) | |
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): | 0.305 | ||
| La mayoría de las veces/Siempre | 70 (45.8%) | 239 (51.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 83 (54.2%) | 230 (49.0%) | |
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): | 0.601 | ||
| La mayoría de las veces/Siempre | 95 (62.1%) | 278 (59.3%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 58 (37.9%) | 191 (40.7%) | |
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): | 0.441 | ||
| La mayoría de las veces/Siempre | 10 (6.54%) | 42 (8.96%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 143 (93.5%) | 427 (91.0%) | |
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): | 0.909 | ||
| La mayoría de las veces/Siempre | 30 (19.6%) | 96 (20.5%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 123 (80.4%) | 373 (79.5%) | |
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): | 0.123 | ||
| La mayoría de las veces/Siempre | 123 (80.4%) | 346 (73.8%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 30 (19.6%) | 123 (26.2%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): | 0.092 | ||
| La mayoría de las veces/Siempre | 113 (73.9%) | 310 (66.1%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 40 (26.1%) | 159 (33.9%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): | 0.005 | ||
| La mayoría de las veces/Siempre | 121 (79.1%) | 313 (66.7%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 32 (20.9%) | 156 (33.3%) | |
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): | 0.299 | ||
| La mayoría de las veces/Siempre | 133 (86.9%) | 389 (82.9%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 20 (13.1%) | 80 (17.1%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): | 0.096 | ||
| La mayoría de las veces/Siempre | 117 (76.5%) | 389 (82.9%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 36 (23.5%) | 80 (17.1%) | |
| Suma ítems Exigencias Psicológicas ISTAS21 | 5.00 [3.00;6.00] | 5.00 [4.00;6.00] | 0.569 |
| Suma ítems Calidad Relación con Superiores ISTAS21 (sin ítem 03) | 7.00 [5.00;8.00] | 6.00 [4.00;8.00] | 0.054 |
| Suma ítems Conflicto de Rol ISTAS21 | 3.00 [1.00;4.00] | 3.00 [2.00;4.00] | 0.194 |
| Suma ítems Relación con Compañeros de Trabajo ISTAS21 | 6.00 [5.00;7.00] | 6.00 [5.00;7.00] | 0.024 |
| 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.423 | ||
| Apenas cierto/Incorrecto | 3 (1.96%) | 17 (3.62%) | |
| Más bien cierto/Cierto | 150 (98.0%) | 452 (96.4%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada): | 0.798 | ||
| Apenas cierto/Incorrecto | 7 (4.58%) | 26 (5.54%) | |
| Más bien cierto/Cierto | 146 (95.4%) | 443 (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): | 0.245 | ||
| Apenas cierto/Incorrecto | 3 (1.96%) | 21 (4.48%) | |
| Más bien cierto/Cierto | 150 (98.0%) | 448 (95.5%) | |
| Suma puntajes de resilencia | 8.00 [7.00;9.00] | 8.00 [7.00;9.00] | 0.293 |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: | 0.001 | ||
| Nunca | 9 (5.88%) | 10 (2.13%) | |
| Sólo unas pocas <br>veces | 26 (17.0%) | 70 (14.9%) | |
| Algunas veces | 71 (46.4%) | 166 (35.4%) | |
| La mayoría de las veces | 40 (26.1%) | 178 (38.0%) | |
| Siempre | 7 (4.58%) | 45 (9.59%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: | <0.001 | ||
| Nunca | 18 (11.8%) | 23 (4.90%) | |
| Sólo unas pocas <br>veces | 37 (24.2%) | 63 (13.4%) | |
| Algunas veces | 61 (39.9%) | 166 (35.4%) | |
| La mayoría de las veces | 30 (19.6%) | 171 (36.5%) | |
| Siempre | 7 (4.58%) | 46 (9.81%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: | 0.044 | ||
| Nunca | 14 (9.15%) | 22 (4.69%) | |
| Sólo unas pocas <br>veces | 31 (20.3%) | 70 (14.9%) | |
| Algunas veces | 59 (38.6%) | 174 (37.1%) | |
| La mayoría de las veces | 38 (24.8%) | 152 (32.4%) | |
| Siempre | 11 (7.19%) | 51 (10.9%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: | 0.417 | ||
| Nunca | 17 (13.9%) | 45 (11.5%) | |
| Sólo unas pocas <br>veces | 40 (32.8%) | 115 (29.4%) | |
| Algunas veces | 43 (35.2%) | 150 (38.4%) | |
| La mayoría de las veces | 15 (12.3%) | 68 (17.4%) | |
| Siempre | 7 (5.74%) | 13 (3.32%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: | 0.058 | ||
| Nunca | 28 (18.3%) | 51 (10.9%) | |
| Sólo unas pocas <br>veces | 23 (15.0%) | 81 (17.3%) | |
| Algunas veces | 50 (32.7%) | 133 (28.4%) | |
| La mayoría de las veces | 37 (24.2%) | 134 (28.6%) | |
| Siempre | 15 (9.80%) | 70 (14.9%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: | 0.039 | ||
| Nunca | 34 (22.2%) | 71 (15.1%) | |
| Sólo unas pocas <br>veces | 40 (26.1%) | 89 (19.0%) | |
| Algunas veces | 37 (24.2%) | 140 (29.9%) | |
| La mayoría de las veces | 27 (17.6%) | 109 (23.2%) | |
| Siempre | 15 (9.80%) | 60 (12.8%) | |
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Distante y desconectado de mi mismo y mi entorno.: | 0.030 | ||
| Nada | 35 (22.9%) | 106 (22.6%) | |
| Un poco | 58 (37.9%) | 131 (27.9%) | |
| Regular | 40 (26.1%) | 121 (25.8%) | |
| Bastante | 18 (11.8%) | 93 (19.8%) | |
| Mucho | 2 (1.31%) | 18 (3.84%) | |
| 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 | 43 (28.1%) | 87 (18.6%) | |
| Un poco | 49 (32.0%) | 150 (32.0%) | |
| Regular | 29 (19.0%) | 97 (20.7%) | |
| Bastante | 26 (17.0%) | 106 (22.6%) | |
| Mucho | 6 (3.92%) | 29 (6.18%) | |
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: | 0.053 | ||
| Nada | 65 (42.5%) | 162 (34.5%) | |
| Un poco | 52 (34.0%) | 141 (30.1%) | |
| Regular | 15 (9.80%) | 92 (19.6%) | |
| Bastante | 15 (9.80%) | 54 (11.5%) | |
| Mucho | 6 (3.92%) | 20 (4.26%) | |
| 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 | 44 (28.8%) | 78 (16.6%) | |
| Algunos días | 77 (50.3%) | 220 (46.9%) | |
| Más de la mitad de los días | 26 (17.0%) | 118 (25.2%) | |
| Casi todos los días | 6 (3.92%) | 53 (11.3%) | |
| Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: | 0.001 | ||
| Nunca | 30 (19.6%) | 53 (11.3%) | |
| Algunos días | 72 (47.1%) | 189 (40.3%) | |
| Más de la mitad de los días | 40 (26.1%) | 146 (31.1%) | |
| Casi todos los días | 11 (7.19%) | 81 (17.3%) | |
| Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas.: | 0.388 | ||
| Nunca | 39 (25.5%) | 106 (22.6%) | |
| Algunos días | 73 (47.7%) | 227 (48.4%) | |
| Más de la mitad de los días | 33 (21.6%) | 92 (19.6%) | |
| Casi todos los días | 8 (5.23%) | 44 (9.38%) | |
| 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 | 51 (33.3%) | 106 (22.6%) | |
| Algunos días | 75 (49.0%) | 222 (47.3%) | |
| Más de la mitad de los días | 18 (11.8%) | 105 (22.4%) | |
| Casi todos los días | 9 (5.88%) | 36 (7.68%) | |
| ¿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.411 | ||
| Ninguno | 64 (41.8%) | 205 (43.7%) | |
| 1 a 10 | 53 (34.6%) | 184 (39.2%) | |
| 11 a 30 | 20 (13.1%) | 49 (10.4%) | |
| 31 a 100 | 11 (7.19%) | 23 (4.90%) | |
| Más de 100 | 5 (3.27%) | 8 (1.71%) | |
| ¿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.494 | ||
| Ninguno | 80 (52.3%) | 233 (49.7%) | |
| Sólo uno | 20 (13.1%) | 74 (15.8%) | |
| 2 a 10 | 42 (27.5%) | 143 (30.5%) | |
| 11 a 25 | 8 (5.23%) | 14 (2.99%) | |
| Más de 25 | 3 (1.96%) | 5 (1.07%) | |
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?: | 0.120 | ||
| Ninguno que yo esté en conocimiento | 60 (39.2%) | 186 (39.7%) | |
| Comparto espacios con trabajadores que están en contacto con pacientes | 37 (24.2%) | 104 (22.2%) | |
| Tengo algún contacto con pacientes | 29 (19.0%) | 61 (13.0%) | |
| Trabajo en contacto directo o a menos de 2 metros con pacientes | 27 (17.6%) | 118 (25.2%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.: | 1.000 | ||
| 0 | 80 (65.6%) | 258 (66.0%) | |
| 1 | 42 (34.4%) | 133 (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.766 | ||
| 0 | 111 (91.0%) | 350 (89.5%) | |
| 1 | 11 (9.02%) | 41 (10.5%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de la exposición a COVID-19.: | 0.224 | ||
| 0 | 92 (65.7%) | 310 (71.6%) | |
| 1 | 48 (34.3%) | 123 (28.4%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.: | 1.000 | ||
| 0 | 92 (75.4%) | 294 (75.2%) | |
| 1 | 30 (24.6%) | 97 (24.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 los síntomas.: | 0.434 | ||
| 0 | 120 (97.6%) | 378 (95.9%) | |
| 1 | 3 (2.44%) | 16 (4.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.: | 1.000 | ||
| 0 | 109 (89.3%) | 351 (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.969 | ||
| 0 | 101 (82.8%) | 321 (82.1%) | |
| 1 | 21 (17.2%) | 70 (17.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) | Se hizo el examen para descartar COVID-19.: | 0.607 | ||
| 0 | 66 (54.1%) | 199 (50.9%) | |
| 1 | 56 (45.9%) | 192 (49.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.034 | ||
| 0 | 118 (96.7%) | 366 (90.1%) | |
| 1 | 4 (3.28%) | 40 (9.85%) | |
| ¿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.039 | ||
| 0 | 115 (91.3%) | 344 (83.3%) | |
| 1 | 11 (8.73%) | 69 (16.7%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.: | 1.000 | ||
| FALSE | 88 (72.1%) | 280 (71.6%) | |
| TRUE | 34 (27.9%) | 111 (28.4%) | |
| ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: | 0.013 | ||
| Nada | 11 (7.19%) | 11 (2.35%) | |
| Un poco | 36 (23.5%) | 93 (19.8%) | |
| Bastante | 39 (25.5%) | 121 (25.8%) | |
| Mucho | 65 (42.5%) | 221 (47.1%) | |
| No aplica | 2 (1.31%) | 23 (4.90%) | |
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: | 0.001 | ||
| 1 (Poco o nada) | 16 (10.5%) | 13 (2.77%) | |
| 2 | 8 (5.23%) | 21 (4.48%) | |
| 3 | 19 (12.4%) | 37 (7.89%) | |
| 4 | 23 (15.0%) | 55 (11.7%) | |
| 5 | 24 (15.7%) | 100 (21.3%) | |
| 6 | 26 (17.0%) | 69 (14.7%) | |
| 7 | 19 (12.4%) | 76 (16.2%) | |
| 8 | 11 (7.19%) | 54 (11.5%) | |
| 9 | 4 (2.61%) | 23 (4.90%) | |
| 10 (Tanto miedo como nunca he sentido) | 3 (1.96%) | 21 (4.48%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: | 0.367 | ||
| FALSE | 60 (49.2%) | 172 (44.0%) | |
| TRUE | 62 (50.8%) | 219 (56.0%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): | 0.355 | ||
| FALSE | 72 (59.0%) | 210 (53.7%) | |
| TRUE | 50 (41.0%) | 181 (46.3%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: | 0.168 | ||
| FALSE | 56 (45.9%) | 150 (38.4%) | |
| TRUE | 66 (54.1%) | 241 (61.6%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: | 0.010 | ||
| FALSE | 105 (86.1%) | 367 (93.9%) | |
| TRUE | 17 (13.9%) | 24 (6.14%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: | 0.260 | ||
| FALSE | 18 (14.8%) | 41 (10.5%) | |
| TRUE | 104 (85.2%) | 350 (89.5%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: | 0.745 | ||
| FALSE | 17 (13.9%) | 48 (12.3%) | |
| TRUE | 105 (86.1%) | 343 (87.7%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: | 0.929 | ||
| FALSE | 63 (51.6%) | 198 (50.6%) | |
| TRUE | 59 (48.4%) | 193 (49.4%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: | 0.100 | ||
| FALSE | 118 (96.7%) | 387 (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.143 | ||
| FALSE | 76 (62.3%) | 212 (54.2%) | |
| TRUE | 46 (37.7%) | 179 (45.8%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: | 0.021 | ||
| FALSE | 98 (80.3%) | 270 (69.1%) | |
| TRUE | 24 (19.7%) | 121 (30.9%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: | 1.000 | ||
| FALSE | 105 (86.1%) | 335 (85.7%) | |
| TRUE | 17 (13.9%) | 56 (14.3%) | |
| 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%) | 386 (98.7%) | |
| TRUE | 2 (1.64%) | 5 (1.28%) | |
| 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.192 | ||
| Suficiente | 82 (67.2%) | 231 (59.1%) | |
| Insuficiente | 11 (9.02%) | 56 (14.3%) | |
| No Aplica | 29 (23.8%) | 104 (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.186 | ||
| Suficiente | 52 (42.6%) | 146 (37.3%) | |
| Insuficiente | 22 (18.0%) | 102 (26.1%) | |
| No Aplica | 48 (39.3%) | 143 (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.561 | ||
| Suficiente | 67 (54.9%) | 207 (52.9%) | |
| Insuficiente | 25 (20.5%) | 98 (25.1%) | |
| No Aplica | 30 (24.6%) | 86 (22.0%) | |
| 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.346 | ||
| Suficiente | 21 (17.2%) | 52 (13.3%) | |
| Insuficiente | 20 (16.4%) | 53 (13.6%) | |
| No Aplica | 81 (66.4%) | 286 (73.1%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Desinfectante de manos.: | 0.072 | ||
| Suficiente | 109 (89.3%) | 314 (80.3%) | |
| Insuficiente | 9 (7.38%) | 54 (13.8%) | |
| No Aplica | 4 (3.28%) | 23 (5.88%) | |
| 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.078 | ||
| Suficiente | 106 (86.9%) | 304 (77.7%) | |
| Insuficiente | 11 (9.02%) | 66 (16.9%) | |
| No Aplica | 5 (4.10%) | 21 (5.37%) | |
| 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.533 | ||
| Suficiente | 41 (33.6%) | 114 (29.2%) | |
| Insuficiente | 38 (31.1%) | 141 (36.1%) | |
| No Aplica | 43 (35.2%) | 136 (34.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.723 | ||
| Suficiente | 7 (5.74%) | 16 (4.09%) | |
| Insuficiente | 17 (13.9%) | 52 (13.3%) | |
| No Aplica | 98 (80.3%) | 323 (82.6%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Delantal/Pechera.: | 0.792 | ||
| Suficiente | 58 (47.5%) | 185 (47.3%) | |
| Insuficiente | 10 (8.20%) | 40 (10.2%) | |
| No Aplica | 54 (44.3%) | 166 (42.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.355 | ||
| Suficiente | 27 (22.1%) | 97 (24.8%) | |
| Insuficiente | 16 (13.1%) | 68 (17.4%) | |
| No Aplica | 79 (64.8%) | 226 (57.8%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cubre calzado.: | 0.278 | ||
| Suficiente | 20 (16.4%) | 43 (11.0%) | |
| Insuficiente | 23 (18.9%) | 75 (19.2%) | |
| No Aplica | 79 (64.8%) | 273 (69.8%) | |
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: | 0.259 | ||
| No he sido capacitado | 39 (25.5%) | 135 (28.8%) | |
| Sí, en el último mes | 21 (13.7%) | 55 (11.7%) | |
| Sí, en los últimos 6 meses | 69 (45.1%) | 174 (37.1%) | |
| Sí, el año pasado | 19 (12.4%) | 80 (17.1%) | |
| Sí, hace más de un año | 5 (3.27%) | 25 (5.33%) | |
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: | 0.310 | ||
| Excelente | 17 (14.9%) | 31 (9.28%) | |
| Buena | 53 (46.5%) | 177 (53.0%) | |
| Regular | 38 (33.3%) | 104 (31.1%) | |
| Mala | 6 (5.26%) | 22 (6.59%) | |
| ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: | 0.193 | ||
| Nada | 2 (1.31%) | 9 (1.92%) | |
| Poco | 14 (9.15%) | 20 (4.26%) | |
| Algo | 28 (18.3%) | 98 (20.9%) | |
| Bastante | 72 (47.1%) | 243 (51.8%) | |
| Totalmente | 28 (18.3%) | 68 (14.5%) | |
| No aplica | 9 (5.88%) | 31 (6.61%) | |
| ¿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.143 | ||
| 0 | 115 (94.3%) | 349 (89.3%) | |
| 1 | 7 (5.74%) | 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) | Necesito permiso para utilizar algún EPP específico.: | 0.393 | ||
| 0 | 110 (90.2%) | 339 (86.7%) | |
| 1 | 12 (9.84%) | 52 (13.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.362 | ||
| 0 | 113 (92.6%) | 349 (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%) | 324 (82.9%) | |
| 1 | 21 (17.2%) | 67 (17.1%) | |
| ¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPP’s? (Marque las opciones que apliquen a su experiencia) | No aplica: | 0.204 | ||
| FALSE | 83 (68.0%) | 291 (74.4%) | |
| TRUE | 39 (32.0%) | 100 (25.6%) | |
| ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: | 0.008 | ||
| Nada | 1 (0.82%) | 7 (1.79%) | |
| Poco | 12 (9.84%) | 29 (7.42%) | |
| Algo | 19 (15.6%) | 105 (26.9%) | |
| Bastante | 50 (41.0%) | 177 (45.3%) | |
| Totalmente | 29 (23.8%) | 53 (13.6%) | |
| No aplica | 11 (9.02%) | 20 (5.12%) | |
| 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.3%) | |
| Definitivamente, no es posible negarme a trabajar | 4 (3.28%) | 34 (8.70%) | |
| Es improbable que pueda negarme a trabajar | 6 (4.92%) | 33 (8.44%) | |
| Quizás, en una situación extrema podría negarme a trabajar | 27 (22.1%) | 62 (15.9%) | |
| Probablemente, podría negarme a trabajar si considero que el riesgo es significativo | 44 (36.1%) | 131 (33.5%) | |
| Definitivamente, no dudaría en negarme a trabajar | 33 (27.0%) | 79 (20.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.954 | ||
| Apropiadas y bien implementadas | 44 (36.1%) | 122 (31.2%) | |
| Apropiadas pero mal implementadas | 22 (18.0%) | 75 (19.2%) | |
| Inapropiadas | 5 (4.10%) | 17 (4.35%) | |
| Deficientes | 23 (18.9%) | 83 (21.2%) | |
| No sabe | 3 (2.46%) | 10 (2.56%) | |
| No aplica | 25 (20.5%) | 84 (21.5%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: | 0.087 | ||
| Apropiadas y bien implementadas | 66 (54.1%) | 195 (49.9%) | |
| Apropiadas pero mal implementadas | 10 (8.20%) | 55 (14.1%) | |
| Inapropiadas | 0 (0.00%) | 10 (2.56%) | |
| Deficientes | 7 (5.74%) | 16 (4.09%) | |
| No sabe | 11 (9.02%) | 19 (4.86%) | |
| No aplica | 28 (23.0%) | 96 (24.6%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: | 0.362 | ||
| Apropiadas y bien implementadas | 51 (41.8%) | 184 (47.1%) | |
| Apropiadas pero mal implementadas | 16 (13.1%) | 55 (14.1%) | |
| Inapropiadas | 3 (2.46%) | 7 (1.79%) | |
| Deficientes | 4 (3.28%) | 15 (3.84%) | |
| No sabe | 14 (11.5%) | 22 (5.63%) | |
| No aplica | 34 (27.9%) | 108 (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.: | 0.053 | ||
| Apropiadas y bien implementadas | 53 (43.4%) | 168 (43.0%) | |
| Apropiadas pero mal implementadas | 15 (12.3%) | 59 (15.1%) | |
| Inapropiadas | 1 (0.82%) | 15 (3.84%) | |
| Deficientes | 3 (2.46%) | 28 (7.16%) | |
| No sabe | 15 (12.3%) | 28 (7.16%) | |
| No aplica | 35 (28.7%) | 93 (23.8%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: | 0.617 | ||
| Apropiadas y bien implementadas | 21 (17.2%) | 69 (17.6%) | |
| Apropiadas pero mal implementadas | 9 (7.38%) | 44 (11.3%) | |
| Inapropiadas | 12 (9.84%) | 48 (12.3%) | |
| Deficientes | 31 (25.4%) | 101 (25.8%) | |
| No sabe | 15 (12.3%) | 45 (11.5%) | |
| No aplica | 34 (27.9%) | 84 (21.5%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: | 0.457 | ||
| Apropiadas y bien implementadas | 42 (34.4%) | 117 (29.9%) | |
| Apropiadas pero mal implementadas | 6 (4.92%) | 40 (10.2%) | |
| Inapropiadas | 6 (4.92%) | 24 (6.14%) | |
| Deficientes | 15 (12.3%) | 44 (11.3%) | |
| No sabe | 16 (13.1%) | 40 (10.2%) | |
| No aplica | 37 (30.3%) | 126 (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.946 | ||
| Apropiadas y bien implementadas | 26 (21.3%) | 78 (19.9%) | |
| Apropiadas pero mal implementadas | 11 (9.02%) | 37 (9.46%) | |
| Inapropiadas | 10 (8.20%) | 45 (11.5%) | |
| Deficientes | 32 (26.2%) | 98 (25.1%) | |
| No sabe | 12 (9.84%) | 35 (8.95%) | |
| No aplica | 31 (25.4%) | 98 (25.1%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: | 0.311 | ||
| Apropiadas y bien implementadas | 34 (27.9%) | 104 (26.6%) | |
| Apropiadas pero mal implementadas | 8 (6.56%) | 30 (7.67%) | |
| Inapropiadas | 3 (2.46%) | 27 (6.91%) | |
| Deficientes | 28 (23.0%) | 63 (16.1%) | |
| No sabe | 17 (13.9%) | 57 (14.6%) | |
| No aplica | 32 (26.2%) | 110 (28.1%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.: | 0.947 | ||
| Apropiadas y bien implementadas | 54 (44.3%) | 189 (48.3%) | |
| Apropiadas pero mal implementadas | 14 (11.5%) | 42 (10.7%) | |
| Inapropiadas | 6 (4.92%) | 21 (5.37%) | |
| Deficientes | 14 (11.5%) | 36 (9.21%) | |
| No sabe | 15 (12.3%) | 41 (10.5%) | |
| No aplica | 19 (15.6%) | 62 (15.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.025 | ||
| Totalmente de acuerdo | 21 (17.2%) | 110 (28.1%) | |
| De acuerdo | 48 (39.3%) | 128 (32.7%) | |
| Ni de acuerdo ni en desacuerdo | 40 (32.8%) | 93 (23.8%) | |
| En desacuerdo | 8 (6.56%) | 46 (11.8%) | |
| Totalmente en desacuerdo | 5 (4.10%) | 14 (3.58%) | |
| 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.414 | ||
| Totalmente de acuerdo | 28 (23.0%) | 88 (22.5%) | |
| De acuerdo | 51 (41.8%) | 159 (40.7%) | |
| Ni de acuerdo ni en desacuerdo | 29 (23.8%) | 73 (18.7%) | |
| En desacuerdo | 11 (9.02%) | 60 (15.3%) | |
| Totalmente en desacuerdo | 3 (2.46%) | 11 (2.81%) | |
| 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.041 | ||
| Totalmente de acuerdo | 15 (12.3%) | 31 (7.93%) | |
| De acuerdo | 31 (25.4%) | 74 (18.9%) | |
| Ni de acuerdo ni en desacuerdo | 37 (30.3%) | 102 (26.1%) | |
| En desacuerdo | 21 (17.2%) | 113 (28.9%) | |
| Totalmente en desacuerdo | 18 (14.8%) | 71 (18.2%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.: | 0.226 | ||
| Totalmente de acuerdo | 22 (18.0%) | 59 (15.1%) | |
| De acuerdo | 41 (33.6%) | 106 (27.1%) | |
| Ni de acuerdo ni en desacuerdo | 42 (34.4%) | 142 (36.3%) | |
| En desacuerdo | 10 (8.20%) | 61 (15.6%) | |
| Totalmente en desacuerdo | 7 (5.74%) | 23 (5.88%) | |
| ¿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.231 | ||
| Mantengo las mismas labores | 88 (72.1%) | 249 (63.7%) | |
| Mantengo las mismas labores, pero en un área distinta | 4 (3.28%) | 16 (4.09%) | |
| Mantengo las mismas labores, pero en un lugar físico distinto | 4 (3.28%) | 39 (9.97%) | |
| Mantengo las mismas labores, pero en área y lugar físico distintos | 3 (2.46%) | 11 (2.81%) | |
| Distintas labores, pero en la misma área | 6 (4.92%) | 32 (8.18%) | |
| Distintas labores, pero en el mismo lugar físico | 8 (6.56%) | 20 (5.12%) | |
| Labores, área y lugar físico distintos | 9 (7.38%) | 24 (6.14%) | |
| ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: | 0.004 | ||
| Excelente | 9 (5.88%) | 5 (1.07%) | |
| Buena | 57 (37.3%) | 156 (33.3%) | |
| Regular | 67 (43.8%) | 244 (52.0%) | |
| Mala | 20 (13.1%) | 61 (13.0%) | |
| Pésima | 0 (0.00%) | 3 (0.64%) | |
| ¿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.869 | ||
| Totalmente de acuerdo | 22 (14.4%) | 76 (16.2%) | |
| De acuerdo | 53 (34.6%) | 156 (33.3%) | |
| Neutral | 37 (24.2%) | 125 (26.7%) | |
| En desacuerdo | 31 (20.3%) | 80 (17.1%) | |
| Totalmente en desacuerdo | 10 (6.54%) | 32 (6.82%) | |
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: | 0.904 | ||
| Siempre | 31 (20.3%) | 88 (18.8%) | |
| La mayoría <br>de las veces | 45 (29.4%) | 130 (27.7%) | |
| Algunas veces | 53 (34.6%) | 172 (36.7%) | |
| Sólo unas <br>pocas veces | 20 (13.1%) | 60 (12.8%) | |
| Nunca | 4 (2.61%) | 19 (4.05%) | |
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: | 0.155 | ||
| Siempre | 22 (14.4%) | 84 (17.9%) | |
| La mayoría <br>de las veces | 48 (31.4%) | 155 (33.0%) | |
| Algunas veces | 50 (32.7%) | 167 (35.6%) | |
| Sólo unas <br>pocas veces | 27 (17.6%) | 48 (10.2%) | |
| Nunca | 6 (3.92%) | 15 (3.20%) | |
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: | 0.731 | ||
| Siempre | 31 (20.3%) | 87 (18.6%) | |
| La mayoría <br>de las veces | 64 (41.8%) | 191 (40.7%) | |
| Algunas veces | 39 (25.5%) | 136 (29.0%) | |
| Sólo unas <br>pocas veces | 16 (10.5%) | 51 (10.9%) | |
| Nunca | 3 (1.96%) | 4 (0.85%) | |
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: | 0.479 | ||
| Siempre | 3 (1.96%) | 16 (3.41%) | |
| La mayoría <br>de las veces | 7 (4.58%) | 26 (5.54%) | |
| Algunas veces | 40 (26.1%) | 145 (30.9%) | |
| Sólo unas <br>pocas veces | 41 (26.8%) | 125 (26.7%) | |
| Nunca | 62 (40.5%) | 157 (33.5%) | |
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: | 0.415 | ||
| Siempre | 7 (4.58%) | 31 (6.61%) | |
| La mayoría <br>de las veces | 23 (15.0%) | 65 (13.9%) | |
| Algunas veces | 63 (41.2%) | 186 (39.7%) | |
| Sólo unas <br>pocas veces | 31 (20.3%) | 120 (25.6%) | |
| Nunca | 29 (19.0%) | 67 (14.3%) | |
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: | 0.175 | ||
| Siempre | 84 (54.9%) | 207 (44.1%) | |
| La mayoría <br>de las veces | 39 (25.5%) | 139 (29.6%) | |
| Algunas veces | 18 (11.8%) | 65 (13.9%) | |
| Sólo unas <br>pocas veces | 9 (5.88%) | 38 (8.10%) | |
| Nunca | 3 (1.96%) | 20 (4.26%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: | 0.434 | ||
| Siempre | 61 (39.9%) | 169 (36.0%) | |
| La mayoría <br>de las veces | 52 (34.0%) | 141 (30.1%) | |
| Algunas veces | 23 (15.0%) | 87 (18.6%) | |
| Sólo unas <br>pocas veces | 13 (8.50%) | 48 (10.2%) | |
| Nunca | 4 (2.61%) | 24 (5.12%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: | 0.036 | ||
| Siempre | 58 (37.9%) | 137 (29.2%) | |
| La mayoría <br>de las veces | 63 (41.2%) | 176 (37.5%) | |
| Algunas veces | 25 (16.3%) | 107 (22.8%) | |
| Sólo unas <br>pocas veces | 5 (3.27%) | 33 (7.04%) | |
| Nunca | 2 (1.31%) | 16 (3.41%) | |
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: | 0.414 | ||
| Siempre | 55 (35.9%) | 172 (36.7%) | |
| La mayoría <br>de las veces | 78 (51.0%) | 217 (46.3%) | |
| Algunas veces | 18 (11.8%) | 61 (13.0%) | |
| Sólo unas <br>pocas veces | 1 (0.65%) | 16 (3.41%) | |
| Nunca | 1 (0.65%) | 3 (0.64%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: | 0.326 | ||
| Siempre | 84 (54.9%) | 273 (58.2%) | |
| La mayoría <br>de las veces | 33 (21.6%) | 116 (24.7%) | |
| Algunas veces | 22 (14.4%) | 42 (8.96%) | |
| Sólo unas <br>pocas veces | 7 (4.58%) | 23 (4.90%) | |
| Nunca | 7 (4.58%) | 15 (3.20%) | |
| 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.158 | ||
| Incorrecto | 1 (0.65%) | 2 (0.43%) | |
| Apenas cierto | 2 (1.31%) | 15 (3.20%) | |
| Más bien cierto | 35 (22.9%) | 140 (29.9%) | |
| Cierto | 115 (75.2%) | 312 (66.5%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.: | 0.776 | ||
| Incorrecto | 1 (0.65%) | 1 (0.21%) | |
| Apenas cierto | 6 (3.92%) | 25 (5.33%) | |
| Más bien cierto | 59 (38.6%) | 173 (36.9%) | |
| Cierto | 87 (56.9%) | 270 (57.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.429 | ||
| Incorrecto | 0 (0.00%) | 2 (0.43%) | |
| Apenas cierto | 3 (1.96%) | 19 (4.05%) | |
| Más bien cierto | 51 (33.3%) | 164 (35.0%) | |
| Cierto | 99 (64.7%) | 284 (60.6%) | |
| 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_sin_irritabilidad+
estres_postraumatico+
agotamiento_estres_sin_irritabilidad_ptje+
estres_postraumatico_ptje+
#agotamiento_estres_sin_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_2_rec+
p26_cond_trab_ent_protec_3_p26_rec+
p26_cond_trab_ent_protec_4_p26_rec+
p34_cond_trab_tiemp_trab_rec+
p36_cond_trab_reasig_rec1+
p36_cond_trab_reasig_rec2+
p36_cond_trab_reasig_rec3+
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_sin_irritabilidad=3,
estres_postraumatico=3,
agotamiento_estres_sin_irritabilidad_ptje=2,
estres_postraumatico_ptje=2,
# agotamiento_estres_sin_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_2_rec=3,
p26_cond_trab_ent_protec_3_p26_rec=3,
p26_cond_trab_ent_protec_4_p26_rec=3,
p34_cond_trab_tiemp_trab_rec=3,
p36_cond_trab_reasig_rec1=3,
p36_cond_trab_reasig_rec2=3,
p36_cond_trab_reasig_rec3=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_sin_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")| Variables | No | Sí | Valor-p |
|---|---|---|---|
| N=406 | N=259 | ||
| Sentimiento de Agotamiento y estrés (sin irritabilidad) (terciles): | 0.067 | ||
| 1 | 80 (19.7%) | 36 (13.9%) | |
| 2 | 157 (38.7%) | 120 (46.3%) | |
| 3 | 169 (41.6%) | 103 (39.8%) | |
| Estrés Postraumático (4° Cuartil): | 0.435 | ||
| Ausencia de Indicadores de Estrés Post-traumático | 310 (76.4%) | 190 (73.4%) | |
| Indicadores de Estrés Post-traumático | 96 (23.6%) | 69 (26.6%) | |
| Ptjes. Sentimiento de Agotamiento y estrés (sin irritabilidad) | 275 [200;350] | 275 [200;350] | 0.584 |
| Ptjes. Estrés Postraumático | 4.00 [2.00;6.00] | 4.00 [2.00;6.00] | 0.703 |
| Sintomatología ansiosa: | 0.844 | ||
| Ausencia de Indicadores de Sintomatología Ansiosa | 215 (53.0%) | 140 (54.1%) | |
| Indicadores de Sintomatología Ansiosa | 191 (47.0%) | 119 (45.9%) | |
| Sintomatología depresiva: | 0.785 | ||
| Ausencia de Indicadores de Sintomatología Depresiva | 261 (64.3%) | 170 (65.6%) | |
| Indicadores de Sintomatología Depresiva | 145 (35.7%) | 89 (34.4%) | |
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): | 0.016 | ||
| Contacto directo y estrecho con pacientes (menos de dos metros) | 108 (26.6%) | 47 (18.1%) | |
| Menor o ningún contacto con pacientes | 298 (73.4%) | 212 (81.9%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): | 0.089 | ||
| 1 | 116 (39.2%) | 61 (35.5%) | |
| 2 | 59 (19.9%) | 52 (30.2%) | |
| 3 | 51 (17.2%) | 24 (14.0%) | |
| Más de 3 | 70 (23.6%) | 35 (20.3%) | |
| ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): | 0.002 | ||
| Bastante/Mucho | 308 (75.9%) | 167 (64.5%) | |
| Un poco/Nada/No aplica | 98 (24.1%) | 92 (35.5%) | |
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): | 0.224 | ||
| Predomina el miedo | 209 (51.5%) | 120 (46.3%) | |
| Predomina la ausencia de miedo | 197 (48.5%) | 139 (53.7%) | |
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): | <0.001 | ||
| Ha sido capacitado | 270 (66.5%) | 206 (79.5%) | |
| No ha sido capacitado | 136 (33.5%) | 53 (20.5%) | |
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): | 0.051 | ||
| Mala | 22 (8.15%) | 7 (3.40%) | |
| Regular a Excelente | 248 (91.9%) | 199 (96.6%) | |
| ¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): | <0.001 | ||
| Nada/Poco/Algo/No aplica | 164 (40.4%) | 66 (25.5%) | |
| Totalmente/Bastante | 242 (59.6%) | 193 (74.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): | 0.884 | ||
| 1 | 189 (79.1%) | 115 (79.3%) | |
| 2 | 37 (15.5%) | 21 (14.5%) | |
| 3 | 10 (4.18%) | 8 (5.52%) | |
| Más de 3 | 3 (1.26%) | 1 (0.69%) | |
| Mi empleador se ha rehusado a dar cierto tipo de EPP: | 0.254 | ||
| Empleador se ha rehusado a dar cierto tipo de EPP | 39 (11.4%) | 17 (8.02%) | |
| No se constata esta situación | 303 (88.6%) | 195 (92.0%) | |
| ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): | 0.184 | ||
| Algo/Bastante/Totalente/No aplica | 303 (88.6%) | 196 (92.5%) | |
| Poco/Nada | 39 (11.4%) | 16 (7.55%) | |
| 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.387 | ||
| Incapacidad para negarse a trabajo inseguro | 160 (46.8%) | 108 (50.9%) | |
| Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse | 182 (53.2%) | 104 (49.1%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud (Dicotomizada): | 0.006 | ||
| Apropiadas/No sabe/No aplica | 244 (71.3%) | 174 (82.1%) | |
| Inapropiadas/Deficientes | 98 (28.7%) | 38 (17.9%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos (Dicotomizada): | 0.162 | ||
| Apropiadas/No sabe/No aplica | 316 (92.4%) | 203 (95.8%) | |
| Inapropiadas/Deficientes | 26 (7.60%) | 9 (4.25%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios (Dicotomizada): | 0.075 | ||
| Apropiadas/No sabe/No aplica | 317 (92.7%) | 205 (96.7%) | |
| Inapropiadas/Deficientes | 25 (7.31%) | 7 (3.30%) | |
| ¿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 | 299 (87.4%) | 205 (96.7%) | |
| Inapropiadas/Deficientes | 43 (12.6%) | 7 (3.30%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación (Dicotomizada): | 0.053 | ||
| Apropiadas/No sabe/No aplica | 203 (59.4%) | 144 (67.9%) | |
| Inapropiadas/Deficientes | 139 (40.6%) | 68 (32.1%) | |
| ¿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 | 279 (81.6%) | 173 (81.6%) | |
| Inapropiadas/Deficientes | 63 (18.4%) | 39 (18.4%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de camarín o espacios de higiene del personal (Dicotomizada): | 0.422 | ||
| Apropiadas/No sabe/No aplica | 213 (62.3%) | 140 (66.0%) | |
| Inapropiadas/Deficientes | 129 (37.7%) | 72 (34.0%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria (Dicotomizada): | 0.279 | ||
| Apropiadas/No sabe/No aplica | 256 (74.9%) | 168 (79.2%) | |
| Inapropiadas/Deficientes | 86 (25.1%) | 44 (20.8%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): | 0.580 | ||
| Apropiadas/No sabe/No aplica | 288 (84.2%) | 183 (86.3%) | |
| Inapropiadas/Deficientes | 54 (15.8%) | 29 (13.7%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Sindicato/gremio (Dicotomizada): | 0.993 | ||
| Desacuerdo/Totalmente en desacuerdo | 47 (13.7%) | 30 (14.2%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 295 (86.3%) | 182 (85.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.115 | ||
| Desacuerdo/Totalmente en desacuerdo | 64 (18.7%) | 28 (13.2%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 278 (81.3%) | 184 (86.8%) | |
| ¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia: | 0.024 | ||
| Totalmente de acuerdo | 6 (9.38%) | 15 (31.9%) | |
| De acuerdo | 31 (48.4%) | 16 (34.0%) | |
| Ni de acuerdo ni en desacuerdo | 13 (20.3%) | 10 (21.3%) | |
| En desacuerdo | 13 (20.3%) | 6 (12.8%) | |
| Totalmente en desacuerdo | 1 (1.56%) | 0 (0.00%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada): | 0.021 | ||
| Desacuerdo/Totalmente en desacuerdo | 163 (47.7%) | 79 (37.3%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 179 (52.3%) | 133 (62.7%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Comité paritario de salud y seguridad (Dicotomizada): | 0.160 | ||
| Desacuerdo/Totalmente en desacuerdo | 61 (17.8%) | 49 (23.1%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 281 (82.2%) | 163 (76.9%) | |
| ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado): | 0.003 | ||
| Menos de 6 meses | 22 (5.67%) | 2 (0.79%) | |
| Entre 6 meses y 2 años | 81 (20.9%) | 45 (17.9%) | |
| Entre 2 y 5 años | 105 (27.1%) | 61 (24.2%) | |
| Entre 5 y 11 años | 22 (5.67%) | 12 (4.76%) | |
| Más de 11 años | 158 (40.7%) | 132 (52.4%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores: | 0.936 | ||
| FALSE | 319 (78.6%) | 202 (78.0%) | |
| TRUE | 87 (21.4%) | 57 (22.0%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo: | 0.111 | ||
| FALSE | 336 (82.8%) | 227 (87.6%) | |
| TRUE | 70 (17.2%) | 32 (12.4%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo: | 0.059 | ||
| FALSE | 311 (76.6%) | 215 (83.0%) | |
| TRUE | 95 (23.4%) | 44 (17.0%) | |
| ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): | 0.259 | ||
| Excelente/Buena/Regular | 325 (84.9%) | 220 (88.4%) | |
| Pésima/Mala | 58 (15.1%) | 29 (11.6%) | |
| ¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada): | 0.214 | ||
| De acuerdo/Totalmente de acuerdo | 196 (51.2%) | 114 (45.8%) | |
| Neutral/En desacuerdo/Totalmente en desacuerdo | 187 (48.8%) | 135 (54.2%) | |
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): | 0.486 | ||
| La mayoría de las veces/Siempre | 174 (45.4%) | 121 (48.6%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 209 (54.6%) | 128 (51.4%) | |
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): | 0.097 | ||
| La mayoría de las veces/Siempre | 179 (46.7%) | 134 (53.8%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 204 (53.3%) | 115 (46.2%) | |
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): | 0.301 | ||
| La mayoría de las veces/Siempre | 237 (61.9%) | 143 (57.4%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 146 (38.1%) | 106 (42.6%) | |
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): | 0.442 | ||
| La mayoría de las veces/Siempre | 29 (7.57%) | 24 (9.64%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 354 (92.4%) | 225 (90.4%) | |
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): | 0.382 | ||
| La mayoría de las veces/Siempre | 83 (21.7%) | 46 (18.5%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 300 (78.3%) | 203 (81.5%) | |
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): | 0.051 | ||
| La mayoría de las veces/Siempre | 277 (72.3%) | 198 (79.5%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 106 (27.7%) | 51 (20.5%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): | 0.192 | ||
| La mayoría de las veces/Siempre | 252 (65.8%) | 177 (71.1%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 131 (34.2%) | 72 (28.9%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): | 0.057 | ||
| La mayoría de las veces/Siempre | 256 (66.8%) | 185 (74.3%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 127 (33.2%) | 64 (25.7%) | |
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): | 0.300 | ||
| La mayoría de las veces/Siempre | 316 (82.5%) | 214 (85.9%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 67 (17.5%) | 35 (14.1%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): | 0.402 | ||
| La mayoría de las veces/Siempre | 316 (82.5%) | 198 (79.5%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 67 (17.5%) | 51 (20.5%) | |
| Suma ítems Exigencias Psicológicas ISTAS21 | 5.00 [4.00;6.00] | 5.00 [4.00;6.00] | 0.162 |
| Suma ítems Calidad Relación con Superiores ISTAS21 (sin ítem 03) | 6.00 [4.00;8.00] | 6.00 [5.00;8.00] | 0.509 |
| Suma ítems Conflicto de Rol ISTAS21 | 3.00 [1.00;4.00] | 3.00 [2.00;4.00] | 0.745 |
| Suma ítems Relación con Compañeros de Trabajo ISTAS21 | 6.00 [5.00;7.00] | 6.00 [5.00;7.00] | 0.567 |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles (Dicotomizada): | 1.000 | ||
| Apenas cierto/Incorrecto | 13 (3.41%) | 8 (3.23%) | |
| Más bien cierto/Cierto | 368 (96.6%) | 240 (96.8%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada): | 0.294 | ||
| Apenas cierto/Incorrecto | 24 (6.30%) | 10 (4.03%) | |
| Más bien cierto/Cierto | 357 (93.7%) | 238 (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.571 | ||
| Apenas cierto/Incorrecto | 17 (4.46%) | 8 (3.23%) | |
| Más bien cierto/Cierto | 364 (95.5%) | 240 (96.8%) | |
| Suma puntajes de resilencia | 8.00 [7.00;9.00] | 8.00 [7.00;9.00] | 0.665 |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: | 0.883 | ||
| Nunca | 13 (3.20%) | 7 (2.70%) | |
| Sólo unas pocas <br>veces | 64 (15.8%) | 36 (13.9%) | |
| Algunas veces | 156 (38.4%) | 98 (37.8%) | |
| La mayoría de las veces | 139 (34.2%) | 98 (37.8%) | |
| Siempre | 34 (8.37%) | 20 (7.72%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: | 0.089 | ||
| Nunca | 35 (8.62%) | 8 (3.09%) | |
| Sólo unas pocas <br>veces | 64 (15.8%) | 43 (16.6%) | |
| Algunas veces | 149 (36.7%) | 99 (38.2%) | |
| La mayoría de las veces | 125 (30.8%) | 87 (33.6%) | |
| Siempre | 33 (8.13%) | 22 (8.49%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: | 0.286 | ||
| Nunca | 28 (6.90%) | 9 (3.47%) | |
| Sólo unas pocas <br>veces | 71 (17.5%) | 39 (15.1%) | |
| Algunas veces | 147 (36.2%) | 105 (40.5%) | |
| La mayoría de las veces | 118 (29.1%) | 81 (31.3%) | |
| Siempre | 42 (10.3%) | 25 (9.65%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: | 0.458 | ||
| Nunca | 45 (13.2%) | 20 (9.43%) | |
| Sólo unas pocas <br>veces | 108 (31.6%) | 62 (29.2%) | |
| Algunas veces | 128 (37.4%) | 83 (39.2%) | |
| La mayoría de las veces | 50 (14.6%) | 36 (17.0%) | |
| Siempre | 11 (3.22%) | 11 (5.19%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: | 0.850 | ||
| Nunca | 52 (12.8%) | 32 (12.4%) | |
| Sólo unas pocas <br>veces | 72 (17.7%) | 38 (14.7%) | |
| Algunas veces | 120 (29.6%) | 82 (31.7%) | |
| La mayoría de las veces | 111 (27.3%) | 71 (27.4%) | |
| Siempre | 51 (12.6%) | 36 (13.9%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: | 0.971 | ||
| Nunca | 66 (16.3%) | 46 (17.8%) | |
| Sólo unas pocas <br>veces | 88 (21.7%) | 53 (20.5%) | |
| Algunas veces | 117 (28.8%) | 72 (27.8%) | |
| La mayoría de las veces | 89 (21.9%) | 56 (21.6%) | |
| Siempre | 46 (11.3%) | 32 (12.4%) | |
| 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.045 | ||
| Nada | 82 (20.2%) | 66 (25.5%) | |
| Un poco | 121 (29.8%) | 82 (31.7%) | |
| Regular | 114 (28.1%) | 59 (22.8%) | |
| Bastante | 79 (19.5%) | 38 (14.7%) | |
| Mucho | 10 (2.46%) | 14 (5.41%) | |
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: | 0.619 | ||
| Nada | 88 (21.7%) | 52 (20.1%) | |
| Un poco | 128 (31.5%) | 82 (31.7%) | |
| Regular | 87 (21.4%) | 50 (19.3%) | |
| Bastante | 83 (20.4%) | 55 (21.2%) | |
| Mucho | 20 (4.93%) | 20 (7.72%) | |
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: | 0.096 | ||
| Nada | 150 (36.9%) | 93 (35.9%) | |
| Un poco | 133 (32.8%) | 73 (28.2%) | |
| Regular | 74 (18.2%) | 43 (16.6%) | |
| Bastante | 33 (8.13%) | 38 (14.7%) | |
| Mucho | 16 (3.94%) | 12 (4.63%) | |
| 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.670 | ||
| Nunca | 86 (21.2%) | 47 (18.1%) | |
| Algunos días | 192 (47.3%) | 125 (48.3%) | |
| Más de la mitad de los días | 88 (21.7%) | 64 (24.7%) | |
| Casi todos los días | 40 (9.85%) | 23 (8.88%) | |
| Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: | 0.991 | ||
| Nunca | 54 (13.3%) | 36 (13.9%) | |
| Algunos días | 174 (42.9%) | 108 (41.7%) | |
| Más de la mitad de los días | 120 (29.6%) | 77 (29.7%) | |
| Casi todos los días | 58 (14.3%) | 38 (14.7%) | |
| Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | He sentido falta de interés o poca satisfacción en hacer cosas.: | 0.882 | ||
| Nunca | 91 (22.4%) | 64 (24.7%) | |
| Algunos días | 202 (49.8%) | 122 (47.1%) | |
| Más de la mitad de los días | 80 (19.7%) | 53 (20.5%) | |
| Casi todos los días | 33 (8.13%) | 20 (7.72%) | |
| 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.818 | ||
| Nunca | 98 (24.1%) | 71 (27.4%) | |
| Algunos días | 197 (48.5%) | 120 (46.3%) | |
| Más de la mitad de los días | 83 (20.4%) | 50 (19.3%) | |
| Casi todos los días | 28 (6.90%) | 18 (6.95%) | |
| ¿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.950 | ||
| Ninguno | 183 (45.1%) | 115 (44.4%) | |
| 1 a 10 | 153 (37.7%) | 94 (36.3%) | |
| 11 a 30 | 41 (10.1%) | 30 (11.6%) | |
| 31 a 100 | 22 (5.42%) | 14 (5.41%) | |
| Más de 100 | 7 (1.72%) | 6 (2.32%) | |
| ¿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.304 | ||
| Ninguno | 218 (53.7%) | 122 (47.1%) | |
| Sólo uno | 56 (13.8%) | 46 (17.8%) | |
| 2 a 10 | 112 (27.6%) | 78 (30.1%) | |
| 11 a 25 | 13 (3.20%) | 11 (4.25%) | |
| Más de 25 | 7 (1.72%) | 2 (0.77%) | |
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?: | 0.001 | ||
| Ninguno que yo esté en conocimiento | 172 (42.4%) | 92 (35.5%) | |
| Comparto espacios con trabajadores que están en contacto con pacientes | 82 (20.2%) | 71 (27.4%) | |
| Tengo algún contacto con pacientes | 44 (10.8%) | 49 (18.9%) | |
| Trabajo en contacto directo o a menos de 2 metros con pacientes | 108 (26.6%) | 47 (18.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.481 | ||
| 0 | 221 (64.6%) | 144 (67.9%) | |
| 1 | 121 (35.4%) | 68 (32.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 fuera del trabajo.: | 0.928 | ||
| 0 | 306 (89.5%) | 191 (90.1%) | |
| 1 | 36 (10.5%) | 21 (9.91%) | |
| ¿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.310 | ||
| 0 | 262 (69.1%) | 173 (73.3%) | |
| 1 | 117 (30.9%) | 63 (26.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) | Experimentó síntomas similares a los de COVID-19.: | 0.536 | ||
| 0 | 252 (73.7%) | 162 (76.4%) | |
| 1 | 90 (26.3%) | 50 (23.6%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le solicitaron que trabajara a pesar de los síntomas.: | 0.575 | ||
| 0 | 329 (95.4%) | 206 (96.7%) | |
| 1 | 16 (4.64%) | 7 (3.29%) | |
| ¿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.027 | ||
| 0 | 300 (87.7%) | 199 (93.9%) | |
| 1 | 42 (12.3%) | 13 (6.13%) | |
| ¿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.392 | ||
| 0 | 276 (80.7%) | 178 (84.0%) | |
| 1 | 66 (19.3%) | 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.428 | ||
| 0 | 174 (50.9%) | 116 (54.7%) | |
| 1 | 168 (49.1%) | 96 (45.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) | Dio positivo en el examen para descartar COVID-19.: | 1.000 | ||
| 0 | 323 (91.5%) | 198 (91.7%) | |
| 1 | 30 (8.50%) | 18 (8.33%) | |
| ¿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.803 | ||
| 0 | 304 (84.9%) | 191 (86.0%) | |
| 1 | 54 (15.1%) | 31 (14.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.226 | ||
| FALSE | 250 (73.1%) | 144 (67.9%) | |
| TRUE | 92 (26.9%) | 68 (32.1%) | |
| ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: | 0.010 | ||
| Nada | 12 (2.96%) | 12 (4.63%) | |
| Un poco | 69 (17.0%) | 68 (26.3%) | |
| Bastante | 101 (24.9%) | 67 (25.9%) | |
| Mucho | 207 (51.0%) | 100 (38.6%) | |
| No aplica | 17 (4.19%) | 12 (4.63%) | |
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: | 0.294 | ||
| 1 (Poco o nada) | 15 (3.69%) | 17 (6.56%) | |
| 2 | 19 (4.68%) | 14 (5.41%) | |
| 3 | 31 (7.64%) | 26 (10.0%) | |
| 4 | 50 (12.3%) | 35 (13.5%) | |
| 5 | 82 (20.2%) | 47 (18.1%) | |
| 6 | 56 (13.8%) | 41 (15.8%) | |
| 7 | 66 (16.3%) | 37 (14.3%) | |
| 8 | 43 (10.6%) | 28 (10.8%) | |
| 9 | 23 (5.67%) | 8 (3.09%) | |
| 10 (Tanto miedo como nunca he sentido) | 21 (5.17%) | 6 (2.32%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: | <0.001 | ||
| FALSE | 131 (38.3%) | 117 (55.2%) | |
| TRUE | 211 (61.7%) | 95 (44.8%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector de ojos (lentes): | 0.230 | ||
| FALSE | 176 (51.5%) | 121 (57.1%) | |
| TRUE | 166 (48.5%) | 91 (42.9%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: | 0.111 | ||
| FALSE | 127 (37.1%) | 94 (44.3%) | |
| TRUE | 215 (62.9%) | 118 (55.7%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: | 0.003 | ||
| FALSE | 305 (89.2%) | 205 (96.7%) | |
| TRUE | 37 (10.8%) | 7 (3.30%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: | 0.510 | ||
| FALSE | 36 (10.5%) | 27 (12.7%) | |
| TRUE | 306 (89.5%) | 185 (87.3%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: | 0.428 | ||
| FALSE | 48 (14.0%) | 24 (11.3%) | |
| TRUE | 294 (86.0%) | 188 (88.7%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: | 0.002 | ||
| FALSE | 155 (45.3%) | 126 (59.4%) | |
| TRUE | 187 (54.7%) | 86 (40.6%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Respirador de aire impulsado: | 0.102 | ||
| FALSE | 333 (97.4%) | 211 (99.5%) | |
| TRUE | 9 (2.63%) | 1 (0.47%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: | 0.082 | ||
| FALSE | 181 (52.9%) | 129 (60.8%) | |
| TRUE | 161 (47.1%) | 83 (39.2%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: | 0.002 | ||
| FALSE | 226 (66.1%) | 167 (78.8%) | |
| TRUE | 116 (33.9%) | 45 (21.2%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: | 0.495 | ||
| FALSE | 290 (84.8%) | 185 (87.3%) | |
| TRUE | 52 (15.2%) | 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 | 338 (98.8%) | 208 (98.1%) | |
| TRUE | 4 (1.17%) | 4 (1.89%) | |
| 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 | 199 (58.2%) | 136 (64.2%) | |
| Insuficiente | 58 (17.0%) | 18 (8.49%) | |
| No Aplica | 85 (24.9%) | 58 (27.4%) | |
| 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.186 | ||
| Suficiente | 124 (36.3%) | 89 (42.0%) | |
| Insuficiente | 95 (27.8%) | 45 (21.2%) | |
| No Aplica | 123 (36.0%) | 78 (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.181 | ||
| Suficiente | 172 (50.3%) | 123 (58.0%) | |
| Insuficiente | 92 (26.9%) | 45 (21.2%) | |
| No Aplica | 78 (22.8%) | 44 (20.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.057 | ||
| Suficiente | 45 (13.2%) | 30 (14.2%) | |
| Insuficiente | 57 (16.7%) | 20 (9.43%) | |
| No Aplica | 240 (70.2%) | 162 (76.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.666 | ||
| Suficiente | 277 (81.0%) | 177 (83.5%) | |
| Insuficiente | 46 (13.5%) | 23 (10.8%) | |
| No Aplica | 19 (5.56%) | 12 (5.66%) | |
| 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.228 | ||
| Suficiente | 265 (77.5%) | 177 (83.5%) | |
| Insuficiente | 56 (16.4%) | 26 (12.3%) | |
| No Aplica | 21 (6.14%) | 9 (4.25%) | |
| 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.6%) | 72 (34.0%) | |
| Insuficiente | 145 (42.4%) | 54 (25.5%) | |
| No Aplica | 106 (31.0%) | 86 (40.6%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Respiradores de partículas de aire impulsado.: | 0.361 | ||
| Suficiente | 13 (3.80%) | 10 (4.72%) | |
| Insuficiente | 51 (14.9%) | 23 (10.8%) | |
| No Aplica | 278 (81.3%) | 179 (84.4%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Delantal/Pechera.: | 0.107 | ||
| Suficiente | 160 (46.8%) | 101 (47.6%) | |
| Insuficiente | 41 (12.0%) | 14 (6.60%) | |
| No Aplica | 141 (41.2%) | 97 (45.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.: | 0.005 | ||
| Suficiente | 80 (23.4%) | 58 (27.4%) | |
| Insuficiente | 70 (20.5%) | 21 (9.91%) | |
| No Aplica | 192 (56.1%) | 133 (62.7%) | |
| En base a su lugar de trabajo principal, ¿Cómo evalúa la disponibilidad de los siguientes Elementos de Protección Personal (EPP)? | Cubre calzado.: | <0.001 | ||
| Suficiente | 31 (9.06%) | 36 (17.0%) | |
| Insuficiente | 89 (26.0%) | 19 (8.96%) | |
| No Aplica | 222 (64.9%) | 157 (74.1%) | |
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: | <0.001 | ||
| No he sido capacitado | 136 (33.5%) | 53 (20.5%) | |
| Sí, en el último mes | 36 (8.87%) | 41 (15.8%) | |
| Sí, en los últimos 6 meses | 144 (35.5%) | 117 (45.2%) | |
| Sí, el año pasado | 68 (16.7%) | 38 (14.7%) | |
| Sí, hace más de un año | 22 (5.42%) | 10 (3.86%) | |
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: | <0.001 | ||
| Excelente | 11 (4.07%) | 39 (18.9%) | |
| Buena | 137 (50.7%) | 104 (50.5%) | |
| Regular | 100 (37.0%) | 56 (27.2%) | |
| Mala | 22 (8.15%) | 7 (3.40%) | |
| ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: | 0.001 | ||
| Nada | 10 (2.46%) | 4 (1.54%) | |
| Poco | 29 (7.14%) | 9 (3.47%) | |
| Algo | 97 (23.9%) | 39 (15.1%) | |
| Bastante | 195 (48.0%) | 140 (54.1%) | |
| Totalmente | 47 (11.6%) | 53 (20.5%) | |
| No aplica | 28 (6.90%) | 14 (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) | Mi empleador se ha rehusado a dar cierto tipo de EPP.: | 0.254 | ||
| 0 | 303 (88.6%) | 195 (92.0%) | |
| 1 | 39 (11.4%) | 17 (8.02%) | |
| ¿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.811 | ||
| 0 | 298 (87.1%) | 187 (88.2%) | |
| 1 | 44 (12.9%) | 25 (11.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 mi propio EPP.: | 0.280 | ||
| 0 | 314 (91.8%) | 188 (88.7%) | |
| 1 | 28 (8.19%) | 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.590 | ||
| 0 | 288 (84.2%) | 174 (82.1%) | |
| 1 | 54 (15.8%) | 38 (17.9%) | |
| ¿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 | 244 (71.3%) | 151 (71.2%) | |
| TRUE | 98 (28.7%) | 61 (28.8%) | |
| ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPP’s?: | 0.001 | ||
| Nada | 7 (2.05%) | 3 (1.42%) | |
| Poco | 32 (9.36%) | 13 (6.13%) | |
| Algo | 96 (28.1%) | 39 (18.4%) | |
| Bastante | 146 (42.7%) | 101 (47.6%) | |
| Totalmente | 37 (10.8%) | 49 (23.1%) | |
| No aplica | 24 (7.02%) | 7 (3.30%) | |
| 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.098 | ||
| Negarme a trabajar no es una opción legalmente disponible para mí | 34 (9.94%) | 27 (12.7%) | |
| Definitivamente, no es posible negarme a trabajar | 34 (9.94%) | 11 (5.19%) | |
| Es improbable que pueda negarme a trabajar | 24 (7.02%) | 19 (8.96%) | |
| Quizás, en una situación extrema podría negarme a trabajar | 68 (19.9%) | 29 (13.7%) | |
| Probablemente, podría negarme a trabajar si considero que el riesgo es significativo | 114 (33.3%) | 75 (35.4%) | |
| Definitivamente, no dudaría en negarme a trabajar | 68 (19.9%) | 51 (24.1%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Evaluación pacientes en la entrada al recinto de salud.: | 0.002 | ||
| Apropiadas y bien implementadas | 89 (26.0%) | 81 (38.2%) | |
| Apropiadas pero mal implementadas | 78 (22.8%) | 34 (16.0%) | |
| Inapropiadas | 13 (3.80%) | 9 (4.25%) | |
| Deficientes | 85 (24.9%) | 29 (13.7%) | |
| No sabe | 8 (2.34%) | 8 (3.77%) | |
| No aplica | 69 (20.2%) | 51 (24.1%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Uso obligatorio de mascarillas en pacientes sintomáticos.: | 0.109 | ||
| Apropiadas y bien implementadas | 156 (45.6%) | 120 (56.6%) | |
| Apropiadas pero mal implementadas | 48 (14.0%) | 23 (10.8%) | |
| Inapropiadas | 9 (2.63%) | 1 (0.47%) | |
| Deficientes | 17 (4.97%) | 8 (3.77%) | |
| No sabe | 22 (6.43%) | 12 (5.66%) | |
| No aplica | 90 (26.3%) | 48 (22.6%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Aislación de pacientes con síntomas respiratorios.: | 0.178 | ||
| Apropiadas y bien implementadas | 145 (42.4%) | 108 (50.9%) | |
| Apropiadas pero mal implementadas | 51 (14.9%) | 23 (10.8%) | |
| Inapropiadas | 8 (2.34%) | 3 (1.42%) | |
| Deficientes | 17 (4.97%) | 4 (1.89%) | |
| No sabe | 25 (7.31%) | 15 (7.08%) | |
| No aplica | 96 (28.1%) | 59 (27.8%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Restricción del acceso y flujo de pacientes con COVID en el recinto de salud.: | 0.001 | ||
| Apropiadas y bien implementadas | 127 (37.1%) | 105 (49.5%) | |
| Apropiadas pero mal implementadas | 58 (17.0%) | 25 (11.8%) | |
| Inapropiadas | 17 (4.97%) | 1 (0.47%) | |
| Deficientes | 26 (7.60%) | 6 (2.83%) | |
| No sabe | 32 (9.36%) | 17 (8.02%) | |
| No aplica | 82 (24.0%) | 58 (27.4%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Funcionamiento de sistemas de ventilación.: | 0.095 | ||
| Apropiadas y bien implementadas | 52 (15.2%) | 43 (20.3%) | |
| Apropiadas pero mal implementadas | 32 (9.36%) | 24 (11.3%) | |
| Inapropiadas | 47 (13.7%) | 19 (8.96%) | |
| Deficientes | 92 (26.9%) | 49 (23.1%) | |
| No sabe | 34 (9.94%) | 32 (15.1%) | |
| No aplica | 85 (24.9%) | 45 (21.2%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Habilitación de salas de aislamiento de infecciones aéreas.: | 0.405 | ||
| Apropiadas y bien implementadas | 96 (28.1%) | 70 (33.0%) | |
| Apropiadas pero mal implementadas | 33 (9.65%) | 18 (8.49%) | |
| Inapropiadas | 25 (7.31%) | 10 (4.72%) | |
| Deficientes | 38 (11.1%) | 29 (13.7%) | |
| No sabe | 34 (9.94%) | 25 (11.8%) | |
| No aplica | 116 (33.9%) | 60 (28.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.: | 0.915 | ||
| Apropiadas y bien implementadas | 69 (20.2%) | 44 (20.8%) | |
| Apropiadas pero mal implementadas | 29 (8.48%) | 21 (9.91%) | |
| Inapropiadas | 41 (12.0%) | 21 (9.91%) | |
| Deficientes | 88 (25.7%) | 51 (24.1%) | |
| No sabe | 29 (8.48%) | 22 (10.4%) | |
| No aplica | 86 (25.1%) | 53 (25.0%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Mecanismos de limpieza de ropa e indumentaria.: | 0.464 | ||
| Apropiadas y bien implementadas | 80 (23.4%) | 65 (30.7%) | |
| Apropiadas pero mal implementadas | 26 (7.60%) | 16 (7.55%) | |
| Inapropiadas | 21 (6.14%) | 13 (6.13%) | |
| Deficientes | 65 (19.0%) | 31 (14.6%) | |
| No sabe | 50 (14.6%) | 32 (15.1%) | |
| No aplica | 100 (29.2%) | 55 (25.9%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos.: | 0.957 | ||
| Apropiadas y bien implementadas | 153 (44.7%) | 101 (47.6%) | |
| Apropiadas pero mal implementadas | 36 (10.5%) | 24 (11.3%) | |
| Inapropiadas | 19 (5.56%) | 11 (5.19%) | |
| Deficientes | 35 (10.2%) | 18 (8.49%) | |
| No sabe | 41 (12.0%) | 22 (10.4%) | |
| No aplica | 58 (17.0%) | 36 (17.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.: | 0.962 | ||
| Totalmente de acuerdo | 90 (26.3%) | 52 (24.5%) | |
| De acuerdo | 110 (32.2%) | 74 (34.9%) | |
| Ni de acuerdo ni en desacuerdo | 95 (27.8%) | 56 (26.4%) | |
| En desacuerdo | 35 (10.2%) | 23 (10.8%) | |
| Totalmente en desacuerdo | 12 (3.51%) | 7 (3.30%) | |
| 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 (17.0%) | 64 (30.2%) | |
| De acuerdo | 135 (39.5%) | 91 (42.9%) | |
| Ni de acuerdo ni en desacuerdo | 85 (24.9%) | 29 (13.7%) | |
| En desacuerdo | 53 (15.5%) | 24 (11.3%) | |
| Totalmente en desacuerdo | 11 (3.22%) | 4 (1.89%) | |
| 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.017 | ||
| Totalmente de acuerdo | 24 (7.02%) | 27 (12.7%) | |
| De acuerdo | 60 (17.5%) | 53 (25.0%) | |
| Ni de acuerdo ni en desacuerdo | 95 (27.8%) | 53 (25.0%) | |
| En desacuerdo | 96 (28.1%) | 49 (23.1%) | |
| Totalmente en desacuerdo | 67 (19.6%) | 30 (14.2%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están “haciendo todo lo posible para proteger al personal”? | Comité paritario de salud y seguridad.: | 0.054 | ||
| Totalmente de acuerdo | 47 (13.7%) | 38 (17.9%) | |
| De acuerdo | 93 (27.2%) | 63 (29.7%) | |
| Ni de acuerdo ni en desacuerdo | 141 (41.2%) | 62 (29.2%) | |
| En desacuerdo | 45 (13.2%) | 33 (15.6%) | |
| Totalmente en desacuerdo | 16 (4.68%) | 16 (7.55%) | |
| ¿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.973 | ||
| Mantengo las mismas labores | 216 (66.3%) | 140 (67.0%) | |
| Mantengo las mismas labores, pero en un área distinta | 12 (3.68%) | 8 (3.83%) | |
| Mantengo las mismas labores, pero en un lugar físico distinto | 27 (8.28%) | 16 (7.66%) | |
| Mantengo las mismas labores, pero en área y lugar físico distintos | 9 (2.76%) | 5 (2.39%) | |
| Distintas labores, pero en la misma área | 23 (7.06%) | 15 (7.18%) | |
| Distintas labores, pero en el mismo lugar físico | 15 (4.60%) | 13 (6.22%) | |
| Labores, área y lugar físico distintos | 24 (7.36%) | 12 (5.74%) | |
| ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal?: | 0.006 | ||
| Excelente | 14 (3.66%) | 0 (0.00%) | |
| Buena | 124 (32.4%) | 92 (36.9%) | |
| Regular | 187 (48.8%) | 128 (51.4%) | |
| Mala | 55 (14.4%) | 29 (11.6%) | |
| Pésima | 3 (0.78%) | 0 (0.00%) | |
| ¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.: | 0.015 | ||
| Totalmente de acuerdo | 63 (16.4%) | 36 (14.5%) | |
| De acuerdo | 133 (34.7%) | 78 (31.3%) | |
| Neutral | 110 (28.7%) | 55 (22.1%) | |
| En desacuerdo | 57 (14.9%) | 57 (22.9%) | |
| Totalmente en desacuerdo | 20 (5.22%) | 23 (9.24%) | |
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: | 0.064 | ||
| Siempre | 79 (20.6%) | 41 (16.5%) | |
| La mayoría <br>de las veces | 95 (24.8%) | 80 (32.1%) | |
| Algunas veces | 134 (35.0%) | 96 (38.6%) | |
| Sólo unas <br>pocas veces | 58 (15.1%) | 25 (10.0%) | |
| Nunca | 17 (4.44%) | 7 (2.81%) | |
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: | 0.257 | ||
| Siempre | 63 (16.4%) | 44 (17.7%) | |
| La mayoría <br>de las veces | 116 (30.3%) | 90 (36.1%) | |
| Algunas veces | 135 (35.2%) | 85 (34.1%) | |
| Sólo unas <br>pocas veces | 53 (13.8%) | 24 (9.64%) | |
| Nunca | 16 (4.18%) | 6 (2.41%) | |
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: | 0.142 | ||
| Siempre | 78 (20.4%) | 41 (16.5%) | |
| La mayoría <br>de las veces | 159 (41.5%) | 102 (41.0%) | |
| Algunas veces | 105 (27.4%) | 71 (28.5%) | |
| Sólo unas <br>pocas veces | 39 (10.2%) | 28 (11.2%) | |
| Nunca | 2 (0.52%) | 7 (2.81%) | |
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: | 0.089 | ||
| Siempre | 14 (3.66%) | 5 (2.01%) | |
| La mayoría <br>de las veces | 15 (3.92%) | 19 (7.63%) | |
| Algunas veces | 114 (29.8%) | 71 (28.5%) | |
| Sólo unas <br>pocas veces | 95 (24.8%) | 74 (29.7%) | |
| Nunca | 145 (37.9%) | 80 (32.1%) | |
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: | 0.077 | ||
| Siempre | 24 (6.27%) | 14 (5.62%) | |
| La mayoría <br>de las veces | 59 (15.4%) | 32 (12.9%) | |
| Algunas veces | 154 (40.2%) | 98 (39.4%) | |
| Sólo unas <br>pocas veces | 79 (20.6%) | 74 (29.7%) | |
| Nunca | 67 (17.5%) | 31 (12.4%) | |
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: | 0.086 | ||
| Siempre | 177 (46.2%) | 118 (47.4%) | |
| La mayoría <br>de las veces | 100 (26.1%) | 80 (32.1%) | |
| Algunas veces | 62 (16.2%) | 22 (8.84%) | |
| Sólo unas <br>pocas veces | 30 (7.83%) | 19 (7.63%) | |
| Nunca | 14 (3.66%) | 10 (4.02%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: | 0.450 | ||
| Siempre | 142 (37.1%) | 92 (36.9%) | |
| La mayoría <br>de las veces | 110 (28.7%) | 85 (34.1%) | |
| Algunas veces | 72 (18.8%) | 38 (15.3%) | |
| Sólo unas <br>pocas veces | 42 (11.0%) | 21 (8.43%) | |
| Nunca | 17 (4.44%) | 13 (5.22%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: | 0.056 | ||
| Siempre | 126 (32.9%) | 71 (28.5%) | |
| La mayoría <br>de las veces | 130 (33.9%) | 114 (45.8%) | |
| Algunas veces | 88 (23.0%) | 45 (18.1%) | |
| Sólo unas <br>pocas veces | 26 (6.79%) | 13 (5.22%) | |
| Nunca | 13 (3.39%) | 6 (2.41%) | |
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: | 0.302 | ||
| Siempre | 141 (36.8%) | 92 (36.9%) | |
| La mayoría <br>de las veces | 175 (45.7%) | 122 (49.0%) | |
| Algunas veces | 55 (14.4%) | 24 (9.64%) | |
| Sólo unas <br>pocas veces | 10 (2.61%) | 7 (2.81%) | |
| Nunca | 2 (0.52%) | 4 (1.61%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: | 0.345 | ||
| Siempre | 228 (59.5%) | 136 (54.6%) | |
| La mayoría <br>de las veces | 88 (23.0%) | 62 (24.9%) | |
| Algunas veces | 39 (10.2%) | 25 (10.0%) | |
| Sólo unas <br>pocas veces | 18 (4.70%) | 12 (4.82%) | |
| Nunca | 10 (2.61%) | 14 (5.62%) | |
| 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.942 | ||
| Incorrecto | 2 (0.52%) | 2 (0.81%) | |
| Apenas cierto | 11 (2.89%) | 6 (2.42%) | |
| Más bien cierto | 110 (28.9%) | 68 (27.4%) | |
| Cierto | 258 (67.7%) | 172 (69.4%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta.: | 0.666 | ||
| Incorrecto | 2 (0.52%) | 1 (0.40%) | |
| Apenas cierto | 22 (5.77%) | 9 (3.63%) | |
| Más bien cierto | 139 (36.5%) | 97 (39.1%) | |
| Cierto | 218 (57.2%) | 141 (56.9%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Usualmente puedo resolver bien las tareas desafiantes y complejas.: | 0.823 | ||
| Incorrecto | 2 (0.52%) | 1 (0.40%) | |
| Apenas cierto | 15 (3.94%) | 7 (2.82%) | |
| Más bien cierto | 128 (33.6%) | 91 (36.7%) | |
| Cierto | 236 (61.9%) | 149 (60.1%) | |
| Note. N= Número de participantes con al menos una respuesta válida en las variables seleccionadas; Variables continuas se presentan como medianas y percentiles 25 y 75; | |||
| Variables categóricas son presentadas como el recuento y el porcentaje |
#janitor::tabyl(p20_contr_cont_med_pev_1_simpler)
# p27_cond_trab_sup_jef
table4_sit_contr <- suppressWarnings(compareGroups(sit_contractual ~
agotamiento_estres_sin_irritabilidad+
estres_postraumatico+
agotamiento_estres_sin_irritabilidad_ptje+
estres_postraumatico_ptje+
#agotamiento_estres_sin_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_2_rec+
p26_cond_trab_ent_protec_3_p26_rec+
p26_cond_trab_ent_protec_4_p26_rec+
p34_cond_trab_tiemp_trab_rec+
p36_cond_trab_reasig_rec1+
p36_cond_trab_reasig_rec2+
p36_cond_trab_reasig_rec3+
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_sin_irritabilidad=3,
estres_postraumatico=3,
agotamiento_estres_sin_irritabilidad_ptje=2,
estres_postraumatico_ptje=2,
#agotamiento_estres_sin_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_2_rec=3,
p26_cond_trab_ent_protec_3_p26_rec=3,
p26_cond_trab_ent_protec_4_p26_rec=3,
p34_cond_trab_tiemp_trab_rec=3,
p36_cond_trab_reasig_rec1=3,
p36_cond_trab_reasig_rec2=3,
p36_cond_trab_reasig_rec3=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_sin_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")| Variables | Titulares | Contrata | Honorarios | Becario/Interno/Practicante | Otros | Sig. Total | Sig. ordinal |
|---|---|---|---|---|---|---|---|
| N=121 | N=399 | N=77 | N=5 | N=44 | |||
| Sentimiento de Agotamiento y estrés (sin irritabilidad) (terciles): | 0.127 | 0.355 | |||||
| 1 | 12 (9.92%) | 74 (18.5%) | 18 (23.4%) | 1 (20.0%) | 8 (18.2%) | ||
| 2 | 62 (51.2%) | 150 (37.6%) | 34 (44.2%) | 2 (40.0%) | 17 (38.6%) | ||
| 3 | 47 (38.8%) | 175 (43.9%) | 25 (32.5%) | 2 (40.0%) | 19 (43.2%) | ||
| Estrés Postraumático (4° Cuartil): | 0.225 | 0.968 | |||||
| Ausencia de Indicadores de Estrés Post-traumático | 97 (80.2%) | 287 (71.9%) | 63 (81.8%) | 4 (80.0%) | 33 (75.0%) | ||
| Indicadores de Estrés Post-traumático | 24 (19.8%) | 112 (28.1%) | 14 (18.2%) | 1 (20.0%) | 11 (25.0%) | ||
| Ptjes. Sentimiento de Agotamiento y estrés (sin irritabilidad) | 275 [225;325] | 275 [200;350] | 250 [175;325] | 250 [200;325] | 275 [200;325] | 0.251 | 0.167 |
| Ptjes. Estrés Postraumático | 4.00 [2.00;6.00] | 4.00 [2.00;7.00] | 3.00 [1.00;5.00] | 5.00 [4.00;6.00] | 4.00 [1.00;6.00] | 0.073 | 0.254 |
| Sintomatología ansiosa: | 0.626 | 0.814 | |||||
| Ausencia de Indicadores de Sintomatología Ansiosa | 63 (52.1%) | 210 (52.6%) | 46 (59.7%) | 3 (60.0%) | 20 (45.5%) | ||
| Indicadores de Sintomatología Ansiosa | 58 (47.9%) | 189 (47.4%) | 31 (40.3%) | 2 (40.0%) | 24 (54.5%) | ||
| Sintomatología depresiva: | 0.133 | 0.270 | |||||
| Ausencia de Indicadores de Sintomatología Depresiva | 85 (70.2%) | 250 (62.7%) | 52 (67.5%) | 1 (20.0%) | 27 (61.4%) | ||
| Indicadores de Sintomatología Depresiva | 36 (29.8%) | 149 (37.3%) | 25 (32.5%) | 4 (80.0%) | 17 (38.6%) | ||
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?(dicotomizada): | 0.002 | 0.013 | |||||
| Contacto directo y estrecho con pacientes (menos de dos metros) | 28 (23.1%) | 77 (19.3%) | 31 (40.3%) | 2 (40.0%) | 14 (31.8%) | ||
| Menor o ningún contacto con pacientes | 93 (76.9%) | 322 (80.7%) | 46 (59.7%) | 3 (60.0%) | 30 (68.2%) | ||
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): | 0.012 | 0.001 | |||||
| 1 | 42 (49.4%) | 101 (37.5%) | 21 (32.3%) | 1 (33.3%) | 10 (29.4%) | ||
| 2 | 26 (30.6%) | 59 (21.9%) | 16 (24.6%) | 0 (0.00%) | 5 (14.7%) | ||
| 3 | 11 (12.9%) | 43 (16.0%) | 11 (16.9%) | 0 (0.00%) | 10 (29.4%) | ||
| Más de 3 | 6 (7.06%) | 66 (24.5%) | 17 (26.2%) | 2 (66.7%) | 9 (26.5%) | ||
| ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos? (dicotomizada): | 0.511 | 0.087 | |||||
| Bastante/Mucho | 83 (68.6%) | 281 (70.4%) | 59 (76.6%) | 4 (80.0%) | 35 (79.5%) | ||
| Un poco/Nada/No aplica | 38 (31.4%) | 118 (29.6%) | 18 (23.4%) | 1 (20.0%) | 9 (20.5%) | ||
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): | 0.051 | 0.069 | |||||
| Predomina el miedo | 62 (51.2%) | 206 (51.6%) | 31 (40.3%) | 0 (0.00%) | 19 (43.2%) | ||
| Predomina la ausencia de miedo | 59 (48.8%) | 193 (48.4%) | 46 (59.7%) | 5 (100%) | 25 (56.8%) | ||
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): | 0.079 | 0.105 | |||||
| Ha sido capacitado | 96 (79.3%) | 275 (68.9%) | 59 (76.6%) | 4 (80.0%) | 27 (61.4%) | ||
| No ha sido capacitado | 25 (20.7%) | 124 (31.1%) | 18 (23.4%) | 1 (20.0%) | 17 (38.6%) | ||
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): | 0.942 | 0.882 | |||||
| Mala | 5 (5.21%) | 19 (6.91%) | 3 (5.08%) | 0 (0.00%) | 2 (7.41%) | ||
| Regular a Excelente | 91 (94.8%) | 256 (93.1%) | 56 (94.9%) | 4 (100%) | 25 (92.6%) | ||
| ¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): | 0.342 | 0.043 | |||||
| Nada/Poco/Algo/No aplica | 49 (40.5%) | 136 (34.1%) | 24 (31.2%) | 1 (20.0%) | 11 (25.0%) | ||
| Totalmente/Bastante | 72 (59.5%) | 263 (65.9%) | 53 (68.8%) | 4 (80.0%) | 33 (75.0%) | ||
| ¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas): | 0.030 | <0.001 | |||||
| 1 | 57 (87.7%) | 192 (81.4%) | 30 (68.2%) | 2 (100%) | 15 (55.6%) | ||
| 2 | 6 (9.23%) | 32 (13.6%) | 11 (25.0%) | 0 (0.00%) | 7 (25.9%) | ||
| 3 | 0 (0.00%) | 11 (4.66%) | 2 (4.55%) | 0 (0.00%) | 5 (18.5%) | ||
| Más de 3 | 2 (3.08%) | 1 (0.42%) | 1 (2.27%) | 0 (0.00%) | 0 (0.00%) | ||
| Mi empleador se ha rehusado a dar cierto tipo de EPP: | 0.654 | 0.565 | |||||
| Empleador se ha rehusado a dar cierto tipo de EPP | 10 (11.1%) | 35 (10.2%) | 3 (4.76%) | 0 (0.00%) | 4 (10.8%) | ||
| No se constata esta situación | 80 (88.9%) | 307 (89.8%) | 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.478 | 0.131 | |||||
| Algo/Bastante/Totalente/No aplica | 81 (90.0%) | 304 (88.9%) | 58 (92.1%) | 3 (100%) | 36 (97.3%) | ||
| Poco/Nada | 9 (10.0%) | 38 (11.1%) | 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.956 | 0.899 | |||||
| Incapacidad para negarse a trabajo inseguro | 44 (48.9%) | 166 (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 (51.1%) | 176 (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.992 | 0.748 | |||||
| Apropiadas/No sabe/No aplica | 68 (75.6%) | 257 (75.1%) | 48 (76.2%) | 2 (66.7%) | 29 (78.4%) | ||
| Inapropiadas/Deficientes | 22 (24.4%) | 85 (24.9%) | 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.356 | 0.325 | |||||
| Apropiadas/No sabe/No aplica | 87 (96.7%) | 317 (92.7%) | 61 (96.8%) | 3 (100%) | 33 (89.2%) | ||
| Inapropiadas/Deficientes | 3 (3.33%) | 25 (7.31%) | 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.477 | 0.238 | |||||
| Apropiadas/No sabe/No aplica | 85 (94.4%) | 320 (93.6%) | 62 (98.4%) | 3 (100%) | 36 (97.3%) | ||
| Inapropiadas/Deficientes | 5 (5.56%) | 22 (6.43%) | 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.498 | 0.124 | |||||
| Apropiadas/No sabe/No aplica | 83 (92.2%) | 313 (91.5%) | 56 (88.9%) | 3 (100%) | 31 (83.8%) | ||
| Inapropiadas/Deficientes | 7 (7.78%) | 29 (8.48%) | 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.442 | 0.890 | |||||
| Apropiadas/No sabe/No aplica | 58 (64.4%) | 208 (60.8%) | 46 (73.0%) | 2 (66.7%) | 22 (59.5%) | ||
| Inapropiadas/Deficientes | 32 (35.6%) | 134 (39.2%) | 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.620 | 0.229 | |||||
| Apropiadas/No sabe/No aplica | 74 (82.2%) | 276 (80.7%) | 53 (84.1%) | 3 (100%) | 33 (89.2%) | ||
| Inapropiadas/Deficientes | 16 (17.8%) | 66 (19.3%) | 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.352 | 0.260 | |||||
| Apropiadas/No sabe/No aplica | 60 (66.7%) | 218 (63.7%) | 45 (71.4%) | 2 (66.7%) | 19 (51.4%) | ||
| Inapropiadas/Deficientes | 30 (33.3%) | 124 (36.3%) | 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.834 | 0.495 | |||||
| Apropiadas/No sabe/No aplica | 70 (77.8%) | 267 (78.1%) | 45 (71.4%) | 2 (66.7%) | 28 (75.7%) | ||
| Inapropiadas/Deficientes | 20 (22.2%) | 75 (21.9%) | 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.778 | 0.401 | |||||
| Apropiadas/No sabe/No aplica | 77 (85.6%) | 286 (83.6%) | 55 (87.3%) | 3 (100%) | 33 (89.2%) | ||
| Inapropiadas/Deficientes | 13 (14.4%) | 56 (16.4%) | 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.412 | 0.156 | |||||
| Desacuerdo/Totalmente en desacuerdo | 13 (14.4%) | 55 (16.1%) | 6 (9.52%) | 0 (0.00%) | 3 (8.11%) | ||
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 77 (85.6%) | 287 (83.9%) | 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.666 | 0.810 | |||||
| Desacuerdo/Totalmente en desacuerdo | 15 (16.7%) | 60 (17.5%) | 7 (11.1%) | 0 (0.00%) | 7 (18.9%) | ||
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 75 (83.3%) | 282 (82.5%) | 56 (88.9%) | 3 (100%) | 30 (81.1%) | ||
| ¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia: | 0.227 | 0.044 | |||||
| Totalmente de acuerdo | 9 (29.0%) | 10 (17.5%) | 0 (0.00%) | 0 (0.00%) | 2 (28.6%) | ||
| De acuerdo | 12 (38.7%) | 25 (43.9%) | 8 (57.1%) | 1 (50.0%) | 1 (14.3%) | ||
| Ni de acuerdo ni en desacuerdo | 8 (25.8%) | 12 (21.1%) | 1 (7.14%) | 1 (50.0%) | 1 (14.3%) | ||
| En desacuerdo | 2 (6.45%) | 9 (15.8%) | 5 (35.7%) | 0 (0.00%) | 3 (42.9%) | ||
| Totalmente en desacuerdo | 0 (0.00%) | 1 (1.75%) | 0 (0.00%) | 0 (0.00%) | 0 (0.00%) | ||
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada): | 0.237 | 0.461 | |||||
| Desacuerdo/Totalmente en desacuerdo | 35 (38.9%) | 159 (46.5%) | 24 (38.1%) | 0 (0.00%) | 14 (37.8%) | ||
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 55 (61.1%) | 183 (53.5%) | 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.054 | 0.177 | |||||
| Desacuerdo/Totalmente en desacuerdo | 15 (16.7%) | 80 (23.4%) | 6 (9.52%) | 0 (0.00%) | 5 (13.5%) | ||
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 75 (83.3%) | 262 (76.6%) | 57 (90.5%) | 3 (100%) | 32 (86.5%) | ||
| ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado): | <0.001 | 0.000 | |||||
| Menos de 6 meses | 0 (0.00%) | 6 (1.52%) | 12 (15.6%) | 1 (20.0%) | 5 (11.4%) | ||
| Entre 6 meses y 2 años | 1 (0.85%) | 67 (16.9%) | 38 (49.4%) | 3 (60.0%) | 17 (38.6%) | ||
| Entre 2 y 5 años | 6 (5.08%) | 124 (31.3%) | 20 (26.0%) | 0 (0.00%) | 16 (36.4%) | ||
| Entre 5 y 11 años | 7 (5.93%) | 23 (5.81%) | 2 (2.60%) | 0 (0.00%) | 2 (4.55%) | ||
| Más de 11 años | 104 (88.1%) | 176 (44.4%) | 5 (6.49%) | 1 (20.0%) | 4 (9.09%) | ||
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores: | 0.497 | 0.910 | |||||
| FALSE | 100 (82.6%) | 301 (75.4%) | 62 (80.5%) | 4 (80.0%) | 35 (79.5%) | ||
| TRUE | 21 (17.4%) | 98 (24.6%) | 15 (19.5%) | 1 (20.0%) | 9 (20.5%) | ||
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo: | 0.390 | 0.612 | |||||
| FALSE | 103 (85.1%) | 339 (85.0%) | 61 (79.2%) | 3 (60.0%) | 38 (86.4%) | ||
| TRUE | 18 (14.9%) | 60 (15.0%) | 16 (20.8%) | 2 (40.0%) | 6 (13.6%) | ||
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo: | 0.272 | 0.928 | |||||
| FALSE | 90 (74.4%) | 318 (79.7%) | 63 (81.8%) | 5 (100%) | 31 (70.5%) | ||
| TRUE | 31 (25.6%) | 81 (20.3%) | 14 (18.2%) | 0 (0.00%) | 13 (29.5%) | ||
| ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): | 0.036 | 0.038 | |||||
| Excelente/Buena/Regular | 102 (86.4%) | 327 (83.6%) | 71 (94.7%) | 3 (75.0%) | 42 (95.5%) | ||
| Pésima/Mala | 16 (13.6%) | 64 (16.4%) | 4 (5.33%) | 1 (25.0%) | 2 (4.55%) | ||
| ¿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.023 | 0.003 | |||||
| De acuerdo/Totalmente de acuerdo | 63 (53.4%) | 202 (51.7%) | 30 (40.0%) | 1 (25.0%) | 14 (31.8%) | ||
| Neutral/En desacuerdo/Totalmente en desacuerdo | 55 (46.6%) | 189 (48.3%) | 45 (60.0%) | 3 (75.0%) | 30 (68.2%) | ||
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): | 0.082 | 0.697 | |||||
| La mayoría de las veces/Siempre | 57 (48.3%) | 183 (46.8%) | 29 (38.7%) | 0 (0.00%) | 26 (59.1%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 61 (51.7%) | 208 (53.2%) | 46 (61.3%) | 4 (100%) | 18 (40.9%) | ||
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): | 0.016 | 0.872 | |||||
| La mayoría de las veces/Siempre | 56 (47.5%) | 203 (51.9%) | 28 (37.3%) | 0 (0.00%) | 26 (59.1%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 62 (52.5%) | 188 (48.1%) | 47 (62.7%) | 4 (100%) | 18 (40.9%) | ||
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): | 0.061 | 0.757 | |||||
| La mayoría de las veces/Siempre | 80 (67.8%) | 218 (55.8%) | 51 (68.0%) | 2 (50.0%) | 29 (65.9%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 38 (32.2%) | 173 (44.2%) | 24 (32.0%) | 2 (50.0%) | 15 (34.1%) | ||
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): | 0.081 | 0.308 | |||||
| La mayoría de las veces/Siempre | 14 (11.9%) | 25 (6.39%) | 6 (8.00%) | 1 (25.0%) | 7 (15.9%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 104 (88.1%) | 366 (93.6%) | 69 (92.0%) | 3 (75.0%) | 37 (84.1%) | ||
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): | 0.127 | 0.079 | |||||
| La mayoría de las veces/Siempre | 16 (13.6%) | 87 (22.3%) | 12 (16.0%) | 1 (25.0%) | 13 (29.5%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 102 (86.4%) | 304 (77.7%) | 63 (84.0%) | 3 (75.0%) | 31 (70.5%) | ||
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): | 0.009 | 0.291 | |||||
| La mayoría de las veces/Siempre | 81 (68.6%) | 296 (75.7%) | 64 (85.3%) | 1 (25.0%) | 33 (75.0%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 37 (31.4%) | 95 (24.3%) | 11 (14.7%) | 3 (75.0%) | 11 (25.0%) | ||
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): | 0.035 | 0.062 | |||||
| La mayoría de las veces/Siempre | 71 (60.2%) | 267 (68.3%) | 57 (76.0%) | 1 (25.0%) | 33 (75.0%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 47 (39.8%) | 124 (31.7%) | 18 (24.0%) | 3 (75.0%) | 11 (25.0%) | ||
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): | 0.559 | 0.880 | |||||
| La mayoría de las veces/Siempre | 77 (65.3%) | 281 (71.9%) | 52 (69.3%) | 2 (50.0%) | 29 (65.9%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 41 (34.7%) | 110 (28.1%) | 23 (30.7%) | 2 (50.0%) | 15 (34.1%) | ||
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): | 0.036 | 0.603 | |||||
| La mayoría de las veces/Siempre | 97 (82.2%) | 324 (82.9%) | 71 (94.7%) | 2 (50.0%) | 36 (81.8%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 21 (17.8%) | 67 (17.1%) | 4 (5.33%) | 2 (50.0%) | 8 (18.2%) | ||
| En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): | 0.150 | 0.286 | |||||
| La mayoría de las veces/Siempre | 93 (78.8%) | 321 (82.1%) | 58 (77.3%) | 2 (50.0%) | 40 (90.9%) | ||
| Nunca/Sólo unas pocas veces/Algunas veces | 25 (21.2%) | 70 (17.9%) | 17 (22.7%) | 2 (50.0%) | 4 (9.09%) | ||
| Suma ítems Exigencias Psicológicas ISTAS21 | 5.00 [4.00;6.00] | 5.00 [4.00;6.00] | 4.00 [3.00;6.00] | 3.00 [1.50;4.00] | 6.00 [4.00;7.00] | 0.037 | 0.928 |
| Suma ítems Calidad Relación con Superiores ISTAS21 (sin ítem 03) | 6.00 [4.00;7.00] | 6.00 [5.00;8.00] | 7.00 [6.00;8.00] | 2.50 [1.50;4.00] | 7.00 [5.00;8.00] | 0.006 | 0.005 |
| Suma ítems Conflicto de Rol ISTAS21 | 3.00 [2.00;4.00] | 3.00 [1.00;4.00] | 2.00 [1.00;4.00] | 3.00 [1.50;4.50] | 3.00 [1.00;4.00] | 0.660 | 0.487 |
| Suma ítems Relación con Compañeros de Trabajo ISTAS21 | 6.00 [5.00;7.00] | 6.00 [5.00;7.00] | 6.00 [6.00;7.00] | 5.00 [3.00;6.25] | 6.00 [5.00;8.00] | 0.040 | 0.022 |
| 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.001 | |||||
| Apenas cierto/Incorrecto | 3 (2.54%) | 8 (2.06%) | 3 (4.00%) | 2 (50.0%) | 5 (11.4%) | ||
| Más bien cierto/Cierto | 115 (97.5%) | 380 (97.9%) | 72 (96.0%) | 2 (50.0%) | 39 (88.6%) | ||
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada): | 0.002 | 0.004 | |||||
| Apenas cierto/Incorrecto | 5 (4.24%) | 17 (4.38%) | 4 (5.33%) | 2 (50.0%) | 6 (13.6%) | ||
| Más bien cierto/Cierto | 113 (95.8%) | 371 (95.6%) | 71 (94.7%) | 2 (50.0%) | 38 (86.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.001 | 0.001 | |||||
| Apenas cierto/Incorrecto | 4 (3.39%) | 10 (2.58%) | 4 (5.33%) | 2 (50.0%) | 5 (11.4%) | ||
| Más bien cierto/Cierto | 114 (96.6%) | 378 (97.4%) | 71 (94.7%) | 2 (50.0%) | 39 (88.6%) | ||
| Suma puntajes de resilencia | 8.50 [7.00;9.00] | 8.00 [7.00;9.00] | 7.00 [6.00;9.00] | 4.50 [2.25;6.75] | 8.00 [6.75;9.00] | 0.021 | 0.004 |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: | 0.186 | 0.075 | |||||
| Nunca | 1 (0.83%) | 14 (3.51%) | 3 (3.90%) | 0 (0.00%) | 1 (2.27%) | ||
| Sólo unas pocas <br>veces | 12 (9.92%) | 60 (15.0%) | 15 (19.5%) | 2 (40.0%) | 10 (22.7%) | ||
| Algunas veces | 57 (47.1%) | 139 (34.8%) | 30 (39.0%) | 1 (20.0%) | 17 (38.6%) | ||
| La mayoría de las veces | 44 (36.4%) | 145 (36.3%) | 27 (35.1%) | 2 (40.0%) | 12 (27.3%) | ||
| Siempre | 7 (5.79%) | 41 (10.3%) | 2 (2.60%) | 0 (0.00%) | 4 (9.09%) | ||
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: | 0.303 | 0.303 | |||||
| Nunca | 4 (3.31%) | 28 (7.02%) | 8 (10.4%) | 0 (0.00%) | 2 (4.55%) | ||
| Sólo unas pocas <br>veces | 15 (12.4%) | 60 (15.0%) | 19 (24.7%) | 1 (20.0%) | 8 (18.2%) | ||
| Algunas veces | 54 (44.6%) | 141 (35.3%) | 28 (36.4%) | 3 (60.0%) | 13 (29.5%) | ||
| La mayoría de las veces | 39 (32.2%) | 132 (33.1%) | 17 (22.1%) | 1 (20.0%) | 18 (40.9%) | ||
| Siempre | 9 (7.44%) | 38 (9.52%) | 5 (6.49%) | 0 (0.00%) | 3 (6.82%) | ||
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: | 0.173 | 0.435 | |||||
| Nunca | 4 (3.31%) | 20 (5.01%) | 10 (13.0%) | 0 (0.00%) | 3 (6.82%) | ||
| Sólo unas pocas <br>veces | 19 (15.7%) | 65 (16.3%) | 13 (16.9%) | 2 (40.0%) | 6 (13.6%) | ||
| Algunas veces | 51 (42.1%) | 146 (36.6%) | 23 (29.9%) | 1 (20.0%) | 21 (47.7%) | ||
| La mayoría de las veces | 38 (31.4%) | 125 (31.3%) | 24 (31.2%) | 2 (40.0%) | 7 (15.9%) | ||
| Siempre | 9 (7.44%) | 43 (10.8%) | 7 (9.09%) | 0 (0.00%) | 7 (15.9%) | ||
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: | 0.410 | 0.116 | |||||
| Nunca | 5 (5.56%) | 38 (11.1%) | 15 (23.8%) | 0 (0.00%) | 5 (13.5%) | ||
| Sólo unas pocas <br>veces | 29 (32.2%) | 104 (30.4%) | 14 (22.2%) | 1 (33.3%) | 12 (32.4%) | ||
| Algunas veces | 37 (41.1%) | 128 (37.4%) | 23 (36.5%) | 1 (33.3%) | 15 (40.5%) | ||
| La mayoría de las veces | 17 (18.9%) | 55 (16.1%) | 9 (14.3%) | 1 (33.3%) | 4 (10.8%) | ||
| Siempre | 2 (2.22%) | 17 (4.97%) | 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.096 | 0.356 | |||||
| Nunca | 9 (7.44%) | 55 (13.8%) | 15 (19.5%) | 0 (0.00%) | 3 (6.82%) | ||
| Sólo unas pocas <br>veces | 23 (19.0%) | 60 (15.0%) | 14 (18.2%) | 0 (0.00%) | 10 (22.7%) | ||
| Algunas veces | 42 (34.7%) | 105 (26.3%) | 22 (28.6%) | 3 (60.0%) | 18 (40.9%) | ||
| La mayoría de las veces | 35 (28.9%) | 119 (29.8%) | 18 (23.4%) | 2 (40.0%) | 7 (15.9%) | ||
| Siempre | 12 (9.92%) | 60 (15.0%) | 8 (10.4%) | 0 (0.00%) | 6 (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.349 | 0.142 | |||||
| Nunca | 16 (13.2%) | 70 (17.5%) | 17 (22.1%) | 0 (0.00%) | 7 (15.9%) | ||
| Sólo unas pocas <br>veces | 25 (20.7%) | 79 (19.8%) | 16 (20.8%) | 2 (40.0%) | 12 (27.3%) | ||
| Algunas veces | 43 (35.5%) | 100 (25.1%) | 22 (28.6%) | 3 (60.0%) | 15 (34.1%) | ||
| La mayoría de las veces | 25 (20.7%) | 97 (24.3%) | 13 (16.9%) | 0 (0.00%) | 7 (15.9%) | ||
| Siempre | 12 (9.92%) | 53 (13.3%) | 9 (11.7%) | 0 (0.00%) | 3 (6.82%) | ||
| 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.079 | 0.384 | |||||
| Nada | 28 (23.1%) | 85 (21.3%) | 21 (27.3%) | 0 (0.00%) | 10 (22.7%) | ||
| Un poco | 44 (36.4%) | 111 (27.8%) | 27 (35.1%) | 1 (20.0%) | 13 (29.5%) | ||
| Regular | 35 (28.9%) | 107 (26.8%) | 15 (19.5%) | 2 (40.0%) | 9 (20.5%) | ||
| Bastante | 13 (10.7%) | 79 (19.8%) | 10 (13.0%) | 1 (20.0%) | 12 (27.3%) | ||
| Mucho | 1 (0.83%) | 17 (4.26%) | 4 (5.19%) | 1 (20.0%) | 0 (0.00%) | ||
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: | 0.142 | 0.316 | |||||
| Nada | 21 (17.4%) | 78 (19.5%) | 21 (27.3%) | 2 (40.0%) | 12 (27.3%) | ||
| Un poco | 48 (39.7%) | 114 (28.6%) | 31 (40.3%) | 2 (40.0%) | 11 (25.0%) | ||
| Regular | 26 (21.5%) | 89 (22.3%) | 6 (7.79%) | 1 (20.0%) | 10 (22.7%) | ||
| Bastante | 21 (17.4%) | 90 (22.6%) | 15 (19.5%) | 0 (0.00%) | 9 (20.5%) | ||
| Mucho | 5 (4.13%) | 28 (7.02%) | 4 (5.19%) | 0 (0.00%) | 2 (4.55%) | ||
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: | 0.048 | 0.038 | |||||
| Nada | 31 (25.6%) | 145 (36.3%) | 36 (46.8%) | 1 (20.0%) | 21 (47.7%) | ||
| Un poco | 46 (38.0%) | 119 (29.8%) | 23 (29.9%) | 0 (0.00%) | 12 (27.3%) | ||
| Regular | 27 (22.3%) | 66 (16.5%) | 11 (14.3%) | 2 (40.0%) | 7 (15.9%) | ||
| Bastante | 12 (9.92%) | 51 (12.8%) | 5 (6.49%) | 2 (40.0%) | 1 (2.27%) | ||
| Mucho | 5 (4.13%) | 18 (4.51%) | 2 (2.60%) | 0 (0.00%) | 3 (6.82%) | ||
| 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.025 | 0.533 | |||||
| Nunca | 18 (14.9%) | 74 (18.5%) | 25 (32.5%) | 2 (40.0%) | 7 (15.9%) | ||
| Algunos días | 65 (53.7%) | 188 (47.1%) | 31 (40.3%) | 3 (60.0%) | 22 (50.0%) | ||
| Más de la mitad de los días | 29 (24.0%) | 92 (23.1%) | 20 (26.0%) | 0 (0.00%) | 8 (18.2%) | ||
| Casi todos los días | 9 (7.44%) | 45 (11.3%) | 1 (1.30%) | 0 (0.00%) | 7 (15.9%) | ||
| Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: | 0.097 | 0.419 | |||||
| Nunca | 11 (9.09%) | 49 (12.3%) | 20 (26.0%) | 0 (0.00%) | 6 (13.6%) | ||
| Algunos días | 57 (47.1%) | 169 (42.4%) | 27 (35.1%) | 3 (60.0%) | 17 (38.6%) | ||
| Más de la mitad de los días | 33 (27.3%) | 121 (30.3%) | 24 (31.2%) | 2 (40.0%) | 13 (29.5%) | ||
| Casi todos los días | 20 (16.5%) | 60 (15.0%) | 6 (7.79%) | 0 (0.00%) | 8 (18.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.475 | 0.599 | |||||
| Nunca | 28 (23.1%) | 92 (23.1%) | 18 (23.4%) | 0 (0.00%) | 13 (29.5%) | ||
| Algunos días | 67 (55.4%) | 184 (46.1%) | 41 (53.2%) | 2 (40.0%) | 17 (38.6%) | ||
| Más de la mitad de los días | 18 (14.9%) | 91 (22.8%) | 11 (14.3%) | 2 (40.0%) | 10 (22.7%) | ||
| Casi todos los días | 8 (6.61%) | 32 (8.02%) | 7 (9.09%) | 1 (20.0%) | 4 (9.09%) | ||
| 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.043 | 0.920 | |||||
| Nunca | 20 (16.5%) | 109 (27.3%) | 22 (28.6%) | 0 (0.00%) | 11 (25.0%) | ||
| Algunos días | 72 (59.5%) | 174 (43.6%) | 40 (51.9%) | 1 (20.0%) | 21 (47.7%) | ||
| Más de la mitad de los días | 21 (17.4%) | 89 (22.3%) | 9 (11.7%) | 3 (60.0%) | 8 (18.2%) | ||
| Casi todos los días | 8 (6.61%) | 27 (6.77%) | 6 (7.79%) | 1 (20.0%) | 4 (9.09%) | ||
| ¿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.008 | 0.352 | |||||
| Ninguno | 42 (34.7%) | 197 (49.4%) | 29 (37.7%) | 3 (60.0%) | 14 (31.8%) | ||
| 1 a 10 | 57 (47.1%) | 140 (35.1%) | 29 (37.7%) | 1 (20.0%) | 16 (36.4%) | ||
| 11 a 30 | 10 (8.26%) | 36 (9.02%) | 10 (13.0%) | 0 (0.00%) | 13 (29.5%) | ||
| 31 a 100 | 7 (5.79%) | 21 (5.26%) | 6 (7.79%) | 1 (20.0%) | 1 (2.27%) | ||
| Más de 100 | 5 (4.13%) | 5 (1.25%) | 3 (3.90%) | 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.386 | 0.274 | |||||
| Ninguno | 62 (51.2%) | 197 (49.4%) | 45 (58.4%) | 3 (60.0%) | 22 (50.0%) | ||
| Sólo uno | 13 (10.7%) | 65 (16.3%) | 12 (15.6%) | 0 (0.00%) | 8 (18.2%) | ||
| 2 a 10 | 41 (33.9%) | 114 (28.6%) | 17 (22.1%) | 1 (20.0%) | 14 (31.8%) | ||
| 11 a 25 | 2 (1.65%) | 17 (4.26%) | 3 (3.90%) | 1 (20.0%) | 0 (0.00%) | ||
| Más de 25 | 3 (2.48%) | 6 (1.50%) | 0 (0.00%) | 0 (0.00%) | 0 (0.00%) | ||
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?: | 0.035 | 0.017 | |||||
| Ninguno que yo esté en conocimiento | 49 (40.5%) | 171 (42.9%) | 20 (26.0%) | 2 (40.0%) | 15 (34.1%) | ||
| Comparto espacios con trabajadores que están en contacto con pacientes | 30 (24.8%) | 90 (22.6%) | 16 (20.8%) | 0 (0.00%) | 10 (22.7%) | ||
| Tengo algún contacto con pacientes | 14 (11.6%) | 61 (15.3%) | 10 (13.0%) | 1 (20.0%) | 5 (11.4%) | ||
| Trabajo en contacto directo o a menos de 2 metros con pacientes | 28 (23.1%) | 77 (19.3%) | 31 (40.3%) | 2 (40.0%) | 14 (31.8%) | ||
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Le han dicho que tuvo contacto con un paciente COVID-19 en el trabajo.: | 0.001 | <0.001 | |||||
| 0 | 67 (74.4%) | 236 (69.0%) | 30 (47.6%) | 1 (33.3%) | 19 (51.4%) | ||
| 1 | 23 (25.6%) | 106 (31.0%) | 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.363 | 0.266 | |||||
| 0 | 86 (95.6%) | 306 (89.5%) | 55 (87.3%) | 3 (100%) | 33 (89.2%) | ||
| 1 | 4 (4.44%) | 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.049 | 0.019 | |||||
| 0 | 81 (72.3%) | 267 (73.0%) | 48 (66.7%) | 1 (25.0%) | 24 (57.1%) | ||
| 1 | 31 (27.7%) | 99 (27.0%) | 24 (33.3%) | 3 (75.0%) | 18 (42.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) | Experimentó síntomas similares a los de COVID-19.: | 0.059 | 0.110 | |||||
| 0 | 75 (83.3%) | 256 (74.9%) | 39 (61.9%) | 2 (66.7%) | 28 (75.7%) | ||
| 1 | 15 (16.7%) | 86 (25.1%) | 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.259 | 0.039 | |||||
| 0 | 90 (98.9%) | 331 (96.5%) | 61 (93.8%) | 3 (100%) | 34 (91.9%) | ||
| 1 | 1 (1.10%) | 12 (3.50%) | 4 (6.15%) | 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.022 | 0.439 | |||||
| 0 | 85 (94.4%) | 305 (89.2%) | 57 (90.5%) | 1 (33.3%) | 34 (91.9%) | ||
| 1 | 5 (5.56%) | 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.084 | 0.053 | |||||
| 0 | 77 (85.6%) | 286 (83.6%) | 49 (77.8%) | 1 (33.3%) | 28 (75.7%) | ||
| 1 | 13 (14.4%) | 56 (16.4%) | 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.247 | 0.072 | |||||
| 0 | 49 (54.4%) | 186 (54.4%) | 26 (41.3%) | 1 (33.3%) | 16 (43.2%) | ||
| 1 | 41 (45.6%) | 156 (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.115 | 0.343 | |||||
| 0 | 82 (88.2%) | 324 (92.8%) | 59 (88.1%) | 2 (66.7%) | 37 (97.4%) | ||
| 1 | 11 (11.8%) | 25 (7.16%) | 8 (11.9%) | 1 (33.3%) | 1 (2.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) | Presentó formularios de compensación por contraer COVID-19 en el trabajo (Seguro de vida, enfermedad laboral).: | 0.766 | 0.614 | |||||
| 0 | 82 (83.7%) | 305 (86.2%) | 56 (84.8%) | 3 (100%) | 32 (80.0%) | ||
| 1 | 16 (16.3%) | 49 (13.8%) | 10 (15.2%) | 0 (0.00%) | 8 (20.0%) | ||
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Ninguna de las anteriores.: | 0.044 | 0.092 | |||||
| FALSE | 62 (68.9%) | 235 (68.7%) | 55 (87.3%) | 2 (66.7%) | 28 (75.7%) | ||
| TRUE | 28 (31.1%) | 107 (31.3%) | 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.436 | 0.401 | |||||
| Nada | 5 (4.13%) | 16 (4.01%) | 2 (2.60%) | 0 (0.00%) | 0 (0.00%) | ||
| Un poco | 25 (20.7%) | 85 (21.3%) | 14 (18.2%) | 0 (0.00%) | 9 (20.5%) | ||
| Bastante | 29 (24.0%) | 103 (25.8%) | 21 (27.3%) | 3 (60.0%) | 9 (20.5%) | ||
| Mucho | 54 (44.6%) | 178 (44.6%) | 38 (49.4%) | 1 (20.0%) | 26 (59.1%) | ||
| No aplica | 8 (6.61%) | 17 (4.26%) | 2 (2.60%) | 1 (20.0%) | 0 (0.00%) | ||
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: | 0.003 | 0.546 | |||||
| 1 (Poco o nada) | 5 (4.13%) | 24 (6.02%) | 1 (1.30%) | 1 (20.0%) | 0 (0.00%) | ||
| 2 | 5 (4.13%) | 17 (4.26%) | 8 (10.4%) | 0 (0.00%) | 2 (4.55%) | ||
| 3 | 15 (12.4%) | 25 (6.27%) | 8 (10.4%) | 2 (40.0%) | 6 (13.6%) | ||
| 4 | 12 (9.92%) | 48 (12.0%) | 20 (26.0%) | 0 (0.00%) | 3 (6.82%) | ||
| 5 | 22 (18.2%) | 79 (19.8%) | 9 (11.7%) | 2 (40.0%) | 14 (31.8%) | ||
| 6 | 21 (17.4%) | 57 (14.3%) | 12 (15.6%) | 0 (0.00%) | 5 (11.4%) | ||
| 7 | 15 (12.4%) | 72 (18.0%) | 11 (14.3%) | 0 (0.00%) | 3 (6.82%) | ||
| 8 | 17 (14.0%) | 43 (10.8%) | 4 (5.19%) | 0 (0.00%) | 4 (9.09%) | ||
| 9 | 2 (1.65%) | 22 (5.51%) | 3 (3.90%) | 0 (0.00%) | 3 (6.82%) | ||
| 10 (Tanto miedo como nunca he sentido) | 7 (5.79%) | 12 (3.01%) | 1 (1.30%) | 0 (0.00%) | 4 (9.09%) | ||
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: | 0.003 | 0.047 | |||||
| FALSE | 39 (43.3%) | 172 (50.3%) | 17 (27.0%) | 1 (33.3%) | 13 (35.1%) | ||
| TRUE | 51 (56.7%) | 170 (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.005 | 0.781 | |||||
| FALSE | 40 (44.4%) | 202 (59.1%) | 26 (41.3%) | 3 (100%) | 20 (54.1%) | ||
| TRUE | 50 (55.6%) | 140 (40.9%) | 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.095 | 0.134 | |||||
| FALSE | 35 (38.9%) | 149 (43.6%) | 18 (28.6%) | 2 (66.7%) | 11 (29.7%) | ||
| TRUE | 55 (61.1%) | 193 (56.4%) | 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.189 | 0.316 | |||||
| FALSE | 82 (91.1%) | 321 (93.9%) | 54 (85.7%) | 3 (100%) | 33 (89.2%) | ||
| TRUE | 8 (8.89%) | 21 (6.14%) | 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.091 | 0.056 | |||||
| FALSE | 14 (15.6%) | 38 (11.1%) | 9 (14.3%) | 1 (33.3%) | 0 (0.00%) | ||
| TRUE | 76 (84.4%) | 304 (88.9%) | 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.897 | 0.958 | |||||
| FALSE | 12 (13.3%) | 44 (12.9%) | 7 (11.1%) | 1 (33.3%) | 5 (13.5%) | ||
| TRUE | 78 (86.7%) | 298 (87.1%) | 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.194 | 0.367 | |||||
| FALSE | 41 (45.6%) | 188 (55.0%) | 27 (42.9%) | 1 (33.3%) | 16 (43.2%) | ||
| TRUE | 49 (54.4%) | 154 (45.0%) | 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.680 | 0.592 | |||||
| FALSE | 88 (97.8%) | 337 (98.5%) | 61 (96.8%) | 3 (100%) | 37 (100%) | ||
| TRUE | 2 (2.22%) | 5 (1.46%) | 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.286 | |||||
| FALSE | 47 (52.2%) | 210 (61.4%) | 22 (34.9%) | 2 (66.7%) | 20 (54.1%) | ||
| TRUE | 43 (47.8%) | 132 (38.6%) | 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.067 | 0.559 | |||||
| FALSE | 62 (68.9%) | 257 (75.1%) | 37 (58.7%) | 3 (100%) | 26 (70.3%) | ||
| TRUE | 28 (31.1%) | 85 (24.9%) | 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.408 | 0.675 | |||||
| FALSE | 74 (82.2%) | 298 (87.1%) | 55 (87.3%) | 3 (100%) | 29 (78.4%) | ||
| TRUE | 16 (17.8%) | 44 (12.9%) | 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.030 | 0.897 | |||||
| FALSE | 89 (98.9%) | 336 (98.2%) | 63 (100%) | 2 (66.7%) | 37 (100%) | ||
| TRUE | 1 (1.11%) | 6 (1.75%) | 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.030 | 0.279 | |||||
| Suficiente | 57 (63.3%) | 196 (57.3%) | 47 (74.6%) | 2 (66.7%) | 23 (62.2%) | ||
| Insuficiente | 11 (12.2%) | 44 (12.9%) | 12 (19.0%) | 0 (0.00%) | 5 (13.5%) | ||
| No Aplica | 22 (24.4%) | 102 (29.8%) | 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.027 | |||||
| Suficiente | 38 (42.2%) | 113 (33.0%) | 35 (55.6%) | 1 (33.3%) | 20 (54.1%) | ||
| Insuficiente | 24 (26.7%) | 82 (24.0%) | 17 (27.0%) | 1 (33.3%) | 7 (18.9%) | ||
| No Aplica | 28 (31.1%) | 147 (43.0%) | 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.009 | 0.003 | |||||
| Suficiente | 46 (51.1%) | 171 (50.0%) | 42 (66.7%) | 1 (33.3%) | 26 (70.3%) | ||
| Insuficiente | 23 (25.6%) | 81 (23.7%) | 17 (27.0%) | 1 (33.3%) | 8 (21.6%) | ||
| No Aplica | 21 (23.3%) | 90 (26.3%) | 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.574 | 0.976 | |||||
| Suficiente | 13 (14.4%) | 43 (12.6%) | 12 (19.0%) | 1 (33.3%) | 5 (13.5%) | ||
| Insuficiente | 15 (16.7%) | 46 (13.5%) | 10 (15.9%) | 1 (33.3%) | 3 (8.11%) | ||
| No Aplica | 62 (68.9%) | 253 (74.0%) | 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.225 | |||||
| Suficiente | 73 (81.1%) | 276 (80.7%) | 55 (87.3%) | 2 (66.7%) | 31 (83.8%) | ||
| Insuficiente | 11 (12.2%) | 44 (12.9%) | 8 (12.7%) | 0 (0.00%) | 6 (16.2%) | ||
| No Aplica | 6 (6.67%) | 22 (6.43%) | 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.061 | 0.157 | |||||
| Suficiente | 68 (75.6%) | 276 (80.7%) | 51 (81.0%) | 1 (33.3%) | 31 (83.8%) | ||
| Insuficiente | 14 (15.6%) | 47 (13.7%) | 12 (19.0%) | 1 (33.3%) | 6 (16.2%) | ||
| No Aplica | 8 (8.89%) | 19 (5.56%) | 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.158 | 0.058 | |||||
| Suficiente | 29 (32.2%) | 95 (27.8%) | 22 (34.9%) | 1 (33.3%) | 13 (35.1%) | ||
| Insuficiente | 24 (26.7%) | 120 (35.1%) | 28 (44.4%) | 1 (33.3%) | 15 (40.5%) | ||
| No Aplica | 37 (41.1%) | 127 (37.1%) | 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.279 | 0.199 | |||||
| Suficiente | 4 (4.44%) | 14 (4.09%) | 2 (3.17%) | 1 (33.3%) | 2 (5.41%) | ||
| Insuficiente | 11 (12.2%) | 42 (12.3%) | 10 (15.9%) | 1 (33.3%) | 7 (18.9%) | ||
| No Aplica | 75 (83.3%) | 286 (83.6%) | 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.048 | |||||
| Suficiente | 43 (47.8%) | 145 (42.4%) | 43 (68.3%) | 1 (33.3%) | 20 (54.1%) | ||
| Insuficiente | 8 (8.89%) | 35 (10.2%) | 5 (7.94%) | 1 (33.3%) | 4 (10.8%) | ||
| No Aplica | 39 (43.3%) | 162 (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.317 | 0.353 | |||||
| Suficiente | 22 (24.4%) | 76 (22.2%) | 20 (31.7%) | 0 (0.00%) | 13 (35.1%) | ||
| Insuficiente | 17 (18.9%) | 56 (16.4%) | 11 (17.5%) | 1 (33.3%) | 2 (5.41%) | ||
| No Aplica | 51 (56.7%) | 210 (61.4%) | 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.559 | 0.958 | |||||
| Suficiente | 16 (17.8%) | 37 (10.8%) | 6 (9.52%) | 1 (33.3%) | 5 (13.5%) | ||
| Insuficiente | 15 (16.7%) | 64 (18.7%) | 15 (23.8%) | 1 (33.3%) | 8 (21.6%) | ||
| No Aplica | 59 (65.6%) | 241 (70.5%) | 42 (66.7%) | 1 (33.3%) | 24 (64.9%) | ||
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: | 0.123 | 0.133 | |||||
| No he sido capacitado | 25 (20.7%) | 124 (31.1%) | 18 (23.4%) | 1 (20.0%) | 17 (38.6%) | ||
| Sí, en el último mes | 16 (13.2%) | 44 (11.0%) | 13 (16.9%) | 0 (0.00%) | 4 (9.09%) | ||
| Sí, en los últimos 6 meses | 53 (43.8%) | 147 (36.8%) | 33 (42.9%) | 2 (40.0%) | 17 (38.6%) | ||
| Sí, el año pasado | 26 (21.5%) | 60 (15.0%) | 9 (11.7%) | 2 (40.0%) | 5 (11.4%) | ||
| Sí, hace más de un año | 1 (0.83%) | 24 (6.02%) | 4 (5.19%) | 0 (0.00%) | 1 (2.27%) | ||
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: | 0.394 | 0.120 | |||||
| Excelente | 15 (15.6%) | 30 (10.9%) | 4 (6.78%) | 1 (25.0%) | 0 (0.00%) | ||
| Buena | 51 (53.1%) | 138 (50.2%) | 28 (47.5%) | 1 (25.0%) | 18 (66.7%) | ||
| Regular | 25 (26.0%) | 88 (32.0%) | 24 (40.7%) | 2 (50.0%) | 7 (25.9%) | ||
| Mala | 5 (5.21%) | 19 (6.91%) | 3 (5.08%) | 0 (0.00%) | 2 (7.41%) | ||
| ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: | 0.107 | 0.652 | |||||
| Nada | 1 (0.83%) | 11 (2.76%) | 0 (0.00%) | 1 (20.0%) | 1 (2.27%) | ||
| Poco | 3 (2.48%) | 27 (6.77%) | 6 (7.79%) | 0 (0.00%) | 1 (2.27%) | ||
| Algo | 33 (27.3%) | 74 (18.5%) | 14 (18.2%) | 0 (0.00%) | 8 (18.2%) | ||
| Bastante | 51 (42.1%) | 206 (51.6%) | 43 (55.8%) | 3 (60.0%) | 24 (54.5%) | ||
| Totalmente | 21 (17.4%) | 57 (14.3%) | 10 (13.0%) | 1 (20.0%) | 9 (20.5%) | ||
| No aplica | 12 (9.92%) | 24 (6.02%) | 4 (5.19%) | 0 (0.00%) | 1 (2.27%) | ||
| ¿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.638 | 0.565 | |||||
| 0 | 80 (88.9%) | 307 (89.8%) | 60 (95.2%) | 3 (100%) | 33 (89.2%) | ||
| 1 | 10 (11.1%) | 35 (10.2%) | 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.420 | 0.584 | |||||
| 0 | 82 (91.1%) | 296 (86.5%) | 54 (85.7%) | 3 (100%) | 35 (94.6%) | ||
| 1 | 8 (8.89%) | 46 (13.5%) | 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.042 | 0.003 | |||||
| 0 | 83 (92.2%) | 314 (91.8%) | 55 (87.3%) | 3 (100%) | 28 (75.7%) | ||
| 1 | 7 (7.78%) | 28 (8.19%) | 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 | 78 (86.7%) | 289 (84.5%) | 50 (79.4%) | 2 (66.7%) | 25 (67.6%) | ||
| 1 | 12 (13.3%) | 53 (15.5%) | 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.696 | 0.844 | |||||
| FALSE | 65 (72.2%) | 248 (72.5%) | 45 (71.4%) | 1 (33.3%) | 27 (73.0%) | ||
| TRUE | 25 (27.8%) | 94 (27.5%) | 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.965 | 0.299 | |||||
| Nada | 2 (2.22%) | 6 (1.75%) | 2 (3.17%) | 0 (0.00%) | 0 (0.00%) | ||
| Poco | 7 (7.78%) | 32 (9.36%) | 3 (4.76%) | 0 (0.00%) | 1 (2.70%) | ||
| Algo | 21 (23.3%) | 83 (24.3%) | 16 (25.4%) | 2 (66.7%) | 8 (21.6%) | ||
| Bastante | 39 (43.3%) | 151 (44.2%) | 28 (44.4%) | 1 (33.3%) | 18 (48.6%) | ||
| Totalmente | 15 (16.7%) | 52 (15.2%) | 9 (14.3%) | 0 (0.00%) | 8 (21.6%) | ||
| No aplica | 6 (6.67%) | 18 (5.26%) | 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.923 | 0.277 | |||||
| Negarme a trabajar no es una opción legalmente disponible para mí | 9 (10.0%) | 39 (11.4%) | 8 (12.7%) | 0 (0.00%) | 4 (10.8%) | ||
| Definitivamente, no es posible negarme a trabajar | 3 (3.33%) | 29 (8.48%) | 4 (6.35%) | 0 (0.00%) | 4 (10.8%) | ||
| Es improbable que pueda negarme a trabajar | 10 (11.1%) | 23 (6.73%) | 4 (6.35%) | 1 (33.3%) | 4 (10.8%) | ||
| Quizás, en una situación extrema podría negarme a trabajar | 14 (15.6%) | 60 (17.5%) | 11 (17.5%) | 1 (33.3%) | 7 (18.9%) | ||
| Probablemente, podría negarme a trabajar si considero que el riesgo es significativo | 32 (35.6%) | 116 (33.9%) | 24 (38.1%) | 0 (0.00%) | 12 (32.4%) | ||
| Definitivamente, no dudaría en negarme a trabajar | 22 (24.4%) | 75 (21.9%) | 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.210 | 0.046 | |||||
| Apropiadas y bien implementadas | 27 (30.0%) | 106 (31.0%) | 19 (30.2%) | 1 (33.3%) | 15 (40.5%) | ||
| Apropiadas pero mal implementadas | 16 (17.8%) | 63 (18.4%) | 18 (28.6%) | 0 (0.00%) | 8 (21.6%) | ||
| Inapropiadas | 4 (4.44%) | 13 (3.80%) | 3 (4.76%) | 0 (0.00%) | 2 (5.41%) | ||
| Deficientes | 18 (20.0%) | 72 (21.1%) | 12 (19.0%) | 1 (33.3%) | 6 (16.2%) | ||
| No sabe | 5 (5.56%) | 6 (1.75%) | 2 (3.17%) | 1 (33.3%) | 2 (5.41%) | ||
| No aplica | 20 (22.2%) | 82 (24.0%) | 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.028 | 0.369 | |||||
| Apropiadas y bien implementadas | 51 (56.7%) | 159 (46.5%) | 40 (63.5%) | 1 (33.3%) | 21 (56.8%) | ||
| Apropiadas pero mal implementadas | 10 (11.1%) | 45 (13.2%) | 8 (12.7%) | 0 (0.00%) | 3 (8.11%) | ||
| Inapropiadas | 1 (1.11%) | 8 (2.34%) | 0 (0.00%) | 0 (0.00%) | 1 (2.70%) | ||
| Deficientes | 2 (2.22%) | 17 (4.97%) | 2 (3.17%) | 0 (0.00%) | 3 (8.11%) | ||
| No sabe | 6 (6.67%) | 16 (4.68%) | 5 (7.94%) | 2 (66.7%) | 3 (8.11%) | ||
| No aplica | 20 (22.2%) | 97 (28.4%) | 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.171 | 0.220 | |||||
| Apropiadas y bien implementadas | 45 (50.0%) | 143 (41.8%) | 36 (57.1%) | 1 (33.3%) | 21 (56.8%) | ||
| Apropiadas pero mal implementadas | 11 (12.2%) | 47 (13.7%) | 12 (19.0%) | 1 (33.3%) | 2 (5.41%) | ||
| Inapropiadas | 0 (0.00%) | 8 (2.34%) | 1 (1.59%) | 0 (0.00%) | 1 (2.70%) | ||
| Deficientes | 5 (5.56%) | 14 (4.09%) | 0 (0.00%) | 0 (0.00%) | 0 (0.00%) | ||
| No sabe | 4 (4.44%) | 24 (7.02%) | 5 (7.94%) | 1 (33.3%) | 4 (10.8%) | ||
| No aplica | 25 (27.8%) | 106 (31.0%) | 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.041 | 0.621 | |||||
| Apropiadas y bien implementadas | 40 (44.4%) | 139 (40.6%) | 33 (52.4%) | 1 (33.3%) | 14 (37.8%) | ||
| Apropiadas pero mal implementadas | 15 (16.7%) | 46 (13.5%) | 11 (17.5%) | 0 (0.00%) | 5 (13.5%) | ||
| Inapropiadas | 3 (3.33%) | 8 (2.34%) | 2 (3.17%) | 0 (0.00%) | 4 (10.8%) | ||
| Deficientes | 4 (4.44%) | 21 (6.14%) | 5 (7.94%) | 0 (0.00%) | 2 (5.41%) | ||
| No sabe | 6 (6.67%) | 29 (8.48%) | 4 (6.35%) | 2 (66.7%) | 5 (13.5%) | ||
| No aplica | 22 (24.4%) | 99 (28.9%) | 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.126 | 0.992 | |||||
| Apropiadas y bien implementadas | 22 (24.4%) | 45 (13.2%) | 18 (28.6%) | 1 (33.3%) | 7 (18.9%) | ||
| Apropiadas pero mal implementadas | 8 (8.89%) | 35 (10.2%) | 10 (15.9%) | 0 (0.00%) | 2 (5.41%) | ||
| Inapropiadas | 16 (17.8%) | 38 (11.1%) | 4 (6.35%) | 0 (0.00%) | 4 (10.8%) | ||
| Deficientes | 16 (17.8%) | 96 (28.1%) | 13 (20.6%) | 1 (33.3%) | 11 (29.7%) | ||
| No sabe | 10 (11.1%) | 43 (12.6%) | 5 (7.94%) | 1 (33.3%) | 5 (13.5%) | ||
| No aplica | 18 (20.0%) | 85 (24.9%) | 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.533 | 0.764 | |||||
| Apropiadas y bien implementadas | 32 (35.6%) | 92 (26.9%) | 25 (39.7%) | 1 (33.3%) | 13 (35.1%) | ||
| Apropiadas pero mal implementadas | 10 (11.1%) | 27 (7.89%) | 6 (9.52%) | 1 (33.3%) | 3 (8.11%) | ||
| Inapropiadas | 7 (7.78%) | 22 (6.43%) | 2 (3.17%) | 0 (0.00%) | 1 (2.70%) | ||
| Deficientes | 9 (10.0%) | 44 (12.9%) | 8 (12.7%) | 0 (0.00%) | 3 (8.11%) | ||
| No sabe | 5 (5.56%) | 39 (11.4%) | 7 (11.1%) | 1 (33.3%) | 6 (16.2%) | ||
| No aplica | 27 (30.0%) | 118 (34.5%) | 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.012 | 0.341 | |||||
| Apropiadas y bien implementadas | 19 (21.1%) | 61 (17.8%) | 25 (39.7%) | 1 (33.3%) | 4 (10.8%) | ||
| Apropiadas pero mal implementadas | 9 (10.0%) | 30 (8.77%) | 5 (7.94%) | 0 (0.00%) | 5 (13.5%) | ||
| Inapropiadas | 15 (16.7%) | 32 (9.36%) | 4 (6.35%) | 1 (33.3%) | 5 (13.5%) | ||
| Deficientes | 15 (16.7%) | 92 (26.9%) | 14 (22.2%) | 0 (0.00%) | 13 (35.1%) | ||
| No sabe | 7 (7.78%) | 33 (9.65%) | 7 (11.1%) | 1 (33.3%) | 2 (5.41%) | ||
| No aplica | 25 (27.8%) | 94 (27.5%) | 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.135 | 0.197 | |||||
| Apropiadas y bien implementadas | 22 (24.4%) | 85 (24.9%) | 23 (36.5%) | 1 (33.3%) | 12 (32.4%) | ||
| Apropiadas pero mal implementadas | 11 (12.2%) | 23 (6.73%) | 5 (7.94%) | 0 (0.00%) | 2 (5.41%) | ||
| Inapropiadas | 6 (6.67%) | 15 (4.39%) | 8 (12.7%) | 1 (33.3%) | 1 (2.70%) | ||
| Deficientes | 14 (15.6%) | 60 (17.5%) | 10 (15.9%) | 0 (0.00%) | 8 (21.6%) | ||
| No sabe | 14 (15.6%) | 52 (15.2%) | 8 (12.7%) | 1 (33.3%) | 4 (10.8%) | ||
| No aplica | 23 (25.6%) | 107 (31.3%) | 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.073 | 0.017 | |||||
| Apropiadas y bien implementadas | 42 (46.7%) | 142 (41.5%) | 39 (61.9%) | 1 (33.3%) | 25 (67.6%) | ||
| Apropiadas pero mal implementadas | 8 (8.89%) | 43 (12.6%) | 4 (6.35%) | 0 (0.00%) | 2 (5.41%) | ||
| Inapropiadas | 5 (5.56%) | 19 (5.56%) | 4 (6.35%) | 0 (0.00%) | 1 (2.70%) | ||
| Deficientes | 8 (8.89%) | 37 (10.8%) | 4 (6.35%) | 0 (0.00%) | 3 (8.11%) | ||
| No sabe | 13 (14.4%) | 38 (11.1%) | 6 (9.52%) | 2 (66.7%) | 1 (2.70%) | ||
| No aplica | 14 (15.6%) | 63 (18.4%) | 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.190 | 0.868 | |||||
| Totalmente de acuerdo | 19 (21.1%) | 94 (27.5%) | 15 (23.8%) | 0 (0.00%) | 9 (24.3%) | ||
| De acuerdo | 27 (30.0%) | 118 (34.5%) | 23 (36.5%) | 2 (66.7%) | 9 (24.3%) | ||
| Ni de acuerdo ni en desacuerdo | 31 (34.4%) | 75 (21.9%) | 19 (30.2%) | 1 (33.3%) | 16 (43.2%) | ||
| En desacuerdo | 11 (12.2%) | 43 (12.6%) | 3 (4.76%) | 0 (0.00%) | 1 (2.70%) | ||
| Totalmente en desacuerdo | 2 (2.22%) | 12 (3.51%) | 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.143 | 0.748 | |||||
| Totalmente de acuerdo | 16 (17.8%) | 77 (22.5%) | 15 (23.8%) | 0 (0.00%) | 11 (29.7%) | ||
| De acuerdo | 40 (44.4%) | 139 (40.6%) | 30 (47.6%) | 0 (0.00%) | 11 (29.7%) | ||
| Ni de acuerdo ni en desacuerdo | 19 (21.1%) | 66 (19.3%) | 11 (17.5%) | 3 (100%) | 8 (21.6%) | ||
| En desacuerdo | 12 (13.3%) | 52 (15.2%) | 6 (9.52%) | 0 (0.00%) | 4 (10.8%) | ||
| Totalmente en desacuerdo | 3 (3.33%) | 8 (2.34%) | 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.643 | 0.842 | |||||
| Totalmente de acuerdo | 6 (6.67%) | 35 (10.2%) | 6 (9.52%) | 0 (0.00%) | 3 (8.11%) | ||
| De acuerdo | 19 (21.1%) | 67 (19.6%) | 15 (23.8%) | 1 (33.3%) | 8 (21.6%) | ||
| Ni de acuerdo ni en desacuerdo | 30 (33.3%) | 81 (23.7%) | 18 (28.6%) | 2 (66.7%) | 12 (32.4%) | ||
| En desacuerdo | 25 (27.8%) | 93 (27.2%) | 15 (23.8%) | 0 (0.00%) | 6 (16.2%) | ||
| Totalmente en desacuerdo | 10 (11.1%) | 66 (19.3%) | 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.226 | 0.637 | |||||
| Totalmente de acuerdo | 15 (16.7%) | 55 (16.1%) | 8 (12.7%) | 0 (0.00%) | 7 (18.9%) | ||
| De acuerdo | 23 (25.6%) | 92 (26.9%) | 25 (39.7%) | 1 (33.3%) | 9 (24.3%) | ||
| Ni de acuerdo ni en desacuerdo | 37 (41.1%) | 115 (33.6%) | 24 (38.1%) | 2 (66.7%) | 16 (43.2%) | ||
| En desacuerdo | 12 (13.3%) | 58 (17.0%) | 4 (6.35%) | 0 (0.00%) | 1 (2.70%) | ||
| Totalmente en desacuerdo | 3 (3.33%) | 22 (6.43%) | 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.374 | 0.849 | |||||
| Mantengo las mismas labores | 59 (65.6%) | 226 (66.1%) | 46 (73.0%) | 2 (66.7%) | 23 (62.2%) | ||
| Mantengo las mismas labores, pero en un área distinta | 5 (5.56%) | 9 (2.63%) | 4 (6.35%) | 1 (33.3%) | 1 (2.70%) | ||
| Mantengo las mismas labores, pero en un lugar físico distinto | 10 (11.1%) | 26 (7.60%) | 1 (1.59%) | 0 (0.00%) | 6 (16.2%) | ||
| Mantengo las mismas labores, pero en área y lugar físico distintos | 3 (3.33%) | 8 (2.34%) | 2 (3.17%) | 0 (0.00%) | 1 (2.70%) | ||
| Distintas labores, pero en la misma área | 4 (4.44%) | 28 (8.19%) | 3 (4.76%) | 0 (0.00%) | 3 (8.11%) | ||
| Distintas labores, pero en el mismo lugar físico | 4 (4.44%) | 22 (6.43%) | 1 (1.59%) | 0 (0.00%) | 1 (2.70%) | ||
| Labores, área y lugar físico distintos | 5 (5.56%) | 23 (6.73%) | 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.060 | 0.029 | |||||
| Excelente | 0 (0.00%) | 7 (1.79%) | 5 (6.67%) | 0 (0.00%) | 2 (4.55%) | ||
| Buena | 41 (34.7%) | 127 (32.5%) | 33 (44.0%) | 0 (0.00%) | 15 (34.1%) | ||
| Regular | 61 (51.7%) | 193 (49.4%) | 33 (44.0%) | 3 (75.0%) | 25 (56.8%) | ||
| Mala | 16 (13.6%) | 62 (15.9%) | 3 (4.00%) | 1 (25.0%) | 2 (4.55%) | ||
| Pésima | 0 (0.00%) | 2 (0.51%) | 1 (1.33%) | 0 (0.00%) | 0 (0.00%) | ||
| ¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.: | 0.004 | 0.043 | |||||
| Totalmente de acuerdo | 12 (10.2%) | 77 (19.7%) | 7 (9.33%) | 1 (25.0%) | 2 (4.55%) | ||
| De acuerdo | 51 (43.2%) | 125 (32.0%) | 23 (30.7%) | 0 (0.00%) | 12 (27.3%) | ||
| Neutral | 22 (18.6%) | 96 (24.6%) | 30 (40.0%) | 0 (0.00%) | 17 (38.6%) | ||
| En desacuerdo | 26 (22.0%) | 66 (16.9%) | 11 (14.7%) | 2 (50.0%) | 9 (20.5%) | ||
| Totalmente en desacuerdo | 7 (5.93%) | 27 (6.91%) | 4 (5.33%) | 1 (25.0%) | 4 (9.09%) | ||
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: | 0.074 | 0.894 | |||||
| Siempre | 19 (16.1%) | 74 (18.9%) | 18 (24.0%) | 0 (0.00%) | 9 (20.5%) | ||
| La mayoría <br>de las veces | 38 (32.2%) | 109 (27.9%) | 11 (14.7%) | 0 (0.00%) | 17 (38.6%) | ||
| Algunas veces | 39 (33.1%) | 151 (38.6%) | 26 (34.7%) | 2 (50.0%) | 12 (27.3%) | ||
| Sólo unas <br>pocas veces | 18 (15.3%) | 45 (11.5%) | 15 (20.0%) | 1 (25.0%) | 4 (9.09%) | ||
| Nunca | 4 (3.39%) | 12 (3.07%) | 5 (6.67%) | 1 (25.0%) | 2 (4.55%) | ||
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: | 0.009 | 0.351 | |||||
| Siempre | 10 (8.47%) | 71 (18.2%) | 16 (21.3%) | 0 (0.00%) | 10 (22.7%) | ||
| La mayoría <br>de las veces | 46 (39.0%) | 132 (33.8%) | 12 (16.0%) | 0 (0.00%) | 16 (36.4%) | ||
| Algunas veces | 41 (34.7%) | 135 (34.5%) | 31 (41.3%) | 2 (50.0%) | 11 (25.0%) | ||
| Sólo unas <br>pocas veces | 13 (11.0%) | 43 (11.0%) | 13 (17.3%) | 1 (25.0%) | 7 (15.9%) | ||
| Nunca | 8 (6.78%) | 10 (2.56%) | 3 (4.00%) | 1 (25.0%) | 0 (0.00%) | ||
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: | 0.002 | 0.187 | |||||
| Siempre | 17 (14.4%) | 70 (17.9%) | 19 (25.3%) | 1 (25.0%) | 12 (27.3%) | ||
| La mayoría <br>de las veces | 63 (53.4%) | 148 (37.9%) | 32 (42.7%) | 1 (25.0%) | 17 (38.6%) | ||
| Algunas veces | 28 (23.7%) | 120 (30.7%) | 16 (21.3%) | 0 (0.00%) | 12 (27.3%) | ||
| Sólo unas <br>pocas veces | 5 (4.24%) | 50 (12.8%) | 8 (10.7%) | 1 (25.0%) | 3 (6.82%) | ||
| Nunca | 5 (4.24%) | 3 (0.77%) | 0 (0.00%) | 1 (25.0%) | 0 (0.00%) | ||
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: | 0.231 | 0.906 | |||||
| Siempre | 4 (3.39%) | 11 (2.81%) | 2 (2.67%) | 0 (0.00%) | 2 (4.55%) | ||
| La mayoría <br>de las veces | 10 (8.47%) | 14 (3.58%) | 4 (5.33%) | 1 (25.0%) | 5 (11.4%) | ||
| Algunas veces | 34 (28.8%) | 119 (30.4%) | 17 (22.7%) | 1 (25.0%) | 14 (31.8%) | ||
| Sólo unas <br>pocas veces | 36 (30.5%) | 104 (26.6%) | 23 (30.7%) | 1 (25.0%) | 5 (11.4%) | ||
| Nunca | 34 (28.8%) | 143 (36.6%) | 29 (38.7%) | 1 (25.0%) | 18 (40.9%) | ||
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: | 0.311 | 0.821 | |||||
| Siempre | 4 (3.39%) | 25 (6.39%) | 3 (4.00%) | 0 (0.00%) | 6 (13.6%) | ||
| La mayoría <br>de las veces | 12 (10.2%) | 62 (15.9%) | 9 (12.0%) | 1 (25.0%) | 7 (15.9%) | ||
| Algunas veces | 59 (50.0%) | 150 (38.4%) | 28 (37.3%) | 1 (25.0%) | 14 (31.8%) | ||
| Sólo unas <br>pocas veces | 26 (22.0%) | 98 (25.1%) | 21 (28.0%) | 1 (25.0%) | 7 (15.9%) | ||
| Nunca | 17 (14.4%) | 56 (14.3%) | 14 (18.7%) | 1 (25.0%) | 10 (22.7%) | ||
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: | 0.025 | 0.125 | |||||
| Siempre | 44 (37.3%) | 186 (47.6%) | 43 (57.3%) | 0 (0.00%) | 22 (50.0%) | ||
| La mayoría <br>de las veces | 37 (31.4%) | 110 (28.1%) | 21 (28.0%) | 1 (25.0%) | 11 (25.0%) | ||
| Algunas veces | 20 (16.9%) | 49 (12.5%) | 7 (9.33%) | 0 (0.00%) | 8 (18.2%) | ||
| Sólo unas <br>pocas veces | 13 (11.0%) | 29 (7.42%) | 3 (4.00%) | 2 (50.0%) | 2 (4.55%) | ||
| Nunca | 4 (3.39%) | 17 (4.35%) | 1 (1.33%) | 1 (25.0%) | 1 (2.27%) | ||
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: | 0.017 | 0.065 | |||||
| Siempre | 30 (25.4%) | 148 (37.9%) | 33 (44.0%) | 1 (25.0%) | 22 (50.0%) | ||
| La mayoría <br>de las veces | 41 (34.7%) | 119 (30.4%) | 24 (32.0%) | 0 (0.00%) | 11 (25.0%) | ||
| Algunas veces | 28 (23.7%) | 67 (17.1%) | 10 (13.3%) | 1 (25.0%) | 4 (9.09%) | ||
| Sólo unas <br>pocas veces | 17 (14.4%) | 37 (9.46%) | 2 (2.67%) | 1 (25.0%) | 6 (13.6%) | ||
| Nunca | 2 (1.69%) | 20 (5.12%) | 6 (8.00%) | 1 (25.0%) | 1 (2.27%) | ||
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: | 0.018 | 0.842 | |||||
| Siempre | 23 (19.5%) | 133 (34.0%) | 23 (30.7%) | 1 (25.0%) | 17 (38.6%) | ||
| La mayoría <br>de las veces | 54 (45.8%) | 148 (37.9%) | 29 (38.7%) | 1 (25.0%) | 12 (27.3%) | ||
| Algunas veces | 29 (24.6%) | 77 (19.7%) | 19 (25.3%) | 1 (25.0%) | 7 (15.9%) | ||
| Sólo unas <br>pocas veces | 6 (5.08%) | 27 (6.91%) | 2 (2.67%) | 0 (0.00%) | 4 (9.09%) | ||
| Nunca | 6 (5.08%) | 6 (1.53%) | 2 (2.67%) | 1 (25.0%) | 4 (9.09%) | ||
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: | 0.007 | 0.218 | |||||
| Siempre | 31 (26.3%) | 149 (38.1%) | 35 (46.7%) | 0 (0.00%) | 18 (40.9%) | ||
| La mayoría <br>de las veces | 66 (55.9%) | 175 (44.8%) | 36 (48.0%) | 2 (50.0%) | 18 (40.9%) | ||
| Algunas veces | 17 (14.4%) | 52 (13.3%) | 4 (5.33%) | 1 (25.0%) | 5 (11.4%) | ||
| Sólo unas <br>pocas veces | 2 (1.69%) | 12 (3.07%) | 0 (0.00%) | 0 (0.00%) | 3 (6.82%) | ||
| Nunca | 2 (1.69%) | 3 (0.77%) | 0 (0.00%) | 1 (25.0%) | 0 (0.00%) | ||
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: | 0.094 | 0.229 | |||||
| Siempre | 58 (49.2%) | 237 (60.6%) | 42 (56.0%) | 0 (0.00%) | 27 (61.4%) | ||
| La mayoría <br>de las veces | 35 (29.7%) | 84 (21.5%) | 16 (21.3%) | 2 (50.0%) | 13 (29.5%) | ||
| Algunas veces | 16 (13.6%) | 34 (8.70%) | 9 (12.0%) | 1 (25.0%) | 4 (9.09%) | ||
| Sólo unas <br>pocas veces | 4 (3.39%) | 20 (5.12%) | 6 (8.00%) | 0 (0.00%) | 0 (0.00%) | ||
| Nunca | 5 (4.24%) | 16 (4.09%) | 2 (2.67%) | 1 (25.0%) | 0 (0.00%) | ||
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Puedo confiar en mis habilidades en situaciones difíciles.: | <0.001 | 0.010 | |||||
| Incorrecto | 0 (0.00%) | 2 (0.52%) | 0 (0.00%) | 1 (25.0%) | 1 (2.27%) | ||
| Apenas cierto | 3 (2.54%) | 6 (1.55%) | 3 (4.00%) | 1 (25.0%) | 4 (9.09%) | ||
| Más bien cierto | 31 (26.3%) | 110 (28.4%) | 26 (34.7%) | 1 (25.0%) | 10 (22.7%) | ||
| Cierto | 84 (71.2%) | 270 (69.6%) | 46 (61.3%) | 1 (25.0%) | 29 (65.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.002 | 0.004 | |||||
| Incorrecto | 0 (0.00%) | 1 (0.26%) | 1 (1.33%) | 1 (25.0%) | 0 (0.00%) | ||
| Apenas cierto | 5 (4.24%) | 16 (4.12%) | 3 (4.00%) | 1 (25.0%) | 6 (13.6%) | ||
| Más bien cierto | 37 (31.4%) | 150 (38.7%) | 32 (42.7%) | 1 (25.0%) | 16 (36.4%) | ||
| Cierto | 76 (64.4%) | 221 (57.0%) | 39 (52.0%) | 1 (25.0%) | 22 (50.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.001 | 0.003 | |||||
| Incorrecto | 0 (0.00%) | 1 (0.26%) | 0 (0.00%) | 1 (25.0%) | 1 (2.27%) | ||
| Apenas cierto | 4 (3.39%) | 9 (2.32%) | 4 (5.33%) | 1 (25.0%) | 4 (9.09%) | ||
| Más bien cierto | 33 (28.0%) | 136 (35.1%) | 37 (49.3%) | 1 (25.0%) | 12 (27.3%) | ||
| Cierto | 81 (68.6%) | 242 (62.4%) | 34 (45.3%) | 1 (25.0%) | 27 (61.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
table5_estamento <- suppressWarnings(compareGroups(estamento ~
agotamiento_estres_sin_irritabilidad+
estres_postraumatico+
agotamiento_estres_sin_irritabilidad_ptje+
estres_postraumatico_ptje+
#agotamiento_estres_sin_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_2_rec+
p26_cond_trab_ent_protec_3_p26_rec+
p26_cond_trab_ent_protec_4_p26_rec+
p34_cond_trab_tiemp_trab_rec+
p36_cond_trab_reasig_rec1+
p36_cond_trab_reasig_rec2+
p36_cond_trab_reasig_rec3+
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_sin_irritabilidad=3,
estres_postraumatico=3,
agotamiento_estres_sin_irritabilidad_ptje=2,
estres_postraumatico_ptje=2,
#agotamiento_estres_sin_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_2_rec=3,
p26_cond_trab_ent_protec_3_p26_rec=3,
p26_cond_trab_ent_protec_4_p26_rec=3,
p34_cond_trab_tiemp_trab_rec=3,
p36_cond_trab_reasig_rec1=3,
p36_cond_trab_reasig_rec2=3,
p36_cond_trab_reasig_rec3=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_sin_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")| Variables | Admin. | Enfermeros | Médicos | Otros Prof. No-Médicos | Técnicos y Aux. | Sig. |
|---|---|---|---|---|---|---|
| N=71 | N=107 | N=67 | N=298 | N=103 | ||
| Sentimiento de Agotamiento y estrés (sin irritabilidad) (terciles): | 0.001 | |||||
| 1 | 14 (19.7%) | 9 (8.41%) | 14 (20.9%) | 55 (18.5%) | 21 (20.4%) | |
| 2 | 21 (29.6%) | 46 (43.0%) | 36 (53.7%) | 133 (44.6%) | 29 (28.2%) | |
| 3 | 36 (50.7%) | 52 (48.6%) | 17 (25.4%) | 110 (36.9%) | 53 (51.5%) | |
| Estrés Postraumático (4° Cuartil): | 0.021 | |||||
| Ausencia de Indicadores de Estrés Post-traumático | 52 (73.2%) | 72 (67.3%) | 55 (82.1%) | 236 (79.2%) | 69 (67.0%) | |
| Indicadores de Estrés Post-traumático | 19 (26.8%) | 35 (32.7%) | 12 (17.9%) | 62 (20.8%) | 34 (33.0%) | |
| Ptjes. Sentimiento de Agotamiento y estrés (sin irritabilidad) | 300 [175;375] | 300 [200;350] | 250 [175;300] | 275 [200;325] | 300 [200;375] | 0.022 |
| Ptjes. Estrés Postraumático | 3.00 [1.00;7.00] | 5.00 [3.00;7.00] | 4.00 [2.00;6.00] | 4.00 [2.00;6.00] | 4.00 [2.00;7.50] | 0.147 |
| Sintomatología ansiosa: | 0.535 | |||||
| Ausencia de Indicadores de Sintomatología Ansiosa | 40 (56.3%) | 50 (46.7%) | 37 (55.2%) | 164 (55.0%) | 51 (49.5%) | |
| Indicadores de Sintomatología Ansiosa | 31 (43.7%) | 57 (53.3%) | 30 (44.8%) | 134 (45.0%) | 52 (50.5%) | |
| Sintomatología depresiva: | 0.236 | |||||
| Ausencia de Indicadores de Sintomatología Depresiva | 45 (63.4%) | 63 (58.9%) | 51 (76.1%) | 191 (64.1%) | 65 (63.1%) | |
| Indicadores de Sintomatología Depresiva | 26 (36.6%) | 44 (41.1%) | 16 (23.9%) | 107 (35.9%) | 38 (36.9%) | |
| ¿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) | 5 (7.04%) | 42 (39.3%) | 30 (44.8%) | 35 (11.7%) | 40 (38.8%) | |
| Menor o ningún contacto con pacientes | 66 (93.0%) | 65 (60.7%) | 37 (55.2%) | 263 (88.3%) | 63 (61.2%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas): | 0.083 | |||||
| 1 | 18 (42.9%) | 25 (30.5%) | 17 (30.9%) | 83 (43.5%) | 32 (37.2%) | |
| 2 | 11 (26.2%) | 14 (17.1%) | 16 (29.1%) | 47 (24.6%) | 18 (20.9%) | |
| 3 | 7 (16.7%) | 13 (15.9%) | 9 (16.4%) | 31 (16.2%) | 15 (17.4%) | |
| Más de 3 | 6 (14.3%) | 30 (36.6%) | 13 (23.6%) | 30 (15.7%) | 21 (24.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 | 52 (73.2%) | 85 (79.4%) | 40 (59.7%) | 199 (66.8%) | 86 (83.5%) | |
| Un poco/Nada/No aplica | 19 (26.8%) | 22 (20.6%) | 27 (40.3%) | 99 (33.2%) | 17 (16.5%) | |
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy? (dicotomizado): | 0.422 | |||||
| Predomina el miedo | 36 (50.7%) | 56 (52.3%) | 27 (40.3%) | 143 (48.0%) | 56 (54.4%) | |
| Predomina la ausencia de miedo | 35 (49.3%) | 51 (47.7%) | 40 (59.7%) | 155 (52.0%) | 47 (45.6%) | |
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPPs? (dicotomizada): | <0.001 | |||||
| Ha sido capacitado | 34 (47.9%) | 95 (88.8%) | 58 (86.6%) | 196 (65.8%) | 78 (75.7%) | |
| No ha sido capacitado | 37 (52.1%) | 12 (11.2%) | 9 (13.4%) | 102 (34.2%) | 25 (24.3%) | |
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?(dicotomizada): | 0.491 | |||||
| Mala | 3 (8.82%) | 4 (4.21%) | 3 (5.17%) | 11 (5.61%) | 8 (10.3%) | |
| Regular a Excelente | 31 (91.2%) | 91 (95.8%) | 55 (94.8%) | 185 (94.4%) | 70 (89.7%) | |
| ¿Cuán confiado se siente al ponerse y quitarse los EPPs de manera segura?(dicotomizada): | <0.001 | |||||
| Nada/Poco/Algo/No aplica | 38 (53.5%) | 18 (16.8%) | 14 (20.9%) | 118 (39.6%) | 33 (32.0%) | |
| Totalmente/Bastante | 33 (46.5%) | 89 (83.2%) | 53 (79.1%) | 180 (60.4%) | 70 (68.0%) | |
| ¿Su empleador le ha impuesto alguna de las siguientes restricciones al uso de EPPs? (Marque las opciones que apliquen a su experiencia) (nro. respuestas): | 0.280 | |||||
| 1 | 26 (86.7%) | 55 (73.3%) | 36 (85.7%) | 131 (80.9%) | 48 (73.8%) | |
| 2 | 3 (10.0%) | 16 (21.3%) | 4 (9.52%) | 25 (15.4%) | 8 (12.3%) | |
| 3 | 1 (3.33%) | 3 (4.00%) | 2 (4.76%) | 5 (3.09%) | 7 (10.8%) | |
| Más de 3 | 0 (0.00%) | 1 (1.33%) | 0 (0.00%) | 1 (0.62%) | 2 (3.08%) | |
| Mi empleador se ha rehusado a dar cierto tipo de EPP: | 0.010 | |||||
| Empleador se ha rehusado a dar cierto tipo de EPP | 4 (6.90%) | 13 (14.1%) | 3 (5.45%) | 17 (6.83%) | 15 (18.5%) | |
| No se constata esta situación | 54 (93.1%) | 79 (85.9%) | 52 (94.5%) | 232 (93.2%) | 66 (81.5%) | |
| ¿Cuán confiado se siente para evaluar su riesgo personal y determinar la pertinencia de sus EPPs?(dicotomizada): | 0.405 | |||||
| Algo/Bastante/Totalente/No aplica | 48 (82.8%) | 84 (91.3%) | 50 (90.9%) | 227 (91.2%) | 73 (90.1%) | |
| Poco/Nada | 10 (17.2%) | 8 (8.70%) | 5 (9.09%) | 22 (8.84%) | 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.765 | |||||
| Incapacidad para negarse a trabajo inseguro | 30 (51.7%) | 47 (51.1%) | 29 (52.7%) | 113 (45.4%) | 39 (48.1%) | |
| Quizas podría negarse/Probablemente, podría negarse/No dudaría en negarse | 28 (48.3%) | 45 (48.9%) | 26 (47.3%) | 136 (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.055 | |||||
| Apropiadas/No sabe/No aplica | 49 (84.5%) | 64 (69.6%) | 45 (81.8%) | 192 (77.1%) | 54 (66.7%) | |
| Inapropiadas/Deficientes | 9 (15.5%) | 28 (30.4%) | 10 (18.2%) | 57 (22.9%) | 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.011 | |||||
| Apropiadas/No sabe/No aplica | 55 (94.8%) | 83 (90.2%) | 53 (96.4%) | 240 (96.4%) | 70 (86.4%) | |
| Inapropiadas/Deficientes | 3 (5.17%) | 9 (9.78%) | 2 (3.64%) | 9 (3.61%) | 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.655 | |||||
| Apropiadas/No sabe/No aplica | 57 (98.3%) | 86 (93.5%) | 52 (94.5%) | 236 (94.8%) | 75 (92.6%) | |
| Inapropiadas/Deficientes | 1 (1.72%) | 6 (6.52%) | 3 (5.45%) | 13 (5.22%) | 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 | 57 (98.3%) | 78 (84.8%) | 54 (98.2%) | 229 (92.0%) | 68 (84.0%) | |
| Inapropiadas/Deficientes | 1 (1.72%) | 14 (15.2%) | 1 (1.82%) | 20 (8.03%) | 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 | 44 (75.9%) | 39 (42.4%) | 29 (52.7%) | 177 (71.1%) | 47 (58.0%) | |
| Inapropiadas/Deficientes | 14 (24.1%) | 53 (57.6%) | 26 (47.3%) | 72 (28.9%) | 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 | 58 (100%) | 56 (60.9%) | 40 (72.7%) | 222 (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 | 51 (87.9%) | 48 (52.2%) | 27 (49.1%) | 175 (70.3%) | 43 (53.1%) | |
| Inapropiadas/Deficientes | 7 (12.1%) | 44 (47.8%) | 28 (50.9%) | 74 (29.7%) | 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.021 | |||||
| Apropiadas/No sabe/No aplica | 54 (93.1%) | 69 (75.0%) | 42 (76.4%) | 191 (76.7%) | 56 (69.1%) | |
| Inapropiadas/Deficientes | 4 (6.90%) | 23 (25.0%) | 13 (23.6%) | 58 (23.3%) | 25 (30.9%) | |
| ¿Cómo califica las medidas preventivas aplicadas en su principal lugar de trabajo? | Procesos de eliminación de residuos (Dicotomizada): | 0.592 | |||||
| Apropiadas/No sabe/No aplica | 53 (91.4%) | 78 (84.8%) | 48 (87.3%) | 207 (83.1%) | 68 (84.0%) | |
| Inapropiadas/Deficientes | 5 (8.62%) | 14 (15.2%) | 7 (12.7%) | 42 (16.9%) | 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.831 | |||||
| Desacuerdo/Totalmente en desacuerdo | 6 (10.3%) | 15 (16.3%) | 8 (14.5%) | 38 (15.3%) | 10 (12.3%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 52 (89.7%) | 77 (83.7%) | 47 (85.5%) | 211 (84.7%) | 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.45%) | 19 (20.7%) | 6 (10.9%) | 51 (20.5%) | 11 (13.6%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 56 (96.6%) | 73 (79.3%) | 49 (89.1%) | 198 (79.5%) | 70 (86.4%) | |
| ¿En qué grado está de acuerdo con la siguiente afirmación?: La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia: | 0.147 | |||||
| Totalmente de acuerdo | 2 (15.4%) | 4 (26.7%) | 4 (33.3%) | 7 (14.3%) | 4 (18.2%) | |
| De acuerdo | 4 (30.8%) | 5 (33.3%) | 4 (33.3%) | 25 (51.0%) | 9 (40.9%) | |
| Ni de acuerdo ni en desacuerdo | 1 (7.69%) | 4 (26.7%) | 2 (16.7%) | 10 (20.4%) | 6 (27.3%) | |
| En desacuerdo | 6 (46.2%) | 2 (13.3%) | 1 (8.33%) | 7 (14.3%) | 3 (13.6%) | |
| Totalmente en desacuerdo | 0 (0.00%) | 0 (0.00%) | 1 (8.33%) | 0 (0.00%) | 0 (0.00%) | |
| En función de su experiencia en su lugar de trabajo principal, ¿En qué grado está de acuerdo con que las siguientes entidades están haciendo todo lo posible para proteger al personal? | Gobierno (Dicotomizada): | 0.017 | |||||
| Desacuerdo/Totalmente en desacuerdo | 15 (25.9%) | 40 (43.5%) | 20 (36.4%) | 114 (45.8%) | 43 (53.1%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 43 (74.1%) | 52 (56.5%) | 35 (63.6%) | 135 (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.052 | |||||
| Desacuerdo/Totalmente en desacuerdo | 5 (8.62%) | 21 (22.8%) | 6 (10.9%) | 57 (22.9%) | 17 (21.0%) | |
| Ni de acuerdo ni en desacuerdo/De acuerdo/Totalmente de acuerdo | 53 (91.4%) | 71 (77.2%) | 49 (89.1%) | 192 (77.1%) | 64 (79.0%) | |
| ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado): | 0.038 | |||||
| Menos de 6 meses | 0 (0.00%) | 9 (8.57%) | 0 (0.00%) | 10 (3.39%) | 5 (4.90%) | |
| Entre 6 meses y 2 años | 14 (19.7%) | 17 (16.2%) | 17 (25.4%) | 57 (19.3%) | 21 (20.6%) | |
| Entre 2 y 5 años | 19 (26.8%) | 27 (25.7%) | 12 (17.9%) | 72 (24.4%) | 36 (35.3%) | |
| Entre 5 y 11 años | 5 (7.04%) | 4 (3.81%) | 1 (1.49%) | 18 (6.10%) | 6 (5.88%) | |
| Más de 11 años | 33 (46.5%) | 48 (45.7%) | 37 (55.2%) | 138 (46.8%) | 34 (33.3%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar sus labores: | 0.001 | |||||
| FALSE | 56 (78.9%) | 71 (66.4%) | 45 (67.2%) | 241 (80.9%) | 89 (86.4%) | |
| TRUE | 15 (21.1%) | 36 (33.6%) | 22 (32.8%) | 57 (19.1%) | 14 (13.6%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de área de trabajo: | 0.023 | |||||
| FALSE | 65 (91.5%) | 82 (76.6%) | 52 (77.6%) | 259 (86.9%) | 86 (83.5%) | |
| TRUE | 6 (8.45%) | 25 (23.4%) | 15 (22.4%) | 39 (13.1%) | 17 (16.5%) | |
| En función de la actual crisis sanitaria en su lugar de trabajo principal, ha debido: | Cambiar de lugar físico de trabajo: | 0.081 | |||||
| FALSE | 61 (85.9%) | 81 (75.7%) | 54 (80.6%) | 223 (74.8%) | 88 (85.4%) | |
| TRUE | 10 (14.1%) | 26 (24.3%) | 13 (19.4%) | 75 (25.2%) | 15 (14.6%) | |
| ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (Dicotomizada): | 0.727 | |||||
| Excelente/Buena/Regular | 64 (91.4%) | 90 (84.9%) | 56 (86.2%) | 248 (85.2%) | 87 (87.0%) | |
| Pésima/Mala | 6 (8.57%) | 16 (15.1%) | 9 (13.8%) | 43 (14.8%) | 13 (13.0%) | |
| ¿Cuán de acuerdo está con la siguiente afirmación?: La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores (Dicotomizada): | 0.243 | |||||
| De acuerdo/Totalmente de acuerdo | 26 (37.1%) | 55 (51.9%) | 31 (47.7%) | 151 (51.9%) | 47 (47.0%) | |
| Neutral/En desacuerdo/Totalmente en desacuerdo | 44 (62.9%) | 51 (48.1%) | 34 (52.3%) | 140 (48.1%) | 53 (53.0%) | |
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo? (Dicotomizada): | 0.142 | |||||
| La mayoría de las veces/Siempre | 29 (41.4%) | 59 (55.7%) | 27 (41.5%) | 128 (44.0%) | 52 (52.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 41 (58.6%) | 47 (44.3%) | 38 (58.5%) | 163 (56.0%) | 48 (48.0%) | |
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada? (Dicotomizada): | <0.001 | |||||
| La mayoría de las veces/Siempre | 24 (34.3%) | 74 (69.8%) | 33 (50.8%) | 134 (46.0%) | 48 (48.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 46 (65.7%) | 32 (30.2%) | 32 (49.2%) | 157 (54.0%) | 52 (52.0%) | |
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo? (Dicotomizada): | 0.618 | |||||
| La mayoría de las veces/Siempre | 47 (67.1%) | 65 (61.3%) | 41 (63.1%) | 167 (57.4%) | 60 (60.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 23 (32.9%) | 41 (38.7%) | 24 (36.9%) | 124 (42.6%) | 40 (40.0%) | |
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo? (Dicotomizada): | 0.970 | |||||
| La mayoría de las veces/Siempre | 7 (10.0%) | 10 (9.43%) | 5 (7.69%) | 23 (7.90%) | 8 (8.00%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 63 (90.0%) | 96 (90.6%) | 60 (92.3%) | 268 (92.1%) | 92 (92.0%) | |
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera? (Dicotomizada): | 0.331 | |||||
| La mayoría de las veces/Siempre | 18 (25.7%) | 25 (23.6%) | 15 (23.1%) | 49 (16.8%) | 22 (22.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 52 (74.3%) | 81 (76.4%) | 50 (76.9%) | 242 (83.2%) | 78 (78.0%) | |
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo? (Dicotomizada): | 0.508 | |||||
| La mayoría de las veces/Siempre | 52 (74.3%) | 87 (82.1%) | 48 (73.8%) | 215 (73.9%) | 73 (73.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 18 (25.7%) | 19 (17.9%) | 17 (26.2%) | 76 (26.1%) | 27 (27.0%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo? (Dicotomizada): | 0.749 | |||||
| La mayoría de las veces/Siempre | 49 (70.0%) | 74 (69.8%) | 42 (64.6%) | 201 (69.1%) | 63 (63.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 21 (30.0%) | 32 (30.2%) | 23 (35.4%) | 90 (30.9%) | 37 (37.0%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo? (Dicotomizada): | 0.266 | |||||
| La mayoría de las veces/Siempre | 48 (68.6%) | 78 (73.6%) | 50 (76.9%) | 203 (69.8%) | 62 (62.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 22 (31.4%) | 28 (26.4%) | 15 (23.1%) | 88 (30.2%) | 38 (38.0%) | |
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo? (Dicotomizada): | 0.960 | |||||
| La mayoría de las veces/Siempre | 59 (84.3%) | 90 (84.9%) | 56 (86.2%) | 243 (83.5%) | 82 (82.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 11 (15.7%) | 16 (15.1%) | 9 (13.8%) | 48 (16.5%) | 18 (18.0%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de tu familia/amigos fuera del lugar de trabajo? (Dicotomizada): | 0.200 | |||||
| La mayoría de las veces/Siempre | 60 (85.7%) | 91 (85.8%) | 48 (73.8%) | 238 (81.8%) | 77 (77.0%) | |
| Nunca/Sólo unas pocas veces/Algunas veces | 10 (14.3%) | 15 (14.2%) | 17 (26.2%) | 53 (18.2%) | 23 (23.0%) | |
| Suma ítems Exigencias Psicológicas ISTAS21 | 4.00 [3.25;6.00] | 6.00 [4.00;7.00] | 5.00 [4.00;6.00] | 5.00 [3.50;6.00] | 5.00 [4.00;7.00] | <0.001 |
| Suma ítems Calidad Relación con Superiores ISTAS21 (sin ítem 03) | 7.00 [5.00;8.00] | 7.00 [5.00;8.00] | 6.00 [4.00;8.00] | 6.00 [4.00;8.00] | 6.00 [4.75;8.00] | 0.286 |
| Suma ítems Conflicto de Rol ISTAS21 | 2.00 [1.00;4.00] | 3.00 [2.00;4.00] | 3.00 [2.00;4.00] | 3.00 [1.00;4.00] | 3.00 [1.00;4.00] | 0.072 |
| Suma ítems Relación con Compañeros de Trabajo ISTAS21 | 7.00 [5.00;8.00] | 6.00 [6.00;7.00] | 6.00 [5.00;7.00] | 6.00 [5.00;7.00] | 6.00 [5.00;7.00] | 0.242 |
| 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.064 | |||||
| Apenas cierto/Incorrecto | 4 (5.71%) | 2 (1.90%) | 3 (4.62%) | 5 (1.73%) | 7 (7.00%) | |
| Más bien cierto/Cierto | 66 (94.3%) | 103 (98.1%) | 62 (95.4%) | 284 (98.3%) | 93 (93.0%) | |
| De los enunciados a continuación, indique la opción que mejor se aplique a usted: | Soy capaz de resolver la mayoría de los problemas por mi cuenta (Dicotomizada): | 0.671 | |||||
| Apenas cierto/Incorrecto | 5 (7.14%) | 3 (2.86%) | 4 (6.15%) | 15 (5.19%) | 7 (7.00%) | |
| Más bien cierto/Cierto | 65 (92.9%) | 102 (97.1%) | 61 (93.8%) | 274 (94.8%) | 93 (93.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.056 | |||||
| Apenas cierto/Incorrecto | 3 (4.29%) | 3 (2.86%) | 3 (4.62%) | 7 (2.42%) | 9 (9.00%) | |
| Más bien cierto/Cierto | 67 (95.7%) | 102 (97.1%) | 62 (95.4%) | 282 (97.6%) | 91 (91.0%) | |
| Suma puntajes de resilencia | 8.00 [7.00;9.00] | 8.00 [7.00;9.00] | 8.00 [6.00;9.00] | 8.00 [7.00;9.00] | 8.00 [7.00;9.00] | 0.715 |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Físicamente.: | 0.495 | |||||
| Nunca | 4 (5.63%) | 2 (1.87%) | 1 (1.49%) | 10 (3.36%) | 2 (1.94%) | |
| Sólo unas pocas <br>veces | 8 (11.3%) | 14 (13.1%) | 12 (17.9%) | 46 (15.4%) | 19 (18.4%) | |
| Algunas veces | 25 (35.2%) | 36 (33.6%) | 27 (40.3%) | 122 (40.9%) | 34 (33.0%) | |
| La mayoría de las veces | 24 (33.8%) | 47 (43.9%) | 23 (34.3%) | 100 (33.6%) | 36 (35.0%) | |
| Siempre | 10 (14.1%) | 8 (7.48%) | 4 (5.97%) | 20 (6.71%) | 12 (11.7%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Agotado Emocionalmente.: | 0.612 | |||||
| Nunca | 8 (11.3%) | 6 (5.61%) | 3 (4.48%) | 18 (6.04%) | 7 (6.80%) | |
| Sólo unas pocas <br>veces | 8 (11.3%) | 13 (12.1%) | 10 (14.9%) | 54 (18.1%) | 18 (17.5%) | |
| Algunas veces | 23 (32.4%) | 39 (36.4%) | 28 (41.8%) | 118 (39.6%) | 31 (30.1%) | |
| La mayoría de las veces | 23 (32.4%) | 40 (37.4%) | 22 (32.8%) | 84 (28.2%) | 38 (36.9%) | |
| Siempre | 9 (12.7%) | 9 (8.41%) | 4 (5.97%) | 24 (8.05%) | 9 (8.74%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Estresado.: | 0.391 | |||||
| Nunca | 8 (11.3%) | 4 (3.74%) | 4 (5.97%) | 16 (5.37%) | 5 (4.85%) | |
| Sólo unas pocas <br>veces | 9 (12.7%) | 13 (12.1%) | 10 (14.9%) | 55 (18.5%) | 18 (17.5%) | |
| Algunas veces | 26 (36.6%) | 44 (41.1%) | 27 (40.3%) | 109 (36.6%) | 36 (35.0%) | |
| La mayoría de las veces | 17 (23.9%) | 33 (30.8%) | 22 (32.8%) | 95 (31.9%) | 29 (28.2%) | |
| Siempre | 11 (15.5%) | 13 (12.1%) | 4 (5.97%) | 23 (7.72%) | 15 (14.6%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Irritable.: | 0.079 | |||||
| Nunca | 13 (22.4%) | 7 (7.61%) | 5 (9.09%) | 25 (10.0%) | 13 (16.0%) | |
| Sólo unas pocas <br>veces | 16 (27.6%) | 25 (27.2%) | 17 (30.9%) | 87 (34.9%) | 15 (18.5%) | |
| Algunas veces | 16 (27.6%) | 35 (38.0%) | 22 (40.0%) | 93 (37.3%) | 38 (46.9%) | |
| La mayoría de las veces | 11 (19.0%) | 21 (22.8%) | 8 (14.5%) | 36 (14.5%) | 10 (12.3%) | |
| Siempre | 2 (3.45%) | 4 (4.35%) | 3 (5.45%) | 8 (3.21%) | 5 (6.17%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con dificultades para descansar al dormir.: | 0.095 | |||||
| Nunca | 10 (14.1%) | 12 (11.2%) | 12 (17.9%) | 36 (12.1%) | 12 (11.7%) | |
| Sólo unas pocas <br>veces | 12 (16.9%) | 14 (13.1%) | 17 (25.4%) | 49 (16.4%) | 15 (14.6%) | |
| Algunas veces | 17 (23.9%) | 36 (33.6%) | 21 (31.3%) | 97 (32.6%) | 19 (18.4%) | |
| La mayoría de las veces | 22 (31.0%) | 28 (26.2%) | 11 (16.4%) | 79 (26.5%) | 41 (39.8%) | |
| Siempre | 10 (14.1%) | 17 (15.9%) | 6 (8.96%) | 37 (12.4%) | 16 (15.5%) | |
| En los últimos 7 días, ¿cuán a menudo me he sentido…? | Con problemas para mantener el sueño al dormir.: | 0.004 | |||||
| Nunca | 13 (18.3%) | 13 (12.1%) | 22 (32.8%) | 47 (15.8%) | 15 (14.6%) | |
| Sólo unas pocas <br>veces | 15 (21.1%) | 23 (21.5%) | 21 (31.3%) | 59 (19.8%) | 16 (15.5%) | |
| Algunas veces | 15 (21.1%) | 29 (27.1%) | 14 (20.9%) | 97 (32.6%) | 28 (27.2%) | |
| La mayoría de las veces | 19 (26.8%) | 29 (27.1%) | 6 (8.96%) | 63 (21.1%) | 25 (24.3%) | |
| Siempre | 9 (12.7%) | 13 (12.1%) | 4 (5.97%) | 32 (10.7%) | 19 (18.4%) | |
| 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.335 | |||||
| Nada | 16 (22.5%) | 23 (21.5%) | 17 (25.4%) | 67 (22.5%) | 21 (20.4%) | |
| Un poco | 20 (28.2%) | 27 (25.2%) | 23 (34.3%) | 97 (32.6%) | 29 (28.2%) | |
| Regular | 18 (25.4%) | 30 (28.0%) | 18 (26.9%) | 80 (26.8%) | 22 (21.4%) | |
| Bastante | 13 (18.3%) | 22 (20.6%) | 9 (13.4%) | 42 (14.1%) | 29 (28.2%) | |
| Mucho | 4 (5.63%) | 5 (4.67%) | 0 (0.00%) | 12 (4.03%) | 2 (1.94%) | |
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Sobresaltado, “en guardia” o me alarmo fácilmente.: | 0.277 | |||||
| Nada | 17 (23.9%) | 16 (15.0%) | 13 (19.4%) | 65 (21.8%) | 23 (22.3%) | |
| Un poco | 25 (35.2%) | 31 (29.0%) | 24 (35.8%) | 101 (33.9%) | 25 (24.3%) | |
| Regular | 14 (19.7%) | 24 (22.4%) | 14 (20.9%) | 58 (19.5%) | 22 (21.4%) | |
| Bastante | 8 (11.3%) | 26 (24.3%) | 13 (19.4%) | 64 (21.5%) | 24 (23.3%) | |
| Mucho | 7 (9.86%) | 10 (9.35%) | 3 (4.48%) | 10 (3.36%) | 9 (8.74%) | |
| En la última semana y a consecuencia de la situación sanitaria, me he sentido… | Irritable al punto de reaccionar bruscamente.: | 0.127 | |||||
| Nada | 35 (49.3%) | 29 (27.1%) | 23 (34.3%) | 112 (37.6%) | 35 (34.0%) | |
| Un poco | 14 (19.7%) | 39 (36.4%) | 18 (26.9%) | 99 (33.2%) | 30 (29.1%) | |
| Regular | 7 (9.86%) | 23 (21.5%) | 16 (23.9%) | 49 (16.4%) | 18 (17.5%) | |
| Bastante | 11 (15.5%) | 12 (11.2%) | 8 (11.9%) | 24 (8.05%) | 16 (15.5%) | |
| Mucho | 4 (5.63%) | 4 (3.74%) | 2 (2.99%) | 14 (4.70%) | 4 (3.88%) | |
| 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.158 | |||||
| Nunca | 20 (28.2%) | 17 (15.9%) | 12 (17.9%) | 57 (19.1%) | 20 (19.4%) | |
| Algunos días | 29 (40.8%) | 47 (43.9%) | 42 (62.7%) | 143 (48.0%) | 48 (46.6%) | |
| Más de la mitad de los días | 13 (18.3%) | 29 (27.1%) | 11 (16.4%) | 73 (24.5%) | 23 (22.3%) | |
| Casi todos los días | 9 (12.7%) | 14 (13.1%) | 2 (2.99%) | 25 (8.39%) | 12 (11.7%) | |
| Señale con qué frecuencia ha experimentado las siguientes situaciones en los últimos 7 días | No he podido dejar de preocuparme.: | 0.465 | |||||
| Nunca | 10 (14.1%) | 10 (9.35%) | 11 (16.4%) | 38 (12.8%) | 17 (16.5%) | |
| Algunos días | 32 (45.1%) | 41 (38.3%) | 26 (38.8%) | 136 (45.6%) | 38 (36.9%) | |
| Más de la mitad de los días | 17 (23.9%) | 38 (35.5%) | 24 (35.8%) | 79 (26.5%) | 35 (34.0%) | |
| Casi todos los días | 12 (16.9%) | 18 (16.8%) | 6 (8.96%) | 45 (15.1%) | 13 (12.6%) | |
| 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.463 | |||||
| Nunca | 18 (25.4%) | 19 (17.8%) | 14 (20.9%) | 77 (25.8%) | 23 (22.3%) | |
| Algunos días | 28 (39.4%) | 53 (49.5%) | 39 (58.2%) | 135 (45.3%) | 56 (54.4%) | |
| Más de la mitad de los días | 17 (23.9%) | 26 (24.3%) | 9 (13.4%) | 61 (20.5%) | 19 (18.4%) | |
| Casi todos los días | 8 (11.3%) | 9 (8.41%) | 5 (7.46%) | 25 (8.39%) | 5 (4.85%) | |
| 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.395 | |||||
| Nunca | 21 (29.6%) | 28 (26.2%) | 16 (23.9%) | 78 (26.2%) | 19 (18.4%) | |
| Algunos días | 29 (40.8%) | 49 (45.8%) | 39 (58.2%) | 139 (46.6%) | 52 (50.5%) | |
| Más de la mitad de los días | 12 (16.9%) | 23 (21.5%) | 8 (11.9%) | 61 (20.5%) | 26 (25.2%) | |
| Casi todos los días | 9 (12.7%) | 7 (6.54%) | 4 (5.97%) | 20 (6.71%) | 6 (5.83%) | |
| ¿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.001 | |||||
| Ninguno | 36 (50.7%) | 35 (32.7%) | 21 (31.3%) | 159 (53.4%) | 34 (33.0%) | |
| 1 a 10 | 25 (35.2%) | 40 (37.4%) | 29 (43.3%) | 105 (35.2%) | 44 (42.7%) | |
| 11 a 30 | 7 (9.86%) | 19 (17.8%) | 8 (11.9%) | 19 (6.38%) | 16 (15.5%) | |
| 31 a 100 | 2 (2.82%) | 10 (9.35%) | 7 (10.4%) | 9 (3.02%) | 8 (7.77%) | |
| Más de 100 | 1 (1.41%) | 3 (2.80%) | 2 (2.99%) | 6 (2.01%) | 1 (0.97%) | |
| ¿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.001 | |||||
| Ninguno | 36 (50.7%) | 41 (38.3%) | 26 (38.8%) | 168 (56.4%) | 58 (56.3%) | |
| Sólo uno | 11 (15.5%) | 21 (19.6%) | 16 (23.9%) | 40 (13.4%) | 10 (9.71%) | |
| 2 a 10 | 18 (25.4%) | 36 (33.6%) | 23 (34.3%) | 76 (25.5%) | 34 (33.0%) | |
| 11 a 25 | 2 (2.82%) | 9 (8.41%) | 1 (1.49%) | 10 (3.36%) | 1 (0.97%) | |
| Más de 25 | 4 (5.63%) | 0 (0.00%) | 1 (1.49%) | 4 (1.34%) | 0 (0.00%) | |
| ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?: | <0.001 | |||||
| Ninguno que yo esté en conocimiento | 44 (62.0%) | 14 (13.1%) | 16 (23.9%) | 160 (53.7%) | 23 (22.3%) | |
| Comparto espacios con trabajadores que están en contacto con pacientes | 18 (25.4%) | 25 (23.4%) | 9 (13.4%) | 71 (23.8%) | 23 (22.3%) | |
| Tengo algún contacto con pacientes | 4 (5.63%) | 26 (24.3%) | 12 (17.9%) | 32 (10.7%) | 17 (16.5%) | |
| Trabajo en contacto directo o a menos de 2 metros con pacientes | 5 (7.04%) | 42 (39.3%) | 30 (44.8%) | 35 (11.7%) | 40 (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.: | <0.001 | |||||
| 0 | 49 (84.5%) | 41 (44.6%) | 28 (50.9%) | 194 (77.9%) | 41 (50.6%) | |
| 1 | 9 (15.5%) | 51 (55.4%) | 27 (49.1%) | 55 (22.1%) | 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.456 | |||||
| 0 | 50 (86.2%) | 80 (87.0%) | 49 (89.1%) | 229 (92.0%) | 75 (92.6%) | |
| 1 | 8 (13.8%) | 12 (13.0%) | 6 (10.9%) | 20 (8.03%) | 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.083 | |||||
| 0 | 49 (74.2%) | 65 (67.0%) | 45 (71.4%) | 205 (74.5%) | 57 (60.0%) | |
| 1 | 17 (25.8%) | 32 (33.0%) | 18 (28.6%) | 70 (25.5%) | 38 (40.0%) | |
| ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (por favor marque las que apliquen a su caso) | Experimentó síntomas similares a los de COVID-19.: | 0.010 | |||||
| 0 | 49 (84.5%) | 60 (65.2%) | 37 (67.3%) | 198 (79.5%) | 56 (69.1%) | |
| 1 | 9 (15.5%) | 32 (34.8%) | 18 (32.7%) | 51 (20.5%) | 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.017 | |||||
| 0 | 58 (98.3%) | 83 (90.2%) | 54 (98.2%) | 245 (97.6%) | 79 (96.3%) | |
| 1 | 1 (1.69%) | 9 (9.78%) | 1 (1.82%) | 6 (2.39%) | 3 (3.66%) | |
| ¿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.703 | |||||
| 0 | 55 (94.8%) | 81 (88.0%) | 49 (89.1%) | 223 (89.6%) | 74 (91.4%) | |
| 1 | 3 (5.17%) | 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.004 | |||||
| 0 | 47 (81.0%) | 73 (79.3%) | 39 (70.9%) | 221 (88.8%) | 61 (75.3%) | |
| 1 | 11 (19.0%) | 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 (63.8%) | 35 (38.0%) | 21 (38.2%) | 147 (59.0%) | 38 (46.9%) | |
| 1 | 21 (36.2%) | 57 (62.0%) | 34 (61.8%) | 102 (41.0%) | 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.404 | |||||
| 0 | 57 (93.4%) | 82 (87.2%) | 50 (89.3%) | 238 (93.3%) | 77 (91.7%) | |
| 1 | 4 (6.56%) | 12 (12.8%) | 6 (10.7%) | 17 (6.67%) | 7 (8.33%) | |
| ¿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.084 | |||||
| 0 | 53 (84.1%) | 82 (86.3%) | 49 (83.1%) | 226 (88.6%) | 68 (76.4%) | |
| 1 | 10 (15.9%) | 13 (13.7%) | 10 (16.9%) | 29 (11.4%) | 21 (23.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) | Ninguna de las anteriores.: | <0.001 | |||||
| FALSE | 32 (55.2%) | 76 (82.6%) | 46 (83.6%) | 159 (63.9%) | 69 (85.2%) | |
| TRUE | 26 (44.8%) | 16 (17.4%) | 9 (16.4%) | 90 (36.1%) | 12 (14.8%) | |
| ¿Se ha sentido preocupado por llevar el virus desde el trabajo a aquellos con los que vives y/o amigos?: | <0.001 | |||||
| Nada | 3 (4.23%) | 0 (0.00%) | 5 (7.46%) | 12 (4.03%) | 3 (2.91%) | |
| Un poco | 13 (18.3%) | 21 (19.6%) | 22 (32.8%) | 65 (21.8%) | 12 (11.7%) | |
| Bastante | 23 (32.4%) | 27 (25.2%) | 20 (29.9%) | 68 (22.8%) | 27 (26.2%) | |
| Mucho | 29 (40.8%) | 58 (54.2%) | 20 (29.9%) | 131 (44.0%) | 59 (57.3%) | |
| No aplica | 3 (4.23%) | 1 (0.93%) | 0 (0.00%) | 22 (7.38%) | 2 (1.94%) | |
| ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?: | 0.006 | |||||
| 1 (Poco o nada) | 4 (5.63%) | 4 (3.74%) | 2 (2.99%) | 15 (5.03%) | 6 (5.83%) | |
| 2 | 4 (5.63%) | 5 (4.67%) | 6 (8.96%) | 10 (3.36%) | 7 (6.80%) | |
| 3 | 2 (2.82%) | 6 (5.61%) | 13 (19.4%) | 28 (9.40%) | 7 (6.80%) | |
| 4 | 9 (12.7%) | 12 (11.2%) | 8 (11.9%) | 43 (14.4%) | 11 (10.7%) | |
| 5 | 16 (22.5%) | 24 (22.4%) | 11 (16.4%) | 59 (19.8%) | 16 (15.5%) | |
| 6 | 11 (15.5%) | 17 (15.9%) | 8 (11.9%) | 53 (17.8%) | 6 (5.83%) | |
| 7 | 16 (22.5%) | 19 (17.8%) | 5 (7.46%) | 45 (15.1%) | 16 (15.5%) | |
| 8 | 3 (4.23%) | 10 (9.35%) | 10 (14.9%) | 27 (9.06%) | 18 (17.5%) | |
| 9 | 2 (2.82%) | 8 (7.48%) | 4 (5.97%) | 8 (2.68%) | 8 (7.77%) | |
| 10 (Tanto miedo como nunca he sentido) | 4 (5.63%) | 2 (1.87%) | 0 (0.00%) | 10 (3.36%) | 8 (7.77%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Guantes: | <0.001 | |||||
| FALSE | 34 (58.6%) | 24 (26.1%) | 17 (30.9%) | 157 (63.1%) | 10 (12.3%) | |
| TRUE | 24 (41.4%) | 68 (73.9%) | 38 (69.1%) | 92 (36.9%) | 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 | 41 (70.7%) | 40 (43.5%) | 23 (41.8%) | 160 (64.3%) | 27 (33.3%) | |
| TRUE | 17 (29.3%) | 52 (56.5%) | 32 (58.2%) | 89 (35.7%) | 54 (66.7%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Protector facial: | <0.001 | |||||
| FALSE | 36 (62.1%) | 24 (26.1%) | 18 (32.7%) | 115 (46.2%) | 22 (27.2%) | |
| TRUE | 22 (37.9%) | 68 (73.9%) | 37 (67.3%) | 134 (53.8%) | 59 (72.8%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Overol: | <0.001 | |||||
| FALSE | 58 (100%) | 88 (95.7%) | 51 (92.7%) | 234 (94.0%) | 62 (76.5%) | |
| TRUE | 0 (0.00%) | 4 (4.35%) | 4 (7.27%) | 15 (6.02%) | 19 (23.5%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Desinfectante de manos: | 0.105 | |||||
| FALSE | 9 (15.5%) | 9 (9.78%) | 4 (7.27%) | 36 (14.5%) | 4 (4.94%) | |
| TRUE | 49 (84.5%) | 83 (90.2%) | 51 (92.7%) | 213 (85.5%) | 77 (95.1%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla quirúrgica: | 0.281 | |||||
| FALSE | 7 (12.1%) | 7 (7.61%) | 11 (20.0%) | 32 (12.9%) | 12 (14.8%) | |
| TRUE | 51 (87.9%) | 85 (92.4%) | 44 (80.0%) | 217 (87.1%) | 69 (85.2%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Mascarilla N95: | <0.001 | |||||
| FALSE | 40 (69.0%) | 35 (38.0%) | 13 (23.6%) | 159 (63.9%) | 26 (32.1%) | |
| TRUE | 18 (31.0%) | 57 (62.0%) | 42 (76.4%) | 90 (36.1%) | 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 | 57 (98.3%) | 91 (98.9%) | 54 (98.2%) | 245 (98.4%) | 79 (97.5%) | |
| TRUE | 1 (1.72%) | 1 (1.09%) | 1 (1.82%) | 4 (1.61%) | 2 (2.47%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Delantal/Pechera: | <0.001 | |||||
| FALSE | 56 (96.6%) | 27 (29.3%) | 10 (18.2%) | 185 (74.3%) | 23 (28.4%) | |
| TRUE | 2 (3.45%) | 65 (70.7%) | 45 (81.8%) | 64 (25.7%) | 58 (71.6%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cofia: | <0.001 | |||||
| FALSE | 57 (98.3%) | 51 (55.4%) | 39 (70.9%) | 200 (80.3%) | 38 (46.9%) | |
| TRUE | 1 (1.72%) | 41 (44.6%) | 16 (29.1%) | 49 (19.7%) | 43 (53.1%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Cubre calzado: | <0.001 | |||||
| FALSE | 55 (94.8%) | 76 (82.6%) | 45 (81.8%) | 230 (92.4%) | 53 (65.4%) | |
| TRUE | 3 (5.17%) | 16 (17.4%) | 10 (18.2%) | 19 (7.63%) | 28 (34.6%) | |
| En base a su lugar de trabajo principal, seleccione aquellos implementos que considera necesario utilizar: | Ninguno de los anteriores: | 0.176 | |||||
| FALSE | 56 (96.6%) | 92 (100%) | 55 (100%) | 243 (97.6%) | 81 (100%) | |
| TRUE | 2 (3.45%) | 0 (0.00%) | 0 (0.00%) | 6 (2.41%) | 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 (34.5%) | 74 (80.4%) | 50 (90.9%) | 115 (46.2%) | 66 (81.5%) | |
| Insuficiente | 7 (12.1%) | 8 (8.70%) | 2 (3.64%) | 41 (16.5%) | 14 (17.3%) | |
| No Aplica | 31 (53.4%) | 10 (10.9%) | 3 (5.45%) | 93 (37.3%) | 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 (29.3%) | 53 (57.6%) | 28 (50.9%) | 66 (26.5%) | 43 (53.1%) | |
| Insuficiente | 7 (12.1%) | 24 (26.1%) | 17 (30.9%) | 56 (22.5%) | 27 (33.3%) | |
| No Aplica | 34 (58.6%) | 15 (16.3%) | 10 (18.2%) | 127 (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 | 21 (36.2%) | 68 (73.9%) | 41 (74.5%) | 107 (43.0%) | 49 (60.5%) | |
| Insuficiente | 16 (27.6%) | 15 (16.3%) | 10 (18.2%) | 64 (25.7%) | 25 (30.9%) | |
| No Aplica | 21 (36.2%) | 9 (9.78%) | 4 (7.27%) | 78 (31.3%) | 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.90%) | 13 (14.1%) | 13 (23.6%) | 33 (13.3%) | 11 (13.6%) | |
| Insuficiente | 3 (5.17%) | 17 (18.5%) | 7 (12.7%) | 24 (9.64%) | 24 (29.6%) | |
| No Aplica | 51 (87.9%) | 62 (67.4%) | 35 (63.6%) | 192 (77.1%) | 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.002 | |||||
| Suficiente | 44 (75.9%) | 79 (85.9%) | 54 (98.2%) | 191 (76.7%) | 69 (85.2%) | |
| Insuficiente | 10 (17.2%) | 10 (10.9%) | 1 (1.82%) | 36 (14.5%) | 12 (14.8%) | |
| No Aplica | 4 (6.90%) | 3 (3.26%) | 0 (0.00%) | 22 (8.84%) | 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 | 41 (70.7%) | 81 (88.0%) | 52 (94.5%) | 185 (74.3%) | 68 (84.0%) | |
| Insuficiente | 11 (19.0%) | 10 (10.9%) | 1 (1.82%) | 45 (18.1%) | 13 (16.0%) | |
| No Aplica | 6 (10.3%) | 1 (1.09%) | 2 (3.64%) | 19 (7.63%) | 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 (12.1%) | 41 (44.6%) | 34 (61.8%) | 55 (22.1%) | 23 (28.4%) | |
| Insuficiente | 15 (25.9%) | 34 (37.0%) | 14 (25.5%) | 79 (31.7%) | 46 (56.8%) | |
| No Aplica | 36 (62.1%) | 17 (18.5%) | 7 (12.7%) | 115 (46.2%) | 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.45%) | 9 (9.78%) | 4 (7.27%) | 5 (2.01%) | 3 (3.70%) | |
| Insuficiente | 5 (8.62%) | 16 (17.4%) | 10 (18.2%) | 21 (8.43%) | 19 (23.5%) | |
| No Aplica | 51 (87.9%) | 67 (72.8%) | 41 (74.5%) | 223 (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.62%) | 71 (77.2%) | 46 (83.6%) | 73 (29.3%) | 57 (70.4%) | |
| Insuficiente | 2 (3.45%) | 7 (7.61%) | 4 (7.27%) | 26 (10.4%) | 14 (17.3%) | |
| No Aplica | 51 (87.9%) | 14 (15.2%) | 5 (9.09%) | 150 (60.2%) | 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.90%) | 40 (43.5%) | 22 (40.0%) | 35 (14.1%) | 30 (37.0%) | |
| Insuficiente | 3 (5.17%) | 16 (17.4%) | 9 (16.4%) | 39 (15.7%) | 20 (24.7%) | |
| No Aplica | 51 (87.9%) | 36 (39.1%) | 24 (43.6%) | 175 (70.3%) | 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.45%) | 21 (22.8%) | 13 (23.6%) | 18 (7.23%) | 11 (13.6%) | |
| Insuficiente | 6 (10.3%) | 24 (26.1%) | 10 (18.2%) | 33 (13.3%) | 30 (37.0%) | |
| No Aplica | 50 (86.2%) | 47 (51.1%) | 32 (58.2%) | 198 (79.5%) | 40 (49.4%) | |
| ¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s?: | <0.001 | |||||
| No he sido capacitado | 37 (52.1%) | 12 (11.2%) | 9 (13.4%) | 102 (34.2%) | 25 (24.3%) | |
| Sí, en el último mes | 9 (12.7%) | 21 (19.6%) | 8 (11.9%) | 24 (8.05%) | 15 (14.6%) | |
| Sí, en los últimos 6 meses | 19 (26.8%) | 49 (45.8%) | 32 (47.8%) | 108 (36.2%) | 44 (42.7%) | |
| Sí, el año pasado | 5 (7.04%) | 20 (18.7%) | 17 (25.4%) | 43 (14.4%) | 17 (16.5%) | |
| Sí, hace más de un año | 1 (1.41%) | 5 (4.67%) | 1 (1.49%) | 21 (7.05%) | 2 (1.94%) | |
| ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19?: | 0.010 | |||||
| Excelente | 1 (2.94%) | 20 (21.1%) | 8 (13.8%) | 15 (7.65%) | 6 (7.69%) | |
| Buena | 14 (41.2%) | 47 (49.5%) | 35 (60.3%) | 105 (53.6%) | 35 (44.9%) | |
| Regular | 16 (47.1%) | 24 (25.3%) | 12 (20.7%) | 65 (33.2%) | 29 (37.2%) | |
| Mala | 3 (8.82%) | 4 (4.21%) | 3 (5.17%) | 11 (5.61%) | 8 (10.3%) | |
| ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura?: | <0.001 | |||||
| Nada | 3 (4.23%) | 0 (0.00%) | 0 (0.00%) | 10 (3.36%) | 1 (0.97%) | |
| Poco | 9 (12.7%) | 1 (0.93%) | 1 (1.49%) | 16 (5.37%) | 10 (9.71%) | |
| Algo | 16 (22.5%) | 15 (14.0%) | 9 (13.4%) | 69 (23.2%) | 20 (19.4%) | |
| Bastante | 31 (43.7%) | 60 (56.1%) | 40 (59.7%) | 147 (49.3%) | 49 (47.6%) | |
| Totalmente | 2 (2.82%) | 29 (27.1%) | 13 (19.4%) | 33 (11.1%) | 21 (20.4%) | |
| No aplica | 10 (14.1%) | 2 (1.87%) | 4 (5.97%) | 23 (7.72%) | 2 (1.94%) | |
| ¿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.010 | |||||
| 0 | 54 (93.1%) | 79 (85.9%) | 52 (94.5%) | 232 (93.2%) | 66 (81.5%) | |
| 1 | 4 (6.90%) | 13 (14.1%) | 3 (5.45%) | 17 (6.83%) | 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.004 | |||||
| 0 | 55 (94.8%) | 72 (78.3%) | 49 (89.1%) | 227 (91.2%) | 67 (82.7%) | |
| 1 | 3 (5.17%) | 20 (21.7%) | 6 (10.9%) | 22 (8.84%) | 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.481 | |||||
| 0 | 54 (93.1%) | 83 (90.2%) | 49 (89.1%) | 228 (91.6%) | 69 (85.2%) | |
| 1 | 4 (6.90%) | 9 (9.78%) | 6 (10.9%) | 21 (8.43%) | 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.049 | |||||
| 0 | 54 (93.1%) | 74 (80.4%) | 42 (76.4%) | 212 (85.1%) | 62 (76.5%) | |
| 1 | 4 (6.90%) | 18 (19.6%) | 13 (23.6%) | 37 (14.9%) | 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 | 31 (53.4%) | 77 (83.7%) | 43 (78.2%) | 169 (67.9%) | 66 (81.5%) | |
| TRUE | 27 (46.6%) | 15 (16.3%) | 12 (21.8%) | 80 (32.1%) | 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.72%) | 3 (3.26%) | 0 (0.00%) | 4 (1.61%) | 2 (2.47%) | |
| Poco | 9 (15.5%) | 5 (5.43%) | 5 (9.09%) | 18 (7.23%) | 6 (7.41%) | |
| Algo | 17 (29.3%) | 21 (22.8%) | 4 (7.27%) | 65 (26.1%) | 23 (28.4%) | |
| Bastante | 20 (34.5%) | 39 (42.4%) | 28 (50.9%) | 114 (45.8%) | 36 (44.4%) | |
| Totalmente | 5 (8.62%) | 24 (26.1%) | 17 (30.9%) | 25 (10.0%) | 13 (16.0%) | |
| No aplica | 6 (10.3%) | 0 (0.00%) | 1 (1.82%) | 23 (9.24%) | 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.018 | |||||
| Negarme a trabajar no es una opción legalmente disponible para mí | 7 (12.1%) | 14 (15.2%) | 3 (5.45%) | 22 (8.84%) | 14 (17.3%) | |
| Definitivamente, no es posible negarme a trabajar | 6 (10.3%) | 6 (6.52%) | 3 (5.45%) | 18 (7.23%) | 7 (8.64%) | |
| Es improbable que pueda negarme a trabajar | 6 (10.3%) | 6 (6.52%) | 4 (7.27%) | 20 (8.03%) | 6 (7.41%) | |
| Quizás, en una situación extrema podría negarme a trabajar | 9 (15.5%) | 12 (13.0%) | 8 (14.5%) | 60 (24.1%) | 4 (4.94%) | |
| Probablemente, podría negarme a trabajar si considero que el riesgo es significativo | 19 (32.8%) | 33 (35.9%) | 18 (32.7%) | 76 (30.5%) | 38 (46.9%) | |
| Definitivamente, no dudaría en negarme a trabajar | 11 (19.0%) | 21 (22.8%) | 19 (34.5%) | 53 (21.3%) | 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 | 19 (32.8%) | 33 (35.9%) | 27 (49.1%) | 62 (24.9%) | 27 (33.3%) | |
| Apropiadas pero mal implementadas | 16 (27.6%) | 22 (23.9%) | 15 (27.3%) | 34 (13.7%) | 18 (22.2%) | |
| Inapropiadas | 0 (0.00%) | 8 (8.70%) | 0 (0.00%) | 10 (4.02%) | 4 (4.94%) | |
| Deficientes | 9 (15.5%) | 20 (21.7%) | 10 (18.2%) | 47 (18.9%) | 23 (28.4%) | |
| No sabe | 0 (0.00%) | 1 (1.09%) | 2 (3.64%) | 9 (3.61%) | 4 (4.94%) | |
| No aplica | 14 (24.1%) | 8 (8.70%) | 1 (1.82%) | 87 (34.9%) | 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 | 30 (51.7%) | 59 (64.1%) | 38 (69.1%) | 97 (39.0%) | 48 (59.3%) | |
| Apropiadas pero mal implementadas | 4 (6.90%) | 11 (12.0%) | 12 (21.8%) | 23 (9.24%) | 16 (19.8%) | |
| Inapropiadas | 0 (0.00%) | 5 (5.43%) | 1 (1.82%) | 1 (0.40%) | 3 (3.70%) | |
| Deficientes | 3 (5.17%) | 4 (4.35%) | 1 (1.82%) | 8 (3.21%) | 8 (9.88%) | |
| No sabe | 2 (3.45%) | 2 (2.17%) | 1 (1.82%) | 27 (10.8%) | 0 (0.00%) | |
| No aplica | 19 (32.8%) | 11 (12.0%) | 2 (3.64%) | 93 (37.3%) | 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 | 25 (43.1%) | 52 (56.5%) | 39 (70.9%) | 86 (34.5%) | 44 (54.3%) | |
| Apropiadas pero mal implementadas | 4 (6.90%) | 23 (25.0%) | 8 (14.5%) | 20 (8.03%) | 18 (22.2%) | |
| Inapropiadas | 0 (0.00%) | 4 (4.35%) | 2 (3.64%) | 2 (0.80%) | 2 (2.47%) | |
| Deficientes | 1 (1.72%) | 2 (2.17%) | 1 (1.82%) | 11 (4.42%) | 4 (4.94%) | |
| No sabe | 7 (12.1%) | 2 (2.17%) | 2 (3.64%) | 25 (10.0%) | 2 (2.47%) | |
| No aplica | 21 (36.2%) | 9 (9.78%) | 3 (5.45%) | 105 (42.2%) | 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 (43.1%) | 47 (51.1%) | 37 (67.3%) | 78 (31.3%) | 40 (49.4%) | |
| Apropiadas pero mal implementadas | 8 (13.8%) | 16 (17.4%) | 9 (16.4%) | 27 (10.8%) | 17 (21.0%) | |
| Inapropiadas | 0 (0.00%) | 7 (7.61%) | 0 (0.00%) | 5 (2.01%) | 5 (6.17%) | |
| Deficientes | 1 (1.72%) | 7 (7.61%) | 1 (1.82%) | 15 (6.02%) | 8 (9.88%) | |
| No sabe | 4 (6.90%) | 3 (3.26%) | 6 (10.9%) | 29 (11.6%) | 4 (4.94%) | |
| No aplica | 20 (34.5%) | 12 (13.0%) | 2 (3.64%) | 95 (38.2%) | 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 (19.0%) | 17 (18.5%) | 12 (21.8%) | 34 (13.7%) | 19 (23.5%) | |
| Apropiadas pero mal implementadas | 3 (5.17%) | 6 (6.52%) | 6 (10.9%) | 28 (11.2%) | 12 (14.8%) | |
| Inapropiadas | 5 (8.62%) | 16 (17.4%) | 8 (14.5%) | 24 (9.64%) | 9 (11.1%) | |
| Deficientes | 9 (15.5%) | 37 (40.2%) | 18 (32.7%) | 48 (19.3%) | 25 (30.9%) | |
| No sabe | 11 (19.0%) | 5 (5.43%) | 5 (9.09%) | 37 (14.9%) | 6 (7.41%) | |
| No aplica | 19 (32.8%) | 11 (12.0%) | 6 (10.9%) | 78 (31.3%) | 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 | 23 (39.7%) | 29 (31.5%) | 27 (49.1%) | 58 (23.3%) | 26 (32.1%) | |
| Apropiadas pero mal implementadas | 2 (3.45%) | 9 (9.78%) | 3 (5.45%) | 15 (6.02%) | 18 (22.2%) | |
| Inapropiadas | 0 (0.00%) | 13 (14.1%) | 2 (3.64%) | 11 (4.42%) | 6 (7.41%) | |
| Deficientes | 0 (0.00%) | 23 (25.0%) | 13 (23.6%) | 16 (6.43%) | 12 (14.8%) | |
| No sabe | 11 (19.0%) | 3 (3.26%) | 6 (10.9%) | 34 (13.7%) | 4 (4.94%) | |
| No aplica | 22 (37.9%) | 15 (16.3%) | 4 (7.27%) | 115 (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.9%) | 22 (23.9%) | 15 (27.3%) | 31 (12.4%) | 27 (33.3%) | |
| Apropiadas pero mal implementadas | 2 (3.45%) | 13 (14.1%) | 5 (9.09%) | 22 (8.84%) | 7 (8.64%) | |
| Inapropiadas | 0 (0.00%) | 13 (14.1%) | 5 (9.09%) | 26 (10.4%) | 13 (16.0%) | |
| Deficientes | 7 (12.1%) | 31 (33.7%) | 23 (41.8%) | 48 (19.3%) | 25 (30.9%) | |
| No sabe | 13 (22.4%) | 2 (2.17%) | 4 (7.27%) | 27 (10.8%) | 4 (4.94%) | |
| No aplica | 21 (36.2%) | 11 (12.0%) | 3 (5.45%) | 95 (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 (29.3%) | 40 (43.5%) | 19 (34.5%) | 39 (15.7%) | 28 (34.6%) | |
| Apropiadas pero mal implementadas | 2 (3.45%) | 13 (14.1%) | 2 (3.64%) | 17 (6.83%) | 7 (8.64%) | |
| Inapropiadas | 1 (1.72%) | 6 (6.52%) | 1 (1.82%) | 17 (6.83%) | 6 (7.41%) | |
| Deficientes | 3 (5.17%) | 17 (18.5%) | 12 (21.8%) | 41 (16.5%) | 19 (23.5%) | |
| No sabe | 13 (22.4%) | 4 (4.35%) | 16 (29.1%) | 38 (15.3%) | 8 (9.88%) | |
| No aplica | 22 (37.9%) | 12 (13.0%) | 5 (9.09%) | 97 (39.0%) | 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.9%) | 58 (63.0%) | 30 (54.5%) | 88 (35.3%) | 51 (63.0%) | |
| Apropiadas pero mal implementadas | 4 (6.90%) | 14 (15.2%) | 5 (9.09%) | 25 (10.0%) | 9 (11.1%) | |
| Inapropiadas | 2 (3.45%) | 7 (7.61%) | 3 (5.45%) | 13 (5.22%) | 4 (4.94%) | |
| Deficientes | 3 (5.17%) | 7 (7.61%) | 4 (7.27%) | 29 (11.6%) | 9 (11.1%) | |
| No sabe | 12 (20.7%) | 3 (3.26%) | 12 (21.8%) | 28 (11.2%) | 5 (6.17%) | |
| No aplica | 15 (25.9%) | 3 (3.26%) | 1 (1.82%) | 66 (26.5%) | 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.636 | |||||
| Totalmente de acuerdo | 23 (39.7%) | 24 (26.1%) | 9 (16.4%) | 55 (22.1%) | 26 (32.1%) | |
| De acuerdo | 15 (25.9%) | 31 (33.7%) | 20 (36.4%) | 87 (34.9%) | 26 (32.1%) | |
| Ni de acuerdo ni en desacuerdo | 14 (24.1%) | 22 (23.9%) | 18 (32.7%) | 69 (27.7%) | 19 (23.5%) | |
| En desacuerdo | 5 (8.62%) | 12 (13.0%) | 6 (10.9%) | 28 (11.2%) | 7 (8.64%) | |
| Totalmente en desacuerdo | 1 (1.72%) | 3 (3.26%) | 2 (3.64%) | 10 (4.02%) | 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.6%) | 30 (32.6%) | 15 (27.3%) | 48 (19.3%) | 10 (12.3%) | |
| De acuerdo | 26 (44.8%) | 24 (26.1%) | 26 (47.3%) | 112 (45.0%) | 32 (39.5%) | |
| Ni de acuerdo ni en desacuerdo | 14 (24.1%) | 19 (20.7%) | 8 (14.5%) | 38 (15.3%) | 28 (34.6%) | |
| En desacuerdo | 2 (3.45%) | 17 (18.5%) | 5 (9.09%) | 41 (16.5%) | 9 (11.1%) | |
| Totalmente en desacuerdo | 0 (0.00%) | 2 (2.17%) | 1 (1.82%) | 10 (4.02%) | 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.049 | |||||
| Totalmente de acuerdo | 6 (10.3%) | 13 (14.1%) | 6 (10.9%) | 22 (8.84%) | 3 (3.70%) | |
| De acuerdo | 15 (25.9%) | 15 (16.3%) | 12 (21.8%) | 56 (22.5%) | 12 (14.8%) | |
| Ni de acuerdo ni en desacuerdo | 22 (37.9%) | 24 (26.1%) | 17 (30.9%) | 57 (22.9%) | 23 (28.4%) | |
| En desacuerdo | 12 (20.7%) | 25 (27.2%) | 16 (29.1%) | 62 (24.9%) | 24 (29.6%) | |
| Totalmente en desacuerdo | 3 (5.17%) | 15 (16.3%) | 4 (7.27%) | 52 (20.9%) | 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.185 | |||||
| Totalmente de acuerdo | 12 (20.7%) | 16 (17.4%) | 7 (12.7%) | 39 (15.7%) | 11 (13.6%) | |
| De acuerdo | 23 (39.7%) | 17 (18.5%) | 18 (32.7%) | 66 (26.5%) | 26 (32.1%) | |
| Ni de acuerdo ni en desacuerdo | 18 (31.0%) | 38 (41.3%) | 24 (43.6%) | 87 (34.9%) | 27 (33.3%) | |
| En desacuerdo | 5 (8.62%) | 14 (15.2%) | 5 (9.09%) | 41 (16.5%) | 10 (12.3%) | |
| Totalmente en desacuerdo | 0 (0.00%) | 7 (7.61%) | 1 (1.82%) | 16 (6.43%) | 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 (65.5%) | 52 (56.5%) | 34 (61.8%) | 167 (67.1%) | 65 (80.2%) | |
| Mantengo las mismas labores, pero en un área distinta | 3 (5.17%) | 3 (3.26%) | 3 (5.45%) | 5 (2.01%) | 6 (7.41%) | |
| Mantengo las mismas labores, pero en un lugar físico distinto | 4 (6.90%) | 4 (4.35%) | 2 (3.64%) | 32 (12.9%) | 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.41%) | 1 (1.23%) | |
| Distintas labores, pero en la misma área | 8 (13.8%) | 7 (7.61%) | 3 (5.45%) | 16 (6.43%) | 4 (4.94%) | |
| Distintas labores, pero en el mismo lugar físico | 4 (6.90%) | 8 (8.70%) | 7 (12.7%) | 9 (3.61%) | 0 (0.00%) | |
| Labores, área y lugar físico distintos | 1 (1.72%) | 12 (13.0%) | 5 (9.09%) | 14 (5.62%) | 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.055 | |||||
| Excelente | 1 (1.43%) | 0 (0.00%) | 2 (3.08%) | 4 (1.37%) | 7 (7.00%) | |
| Buena | 32 (45.7%) | 35 (33.0%) | 18 (27.7%) | 105 (36.1%) | 26 (26.0%) | |
| Regular | 31 (44.3%) | 55 (51.9%) | 36 (55.4%) | 139 (47.8%) | 54 (54.0%) | |
| Mala | 6 (8.57%) | 16 (15.1%) | 8 (12.3%) | 42 (14.4%) | 12 (12.0%) | |
| Pésima | 0 (0.00%) | 0 (0.00%) | 1 (1.54%) | 1 (0.34%) | 1 (1.00%) | |
| ¿Cuán de acuerdo está con la siguiente afirmación?: “La cultura de mi organización tolera comportamientos que perjudican la salud mental de los trabajadores”.: | 0.018 | |||||
| Totalmente de acuerdo | 9 (12.9%) | 17 (16.0%) | 9 (13.8%) | 50 (17.2%) | 14 (14.0%) | |
| De acuerdo | 17 (24.3%) | 38 (35.8%) | 22 (33.8%) | 101 (34.7%) | 33 (33.0%) | |
| Neutral | 24 (34.3%) | 26 (24.5%) | 13 (20.0%) | 62 (21.3%) | 40 (40.0%) | |
| En desacuerdo | 12 (17.1%) | 18 (17.0%) | 18 (27.7%) | 55 (18.9%) | 11 (11.0%) | |
| Totalmente en desacuerdo | 8 (11.4%) | 7 (6.60%) | 3 (4.62%) | 23 (7.90%) | 2 (2.00%) | |
| En su trabajo principal, usted: | ¿Tiene que trabajar muy rápido para entregar tareas solicitadas en poco tiempo?: | 0.009 | |||||
| Siempre | 7 (10.0%) | 29 (27.4%) | 5 (7.69%) | 50 (17.2%) | 29 (29.0%) | |
| La mayoría <br>de las veces | 22 (31.4%) | 30 (28.3%) | 22 (33.8%) | 78 (26.8%) | 23 (23.0%) | |
| Algunas veces | 26 (37.1%) | 40 (37.7%) | 26 (40.0%) | 110 (37.8%) | 28 (28.0%) | |
| Sólo unas <br>pocas veces | 10 (14.3%) | 5 (4.72%) | 9 (13.8%) | 43 (14.8%) | 16 (16.0%) | |
| Nunca | 5 (7.14%) | 2 (1.89%) | 3 (4.62%) | 10 (3.44%) | 4 (4.00%) | |
| En su trabajo principal, usted: | ¿Trabaja a un ritmo acelerado durante la jornada?: | <0.001 | |||||
| Siempre | 8 (11.4%) | 33 (31.1%) | 8 (12.3%) | 39 (13.4%) | 19 (19.0%) | |
| La mayoría <br>de las veces | 16 (22.9%) | 41 (38.7%) | 25 (38.5%) | 95 (32.6%) | 29 (29.0%) | |
| Algunas veces | 34 (48.6%) | 27 (25.5%) | 23 (35.4%) | 100 (34.4%) | 36 (36.0%) | |
| Sólo unas <br>pocas veces | 8 (11.4%) | 4 (3.77%) | 5 (7.69%) | 49 (16.8%) | 11 (11.0%) | |
| Nunca | 4 (5.71%) | 1 (0.94%) | 4 (6.15%) | 8 (2.75%) | 5 (5.00%) | |
| En su trabajo principal, usted: | ¿Recibe toda la información que necesita para realizar bien su trabajo?: | 0.565 | |||||
| Siempre | 16 (22.9%) | 19 (17.9%) | 10 (15.4%) | 48 (16.5%) | 26 (26.0%) | |
| La mayoría <br>de las veces | 31 (44.3%) | 46 (43.4%) | 31 (47.7%) | 119 (40.9%) | 34 (34.0%) | |
| Algunas veces | 14 (20.0%) | 28 (26.4%) | 15 (23.1%) | 88 (30.2%) | 31 (31.0%) | |
| Sólo unas <br>pocas veces | 9 (12.9%) | 11 (10.4%) | 9 (13.8%) | 31 (10.7%) | 7 (7.00%) | |
| Nunca | 0 (0.00%) | 2 (1.89%) | 0 (0.00%) | 5 (1.72%) | 2 (2.00%) | |
| En su trabajo principal, usted: | ¿Se le exigen cosas contradictorias en el trabajo?: | 0.036 | |||||
| Siempre | 3 (4.29%) | 4 (3.77%) | 0 (0.00%) | 9 (3.09%) | 3 (3.00%) | |
| La mayoría <br>de las veces | 4 (5.71%) | 6 (5.66%) | 5 (7.69%) | 14 (4.81%) | 5 (5.00%) | |
| Algunas veces | 16 (22.9%) | 36 (34.0%) | 26 (40.0%) | 72 (24.7%) | 35 (35.0%) | |
| Sólo unas <br>pocas veces | 10 (14.3%) | 30 (28.3%) | 15 (23.1%) | 92 (31.6%) | 22 (22.0%) | |
| Nunca | 37 (52.9%) | 30 (28.3%) | 19 (29.2%) | 104 (35.7%) | 35 (35.0%) | |
| En su trabajo principal, usted: | ¿Tiene que hacer tareas que usted cree que deberían hacerse de otra manera?: | 0.020 | |||||
| Siempre | 6 (8.57%) | 8 (7.55%) | 1 (1.54%) | 16 (5.50%) | 7 (7.00%) | |
| La mayoría <br>de las veces | 12 (17.1%) | 17 (16.0%) | 14 (21.5%) | 33 (11.3%) | 15 (15.0%) | |
| Algunas veces | 20 (28.6%) | 47 (44.3%) | 28 (43.1%) | 123 (42.3%) | 34 (34.0%) | |
| Sólo unas <br>pocas veces | 17 (24.3%) | 28 (26.4%) | 14 (21.5%) | 75 (25.8%) | 19 (19.0%) | |
| Nunca | 15 (21.4%) | 6 (5.66%) | 8 (12.3%) | 44 (15.1%) | 25 (25.0%) | |
| En su trabajo principal: | Su superior directo, ¿está dispuesto a escuchar sus problemas en el trabajo?: | 0.400 | |||||
| Siempre | 38 (54.3%) | 55 (51.9%) | 32 (49.2%) | 128 (44.0%) | 42 (42.0%) | |
| La mayoría <br>de las veces | 14 (20.0%) | 32 (30.2%) | 16 (24.6%) | 87 (29.9%) | 31 (31.0%) | |
| Algunas veces | 10 (14.3%) | 9 (8.49%) | 8 (12.3%) | 41 (14.1%) | 16 (16.0%) | |
| Sólo unas <br>pocas veces | 3 (4.29%) | 9 (8.49%) | 8 (12.3%) | 21 (7.22%) | 8 (8.00%) | |
| Nunca | 5 (7.14%) | 1 (0.94%) | 1 (1.54%) | 14 (4.81%) | 3 (3.00%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su superior directo?: | 0.675 | |||||
| Siempre | 35 (50.0%) | 43 (40.6%) | 22 (33.8%) | 104 (35.7%) | 30 (30.0%) | |
| La mayoría <br>de las veces | 14 (20.0%) | 31 (29.2%) | 20 (30.8%) | 97 (33.3%) | 33 (33.0%) | |
| Algunas veces | 12 (17.1%) | 20 (18.9%) | 12 (18.5%) | 45 (15.5%) | 21 (21.0%) | |
| Sólo unas <br>pocas veces | 5 (7.14%) | 8 (7.55%) | 7 (10.8%) | 33 (11.3%) | 10 (10.0%) | |
| Nunca | 4 (5.71%) | 4 (3.77%) | 4 (6.15%) | 12 (4.12%) | 6 (6.00%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo para el trabajo de sus compañeras o compañeros de trabajo?: | 0.039 | |||||
| Siempre | 31 (44.3%) | 38 (35.8%) | 19 (29.2%) | 86 (29.6%) | 23 (23.0%) | |
| La mayoría <br>de las veces | 17 (24.3%) | 40 (37.7%) | 31 (47.7%) | 117 (40.2%) | 39 (39.0%) | |
| Algunas veces | 13 (18.6%) | 23 (21.7%) | 11 (16.9%) | 57 (19.6%) | 29 (29.0%) | |
| Sólo unas <br>pocas veces | 4 (5.71%) | 4 (3.77%) | 2 (3.08%) | 24 (8.25%) | 5 (5.00%) | |
| Nunca | 5 (7.14%) | 1 (0.94%) | 2 (3.08%) | 7 (2.41%) | 4 (4.00%) | |
| En su trabajo principal: | ¿Hay un buen ambiente entre usted y sus compañeros y compañeras de trabajo?: | 0.601 | |||||
| Siempre | 33 (47.1%) | 43 (40.6%) | 18 (27.7%) | 100 (34.4%) | 39 (39.0%) | |
| La mayoría <br>de las veces | 26 (37.1%) | 47 (44.3%) | 38 (58.5%) | 143 (49.1%) | 43 (43.0%) | |
| Algunas veces | 9 (12.9%) | 13 (12.3%) | 8 (12.3%) | 34 (11.7%) | 15 (15.0%) | |
| Sólo unas <br>pocas veces | 2 (2.86%) | 2 (1.89%) | 1 (1.54%) | 9 (3.09%) | 3 (3.00%) | |
| Nunca | 0 (0.00%) | 1 (0.94%) | 0 (0.00%) | 5 (1.72%) | 0 (0.00%) | |
| En su trabajo principal: | ¿Recibe ayuda y apoyo de su familia/amigos fuera del lugar de trabajo?: | 0.307 | |||||
| Siempre | 42 (60.0%) | 66 (62.3%) | 37 (56.9%) | 168 (57.7%) | 51 (51.0%) | |
| La mayoría <br>de las veces | 18 (25.7%) | 25 (23.6%) | 11 (16.9%) | 70 (24.1%) | 26 (26.0%) | |
| Algunas veces | 3 (4.29%) | 9 (8.49%) | 9 (13.8%) | 25 (8.59%) | 18 (18.0%) | |
| Sólo unas <br>pocas veces | 4 (5.71%) | 3 (2.83%) | 4 (6.15%) | 15 (5.15%) | 4 (4.00%) | |
| Nunca | 3 (4.29%) | 3 (2.83%) | 4 (6.15%) | 13 (4.47%) | 1 (1.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.098 | |||||
| Incorrecto | 1 (1.43%) | 0 (0.00%) | 0 (0.00%) | 1 (0.35%) | 2 (2.00%) | |
| Apenas cierto | 3 (4.29%) | 2 (1.90%) | 3 (4.62%) | 4 (1.38%) | 5 (5.00%) | |
| Más bien cierto | 18 (25.7%) | 36 (34.3%) | 25 (38.5%) | 77 (26.6%) | 22 (22.0%) | |
| Cierto | 48 (68.6%) | 67 (63.8%) | 37 (56.9%) | 207 (71.6%) | 71 (71.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.: | 0.784 | |||||
| Incorrecto | 1 (1.43%) | 0 (0.00%) | 1 (1.54%) | 1 (0.35%) | 0 (0.00%) | |
| Apenas cierto | 4 (5.71%) | 3 (2.86%) | 3 (4.62%) | 14 (4.84%) | 7 (7.00%) | |
| Más bien cierto | 21 (30.0%) | 43 (41.0%) | 27 (41.5%) | 109 (37.7%) | 36 (36.0%) | |
| Cierto | 44 (62.9%) | 59 (56.2%) | 34 (52.3%) | 165 (57.1%) | 57 (57.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.424 | |||||
| Incorrecto | 1 (1.43%) | 0 (0.00%) | 0 (0.00%) | 1 (0.35%) | 1 (1.00%) | |
| Apenas cierto | 2 (2.86%) | 3 (2.86%) | 3 (4.62%) | 6 (2.08%) | 8 (8.00%) | |
| Más bien cierto | 24 (34.3%) | 37 (35.2%) | 26 (40.0%) | 102 (35.3%) | 30 (30.0%) | |
| Cierto | 43 (61.4%) | 65 (61.9%) | 36 (55.4%) | 180 (62.3%) | 61 (61.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 |
3.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_df2_cor,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)
ggplotly(sm_bars_plot, tooltip = c("label_text"))%>%
layout(margin = list(b=103,t=100), xaxis= list(showticklabels = T), showlegend=F, width= 600, height= 800,
annotations= list(x = 0.8, y = -0.15, text = "Nota. Ítem 4 de pregunta 3 posee menor \nporcentaje debido a que no aparece en los ítems de seguimiento.",
showarrow = F, xref='paper', yref='paper',
xanchor='right', yanchor='auto', xshift=0, yshift=0,
font=list(size=10,fontfacet="italic")))%>%
htmlwidgets::onRender('function(el, x) {
$("[data-title=\'MasterCard\'] svg path").css("fill", "#7ac143");
$("[data-title=\'MasterCard\'] svg").css("width","2em");
}')#, height = 750, width=1100)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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"),
-ends_with("_num"),
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_df2_cor,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: attributes are not identical across measure variables;
## they will be dropped## 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ónfor (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(margin = list(b=103,t=100), xaxis= list(showticklabels = T), showlegend=F, width= 600, height= 800,
annotations= list(x = 0.8, y = -0.15, text = "Nota. Ítem 4 de pregunta 3 posee menor\nporcentaje debido a que no aparece en los ítems de seguimiento.",
showarrow = F, xref='paper', yref='paper',
xanchor='right', yanchor='auto', xshift=0, yshift=0,
font=list(size=10,fontfacet="italic"))
)#, height = 750, width=1100)## Warning: Removed 44 rows containing missing values (position_stack).## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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,width= 600, height= 600) %>%
layout(margin = list(b=103,t=100), xaxis= list(showticklabels = T), showlegend=F,
annotations= list(x = 0.8, y = -0.15, text = "Nota. Para casos de seguimiento, se consideraron 43 puntos\npara medir impacto dado que el ítem 4 no fue contemplado en dicha encuesta",
showarrow = F, xref='paper', yref='paper',
xanchor='right', yanchor='auto', xshift=0, yshift=0,
font=list(size=10,fontfacet="italic")))## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()req_at_smFigura 8c. Puntajes Salud mental
if(no_mostrar==1){
ggplotly(req_at_sm, tooltip = c("label_text"))%>%
layout(xaxis= list(showticklabels = T), showlegend=F,
width= 600, height= 600) %>% 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
library(reshape2) # for melt() function
library(ggplot2)
# First we need to restructure the data into long format:
#"agotamiento_estres_sin_irritabilidad_ptje", "estres_postraumatico_ptje"
ocdMelt1 <-
surveymonkey_accionsalududp_df2_cor_table[c("p45_demo_sexo", "agotamiento_estres_sin_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_sin_irritabilidad_ptje"~"Suma de Puntajes, Agotamiento y Estrés (sin Irritabilidad)",as.character(variable)=="estres_postraumatico_ptje"~"Suma de Puntajes, 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, Estrés Postraumático",
grepl("agot",variable)~"Suma de Puntajes, Agotamiento y Estrés (sin 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 8f Diarama de Cajas Preguntas Continuas (Texto Mediana e IQR)
3.3.2 Segunda Sección - Exposición a COVID-19
library(plotly)
p_9_df <-
surveymonkey_accionsalududp_df2_cor %>%
#2021-04-26
dplyr::mutate(p6_exp_c19_pac_cont=factor(dplyr::case_when(p6_exp_c19_pac_cont=="Más de 100"~"Más de 30",
p6_exp_c19_pac_cont=="Más de 100"~"Más de 30",
T~as.character(p6_exp_c19_pac_cont)),
levels=c("Ninguno", "1 a 10", "11 a 30", "31 a 100", "Más de 100"),
labels=c("Ninguno", "1 a 10", "11 a 30", "Más de 30", "Más de 30"))) %>%
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(p_9_df$p6_exp_c19_pac_cont))), "#FF5252"))) %>%
layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T),width= 600, height= 600) %>%
layout(xaxis = list(ticktext = c("Ninguno", "1 a 10", "11 a 30", "Más de 30")))%>%
layout(showlegend = FALSE) ## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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),width= 600, height= 600) %>%
layout(xaxis = list(ticktext = c("Ninguno", "Sólo uno", "2 a 10", "11 a 25", "Más de 25")))%>%
layout(showlegend = FALSE)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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","Más de 25","Más de 30"), labels=c("Ninguno", "Sólo uno", "1 a 10", "2 a 10", "11 a 25","11 a 30","Más de 25","Más de 30")))
#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"))
jpeg("Plots_general/_Fig1a_p9_10_seg.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
## 2p_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?
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), width= 600, height= 800) %>%
layout(showlegend = FALSE,autosize = T, margin=m)#, height = 750, width=1100)# margin= m,height = 750, width=950## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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(str_trim(p8_exp_c19_cerca_cont),levels=c(
"Ninguno que yo esté en \nconocimiento",
"Comparto espacios con \ntrabajadores que están en \ncontacto con pacientes",
"Tengo algún contacto con \npacientes",
"Trabajo en contacto directo \no a menos de 2 metros con \npacientes"),ordered=T))
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())
jpeg("Plots_general/_Fig1a_p8_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p8_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off()## png
## 2p8_plot
Figura 12. ¿Qué tan cercano es el contacto que usted tiene con pacientes con COVID-19?
##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_df2_cor %>%
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)) %>%
layout(margin = list(b=115,t=100), xaxis= list(showticklabels = T), showlegend=F,
height = 500, width=600,
annotations= list(x = 0.8, y = -0.35, text = "Nota. Ítems 3, 5, 9 y 10 son los únicos ítems que\ntambién aparecen en la encuesta de seguimiento",
showarrow = F, xref='paper', yref='paper',
xanchor='right', yanchor='auto', xshift=0, yshift=0,
font=list(size=10,fontfacet="italic"))
)#, height = 750, width=1100)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 13a. ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país?
#</div> , height = 600, width=800library(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, height=600, width=600) %>%
layout(margin = list(b=105,t=100), xaxis= list(showticklabels = T), showlegend=F,
annotations= list(x = 0.8, y = -0.27, text = "Nota. Ítems 3, 5, 9 y 10 son los únicos \nítems que también aparecen en la encuesta de seguimiento",
showarrow = F, xref='paper', yref='paper',
xanchor='right', yanchor='auto', xshift=0, yshift=0,
font=list(size=10,fontfacet="italic")))## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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())+
labs(caption="Nota. Ítems 3, 5, 9 y 10 son los únicos ítems que también aparecen en la encuesta de seguimiento")
jpeg("Plots_general/_Fig1a_ptjes_9_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p9_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off()## png
## 2p9_plot
Figura 13b. ¿Ha experimentado alguna de las siguientes situaciones, desde el primer caso diagnosticado en el país? (nro. respuestas)
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),height=600, width=600) %>%
layout(showlegend = FALSE)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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?
jpeg("Plots_general/_Fig1b_p10_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p10_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off()## png
## 2library(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, width=600, height=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 15. ¿Cómo califica su nivel de miedo de la situación de pandemia al día de hoy?
3.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),width=600, height=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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),width=600, height=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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)
jpeg("Plots_general/_Fig1b_p12_13_seg.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
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)
#, 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)
xFigura 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 480Figura 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.3,
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, height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 18a. ¿Ha participado en alguna capacitación sobre el uso correcto de EPP’s? (incluye Seguimiento)
#p14_contr_cont_cap_epp
#p15_contr_cont_14a_eval_cap
#p16_contr_cont_conf_epps plot_ly(data=p14_p14a2 %>% arrange(valid_percent), labels = ~p15_contr_cont_14a_eval_cap, values = ~sum, type = 'pie', hole = 0.3,
textinfo = 'text',
text = ~label,
automargin = TRUE,
sort = FALSE,
direction = "clockwise",
textfont = list(size = 13),#color = "#FF5252",
#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"))) %>%
layout(height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 18b. ¿Cómo evaluaría la eficacia de las capacitaciones recibidas para trabajar de forma segura con el COVID-19? (incluye Seguimiento)
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,height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 19. ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura? (incluye Seguimiento)
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())
jpeg("Plots_general/_Fig1a_p16_seg.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
## 2p16_df_plot
Figura 19. ¿Cuán confiado se siente al ponerse y quitarse los EPP’s de manera segura? (incluye Seguimiento)
##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),height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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=800library(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,height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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, height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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)
jpeg("Plots_general/_Fig1b_p17_seg.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
## 2library(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, height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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?
jpeg("Plots_general/_Fig1c_p18_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p18_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off()## png
## 2library(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, height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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:
jpeg("Plots_general/_Fig1d_p19_seg.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,
height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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ónmed_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)
jpeg("Plots_general/_Fig2_p20_seg.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
## 23.3.4 Quinta Sección - Preguntas sobre el entorno psicosocial del trabajo
#```{r ent_protegen, eval=T}
library(ggrepel)
ent_proteg_pers_bars<-
surveymonkey_accionsalududp_df2_cor %>%
dplyr::mutate_at(.vars=vars(c("p26_cond_trab_ent_protec_1", "p26_cond_trab_ent_protec_2", "p26_cond_trab_ent_protec_3", "p26_cond_trab_ent_protec_4")),.funs = ~if_else(as.numeric(.)>=3,1,0,NA_real_)) %>%
dplyr::select(p26_cond_trab_ent_protec_1, p26_cond_trab_ent_protec_2, p26_cond_trab_ent_protec_3, p26_cond_trab_ent_protec_4) %>%
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::mutate(label=dplyr::case_when(grepl("paritario de salud",label)~"| Comité paritario de\nsalud y seguridad.",T~label))
#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_seg.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
## 2ent_proteg_pers_bars_plots
Figura 24a. Porcentaje de Acuerdo con que Entidades están haciendo todo lo posible para proteger al personal (Sin seguimiento)
med_prev_bars<-
surveymonkey_accionsalududp_df2_cor %>%
dplyr::mutate_at(.vars=vars(starts_with("p26_cond_trab_ent_protec_")),.funs = ~as.numeric(.)) %>%
dplyr::select(p26_cond_trab_ent_protec_1, p26_cond_trab_ent_protec_2, p26_cond_trab_ent_protec_3, p26_cond_trab_ent_protec_4) %>%
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=600, width=600)#, height = 750, width=1100)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 24b. 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? (Sin seguimiento)
#surveymonkey_accionsalududp_df2_cor %>%
#janitor::tabyl(p26_cond_trab_ent_protec_2_rec) %>%
surveymonkey_accionsalududp_df2_cor %>%
rowwise() %>%
dplyr::group_by(p26_cond_trab_ent_protec_2_rec)%>%
dplyr::summarise(n=n()) %>%
dplyr::ungroup()%>%
dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p26_cond_trab_ent_protec_2_rec)])),2),
valid_percent=ifelse(is.na(p26_cond_trab_ent_protec_2_rec),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(p26_cond_trab_ent_protec_2_rec,"\n(",valid_percent,")")) %>%
dplyr::ungroup()%>%
dplyr::filter(!is.na(p26_cond_trab_ent_protec_2_rec)) %>%
plot_ly(labels = ~p26_cond_trab_ent_protec_2_rec, 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$p26_cond_trab_ent_protec_2_rec))-1),"#FF5252"))) %>%
layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>%
layout(showlegend = FALSE, height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 25. ¿En qué grado está de acuerdo con la siguiente afirmación?:La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia (Sólo seguimiento)
p26_df<-
surveymonkey_accionsalududp_df2_cor %>%
rowwise() %>%
dplyr::group_by(p26_cond_trab_ent_protec_2_rec)%>%
dplyr::summarise(n=n()) %>%
dplyr::ungroup()%>%
dplyr::mutate(p26_cond_trab_ent_protec_2_rec=stringr::str_replace(p26_cond_trab_ent_protec_2_rec,"\\<br\\>$","")) %>%
dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p26_cond_trab_ent_protec_2_rec)])),2),
valid_percent=ifelse(is.na(p26_cond_trab_ent_protec_2_rec),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(p26_cond_trab_ent_protec_2_rec,"<br>(",valid_percent,")")) %>%
dplyr::ungroup()%>%
dplyr::filter(!is.na(p26_cond_trab_ent_protec_2_rec)) %>%
dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+"))
p26_plot<-
ggplot(p26_df %>% dplyr::mutate(p26_cond_trab_ent_protec_2_rec=ifelse(grepl("ni en",p26_cond_trab_ent_protec_2_rec),"Ni de acuerdo\nni en desacuerdo",p26_cond_trab_ent_protec_2_rec)), aes(y=num_perc, x=p26_cond_trab_ent_protec_2_rec))+
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=12),
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())
jpeg("Plots_general/_Fig1g_p26_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p26_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off() ## png
## 2p26_plot
Figura 25. ¿En qué grado está de acuerdo con la siguiente afirmación?:La institución en la que trabajo ha tomado las medidas necesarias para resguardar mi salud en el actual contexto de pandemia (Sólo seguimiento)
surveymonkey_accionsalududp_df2_cor %>%
rowwise() %>%
dplyr::group_by(p34_cond_trab_tiemp_trab_rec)%>%
dplyr::summarise(n=n()) %>%
dplyr::ungroup()%>%
dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p34_cond_trab_tiemp_trab_rec)])),2),
valid_percent=ifelse(is.na(p34_cond_trab_tiemp_trab_rec),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(p34_cond_trab_tiemp_trab_rec,"\n(",valid_percent,")")) %>%
dplyr::ungroup()%>%
dplyr::filter(!is.na(p34_cond_trab_tiemp_trab_rec)) %>%
plot_ly(labels = ~p34_cond_trab_tiemp_trab_rec, 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$p34_cond_trab_tiemp_trab_rec))-1),"#FF5252"))) %>%
layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>%
layout(showlegend = FALSE, width=600, height=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 25. ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado) (incluye Seguimiento)
p34_rec_df<-
surveymonkey_accionsalududp_df2_cor %>%
rowwise() %>%
dplyr::group_by(p34_cond_trab_tiemp_trab_rec)%>%
dplyr::summarise(n=n()) %>%
dplyr::ungroup()%>%
dplyr::mutate(p26_cond_trab_ent_protec_2_rec=stringr::str_replace(p34_cond_trab_tiemp_trab_rec,"\\<br\\>$","")) %>%
dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(p34_cond_trab_tiemp_trab_rec)])),2),
valid_percent=ifelse(is.na(p34_cond_trab_tiemp_trab_rec),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(p34_cond_trab_tiemp_trab_rec,"<br>(",valid_percent,")")) %>%
dplyr::ungroup()%>%
dplyr::filter(!is.na(p34_cond_trab_tiemp_trab_rec)) %>%
dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+"))
p34_plot<-
ggplot(p34_rec_df, aes(y=num_perc, x=p34_cond_trab_tiemp_trab_rec))+
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=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())
jpeg("Plots_general/_Fig1g_p34_rec_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p34_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off() ## png
## 2p34_plot
Figura 25. ¿Cuánto tiempo ha trabajado para su actual empleo y principal? (Recodificado) (incluye Seguimiento)
p36_reasig_df<-
surveymonkey_accionsalududp_df2_cor %>%
dplyr::mutate_at(.vars=vars(c("p36_cond_trab_reasig_rec1","p36_cond_trab_reasig_rec2","p36_cond_trab_reasig_rec3")),.funs = ~as.numeric(.)) %>%
dplyr::select("p36_cond_trab_reasig_rec1", "p36_cond_trab_reasig_rec2", "p36_cond_trab_reasig_rec3") %>%
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)))
p36_reasig_df$text_label<-paste0("Código: ",p36_reasig_df$key,"<br>Etiqueta:",p36_reasig_df$V3,"<br>No. de casos: ",p36_reasig_df$sum)
p36_reasig_df_plot<-
p36_reasig_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="Cambios en el trabajo",y="Número de Respuestas\n")+
scale_x_discrete(labels=c(1:3))
ggplotly(p36_reasig_df_plot, tooltip = c("text_label"))%>% layout(xaxis= list(showticklabels = T)) %>%
layout(margin = list(b=105,t=100), height=600, width=600, xaxis= list(showticklabels = T), showlegend=F,
annotations= list(x = 0.8, y = -0.27, text = "",
showarrow = F, xref='paper', yref='paper',
xanchor='right', yanchor='auto', xshift=0, yshift=0,
font=list(size=10,fontfacet="italic")))## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 27. ¿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? (incluye Seguimiento)
surveymonkey_accionsalududp_df2_cor %>%
rowwise() %>%
dplyr::mutate_at(.vars=vars(c("p36_cond_trab_reasig_rec1", "p36_cond_trab_reasig_rec2", "p36_cond_trab_reasig_rec3")),.funs = ~as.numeric(.)) %>%
dplyr::select(c("p36_cond_trab_reasig_rec1", "p36_cond_trab_reasig_rec2", "p36_cond_trab_reasig_rec3")) %>%
#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_p36 = sum(c_across(c("p36_cond_trab_reasig_rec1", "p36_cond_trab_reasig_rec2", "p36_cond_trab_reasig_rec3")),na.rm=T)) %>%
dplyr::ungroup() %>%
dplyr::mutate(ptjes_p36=ordered(ifelse(ptjes_p36>2,"Más de 2",as.character(ptjes_p36)),
levels = c("0","1", "2", "Más de 2"))) %>%
dplyr::group_by(ptjes_p36)%>%
dplyr::summarise(n=n()) %>%
dplyr::ungroup()%>%
dplyr::mutate(ptjes_p9=stringr::str_replace(ptjes_p36,"\\<br\\>$","")) %>%
dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(ptjes_p36)])),2),
valid_percent=ifelse(is.na(ptjes_p36),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_p36,"<br>(",valid_percent,")")) %>%
dplyr::ungroup()%>%
dplyr::filter(!is.na(ptjes_p36)) %>%
plot_ly( labels = ~ptjes_p36, 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, width=600, height=600) %>%
layout(margin = list(b=105,t=100), xaxis= list(showticklabels = T), showlegend=F,
annotations= list(x = 0.8, y = -0.27, text = "",
showarrow = F, xref='paper', yref='paper',
xanchor='right', yanchor='auto', xshift=0, yshift=0,
font=list(size=10,fontfacet="italic")))## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 27. ¿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? (incluye Seguimiento)
ptjes_p36_df_2<-
surveymonkey_accionsalududp_df2_cor %>%
rowwise() %>%
dplyr::mutate_at(.vars=vars(c("p36_cond_trab_reasig_rec1", "p36_cond_trab_reasig_rec2", "p36_cond_trab_reasig_rec3")),.funs = ~as.numeric(.)) %>%
dplyr::select(c("p36_cond_trab_reasig_rec1", "p36_cond_trab_reasig_rec2", "p36_cond_trab_reasig_rec3")) %>%
#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_p36 = sum(c_across(c("p36_cond_trab_reasig_rec1", "p36_cond_trab_reasig_rec2", "p36_cond_trab_reasig_rec3")),na.rm=T)) %>%
dplyr::ungroup() %>%
dplyr::mutate(ptjes_p36=ordered(ifelse(ptjes_p36>2,"Más de 2",as.character(ptjes_p36)),
levels = c("0","1", "2", "Más de 2"))) %>%
dplyr::group_by(ptjes_p36)%>%
dplyr::summarise(n=n()) %>%
dplyr::ungroup()%>%
dplyr::mutate(ptjes_p9=stringr::str_replace(ptjes_p36,"\\<br\\>$","")) %>%
dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(ptjes_p36)])),2),
valid_percent=ifelse(is.na(ptjes_p36),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_p36,"<br>(",valid_percent,")")) %>%
dplyr::ungroup()%>%
dplyr::filter(!is.na(ptjes_p36)) %>%
dplyr::mutate(num_perc=readr::parse_number(valid_percent, "\\d+"))
p36_plot<-
ggplot(ptjes_p36_df_2 %>% dplyr::filter(!is.na(ptjes_p36)), aes(y=num_perc, x=ptjes_p36))+
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_p36_df_2$num_perc,na.rm=T)+15)+
ylab("Porcentaje de Respuesta")+
xlab("Cambios en el trabajo")+
# 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())+
labs(caption="")
jpeg("Plots_general/_Fig1e_p36_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p36_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off()## png
## 2p36_plot
Figura 27. ¿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? (incluye Seguimiento)
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', 'Pésima'),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, height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 27. ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (incluye Seguimiento)
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', 'Pésima'),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("Pésima","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())
jpeg("Plots_general/_Fig1f_p38_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p38_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off()## png
## 2p38_plot
Figura 27. ¿Cómo calificaría la salud psicológica de las personas con las que trabaja en su lugar de trabajo principal? (incluye Seguimiento)
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,height=600, width=600)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()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 (incluye Seguimiento)
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())
jpeg("Plots_general/_Fig1g_p39_seg.jpg", height = 7, width = 11.5, units = 'in', res = 600)
p39_plot+ theme(plot.background = element_rect(fill=NA, color = NA))
dev.off()## png
## 2p39_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 (incluye Seguimiento)
#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) %>%
layout(margin = list(b=105,t=100), xaxis= list(showticklabels = T), showlegend=F,
annotations= list(x = 0.8, y = -0.27, text = "Nota. ítems número 3 y 10 deben ser descartados por baja comunalidad con el resto de los ítems.",
showarrow = F, xref='paper', yref='paper',
xanchor='right', yanchor='auto', xshift=0, yshift=0,
font=list(size=10,fontfacet="italic")))Figura 29a. Gráfico de Barras, Preguntas Sobre Condiciones Psicosociales del Trabajo (incluye Seguimiento)
#, 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_01istas_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= 600, width=600)#, height = 750, width=1100)## Warning: Specifying width/height in layout() is now deprecated.
## Please specify in ggplotly() or plot_ly()Figura 29b. Gráfico de Barras, Preguntas Sobre Condiciones Psicosociales del Trabajo (Dicotomizada) (incluye Seguimiento)
#_:#:#:#:#::#:#:#:#:#:#:#:
#_:#:#:#:#::#:#:#:#:#:#:#:#_:#:#:#:#::#:#:#:#:#:#:#:
#_:#:#:#:#::#:#:#:#:#:#:#:#_:#:#:#:#::#:#:#:#:#:#:#:#_:#:#:#:#::#:#:#:#:#:#:#:
#_:#:#:#:#::#:#:#:#:#:#:#:#_:#:#:#:#::#:#:#:#:#:#:#:
#_:#:#:#:#::#:#:#:#:#:#:#:
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~"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 = 14, face = "bold"),
axis.text.x= element_text(size = 14),
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 = 13.5),
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())
jpeg("Plots_general/_Fig1g_p40_seg.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
## 2istas_bars_plot3
Figura 29b. Gráfico de Barras, Preguntas Sobre Condiciones Psicosociales del Trabajo (Dicotomizada) (incluye Seguimiento)
3.3.5 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 30a. Gráfico de Barras, Preguntas Sobre Resiliencia (incluye Seguimiento)
#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_01library(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 (incluye Seguimiento)
4 Compilación
4.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=="Seguimiento gral",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_sin_irritabilidad_q75=factor(dplyr::case_when(agotamiento_estres_sin_irritabilidad_ptje>=375~
"Cuartil de mayor ptje. Agotamiento y Estrés (Sin irritabilidad)",is.na(agotamiento_estres_sin_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(-(resp_id:correo_final)) %>%
dplyr::select(-n_1,-na.rm,-mismo_valor_correos, -n_dis_surv,-n_inst) %>%
janitor::clean_names()
#p26_rec->
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 NULLattr(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_sin_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)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$valoracion_agrupacion_criterio_estricto_inclusivo,"label")<-'Valoración hecha por el equipo de las profesiones (criterio estricto, difíciles de clasificar serán Otros)'
attr(surveymonkey_accionsalududp_df2_cor_sel_2$valoracion_agrupacion_criterio_laxo_inclusivo_no_puede_haber_otros,"label")<-'Valoración hecha por el equipo de las profesiones (criterio laxo, no puede haber Otros)'
#surveymonkey_accionsalududp_df2_cor_sel_2$valoracion_agrupacion_criterio_laxo_inclusivo_no_puede_haber_otros
#surveymonkey_accionsalududp_df2_cor_sel_2$valoracion_agrupacion_criterio_estricto_inclusivo
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")))
}
#Es esperable obtener este error
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_seg.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_seg.csv"),
na="")
rio::export(
surveymonkey_accionsalududp_df2_cor_sel_2 %>%
dplyr::select(rn, inst, correo_final_comp, 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_03, p9_exp_c19_exp_sit_dg_05, p9_exp_c19_exp_sit_dg_09, p9_exp_c19_exp_sit_dg_10, p10_exp_c19_preocupa_llevar, p11_exp_c19_miedo_pand, p14_contr_cont_cap_epp, p15_contr_cont_14a_eval_cap, p16_contr_cont_conf_epps, p28_cond_trab_sis_trab, p32_cond_trab_est, p33_cond_trab_sit_cont, p34_cond_trab_tiemp_trab_rec, p36_cond_trab_reasig_rec1, p36_cond_trab_reasig_rec2, p36_cond_trab_reasig_rec3, 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, p43_demo_edad_rec, p44_demo_educacion, p45_demo_id_personal_1, p45_demo_id_personal_2, p45_demo_id_personal_3, p45_demo_id_personal_5, p45_demo_id_personal_6, p45_demo_id_personal_7, p48_demo_zona, p49_demo_comuna_trabajo),
paste0(getwd(),"/___historial_data_exp/",input2,"_",sub("-","_",sub("-","_",substr(Sys.time(),1,10))),"_bd_accionsalud_ins_solo_seg.dta"))
save.image("__accion_salud_exp_post_crash_seg.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_seg.RData")
ExPanDaR::ExPanD(df= surveymonkey_accionsalududp_df2_cor_sel_2, cs_id = "rn",title = "Datos Encuesta Acción Salud UDP (con Seguimiento)")
#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)4.2 Libro de Códigos
El libro de códigos puede encontrarse aquí, y el resto de material exploratorio puede encontrarse aquí.
4.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/RtmpgFMDUB/renv-system-library"rstudioapi::getSourceEditorContext()## Document Context:
## - id: '84CD7623'
## - path: 'C:/Users/andre/Google Drive/AccionSaludUDP_win/Explorar_Datos_seguimiento.Rmd'
## - contents: <6836 rows>
## Document Selection:
## - [6789, 1] -- [6789, 1]: ''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.5unlink("*_cache", recursive = T, force = T, expand = TRUE)