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/8831562 to your computer and use it in GitHub Desktop.

Select an option

Save statistic-on-air/8831562 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_rug(aes(y=-2), position="jitter", sides="b")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment