what is the correct boxplot for this histogram?

gistfile1.txt

data <- tibble( x = c(
  # Peak 1 (around 0-2)
  rep(1, 50), rep(2, 30), rep(3, 20),
  
  # Dip (middle values)
  rep(4, 10), rep(5, 8), rep(6, 8), rep(7, 10), 
  
  # Peak 2 (around 10-12)
  rep(8, 20), rep(9, 30), rep(10, 50) 
))


ggplot(data) +
  aes(x) +
  geom_histogram(bins = 10)

ggplot(data) +
  aes(x) +
  geom_boxplot()

Here's the question:

Here's the histogram I can make to reproduce the question:

Here's the boxplot of the same data: