devtools::load_all("~/packages/ggplot2")
#> ℹ Loading ggplot2

# From #5882 (had 2 bins)
p <- ggplot(palmerpenguins::penguins, aes(x= body_mass_g)) +
  geom_histogram(bins = 3)
nrow(layer_data(p))
#> Warning: Removed 2 rows containing non-finite outside the scale range
#> (`stat_bin()`).
#> [1] 3

# From #5036 (had 10 bins)
p <- ggplot(ggplot2movies::movies, aes(rating)) + 
  geom_histogram(bins = 10)
nrow(layer_data(p))
#> [1] 10

# From #5036 (had 9 bins)
p <- ggplot(ggplot2movies::movies, aes(rating)) + 
  geom_histogram(bins = 10, boundary = 0)
nrow(layer_data(p))
#> [1] 10

# From #5890
ggplot(mpg, aes(displ)) +
  geom_histogram(bins = 1, center = 0)