Notas

Histograma e box plot geral (por enquanto apenas S1)

## Grafico geral das medias
breaks <- 0:10
## table(cut(notas$S1, breaks = breaks,
##           right = FALSE, include.lowest = TRUE))
hist(notas$S1, breaks = breaks, right = FALSE, include.lowest = TRUE,
     main = "Notas gerais", xlab = "Notas", ylab = "Frequência absoluta")
boxplot(notas$S1, horizontal = TRUE, ylim = c(0, 10),
        col = "lightgray", add = TRUE)

Resumo dos cinco números, média, desvio-padrão, e número de provas não realizadas (NA):

statm <- c(fivenum(notas$S1),
           mean(notas$S1, na.rm = TRUE),
           sd(notas$S1, na.rm = TRUE),
           sum(is.na(notas$S1)))
names(statm) <- c("Min", "Q1", "Q2", "Q3", "Max", "Média", "s", "NAs")
round(statm, 2)

  Min    Q1    Q2    Q3   Max Média     s   NAs 
 4.50  8.50  9.00  9.50 10.00  8.74  1.21  3.00 

Box plot da S1

## Boxplots comparando as notas entre sabatinas
boxplot(notas$S1, ylim = c(0, 10), names = "S1", ylab = "Notas")

Notas indivíduais

kable(notas, align = c("c", "c"))