hist(Grades$grades, main = "", xlab = "Test grades", right = FALSE)
if (FALSE) {
library(ggplot2)
ggplot2::ggplot(data = Grades, aes(x = grades, y = ..density..)) +
geom_histogram(fill = "pink", binwidth = 5, color = "black") +
geom_density(lwd = 2, color = "red") +
theme_bw()
}
Run the code above in your browser using DataLab