Nice violin plot for single cell sequencing #tutorial #R #singlecell #NGS

#NICE violin plot library(ggplot2) library((ggbeeswarm) p<-ggplot(set, aes(x=group, y=quanti, color=group,size=7)) p<-p+geom_violin(size=1,color="black", linetype=2, adjust=0.5) p<-p+theme_bw()+ geom_jitter() p<-p+stat_summary(fun.y=mean, geom="point",shape="+",size=10,color="black") p<-p+scale_colour_brewer(palette = "Pastel1") p<-p+xlab("") p<-p+theme(axis.text=element_text(size=14),axis.title=element_text(size=18,face="bold")) p1 <- p + theme(legend.position = "none") p1