Análise Questionário Estresse

#Análise da base de dados - Questionário Estresse

##Abaixo apresento três gráficos gerados a partir da base de dados: ###1.Pessoas que trabalham ###2.Pessoas que moram com os pais

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/roberta.bastos/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
Questionario_Estresse$Trabalha_2 <- ifelse(Questionario_Estresse$Trabalha=="1","Sim","Não")
table(Questionario_Estresse$Trabalha_2)

## 
## Não Sim 
##  59  36

Questionario_Estresse$Mora_pais_2 <- ifelse(Questionario_Estresse$Mora_pais=="1","Sim","Não")
table(Questionario_Estresse$Mora_pais_2)

## 
## Não Sim 
##  51  44

pie(table(Questionario_Estresse$Trabalha_2),col = c("#e6ed0e","#7d7d75"),main = "Pessoas que trabalham")

pie(table(Questionario_Estresse$Mora_pais_2),col = c("#2f6b5f","#16d9b2"),main = "Pessoas que moram com os pais")

##Analisando os resultados, podemos observar que a maior parte dos entrevistados não trabalha fora, podendo concentrar seus esforços nos estudos. Mas este resultado não se reflete quando olhamos para o percentual de alunos que moram com os pais, estando um pouco mais equilibrada esta divisão. ##Obs.: Foi realizada a análise do gráfico de nível de estresse, entretanto devido a um erro de não identificação de tabela, não possível sua publicação.