Carregar banco de dados

library(readxl)
QE <- read_excel("C:/Users/Aline/Desktop/Base_de_dados-master/Questionario_Estresse.xls")

Corrigir variável

QE$Trabalha<-ifelse(QE$Trabalha==1,"SIM","NÃO")

Análise qualitativa x quantitativa

média e desvio padrão

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(flextable)
QE %>% select(Trabalha,Estresse) %>% group_by(Trabalha) %>% 
  summarise(média=mean(Estresse),
            desvio_padrao=sd(Estresse)) %>%
  flextable()

Boxplot

par(bg="snow")
boxplot(Estresse~Trabalha,data=QE,col=c("tomato","yellow"),
        ylim=c(10,50),xlab= "Trabalha?",
        ylab="Estresse",main="Níveis de Estresse em pessoas que trabalham")

Consideramos, para efeito da presente análise, o banco de dados “Estresse” e variável “Trabalha”.

De acordo com a tabela acima, as médias e os desvios padrões se monstram consideravelmente próximos, portanto, não esclarecendo de forma concreta a relação de estresse com trabalho.