library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Myllena/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)

#------------------------------------------------------------------------
# Passso 1
#------------------------------------------------------------------------
 str(Questionario_Estresse)
## tibble [95 x 10] (S3: tbl_df/tbl/data.frame)
##  $ Aluno       : num [1:95] 1 2 3 4 5 6 7 8 9 10 ...
##  $ Turma       : num [1:95] 1 1 1 1 1 1 1 1 1 1 ...
##  $ Mora_pais   : num [1:95] 2 1 2 2 2 2 2 1 1 1 ...
##  $ RJ          : num [1:95] 2 1 2 2 2 2 2 1 1 1 ...
##  $ Namorado_a  : num [1:95] 2 2 2 1 2 1 2 1 2 2 ...
##  $ Trabalha    : num [1:95] 2 2 2 1 1 1 2 1 1 1 ...
##  $ Desempenho  : num [1:95] 8.89 8.8 8 8.8 8.9 8.1 9.2 8.5 8.7 8.3 ...
##  $ Estresse    : num [1:95] 23 24 25 38 41 25 41 20 26 36 ...
##  $ Créditos    : num [1:95] 27 28 25 21 18 29 26 24 20 49 ...
##  $ Horas_estudo: num [1:95] 27 28 25 30 20 32 25 25 25 59 ...
#-------------------------------
# Passo 2 - tabelas
#--------------------------------
tabela_mora_pais<-table(Questionario_Estresse$Mora_pais)
tabela_trabalha <- table(Questionario_Estresse$Trabalha)

tabela_mora_pais
## 
##  1  2 
## 44 51
tabela_trabalha
## 
##  1  2 
## 36 59
#-----------------------------------------------------------------------------------------------
# Passo 3 -Tabela com proporção
#-------------------------------------------------------------------------------------------

prop.table(tabela_mora_pais)*100
## 
##        1        2 
## 46.31579 53.68421
prop.table(tabela_trabalha)*100
## 
##        1        2 
## 37.89474 62.10526
#----------------------------------------------------------------------
# Passo 4 - Tabela em barras
#---------------------------------------------------------------------
library(RColorBrewer)
brewer.pal(4,"Blues")
## [1] "#EFF3FF" "#BDD7E7" "#6BAED6" "#2171B5"
COR <- brewer.pal(3,"Blues")
barplot(tabela_mora_pais,col = COR,horiz = FALSE,beside = TRUE,main = "Gráfico 1- Mora com os pais")

barplot(tabela_trabalha,col = c ("black","Navy blue"),main = "Gráfico 2- Trabalha ou não")

Passo 5 - Conclusão

No primeiro gráfico, o número 1 está representando todos os alunos que moram com seus pais e o número 2 representa os alunos que moram sozinhos. Podemos ver que 46,31% desses alunos ainda moram com seus pais e mais da metade 53,68% moram sozinhos.

Temos também o segundo gráfico que os respectivos números 1 e 2 representam os alunos que trabalham ou não. Podemos ver que 37,89% não trabalham e 62,10% trabalham. Comparando os dois gráficos temos as seguintes conclusões: Que nem todos que moram com seus pais precisam estar trabalhando, mas que todos aqueles que não moram com seus pais, precisam estar trabalhando.