Carregar o banco de Dados - Questionário Estresse

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/KESIA/Desktop/KESIA/Kesia/UFF/1 PERIODO/ESTATISTICA/mestrado_eng/Base_de_dados-master/Questionario_Estresse.xls")

Questionario_Estresse$Trabalha <-ifelse(Questionario_Estresse$Trabalha ==1,"Trabalha","Não Trabalha")
Questionario_Estresse$RJ <-ifelse(Questionario_Estresse$RJ ==1,"Natural do RJ","Não natural do RJ")

Média e Desvio Padrão

Quantitativa = Alunos
Qualitativa = Trabalha
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(flextable) 

Questionario_Estresse %>% select(Aluno,Trabalha) %>%
  group_by(Trabalha) %>%
  summarise(Média=round(mean(Aluno),1),
           'Desvio Padrão' = round(sd(Aluno),1))%>%
  flextable() %>%
  theme_vader()
Como apresenta na tabela acima, para essa estatísca vemos a quantidade de alunos que trabalha e que não trabalha. Temos a média de 49,3% dos alunos que não trabalham e 45,9% dos alunos que trabalham, tendo assim quase uma mediana entre os valores. No desvio padrão, temos um grau de dispersão maior dos alunos que trabalham sendo 32,1. E dos alunos que não trabalham temos um desvio menor, sendo 24,6.

Boxplot

Quantitativa = Alunos
Qualitativa = Natural do RJ
boxplot(Questionario_Estresse$Aluno ~ Questionario_Estresse$RJ,
        col=c("pink","yellow"),
        main= "Boxplot dos Alunos Natural do RJ",
        ylab = "Alunos da Turma",
        xlab = "Alunos do RJ")

Como apresenta no boxplot acima, para essa estatísca vemos que a quantidade de alunos que não são natural do RJ é maior do que os alunos que são naturais do RJ. Temos um total de 95 alunos na turma e podemos ver no boxplot a esquerda na cor “pink” sua marcação esta entre 40 à 60 alunos e na direita no boxplot da cor “yellow” temos a sua marcação bem mais abaixo entre 20 à 40 alunos.

Conclusão

Com base nessas informações, podemos concluir que em uma turma de 95 alunos no total, vimos que a maior parte (49,3%) desses alunos não trabalham e também que a maior parte não é natural do Rio de Janeiro.