Os dados utilizados fazem parte de uma pesquisa sobre o grau de estresse aplicada em duas turmas de Psicologia, que contou com 95 alunos.

Dentre os respondentes, temos alunos que trabalham ou não, que moram sozinhos ou não, e até mesmo que residem fora do país.

Nesta atividade serão apresentados dois gráficos: Desempenho dos Alunos e Nível de Estresse.

Etapa 1 - Carregamento da base de dados

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/roberta.bastos/Desktop/Base_de_dados-master/Questionario_Estresse.xls")

Etapa 2 - Elaboração e análise dos gráficos

2.1. Desempenho dos Alunos

2.1.1. Gráficos

hist(Questionario_Estresse$Desempenho, col = "#faeb19", main = "Histograma - Desempenho dos Alunos", xlab = "Desempenho", ylab = "Frequência")

boxplot(Questionario_Estresse$Desempenho, col = "#c4b91d", main ="Box plot - Desempenho dos Alunos")

2.1.2 Análise estatística

summary(Questionario_Estresse$Desempenho)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   5.820   8.500   8.700   8.594   9.050   9.700

Pelo Histograma podemos observar que trata-se de uma gráfico assimétrico, onde a maior parte da turma possui um bom desempenho, tendo média de 8,59. Uma minoria com desempenho inferior a 8,5 que está causando este feito. O gráfico Boxplot nos ajuda a observar que dentro desta minoria, temos exatamente 7 outliners que está causando o desnível no gráfico.

2.2. Nível de Estresse

2.2.1 Gráficos

hist(Questionario_Estresse$Estresse, col = "#16c0c9", main = "Histograma - Nível de Estresse dos Alunos", xlab = "Nível de Estresse", ylab = "Frequência")

boxplot(Questionario_Estresse$Estresse, col = "#0bdbe6", main ="Box plot - Nível de Estresse")

2.2.2 Análise estatística

summary(Questionario_Estresse$Estresse)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   12.00   22.50   27.00   27.82   33.00   44.00

Podemos observar que o gráfico de nível de estresse é simétrico, tendo sua média de 27,82 muito próxima de sua mediana que é 27. Não foi observado nenhum outlier.