position dodge fails to dodge all overlapping values

[hadley]

library(tidyverse)
#> Loading tidyverse: ggplot2
#> Loading tidyverse: tibble
#> Loading tidyverse: tidyr
#> Loading tidyverse: readr
#> Loading tidyverse: purrr
#> Loading tidyverse: dplyr
#> Conflicts with tidy packages ----------------------------------------------
#> filter(): dplyr, stats
#> lag():    dplyr, stats

df <- tibble(
  x = c("a", "a", "b"),
  n = c(1, 5, 10)
)

ggplot(df, aes(1, n, fill = x)) + 
  geom_col(position = "dodge", alpha = 0.5)

[karawoo]

Fixed in #2196