How can I create a stripchart with mean represented as a short line instead of dot in R?

Question

I would like to create a stripchart that looks like this:

But I was only able to create something similar using 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))

The result is this:

I would be grateful for any advice on how to modify the code so I can get a graph like in the first image.

score 3 · Accepted Answer · edited Feb 29 '20 at 03:29

3

You can use the beeswarm package:

library (beeswarm)

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

edited Feb 29 '20 at 03:29

Axeman

32,068
8
81
94

answered Feb 29 '20 at 02:29

Edward

10,360
2
11
26

score 3 · Answer 2 · answered Feb 29 '20 at 03:26

3

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 = '_')

answered Feb 29 '20 at 03:26

Axeman

32,068
8
81
94

How can I create a stripchart with mean represented as a short line instead of dot in R?

2 Answers2