Atividade 4

Tabelas

Tabela Moradia x Naturalidade

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Windows 10/Documents/MESTRADO - UFF/Estatistica aplicada a engenharia/Base_de_dados-master/Questionario_Estresse.xls")

library(dplyr)
library(flextable)

Questionario_Estresse$Mora_pais <- ifelse(Questionario_Estresse$Mora_pais == 1,"Mora com os pais","Não mora com os pais")
Questionario_Estresse$RJ <- ifelse(Questionario_Estresse$RJ == 1,"Natural do RJ","Natural de outras cidades")

tabela <- table(Questionario_Estresse$Mora_pais, Questionario_Estresse$RJ)

tabela %>%
  data.frame() %>%
  rename(Moradia=Var1) %>%
  rename(Naturalidade=Var2) %>%
  rename(Quantidade=Freq) %>%
  flextable()

Tabela Moradia x Naturalidade (Porcentagem)

tabela %>%
  prop.table(2) %>%
  round(digits=2) %>%
  data.frame() %>%
  rename(Moradia=Var1) %>%
  rename(Naturalidade=Var2) %>%
  rename(Porcentagem=Freq) %>%
  flextable()

Gráfico de barras por grupo

barplot(tabela,
  beside = T,
  main = "Gráfico relacional - Naturalidade x Morar com os pais",
  ylim = c(0,50),
  border = FALSE,
  cex.axis = 0.8,
  cex.names = 0.8,
  las=1,
  legend.text=rownames(tabela),
  col=c("dodgerblue2","mediumseagreen"))

Análise

Este trabalho é resultado de uma pesquisa sobre grau de estresse aplicada em duas turmas do curso de psicologia. Foram realizadas diversas perguntas, entre elas se os alunos eram ou não naturais do Rio de Janeiro e se moravam ou não com os pais. 95 alunos participaram da pesquisa.

Foi possível perceber uma forte correlação entre ser natural de outras cidades que não sejam o Rio de Janeiro e não morar com os pais. Dentre as pessoas que não moram com os pais, 77% são naturais de outras cidades. Correlação maior ainda acontece mostrando que 91% dos entrevistados que moram com os pais também moram no Rio de Janeiro. A quantidade de de pessoas que são de outras cidades é maior que os naturais do RJ, 62 e 33, respectivamente. E há 51 pessoas que não moram com os pais e 44 que moram com os pais.