library(tidyverse)
library(ggbeeswarm)
fback <- c("Feedback","No Feedback")
symb <- c("Symbolic","Non Symbolic")
acc <- seq(0.3,0.9,0.05)
df <- tibble(acc=acc[sample(1:13,200,prob = c(0.02,0.04,0.06,0.08,0.08,0.12,0.2,
                                              0.12,0.08,0.08,0.06,0.04,0.02),replace=T)],
             fback=fback[sample(1:2,200,replace = T)],
             symb=symb[sample(1:2,200,replace = T)],
             both=str_c(fback," ",symb),
             bin=sample(0:1,200,replace = T,prob = c(0.8,0.2)))
df$both <- factor(df$both,levels=c("Feedback Symbolic","No Feedback Symbolic",
                                   "Feedback Non Symbolic","No Feedback Non Symbolic"))

ggplot(df)+
  geom_quasirandom(aes(x=both,y=acc,fill=both),pch=21)+
  geom_quasirandom(aes(x=both,y=acc,col=factor(bin),alpha=bin))+
  scale_color_manual(values = c("white","yellow"),guide=F)+
  scale_alpha_continuous(guide=F)+
  scale_fill_manual(values=c("#CD2626", "#EE2C2C", "#104E8B","#1C86EE"),name="")+
  theme_bw()+
  theme(legend.position = "top",axis.text.x = element_blank())+
  labs(y="Accuracy",x="")