How can I add a mean bar and a jitter to my dot plots?

Question

I am trying to compare data from three groups and I would like to have a mean bar on every group and some jitter.

first <- c(1, 1.2, 2, 3, 4)
second <- c(5, 6, 7, 8, 9)
third <- c(10, 16, 17, 18, 19)

df <- data.frame(Value = c(first,second),
                 Cat = c(rep("first",length(first)), rep("second",length(second))),
                 xseq = c(seq_along(first),seq_along(second)))
library(ggplot2)
ggplot(df, aes(x = Cat, y = Value, color = Cat)) + geom_point()+xlab("")




df <- data.frame(Value = c(first,second, third),
                 Cat = c(rep("first",length(first)), 
                         rep("second",length(second)),
                         rep("third",length(third))),
                 xseq = c(seq_along(first),
                          seq_along(second),
                          seq_along(third)))
library(ggplot2)
ggplot(df, aes(x = Cat, y = Value, color = Cat)) + geom_point()+xlab("")

score 2 · Accepted Answer · answered Oct 28 '22 at 20:20

Something like this?

library(ggplot2)

ggplot(df, aes(x = Cat, y = Value, color = Cat)) + 
  geom_errorbar(stat = "summary", width = 0.1, color = "black", alpha = 0.5) +
  stat_summary(geom = "point", fun = mean, color = "black") +
  geom_point(position = position_jitter(width = 0.1), shape = 18, size = 4) +
  scale_color_brewer(palette = "Set2") +
  theme_light(base_size = 16)

How can I add a mean bar and a jitter to my dot plots?

1 Answers1