VlnPlot(小提琴图)

基于Seurat的VlnPlot()函数的基础上，对其进行一些微调整。
Ps:要求在小提琴图上展示占比的数值。（烦人）

library(Seurat)
library(ggplot2)
pbmc<-readRDS(rds)

 p<-VlnPlot(pbmc,features = "NT5E",group.by="stim",pt.size = 0)+ylim(0,4)
+scale_x_discrete(limits=c("P2","P4","P6","P9","P14"))+xlab(" ")+theme(axis.text.x = element_text(angle = 0),legend.position = "none")
+annotate("text",x="P2",y=3.8,label=paste0(data$freq[1],"%"))
+annotate("text",x="P4",y=3.8,label=paste0(data$freq[4],"%"))
+annotate("text",x="P6",y=3.8,label=paste0(data$freq[3],"%"))
+annotate("text",x="P9",y=3.8,label=paste0(data$freq[5],"%"))
+annotate("text",x="P14",y=3.8,label=paste0(data$freq[2],"%"))  
##annotate添加占比数值。
##ylim调整y轴坐标。

Rplot.png