Distribution of grades in a student group

grades.r

grades <- read.csv("grades.csv")
# I like to have first name, last name, grade
# Adapt the column number to your needs
x <- as.numeric(as.character(grades[,3]))
# Export to png?
# png("grades.png")
# Adapt the breaks to your grades
hist(x, col="lightgreen", freq=FALSE, breaks=seq(10,20,by=.5), family="Ubuntu") # I trashed Arial
# Play with the adjust (default: 1) parameter in density
lines(density(x[!is.na(x)]), col = "red", lwd = 2)
# Close png file
# dev.off()