library(ggplot2)
Grades <- c(35, 54, 55, 58, 59, 59, 62, 63, 66, 68, 68, 69, 70, 71, 72, 73,
73, 74, 74, 74, 75, 78, 79, 80, 81, 81, 81, 82, 82, 82, 84, 85, 85, 85,
85, 86, 86, 87, 89, 89, 90, 90, 90, 91, 96, 97, 99)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 35.0 69.5 80.0 76.9 85.5 99.0
c <- qplot(Grades, main = "Midterm 3 Grade Distribution", binwidth = 5)
c + geom_histogram(fill = "darkgray", color = "black", binwidth = 5)