library(readxl)
Questionario_Estresse <- read_excel("~/Base_de_dados-master/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)
tabelamoradia = table(Questionario_Estresse$Mora_pais)
View(tabelamoradia)
prop.table(tabelamoradia)*100
## 
##        1        2 
## 46.31579 53.68421
View(prop.table(tabelamoradia)*100)
pie(tabelamoradia, main = "Mora com os pais?", labels = c("46.31%","53.69%"), col = c("purple","yellow"))
legend("topleft","right", fill = c("purple","yellow"), legend = c("sim","não"))

CONCLUSÃO

Podemos concluir baseado na variável Moradia com os pais do questionário de estresse, que 46.31% dos alunos que participaram da pesquisa moram com os pais e os 53.69% dos alunos participantes não moram com seus pais.