r - jitterdodge 将点定位在相应箱线图之外

Question

为什么position_jitterdodge将点放置在相关的填充箱线图之外？下面，看到有应该与之关联的“圆圈”cyl=4被定位为cyl=6。我希望所有“圆圈”都与箱线图一起定位cyl=4，如何实现？

library(ggplot2)
library(dplyr)
mpg %>%
  filter(class == "midsize") %>%
  ggplot(aes(x=class, y=hwy, fill=factor(cyl))) +
  geom_boxplot() +
  geom_point(aes(shape=factor(cyl)),position=position_jitterdodge())