Importando base de dados Questionario_Estresse

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

Corrigindo variável

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

Análise quali x quanti (média e desvio padrão)

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

Boxplot por grupos

par(bg="gray")
boxplot(Estresse~Mora_pais,data=QE,col=c("red","royalblue"),
        ylim=c(10,45),xlab= "Mora no País",
        ylab="Nível de Estresse",main=" Estresse x Mora no País")

Comentários

Realizou-se nesta atividade uma análise de uma variável qualitativa (mora no país - “Sim” ou “não”) por uma variável quantitativa discreta (Estresse = [12,…,44]).

Através do resumo numérico, constatou-se que a média de estresse de quem mora no país é de aproximadamente 28.11 ± 7.16 e a de quem não mora é de aproximadamente 27.57 ± 7.92.

quantile(QE$Estresse, probs = c(0,0.25,0.5,0.75,1))
  0%  25%  50%  75% 100% 
12.0 22.5 27.0 33.0 44.0

Através do gráfico boxplot, constatou-se que as medianas de estresse são parecidas entre aqueles que moram ou não no país. Constatou-se também a ausência de outliers. Um dado interessante extraído da interpretação do boxplot é a alta concentração no segundo quartil (intervalo de estresse: 22.5 e 27.0) entre aqueles que moram no país.