carregar base de dados
library(readxl)
Questionario_Estresse <- read_excel("Questionario_Estresse.xls")
Resumo dos dados importados
summary(Questionario_Estresse)
## Aluno Turma Mora_pais RJ Namorado_a
## Min. : 1.0 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:24.5 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000
## Median :48.0 Median :2.000 Median :2.000 Median :2.000 Median :2.000
## Mean :48.0 Mean :2.074 Mean :1.537 Mean :1.653 Mean :1.505
## 3rd Qu.:71.5 3rd Qu.:3.000 3rd Qu.:2.000 3rd Qu.:2.000 3rd Qu.:2.000
## Max. :95.0 Max. :3.000 Max. :2.000 Max. :2.000 Max. :2.000
##
## Trabalha Desempenho Estresse Créditos
## Min. :1.000 Min. :5.820 Min. :12.00 Min. :15.00
## 1st Qu.:1.000 1st Qu.:8.500 1st Qu.:22.50 1st Qu.:23.00
## Median :2.000 Median :8.700 Median :27.00 Median :24.00
## Mean :1.621 Mean :8.594 Mean :27.82 Mean :24.95
## 3rd Qu.:2.000 3rd Qu.:9.050 3rd Qu.:33.00 3rd Qu.:27.00
## Max. :2.000 Max. :9.700 Max. :44.00 Max. :49.00
## NA's :1
## Horas_estudo
## Min. :19.00
## 1st Qu.:25.00
## Median :30.00
## Mean :30.73
## 3rd Qu.:35.00
## Max. :60.00
##
Infomações sobre a base de dados escolhida
# Optei por utilizar a demonstração do desempenho dos alunos, buscando entender a média das notas, a maior e a menor principalmente.
summary(Questionario_Estresse$Desempenho)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 5.820 8.500 8.700 8.594 9.050 9.700
Análise do banco de dados
Questionario_Estresse$Trabalha <- ifelse(Questionario_Estresse$Trabalha==1,"Sim","não")
estudante_trabalhador <- table(Questionario_Estresse$Trabalha)
prop.table(estudante_trabalhador)*100
##
## não Sim
## 62.10526 37.89474
Análise atraves do gráfico de barras
barplot(estudante_trabalhador, main = "Gráfico de Alunos que trabalham e não trabalham", col=c("#14de8d", "#651fab"),
ylim = c(0,70), legend=TRUE)
boxplot(Questionario_Estresse$Estresse, col=("gold1"),main=("Relação de nível de estresse dos alunos"))
Gráfico executado para demonstração das notas dos alunos
hist(Questionario_Estresse$Desempenho,col = c("#0C0FC2"),main = "Histograma de Desempenho",
xlab ="Notas",ylab = "Quantidade de Alunos" )
# Com base no gráfico, podemos analisar que a maioria dos alunos teve um desempenho bom/ótimo, já que a grande maioria dos alunos se econtra com desempenho superior a 08 pontos.