R: ggplot2 histogram with density

ggplot2_hist.Rd

#Adjusted from http://www.r-bloggers.com/how-to-make-a-histogram-with-ggplot2/
ggplot(data=data1, aes(x=`BOTTLE QTY`)) + 
  geom_histogram(aes(y =..density..), 
                 col="red", 
                 fill="green", 
                 alpha = .2, origin = -0.5, binwidth=1) + 
  labs(title="Histogram for Bottle Quantities") +
  labs(x="Bottles", y="Count") +  scale_x_continuous(limits=c(0,30), breaks=0:30)