Introdução

Análise de duas variáveis categóricas: “Mora_pais” e “Trabalha”, na base de dados “Questionario_Estresse.xls”.

Carregando a base da dados, e tratamento dos dados

library(readxl)
QEstresse <- read_excel("C:/Users/Ronaldo/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
QEstresse$Mora_pais <- ifelse(QEstresse$Mora_pais==1, "Mora com os pais","Não mora com os pais")
QEstresse$RJ <- ifelse(QEstresse$RJ==1, "É do RJ","Não é do RJ")
QEstresse$Namorado_a <- ifelse(QEstresse$Namorado_a==1, "Namora","Não_Namora")
QEstresse$Trabalha <- ifelse(QEstresse$Trabalha==1, "Trabalha","Não Trabalha")

Tabela de númros absolutos com flextable

library(flextable) 
library(dplyr) 
table(QEstresse$Mora_pais, QEstresse$Trabalha) %>% data.frame() %>% flextable() %>% theme_tron()
tab1 <- table(QEstresse$Mora_pais, QEstresse$Trabalha)

Tabela de proporção com flextable

table(QEstresse$Mora_pais, QEstresse$Trabalha) %>% prop.table(1) %>% round(2) %>% 
  data.frame() %>% flextable() %>% theme_tron()

Gráfico de barras por grupo

barplot(tab1,beside=TRUE, col=c("red","royalblue"),
        horiz = TRUE,
        legend.text = rownames(tab1),
        args.legend = list(x = "topright"),
        main="Gráfico 1 - Mora com os pais x Trabalha")

Conclusão

  Conclui-se através da primeira tabela de números absolutos que dentre toda a amostra há maior numero de alunos que não mora com os pais e não trabalha simultaneamente e uma menor qualtidade de alunos que mora com os pais e trabalha, o que nos leva a concluir que se levantarmos uma hipótes de que alunos que não moram com os pais trabalham (o que ocorre normalmente), nessa amostra, essa hipótese seria falsa.

  A tabela de proporção deixa claro que a menor taxa é a de alunos que não mora com os pais e trabalham, o que é incomum de se supor, uma vez que é normal levantar a hipótese que alunos que não moram com os pais tem uma maior chance de trabalhar, visto que não tem o amparo financeiro dos pais, no entanto,atravéz dessa amostra não podemos concuir isso.

  Observa-se através do gráfico de barras por grupo que a maioria dos alunos não trablham, e dado os que não trabalham, a maioria não mora com os pais e dado os que trabalham, a maioria não mora com os pais. Desta maneira, comcluimos que dentre todos os alunos, seja que trabalha ou não trabalha, a maioria não mora com os pais.