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

#----------------------------------------------------------------
#Transformação
#--------------------------------------------------------------

Questionario_Estresse$Mora_pais<-ifelse (Questionario_Estresse$Mora_pais== 1, "sim","não")

tabela_mora_pais <-table(Questionario_Estresse$Mora_pais)
#------------------------------------------------------------------
# Tabela proporcional
#-----------------------------------------------
prop.table(tabela_mora_pais)*100
## 
##      não      sim 
## 53.68421 46.31579
#----------------------------------------------
# Gráfico pizza
#----------------------------------------------


pie(tabela_mora_pais, col = c("pink","black"),main = "Mora ou não com os pais")

#------------------------------------------------------------
#Conclusão
#------------------------------------------------------------

No gráfico acima, vemos que 53% não moram com os pais e está representada com a cor rosa.Temos, 46% ainda que moram com seus pais. Assim, compreendemos que a maioria das pessoas não dependem mais de seus pais.