Importando base de dados Questinario_Estresse

library(readxl)
QE <- read_excel("Base_de_dados-master/Questionario_Estresse.xls")
View(QE)

Corrível variável

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

Análise qualixquanti (média e desvio padrão)

library(flextable)
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(magrittr)
library(knitr)
library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.2     v stringr 1.4.0
## v tidyr   1.1.3     v forcats 0.5.1
## v readr   1.4.0
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x purrr::compose()   masks flextable::compose()
## x tidyr::extract()   masks magrittr::extract()
## x dplyr::filter()    masks stats::filter()
## x dplyr::lag()       masks stats::lag()
## x purrr::set_names() masks magrittr::set_names()
QE %>% select(Mora_pais, Estresse) %>% group_by(Mora_pais) %>%
  summarise(media=mean (Estresse), 
            desvio_padrao=sd (Estresse)) %>% 
flextable()

Boxplot por grupos

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")