Gráfico de barras Análise de dados em três etapas: 1 - Carregar a base de dados 2 - Manipular as variáveis 3 - Visualizar um gráfico

O gráfico de barras permite verificar a quantidade de alunos que tiveram desempenho acima ou abaixo da média, constata-se que a maioria tem desempenho abaixo da média, ou seja, os alunos que compôem as notas acima da média tiveram notas muito mais distantes da média que os demais. Isto pode ser observado no histograma de desempenho onde seu pico está a direita da média. Em seguida analisando o BoxPlot podemos ver que a mediana está deslocada para baixo, se aproximando mais do primeiro quartil que do terceiro quartil, evidenciando o que foi constatado acima.Por fim, a quantidade pequena de alunos que aparecem como outliners pode ser verificada no histograma, são desempenhos pequenos e com pouca frequência em relação aos outros.

# Fase 1 - Carregar a base de dados.

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Gabriel/Desktop/Mestrado UFF/Base_de_dados-master/Questionario_Estresse.xls")

View(Questionario_Estresse)

# Fase 2 -  Manipular as variáveis.

Questionario_Estresse$Desempenho2 <- ifelse(Questionario_Estresse$Desempenho <= 8.59,"Acima da média","Abaixo da média")
print(Questionario_Estresse$Desempenho)
##  [1] 8.89 8.80 8.00 8.80 8.90 8.10 9.20 8.50 8.70 8.30 8.50 9.10 9.03 9.36 8.60
## [16] 8.53 8.00 9.08 8.50 8.50 8.50 8.50 8.50 8.80 8.00 7.50 9.40 8.50 8.10 8.70
## [31] 9.50 7.70 8.70 8.94 8.96 9.29 8.79 8.55 5.90 8.50 8.90 9.09 7.80 9.00 8.80
## [46] 8.90 9.00 9.12 8.50 9.07 8.89 9.33 8.50 9.20 9.29 9.36 8.64 8.50 8.40 8.80
## [61] 9.40 9.60 9.00 6.00 7.00 7.00 8.80 8.50 8.82 6.50 8.30 8.40 8.80 9.00 9.00
## [76] 8.48 8.60 8.80 5.82 6.60 8.50 8.00 8.00 8.20 9.45 9.70 9.39 8.70 8.60 9.30
## [91] 8.60 9.30 9.40 9.44 9.60
print(Questionario_Estresse$Desempenho2)
##  [1] "Abaixo da média" "Abaixo da média" "Acima da média"  "Abaixo da média"
##  [5] "Abaixo da média" "Acima da média"  "Abaixo da média" "Acima da média" 
##  [9] "Abaixo da média" "Acima da média"  "Acima da média"  "Abaixo da média"
## [13] "Abaixo da média" "Abaixo da média" "Abaixo da média" "Acima da média" 
## [17] "Acima da média"  "Abaixo da média" "Acima da média"  "Acima da média" 
## [21] "Acima da média"  "Acima da média"  "Acima da média"  "Abaixo da média"
## [25] "Acima da média"  "Acima da média"  "Abaixo da média" "Acima da média" 
## [29] "Acima da média"  "Abaixo da média" "Abaixo da média" "Acima da média" 
## [33] "Abaixo da média" "Abaixo da média" "Abaixo da média" "Abaixo da média"
## [37] "Abaixo da média" "Acima da média"  "Acima da média"  "Acima da média" 
## [41] "Abaixo da média" "Abaixo da média" "Acima da média"  "Abaixo da média"
## [45] "Abaixo da média" "Abaixo da média" "Abaixo da média" "Abaixo da média"
## [49] "Acima da média"  "Abaixo da média" "Abaixo da média" "Abaixo da média"
## [53] "Acima da média"  "Abaixo da média" "Abaixo da média" "Abaixo da média"
## [57] "Abaixo da média" "Acima da média"  "Acima da média"  "Abaixo da média"
## [61] "Abaixo da média" "Abaixo da média" "Abaixo da média" "Acima da média" 
## [65] "Acima da média"  "Acima da média"  "Abaixo da média" "Acima da média" 
## [69] "Abaixo da média" "Acima da média"  "Acima da média"  "Acima da média" 
## [73] "Abaixo da média" "Abaixo da média" "Abaixo da média" "Acima da média" 
## [77] "Abaixo da média" "Abaixo da média" "Acima da média"  "Acima da média" 
## [81] "Acima da média"  "Acima da média"  "Acima da média"  "Acima da média" 
## [85] "Abaixo da média" "Abaixo da média" "Abaixo da média" "Abaixo da média"
## [89] "Abaixo da média" "Abaixo da média" "Abaixo da média" "Abaixo da média"
## [93] "Abaixo da média" "Abaixo da média" "Abaixo da média"
# Fase 3 -  Visualizar
# Fase 3.1 -  HISTOGRAMA

hist(Questionario_Estresse$Desempenho,
     col = "purple",
     breaks = 10,
     xlim = c(5,10),
 main = "Histograma \n Desempenho (notas)")

# Fase 3.2 -  BARRAS
barplot(table(Questionario_Estresse$Desempenho2),
        col = c("purple","green"),
        horiz = TRUE,
        xlim = c(0,100),
        main = "Barras \n Desempenho (Média)")

# Fase 3.3 -  BOXPLOT
par(mfrow=c(1,1))
boxplot(Questionario_Estresse$Desempenho, col="purple", main = "Desempenho")

mean(Questionario_Estresse$Desempenho)
## [1] 8.593789
median(Questionario_Estresse$Desempenho)
## [1] 8.7
max(Questionario_Estresse$Desempenho)
## [1] 9.7
min(Questionario_Estresse$Desempenho)
## [1] 5.82