library(ggplot2)
Grades <- c(38, 41, 42, 46, 47, 48, 52, 54, 54, 54, 57, 59, 59, 62, 62, 62,
63, 64, 65, 65, 66, 66, 67, 67, 68, 70, 70, 71, 71, 71, 71, 71, 73, 76,
78, 78, 79, 79, 80, 81, 83, 84, 85, 86, 86, 86, 86, 87, 88, 88, 90, 91,
95)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 38.0 62.0 70.0 69.5 81.0 95.0
c <- qplot(Grades, main = "Midterm 1 Grade Distribution", binwidth = 5)
c + geom_histogram(fill = "darkgray", color = "black", binwidth = 5)