У меня есть этот фрейм данных

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=.1, outlier.colour=NA)

Тем не менее, блочные графики не совпадают с графиками виолончели, что является отсутствующим аргументом, чтобы сказать ggplot сделать такое перекрытие?

Спасибо!