Calle Börstell 5 days ago
library(tidyverse)
ggplot(mutate(uncount(tibble(x=LETTERS[1:7],y=rep(1:4,e=2)[-1],z=c(rep("#DDC",4),"#678","#643","#BCD")),y),g=row_number()))+geom_bar(aes(x,fill=I(z),group=g),col="#444")+theme_void()
đšđ»âđ»âłïž #RStats
add a skeleton here at some point