Instantly share code, notes, and snippets.

Embed
What would you like to do?
library(ggplot2)
rawdata = read.csv("~/Documents/Meteorite/minimeteor.csv")
p <- qplot(log(mass), data=rawdata, binwidth=.4)
p + theme_bw() + geom_histogram(color="black", fill="steelblue")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment