Nadala per a quatre violins

library(ggplot2)
n <- c(1,30,4)*1000

mostra <- c(6-rchisq(n[1],3)*.5,
            -c(rchisq(n[2]/2,2),rchisq(n[2]/2,3))*2,
            rchisq(n[3],1)*3-23)
dades <- data.frame(y=mostra, 
                    x=rep(1:length(n), n))
dadestot <- data.frame(y=rep(mostra,2), 
                       x=c(rep(1:length(n), n),
                           rep("Nadal 2019",sum(n))),
                       r=rep(as.character(0:1), each=sum(n)))
ggplot(dadestot)+
  geom_violin(aes(y=y,x=x, color=r), scale="width", bw="nrd")+
  labs(x="En aquesta època de l'any, de vegades, s'ajunten les dades i surt un àngel.\nBones festes i feliç 2020",
       caption="http://rpubs.com/perelopez/nadala2019")+
  theme(plot.caption = element_text(color="grey"),
        legend.position = "none")+
  scale_color_manual(values=c("grey","blue"))

Vegeu també http://rpubs.com/perelopez/nadala2018