Introdução

O objetivo desta atividade é demostrar através de tabela, tabela de proporção e gráfico uma análise entre a relação de duas variáveis qualitativas.

Base de dados

library(readxl)
Questionario_Estresse <- read_excel("Aula de Estatistica/Questionario_Estresse.xls")
View(Questionario_Estresse)

Transformação

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

Tabela

Tabela 1 - Mora com pais

table(Questionario_Estresse$Mora_pais)
## 
##     mora Não mora 
##       51       44

Tabela 2 - Trabalha

table(Questionario_Estresse$Trabalha)
## 
## Não trabalha     Trabalha 
##           36           59

Tabela final - Relacão entre tabelas

tabela_Mora<-table(Questionario_Estresse$Mora_pais,Questionario_Estresse$Trabalha)
tabela_Mora
##           
##            Não trabalha Trabalha
##   mora               19       32
##   Não mora           17       27

Tabela de proporção das variáveis relacionadas

round(prop.table(tabela_Mora)*100,2)
##           
##            Não trabalha Trabalha
##   mora            20.00    33.68
##   Não mora        17.89    28.42

Gráfico

grafico_1 =barplot(tabela_Mora,main = "Relação entre variáveis Mora com pais e Trabalha",
        col = c("violet","yellow"),
        horiz = FALSE,beside = TRUE,
        legend = rownames(tabela_Mora),
        ylim = c(0,55),
        args.legend = list(x = "top"))

contagem = (tabela_Mora)
rotulo = paste0(contagem)
text(grafico_1, 0, rotulo, pos = 3, col = "black")

Interpretação

Através dos dados apresentados com relação das variáveis mora com pais e trabalha, podemos compreender que de acordo com as tabelas apresentadas, de um total de 51 que mora com os pais, 19 não trabalha de um total de 36 que não trabalha e 32 trabalha de um total de 59 que trabalha. Agora de um total de 44 que não mora com pais, 17 não trabalha do total de 36 e 27 trabalha do total de 59.
Com isso, podemos compreender que a quantidade de pessoas que mora com os pais e trabalha é muito superior ao restante. Desta forma, possui uma proporção de 33% e os demais 20% (mora e não trabalha), 17% (não mora e não trabalha) e 28% (não mora e trabalha). Concluindo assim, através das observações demostradas, isto é, a tabela e o gráfico que demostra o que estar na tabela de forma visual, podemos compreender que não é só por que trabalha que deixa de mora com os pais, possui outros fatores que influencia nessa mudança.