library(ggplot2)
Grades <- c(43, 54, 59, 59, 60, 61, 61, 62, 62, 62, 63, 63, 63, 65, 65, 67,
67, 68, 69, 70, 70, 70, 71, 72, 72, 72, 73, 74, 74, 75, 75, 76, 76, 76,
76, 76, 77, 78, 79, 80, 82, 83, 83, 84, 85, 88, 89, 92, 93, 93, 97)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 43.0 64.0 72.0 72.6 78.5 97.0
c <- qplot(Grades, main = "Midterm 2 Grade Distribution", binwidth = 5)
c + geom_histogram(fill = "darkgray", color = "black", binwidth = 5)