Carregando base de dados

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

Corrigindo variáveis

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

Média e desvio padrão

library(dplyr)
library(flextable)
QE %>% select(Estresse,Trabalha) %>% group_by(Trabalha) %>%
  summarise(Média=mean(Estresse),
            'Desvio padrão'=sd(Estresse)) %>%
  flextable()

Boxplot

boxplot (Estresse~Trabalha,data=QE,col= c("springgreen","skyblue"),
         main= "Relação entre Estresse e Trabalho")

Considerações finais

Através do da base de dados Questionário Estresse (QE) foram analisadas as variáveis Estresse e Trabalha, sendo classificadas como quantitativa e qualitativa, respectivamente. Para quem não trabalha a média de estresse foi 27,93220, com um desvio padrão de 7,380927, porém quem trabalha obteve uma média de 27,63889, com um desvio de 7,896302. Analisando o gráfico boxplot, nota-se que a mediana de quem trabalha é menor do que daqueles que não trabalham e também não há a presença de outliers.