Carregar base de dados

library(readxl)
QE <- read_excel("D:/_Mestrado Civil UFF/Estatistica_Aplicada/Base_de_dados-master/Questionario_Estresse.xls")

Corrigir variável

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

Carregar pacotes adicionais

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)

Análise de variáveis qualitativa x quantitativa

Média e desvio padrão por grupo

QE %>% select(Trabalha,Estresse) %>%
  group_by(Trabalha) %>% 
  summarise(média=mean(Estresse),
            desvio_padrao=sd(Estresse)) %>%
  flextable()

Gráfico Boxplot

par(bg="white")
boxplot(Estresse~Trabalha,data=QE,col=c("lightblue","pink"),
        ylim=c(10,50),xlab= "Trabalha?",
        ylab="Nível de Estresse",main="Nível de estresse de pessoas que trabalham")

Nessa atividade foram analisados os dados que apresentam os níveis de estresse considerando uma série de variávies. Para esse estudo especificamente, foi feita a análise do nível de estresse entre as pessoas que trabalham.

Com base nessa variável, foi obsservado que as médias e os desvios padrão ficaram muito próximos, não sendo possível concluir se as pessoas que trabalham apresentam nível mior de estresse.