Me gustaría crear un diagrama de tira que se vea así:

enter image description here

Pero solo pude crear algo similar usando stat_summary crossbar:

ggplot(data, aes(x=variable, y=value)) + 
stat_summary(fun.data="mean_sdl", fun.args = list(mult=1), geom="crossbar", width=0.5) +
geom_jitter(position=position_jitter(0.2))

El resultado es el siguiente:

enter image description here

Agradecería cualquier consejo sobre cómo modificar el código para poder obtener un gráfico como en la primera imagen.

1
joker33 29 feb. 2020 a las 05:10

2 respuestas

La mejor respuesta
ggplot(mtcars, aes(factor(cyl), qsec)) +
    geom_jitter(position = position_jitter(width = 0.2)) +
    stat_summary(fun.data = 'mean_sdl', geom = 'errorbar', width = 0.3) +
    stat_summary(fun.y = mean, geom = 'point', size = 20, shape = '_')

enter image description here

2
Axeman 29 feb. 2020 a las 03:26

Puede usar el paquete beeswarm :

library (beeswarm)

beeswarm(len ~ dose, data = ToothGrowth, 
    col = 4, pch = 16,
    main = 'beeswarm + bxplot')
  bxplot(len ~ dose, data = ToothGrowth, add = TRUE)

enter image description here

2
Axeman 29 feb. 2020 a las 03:29