Estudantes que moram com os pais

Ao analisarmos os dados da base “questionário_estresse.xlsx” encontramos a seguinte tabela de valores absolutos relacionados aos estudantes que moram ou não com os pais

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Gabriela/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)
Questionario_Estresse$Mora_pais = ifelse(Questionario_Estresse$Mora_pais==1,"Mora","Não mora")
Tabela_Mora_Pais = table(Questionario_Estresse$Mora_pais)
Tabela_Mora_Pais
## 
##     Mora Não mora 
##       44       51

podemos notar que em números absolutos a maioria dos estudantes não mora com os pais. Em porporção ficaria assim.

Proporção_Mora_Pais = prop.table(Tabela_Mora_Pais)*100

Proporção_Mora_Pais
## 
##     Mora Não mora 
## 46.31579 53.68421

Ou seja aproximadamente 46,3% dos estudantes vivem com os pais, enquanto 53.7% não moram com eles. Ao colocarmos isso em uma gráfico, obtemos o seguinte:

library(ggplot2)
library(waffle)
waffle(Proporção_Mora_Pais, 
       colors= c("#FFB90F","green"),
       title = "Table de estudantes quem moram com os pais")