如何实际居中geom_dotplot

Question

我想要用点图显示不同类别的数据。即使堆叠方向是“中心”，点也不总是居中。我认为定位的某些方面是跨越类别“继续”。但我不知道如何防止它。

这是我到目前为止的代码：

library(tidyverse)

data = data.frame(
  x = c(1, 1, 1, 1, 2, 2, 2, 2),
  y = c(1, 1, 1, 2, 1, 2, 2, 2),
  color = c(1, 2, 1, 2, 1, 2, 1, 2)
)

ggplot(data) +
  aes(x = factor(x), y = y, fill = factor(color)) +
  geom_dotplot(
    binaxis = "y", 
    dotsize = 1, 
    stackdir = "center", 
    stackgroups = TRUE, # prevent dots from overlapping
    binpositions="all")

输出：

黄色突出显示偏离中心的部分。