Atividade 4 - Variáveis Qualitativas

Base de dados - Questionário Estresse

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

Questionario_Estresse$Mora_pais <-ifelse(Questionario_Estresse$Mora_pais ==1,"Mora com os pais","Não mora com os pais")
Questionario_Estresse$Trabalha <-ifelse(Questionario_Estresse$Trabalha ==1,"Trabalha","Não trabalha")

Gráfico de barras da variável Trabalha x Mora pais

library(dplyr)
library(flextable)

tabela_trabalha <- table(Questionario_Estresse$Mora_pais, Questionario_Estresse$Trabalha)
tabela_trabalha

                      
                       Não trabalha Trabalha
  Mora com os pais               27       17
  Não mora com os pais           32       19

prop.table(tabela_trabalha, 1) %>% round(digits = 2)

                      
                       Não trabalha Trabalha
  Mora com os pais             0.61     0.39
  Não mora com os pais         0.63     0.37

prop.table(tabela_trabalha, 2) %>% round(digits = 2)

                      
                       Não trabalha Trabalha
  Mora com os pais             0.46     0.47
  Não mora com os pais         0.54     0.53

tabela_trabalho2 <- table (Questionario_Estresse$Mora_pais,Questionario_Estresse$Trabalha)
barplot(tabela_trabalho2,beside = T, col=c('pink',"skyblue"),
        ylim = c(0, 60), legend.text = rownames(tabela_trabalho2))

Tabela variáveis Trabalha x Mora pais

library(dplyr)
library(flextable)

tabela_trabalha %>% 
  prop.table(2) %>% 
  round(digits = 2) %>% 
  data.frame() %>% 
  flextable() %>% 
  set_header_labels(Var1="Trabalha",Var2="Mora com os pais",Freq="Percentual") %>%
  #bg(bg = "#EFEF99")
  theme_tron()

Tabela com proporções

library(dplyr)
library(flextable)

tabela_trabalha %>%
  prop.table(1) %>%
  data.frame() %>%
  rename(Trabalha=Var1) %>%
  rename(Mora_pais=Var2) %>%
  rename(Percentual=Freq) %>%
  flextable() %>%
  bg(bg = "#EFEF99") %>%
  theme_vader()

Análise do gráfico e tabelas:

Este questionário é resultado de uma pesquisa realizada com 95 alunos de duas turmas de psicologia para analisar o grau de estresse dos alunos. Dentre as variáveis consideradas na pesquisa estão trabalhar e morar com os pais.

A partir do cruzamento dessas duas informações, chegamos a conclusão que:

59 alunos não trabalham e 36 alunos trabalham;

44 alunos moram com os pais e 51 alunos não moram com os pais;

Além disso, em termos percentuais, temos que: 46% dos alunos moram com os pais e não trabalham; 54% dos alunos não moram com os pais e também não trabalham.

A partir do gráfico, podemos perceber que a maioria dos alunos participantes do questionário não trabalham e não moram com os pais, representando 54% dos alunos.