Atividade 5- Qualitativa x Quantitativa

Importando base de dados do Questionáio Estresse

library(readxl)

## Warning: package 'readxl' was built under R version 4.0.5

QE <- read_excel("C:/Users/welington/Desktop/POSCIVIL/Base_de_dados-master/Questionario_Estresse.xls", 
                 sheet = "Dados")
View(QE)

Corrigindo Variável

QE$Trabalha<-ifelse(QE$Mora_pais==1,"Sim","Não")

Análisando os (média e desvio padrão)

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.0.5

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

## Warning: package 'flextable' was built under R version 4.0.5

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

Boxplot

par(bg="white")
boxplot(Estresse~Mora_pais,data=QE,col=c("red","Yellow"),
        ylim=c(10,50),xlab= "Mora",
        ylab="Nível de Estresse",main="Nível estresse X Moradia ")

Comentários

A atividade analisada acima foi Mora no pais sim ou não mora no país os dados quantitativos Estresse Pode-se fazer um resumo,onde se constatou as média de quantos moram no país que é aproximadamnete 28,11, não moram no país 27,56, com desvio padrão sim= 7.16 e não= 7.91