Importar a base de dados

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

Corrigindo as variáveis

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

Média e Desvio padrão

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

Boxplot

par(bg="#cccccc")
boxplot(Estresse~RJ,data=QE,col=c("skyblue","skyblue"),
        ylim=c(0,50),xlab= "Mora no Rio",
        ylab="Estresse",main=" Estresse x Mora no RJ")

Através da análise de variáveis quantitativa e qualitativa, podemos concluir: O Desvio padrão de pessoas que não moram no Rio é de 7.719449 e pessoas que moram no Rio é de 7.293366. Enquanto a média de estresse para pessoas que não moram no Rio é 28.01613 e 27.45455 para moradores do Rio.

O gráfico bloxplot também mostra que a maioria das pessoas que não moram no Rio estão entre o primeiro e segundo quartil, enquanto as que moram no Rio, em sua maioria estão entre no segundo e terceiro quartil, logo podemos concluir que apesar da média de estresse ser parecido, quem mora no Rio, em sua maioria é mais estressado do que quem mora fora.