Quick R script to get histogram of consumption data.