Carregar Banco de Dados

library(readxl)
Estres <- read_excel("C:/Users/Marcus Tulio/Desktop/MESTRADO2022_1/DISCIPLINAS/Estatistica/Mestrado_engenharia/Base_de_dados-master/Base_de_dados-master/Questionario_Estresse.xls", 
                     sheet = "Dados")
View(Estres)

Perguntas:

Moram com os pais somente os alunos que nasceram no RJ? Moram sem os pais apenas os alunos que trabalham além de estudar?

Variáveis:

Variável de interesse: mora_pais Preditores lineares: RJ e Trabalham

Análise dos alunos que Nasceram no RJ - 1(sim) e 2(não) e Moram com os pais - 1(sim) e 2(não)

tabela_RJ <- table(Estres$RJ,Estres$Mora_pais)
tabela_RJ
##    
##      1  2
##   1 30  3
##   2 14 48
prop.table(tabela_RJ,1)
##    
##              1          2
##   1 0.90909091 0.09090909
##   2 0.22580645 0.77419355
library(dplyr)
library(flextable)
tabela_RJ %>% 
  prop.table(1) %>% 
  round(digits = 2) %>%
  data.frame() %>%
  rename(NasceramRJ=Var1) %>%
  rename(MoracomPais=Var2) %>%
  rename(Percentual=Freq) %>%
  flextable() %>%
  #bg(bg = "#EFEF99")
  theme_vader()

Concluiu-se que 91% dos alunos que nasceram no RJ moram com os pais. E a 77% dos que não nasceram no RJ não moram com os pais.

Análise dos alunos que trabalham e estudam - 1(sim) e 2(não) e Moram com os pais - 1(sim) e 2(não)

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


  prop.table(tabela_trabalha,1) %>% round(digits = 2) %>% data.frame() %>%  flextable() %>% theme_vader()

Outrossim, concluiu-se também que a maioria (53%) dos alunos os quais trabalham não moram com os pais.

Análise por alunos que nasceram no RJ

Abaixo temos duas tabelas simples de proporção

tabela_RJ <- table(Estres$RJ,Estres$Mora_pais)
tabela_RJ
##    
##      1  2
##   1 30  3
##   2 14 48
prop.table(tabela_RJ,1)
##    
##              1          2
##   1 0.90909091 0.09090909
##   2 0.22580645 0.77419355
prop.table(tabela_RJ,2)
##    
##              1          2
##   1 0.68181818 0.05882353
##   2 0.31818182 0.94117647

Abaixo temos a primeira tentativa do gráfico de barras

barplot(tabela_RJ,beside=T,
        main="Superioridade dos Cariocas que moram com pais",
        col=c("orange","yellow","skyblue","green"))

Versão Final do Gráfico de Barras

tabela_trabalha <- table(Estres$Trabalha,Estres$Mora_pais)
barplot(tabela_trabalha,beside = T,col = c("blue","green"),
        ylim=c(0,50),legend.text = row.names(tabela_trabalha))

Conclusão:

 Observa-se que 91% dos alunos os qauis nasceram no RJ moram com os pais. E a 77% dos que não nasceram no RJ não moram com os pais. 
 Outrossim, Examinou-se também que a maioria (53%) dos alunos os quais trabalham não moram com os pais.
 Concluiu-se que existe uma superioridade dos alunos que nasceram no RJ e moram com os pais.