r - ヴァイオリン プロットとドッジ ボックス プロットの位置合わせ

Question

私はこのデータフレームを持っています

set.seed(1234)
x <- rnorm(80, 5, 1)
df <- data.frame(groups = c(rep("group1",20),
                           rep("group2",20),
                           rep("group3",20),
                           rep("group4",20)),
                    value = x,
                    type = c(rep("A", 10),
                           rep("B", 10),
                           rep("A", 10),
                           rep("B", 10),
                           rep("A", 10),
                           rep("B", 10),
                           rep("A", 10),
                           rep("B", 10)))

そして、それをバイオリン プロットとしてプロットし、狭いボックス プロットに合わせて「タイプ」でグループ化したいと思います。

ggplot(data = df, aes(x = groups, y = value, fill = type)) +
  geom_violin()+
  geom_boxplot(width = 0.1, outlier.colour = NA)

ただし、ボックス プロットはバイオリン プロットと一致しません。そのような上層を行うようにggplotに指示するために欠落している引数は何ですか?

ありがとう！