Questionário sobre Estresse

Sobre

Os seguintes dados descritos graficamente abaixo foram retirados de um banco de dados gerado por um questionário no qual avaliou-se o estresse entre estudantes, bem como sua associação com outros fatores escolares

Desempenho - Barras

O gráfico de barras que segue demonstra a distribuição de médias escolares entre os estudantes, avaliando seus respectivos desempenhos.

library(readxl)
Questionario_Estresse <- read_excel("~/bases_curso_estatistica/Base_de_dados-master/Questionario_Estresse.xls")

barplot(table(Questionario_Estresse$Desempenho),
        col= c("skyblue","blue"),
        horiz = FALSE,
        xlim = c(0,55),
        ylim = c(0,20),
        main = "Grafico de Barras")

Desempenho - Histograma

O histograma abaixo tambem referencia os dados de desempenho. A partir dele infere-se que o desempenho da maioria dos estudantes concentra-se em uma faixa entre as médias 8 e 9.

hist(Questionario_Estresse$Desempenho, col="red", breaks = 15, main = "Desempenho")

Desempenho - Boxplot

O boxplot a seguir fornece uma media de, aproximadamente, 8,6 para o Desempenho dos estudandantes. Com valores de máximo e mínimo de 5,82 e 9,70, respectivamente. Contudo, identificam-se 7 outliners a esta tendência.

boxplot(Questionario_Estresse$Desempenho, col="red", main = "Desempenho")

Demais fatores relacionados - Barras

Os gráficos de barra representados abaixo demonstra a distribuição dos estudantes diante dos seguintes parâmetros:

1 - Grau de Estresse 2 - Horas de Estudo 3 - Creditos Escolares

Comparativamente a distribuição em barras de Desempenho, infere-se que o maior nível de estresse esta associado a maiores horas de estudo e créditos escolares.

par(mfrow=c(3,1))

barplot(table(Questionario_Estresse$Estresse),
        col= c("red"),
        horiz = FALSE,
        xlim = c(0,10),
        ylim = c(0,10),
        main = "Grau de Estresse")

barplot(table(Questionario_Estresse$Horas_estudo),
        col= c("orange"),
        horiz = FALSE,
        xlim = c(0,10),
        ylim = c(0,10),
        main = "Horas de Estudo")

barplot(table(Questionario_Estresse$Créditos),
        col= c("orange"),
        horiz = FALSE,
        xlim = c(0,10),
        ylim = c(0,10),
        main = "Creditos Escolares")