library(readxl)
Questionario_Estresse <- read_excel("C:/Users/eduma/Base_de_dados-master/Questionario_Estresse.xls",
sheet = "Dados")
View(Questionario_Estresse)
summary(Questionario_Estresse$Mora_pais)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.000 1.000 2.000 1.537 2.000 2.000
tabela_Mora_pais <- table(Questionario_Estresse$Mora_pais) #Absoluta
prop.table(tabela_Mora_pais)*100 #Relativa
##
## 1 2
## 46.31579 53.68421
pie (tabela_Mora_pais, col = c("#47735b", "#7498b5"), main = "Gráfico 01")
barplot(tabela_Mora_pais, col = c("#47735b", "#7498b5"), main = "Gráfico 02", ylim = c(0,60))
O gráfico indica que existe uma porcentagem maior de estudantes que moram com os pais (53,68%), observamos assim que existe uma maior dificuldade para estudantes que tem a atividade de trabalho em paralero começem a estudar ou voltem a estudar, acreditamos que seja pela falta de tempo e pelo nivél de fadiga corporal causada pelo trabalho.