A less satisfactory way, using a split black and white black and white photo under one without color with white fill.
set.seed(12)
x <- rpois(1000, 30)
bw <- 2
col <- 'black'
ggplot(data.frame(x), aes(x=x)) +
geom_histogram(binwidth=bw, color = col, fill=col, size=2) +
geom_histogram(binwidth=bw, fill='white') +
theme_bw()

source
share