Atividade 4 - Variáveis Qualitativas

Alunos das turmas 2007 e 2008

Questionário do Estresse

Neste trabalho utilizamos uma Base de Dados chamada Questionário do Estresse, indicada pelo Professor Steven Ross. Nas tabelas foram utilizadas as variáveis: Moram com os pais x Trabalhando e Namorando.

library(readxl)
Quest_Estresse <- read_excel("C:/Users/a/Downloads/Base_de_dados-master/Base_de_dados-master/Questionario_Estresse.xls")
View(Quest_Estresse)
Quest_Estresse$Mora_pais <- ifelse(Quest_Estresse$Mora_pais == 1,"Mora", "Não Mora")
Quest_Estresse$Trabalha = ifelse(Quest_Estresse$Trabalha == 1,"Trabalha", "Não Trabalha")
Quest_Estresse$Namorado_a = ifelse(Quest_Estresse$Namorado_a == 1,"Namora", "Não Namora")

Tabela: Moram com os pais x Trabalhando

tabela_Trabalha <- table(Quest_Estresse$Trabalha,Quest_Estresse$Mora_pais)
tabela_Trabalha

##               
##                Mora Não Mora
##   Não Trabalha   27       32
##   Trabalha       17       19

library(dplyr)
library(flextable)
tabela_Trabalha %>%
   prop.table(1) %>% 
  round(digits = 2) %>% 
  data.frame()  %>% 
  flextable() %>%
  set_header_labels(Var1="Trabalha",Var2="Mora com os pais",Freq="Percentual") %>%
  theme_vader()

Gráfico: Moram com os pais x Trabalhando

tabela_Trabalha2 <- table(Quest_Estresse$Mora_pais,Quest_Estresse$Trabalha)
tabela_Trabalha

##               
##                Mora Não Mora
##   Não Trabalha   27       32
##   Trabalha       17       19

barplot(tabela_Trabalha2,beside=T,col=c("white","black"),
        main=" Alunos: Moram com os pais x Trabalho",
        ylim =c(0,40), legend.text = rownames(tabela_Trabalha2))

Conforme demonstrado na tabela e gráfico dos que Moram com os pais:

54% Não tralhalha e não mora com os pais; 46% Não trabalha, mas mora com os pais;

53% Trabalham e não moram com os pais;
47% Trabalham e moram com os pais.

Analisando as duas informações podemos constatar que a maioria dos alunos não trabalham e não moram com os pais.

Tabela: Moram com os pais x Namorando

tabela_namorando <- table(Quest_Estresse$Namorado_a,Quest_Estresse$Mora_pais)
tabela_namorando

##             
##              Mora Não Mora
##   Namora       19       28
##   Não Namora   25       23

library(dplyr)
library(flextable)
tabela_namorando %>% 
  prop.table(1) %>% 
  round(digits = 2) %>% 
  data.frame()  %>% 
  flextable() %>%
  set_header_labels(Var1="Namorando",Var2="Mora com os pais",Freq="Percentual") %>%
  theme_vader()

Gráfico: Moram com os pais x Namorando

tabela_namorando2 <- table(Quest_Estresse$Mora_pais,Quest_Estresse$Namorado_a)
tabela_Trabalha

##               
##                Mora Não Mora
##   Não Trabalha   27       32
##   Trabalha       17       19

barplot(tabela_namorando2,beside=T,col=c("white","black"),
        main=" Alunos: Moram com os pais x Namorando",
        ylim =c(0,40), legend.text = rownames(tabela_namorando2))

Conforme demonstrado na tabela e gráfico dos que Moram com os pais:

48% não namoram e não moram com os pais 52% não namoram e moram com os pais

60% namoram e não moram com os pais 40% namoram e moram com os pais

Através das informações verificadas no gráfico e tabela vemos que os que não moram com os pais tem namorados(as).