r - 色が指定されたときにggplot geom_point position_jitterdodgeが機能しませんか?

Question

boxplot+points をプロットしました。ポイントに色を付けたい。position_jitterdodge図 B に示すように、色なしでうまく機能しました。しかし、ポイントに色を追加しようとすると、jitter.widthパラメーターが機能しなくなります (図 A)。ポイントが離れすぎています。に別の番号を試しましたがjitter.width、機能しませんでした。この問題を解決するにはどうすればよいですか?

library(tidyverse)
library(ggpubr)
mtcars$cyl <- factor(mtcars$cyl)

p1 <- mtcars %>% ggplot(aes(x = cyl, y = mpg, fill = cyl)) +  
  geom_boxplot() +
  geom_point(position = position_jitterdodge(jitter.width = 0.2),
             aes(color = factor(wt)), show.legend = FALSE)

p2 <- mtcars %>% ggplot(aes(x = cyl, y = mpg, fill = cyl)) +  
  geom_boxplot() +
  geom_point(position = position_jitterdodge(jitter.width = 0.2))

ggarrange(p1, p2, labels = c("A", "B"))