Importando os dados do Excel

Antes de qualquer coisa é necessário importar a base de dados do excel.

# Importando a base de dados
library(readxl)
Questionario_Estresse <- read_excel("C:\\Users\\pedro\\Base_de_dados-master\\Questionario_Estresse.xls")
View(Questionario_Estresse)

Tabela em valores absolutos

Pegamos a variável “morar com os pais” e podemos montar uma tabela com os valores absolutos dessa variável.

# Tabela em valores absolutos
Questionario_Estresse$Mora_pais = ifelse(Questionario_Estresse$Mora_pais==1,"Mora com os pais","Nao mora com os pais")
tabela_pais = table(Questionario_Estresse$Mora_pais)
tabela_pais
## 
##     Mora com os pais Nao mora com os pais 
##                   44                   51

Tabela de proporção

Podemos então montar uma tabela de proporção a partir da tabela em valores absolutos.

round(prop.table(tabela_pais)*100)
## 
##     Mora com os pais Nao mora com os pais 
##                   46                   54

Gráfico

E podemos montar um gráfico a partir da tabela de proporção da variável “morar com os pais”.

library(waffle)
## Carregando pacotes exigidos: ggplot2
parts = c("Mora com os pais" = 46, "Nao mora com os pais" = 54)
waffle(parts, col=c("#0fd4cd","#a30000"))

Análise dos dados

Agora com as tabelas e o gráfico prontos, podemos analisar os números. Levamos em consideração a resposta 1 como sendo “Moro com os pais” e a resposta 2 como sendo “Não moro com os pais”.Olhando a tabela em valores absolutos vemos que 51 dos 95 alunos entrevistados não moram com seus pais, enquanto 44 moram. Passando esses valores para a tabela de proporção vemos que esses 51 alunos representam aproximadamente 54% enquanto os 44 representam 46% do total de alunos.

Passamos então para o gráfico em formato de waffle, em que utilizamos dos números percentuais para formar um waffle de 100 quadrados sendo que cada um representa um aluno, os azuis claro são os alunos que responderam que moram com seus pais, enquanto os quadrados pintados de vermelho escuro representam os alunos que responderam que não moram com seus pais.