这里不直接用ggplot2画,因为要做差异分析,所以直接用ggpubr
step0.数据读取
load("Type.Rdata")
拆图
首先外面是一个小提琴图,中间一个箱式图,然后两两之间做差异分析,而且排列要从低到高,并且要用*来表示p值的显著程度
step1.映射
x轴是类型,y轴是表达量,填充的颜色按照type来区分,所以直接引用ggviolin
library(ggpubr)
ggviolin(Type, x="Type", y="GeneExp", fill = "Type")