Introdução

-> Importando Base de Dados

Foi importada a base de dados “Questionario_Estresse.xls”. Diante dessa importação, foi apresentada algumas variáveis, onde foram escolhidas as variáveis qualitativas turma e mora_pais.

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

Questionario_Estresse$Mora_pais <-
  ifelse(Questionario_Estresse$Mora_pais==1, "Sim", "Nao")

library(flextable)
library(dplyr)

library(DT)
datatable(Questionario_Estresse)

-> Tabela em Números Absolutos

Em seguida, foi desenvolvida uma tabela em números absolutos, que representam nas turmas 1, 2 e 3, a quantidade de alunos que moram ou não com os pais.

tabela_Mora_pais <- table(Questionario_Estresse$Turma, Questionario_Estresse$Mora_pais)
tabela_Mora_pais
##    
##     Nao Sim
##   1  16  12
##   2  19  13
##   3  16  19

-> Tabela de Proporção

Nessa tabela de proporção é apresentado o percentual dos alunos, de cada turma, que moram com os pais ou não.

prop_Mora_pais <- prop.table(tabela_Mora_pais,1)
round(prop_Mora_pais*100,1)
##    
##      Nao  Sim
##   1 57.1 42.9
##   2 59.4 40.6
##   3 45.7 54.3

-> Tabela Personalizada

Na terceira tabela, é visto, com mais clareza, as seguintes informações: turma, mora ou não com os pais e sua porcentagem.

minha_tabela <- table(Questionario_Estresse$Turma, Questionario_Estresse$Mora_pais) %>%
  prop.table(1) %>% round (2) %>% data.frame()

minha_tabela <- minha_tabela %>% rename(Turma=Var1, Mora_Pais=Var2, Percentual=Freq)

minha_tabela %>% flextable() %>% theme_zebra()

-> Gráfico de Barras

Além disso, foi desenvolvido um gráfico de barras para a melhor visualização das informações contidas nas tabelas acima.

tabela_1 <- table(Questionario_Estresse$Turma, Questionario_Estresse$Mora_pais)

barplot(tabela_1,beside=TRUE, col=c("#FF0000","#FF4500", "#FF8C00"),
        horiz = FALSE,
        legend.text = rownames(tabela_1),
        args.legend = list(x="topright"),
        main = "Gráfico - Alunos que Moram Com os Pais")

Conclusão

Diante das informações apresentadas, pode-se analisar que, na turma 1, existem mais alunos que não moram com os pais (57%) do que alunos que moram com os pais (43%). Na turma turma 2, também, existem mais alunos que não moram com os pais (59%), do que alunos que moram com os pais (41%). Já na turma 3, existem mais alunos que moram com os pais (54%), do que alunos que não moram com os pais (46%).

Logo, pode-se afirmar, diante dessa análise final, que existem mais alunos que não moram com os pais do que alunos que moram com os pais.