Base de dados - Questionário de Estresse

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/KESIA/Desktop/KESIA/Kesia/UFF/1 PERIODO/ESTATISTICA/mestrado_eng/Base_de_dados-master/Questionario_Estresse.xls")

Questionario_Estresse$Trabalha <-ifelse(Questionario_Estresse$Trabalha ==1,"Trabalha","Não Trabalha")
Questionario_Estresse$RJ <-ifelse(Questionario_Estresse$RJ ==1,"Natural do RJ","Não natural do RJ")

Gráfico de Barras - Trabalha

tabela_morarj <- table(Questionario_Estresse$RJ, Questionario_Estresse$Trabalha)
tabela_morarj
                   
                    Não Trabalha Trabalha
  Não natural do RJ           40       22
  Natural do RJ               19       14
prop.table(tabela_morarj, 1)
                   
                    Não Trabalha  Trabalha
  Não natural do RJ    0.6451613 0.3548387
  Natural do RJ        0.5757576 0.4242424
prop.table(tabela_morarj, 2)
                   
                    Não Trabalha  Trabalha
  Não natural do RJ    0.6779661 0.6111111
  Natural do RJ        0.3220339 0.3888889
barplot(tabela_morarj, beside = T,
        main = "Alunos que Trabalham",
        col = c("pink","red","blue","skyblue"),
        ylim = c(0,50))

Gráfico de Barras - RJ

tabela_morarj2 <- table(Questionario_Estresse$Trabalha, Questionario_Estresse$RJ)
tabela_morarj2
              
               Não natural do RJ Natural do RJ
  Não Trabalha                40            19
  Trabalha                    22            14
prop.table(tabela_morarj2, 1)
              
               Não natural do RJ Natural do RJ
  Não Trabalha         0.6779661     0.3220339
  Trabalha             0.6111111     0.3888889
prop.table(tabela_morarj2, 2)
              
               Não natural do RJ Natural do RJ
  Não Trabalha         0.6451613     0.5757576
  Trabalha             0.3548387     0.4242424
barplot(tabela_morarj2, beside = T,
        main = "Alunos Natural do RJ",
        col = c("green","black"),
        ylim = c(0,50))

Tabela

library(dplyr)
library(flextable)

tabela_morarj %>%
  data.frame() %>%
  rename(RJ=Var1) %>%
  rename(Trabalha=Var2) %>%
  rename(Percentual=Freq) %>%
  flextable() %>%
  bg(bg = "#EFEF99") %>%
  theme_tron()

Tabela com proporção

library(dplyr)
library(flextable)

tabela_morarj %>%
  prop.table(1) %>%
  data.frame() %>%
  rename(RJ=Var1) %>%
  rename(Trabalha=Var2) %>%
  rename(Percentual=Freq) %>%
  flextable() %>%
  bg(bg = "#EFEF99") %>%
  theme_tron()

Interpretação

De acordo com a base de dados “Questionário de Estresse”, um total de 95 alunos responderam diversas perguntas do questionário, dentre delas quais são naturais do Rio de Janeiro e quais trabalham.

Como podemos analisar nos gráficos e tabelas:

59 alunos não trabalham e 36 alunos que trabalham;

62 alunos não são natural do RJ e 33 são natural do RJ;

Tendo assim, 40 alunos que não trabalham e não são natural do RJ, no que equivale à 64% do total de alunos. 19 alunos que não trabalham e são natural do RJ, no que equivale à 57% do total de alunos. 22 alunos que trabalham e não são natural do RJ, no que equivale à 35% do total de alunos. 14 alunos que trabalham e são natural do RJ, no que equivale à 42% do total de alunos.

Conclui-se que, a maior parte dos alunos(40) não trabalham e não são natural do Rio de Janeiro e a minoria dos alunos(14) trabalham e são natural do Rio de Janeiro