Skip to content

Instantly share code, notes, and snippets.

@statistic-on-air
Last active August 29, 2015 13:56
Show Gist options
  • Select an option

  • Save statistic-on-air/8831527 to your computer and use it in GitHub Desktop.

Select an option

Save statistic-on-air/8831527 to your computer and use it in GitHub Desktop.
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment