matlab半小提琴图,【画图专题】小提琴图vioplot

#小提琴图可以对不同样本间的基因表达水平进行比较

#***********************************************vioplot

rm(list=ls())

options(stringsAsFactors = F)

setwd("/media/bmk/Elements SE/2.work/1.工作经验总结-20190528/3.DZH/4.画图/vioplot")

library(pacman)

p_load(vioplot)

par(mfrow=c(1,2))

mu

si

bimodal

uniform

normal

vioplot(bimodal,uniform,normal,col = "gold",names = c("bimodal","uniform","nomal"))

boxplot(bimodal,uniform,normal,col = "gold",names = c("bimodal","uniform","nomal"))

#************************************************ggplot2

library(ggplot2)

label

data1

#绘制小提琴图

p1

#添加抖动散点(Jitteredpoints)

p2

#更改画布背景主题

mytheme

panel.grid.minor =element_line(color= "white"),legend.title = element_blank())

p1

p2

cowplot::plot_grid(p1,p2)