Generate a histogram with exponentially increasing bin width by ggplot

Question

I have not found a way to display an histogram with increasing binwidth in ggplot. Is there a way?

Answer 1

I found it myself:

breeaks <- c(0,1,2*2^(0:10))
mygg <- ggplot(Grains, aes(Shape_Area)) + theme_bw() + xlab("Size") + geom_histogram(breaks = breeaks, col =3)
mygg

gives: