secundaria - interpretacion diagramas de cajas y bigotes

cómo alinear viñetas de violín con diagramas de caja

Question

Tengo este marco de datos

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)))

Y me gustaría trazarlo como un diagrama de violín, alineado con un diagrama de caja estrecha y agrupado por

el tipo de variable:

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

Sin embargo, los diagramas de caja no se alinean con los trazados del violín, ¿cuál es el argumento que falta para decirle a ggplot que haga tal superposición?

¡Gracias!

Answer 1

Debes establecer el width del esquivar explícitamente para ambos geom :

dodge <- position_dodge(width = 0.4)

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