How to add a curve to a negatively skewed distribution using ggplot, in R?

Question

I have a histogram, like below.

How can I add a curve like so...

I tried. community_histogram + geom_histogram(binwidth = 2) + geom_density()