Why does my graph plot 3 extra black dots?
df <- tibble::tibble(
ID = 1:52,
Variable = c(rep("A",24),rep("B",28)),
Variable2 = c(rep("1",11),rep("2",7),rep("3",6),rep("1",11),rep("2",11),rep("3",6) ),
value = c(72,92,77,84,44,85,38,79,77,84,72,81,83,90,96,30,83,76,90,89,81,87,98,83,56,75,59,60,60,62,74,50,75,67,62,90,78,72,70,85,84,55,75,53,82,62,47,57,52,50,63,61)
)
library(ggplot2)
ggplot(df, aes(x=Variable, y=value)) +
geom_boxplot() + geom_jitter(aes(color=Variable2), shape=16)