Optimize binwidth

Optimize binwidth calculation in geom_histogram()