library(ggplot2) movies <- movies[1:1000,] m <- ggplot(movies, aes(x=rating)) m + geom_histogram(binwidth=0.2, colour = "darkgreen", fill = "white", size=1) + geom_point(aes(y = -2), position = position_jitter(height = 0.8), size=1)