Introdução

# Base de dados Questionario_Estresse
library(readxl)
Questionario_Estresse <- read_excel("C:/Users/55219/Desktop/Base_de_dados-master/Questionario_Estresse.xls", 
                                    col_types = c("text", "text", "text", 
                                                  "text", "text", "text", "numeric", 
                                                  "numeric", "numeric", "numeric"))
library(dplyr)
library(flextable)
# mudança de vaável
Questionario_Estresse$Mora_pais <- ifelse(Questionario_Estresse$Mora_pais==1,"Sim","Nao")
Questionario_Estresse$RJ <- ifelse(Questionario_Estresse$RJ==1,"natural do RJ","natural de outra cidade")
Questionario_Estresse$Namorado_a <- ifelse(Questionario_Estresse$Namorado_a==1,"sim","Nao")
Questionario_Estresse$Trabalha <- ifelse(Questionario_Estresse$Trabalha==1,"Sim","Nao")
# Tabela em números absolutos 
tabela_RJ <- table(Questionario_Estresse$RJ,Questionario_Estresse$Turma)
tabela_RJ
##                          
##                            1  2  3
##   natural de outra cidade 17 22 23
##   natural do RJ           11 10 12

Tabela de proporção

# Tabela de proproção
prop_sexo <- prop.table(tabela_RJ,1)
prop_sexo
##                          
##                                   1         2         3
##   natural de outra cidade 0.2741935 0.3548387 0.3709677
##   natural do RJ           0.3333333 0.3030303 0.3636364
round(prop_sexo*100,2)
##                          
##                               1     2     3
##   natural de outra cidade 27.42 35.48 37.10
##   natural do RJ           33.33 30.30 36.36
prop_sexo2 <- prop.table(tabela_RJ,2)
prop_sexo2
##                          
##                                   1         2         3
##   natural de outra cidade 0.6071429 0.6875000 0.6571429
##   natural do RJ           0.3928571 0.3125000 0.3428571
round(prop_sexo2*100,2)
##                          
##                               1     2     3
##   natural de outra cidade 60.71 68.75 65.71
##   natural do RJ           39.29 31.25 34.29

Tabela com flextable

# Tabela com flextable
minha_tabela <- table(Questionario_Estresse$RJ, Questionario_Estresse$Turma)%>% 
  prop.table(1) %>% round(2) %>% data.frame() 


minha_tabela <- minha_tabela %>% rename(Naturalidade=Var1, Turma=Var2,Percentual=Freq)


minha_tabela %>%
  flextable() %>% 
  theme_zebra()

Representação Gráfica

# Gráfico
tabela1 <- table(Questionario_Estresse$RJ,Questionario_Estresse$Turma)

barplot(tabela1,beside= TRUE, col=c("#2d9ead","#b536b1"),
           main= " Grafico 1 - Naturalidade por turma")

Conclusão

Esse gráfico tem como base a utilização da relação entre a nacionalidade dos alunos e as suas respectivas turmas. Assim, a cor roxa representa os alunos que nasceram na cidade do Rio de Janeiro e a cor azul, representa os alunos que nasceram em outras cidades.

Diante disso, na turma 1, 60,71% dos alunos nasceram em outras cidades e por consequência, 39,29% dos alunos nasceram no Rio de Janeiro. Já na turma 2, 68,75% nasceram em outras cidades e 31,25% nasceram no Rio de Janeiro. E por final, na turma 3, 65,71% não nasceram na cidade do Rio de Janeiro e 34,29% nasceram na cidade.