#小提琴图可以对不同样本间的基因表达水平进行比较
#***********************************************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)