3、付费文章集有打包价哦！

详情请联系作者：

前面我们做了一个Split小提琴图的函数（ggplot堆叠图无缝拼接(自写一个简洁堆叠小提琴图函数））。有小伙伴在实践中提出了问题，就是横坐标细胞类型celltype的顺序是默认排列的，怎么按照自己的要求进行排序，询问修改函数的方式。其实这个问题是VlnPlot做的通用问题，和这个函数无关。我们先做一个图：

library(Seurat)library(dittoSeq)library(ggplot2)library(ggpubr)makers <- c('Ltf',"Ngp",'Ccl6','Srgn','S100a9','Mmp8',            'Cstdc4', "Ccl6",'Il1b','Chn2','Stfa2l1',            'Retnlg','Olfm4','Cd177','Top2a','Stmn1')Split_Vln_stacked(mouse_data, feature = makers, split.by = 'orig.ident',                  split.plot = T, pt.size = 0, size = 10,                   cols = c("limegreen", "navy"),                  sig_label = 'p.signif',test = T,test_method = 't.test')

图片

其实问题的实质是固定因子顺序，管道保温施工我们之前在ggplot作图的时候多次提及。

unique(Idents(mouse_data))# [1] PMN(3) PMN(2) PMN(1) PMN(0) PMN(5) PMN(6) PMN(4) PMN(7)# Levels: PMN(0) PMN(1) PMN(2) PMN(3) PMN(4) PMN(5) PMN(6) PMN(7)cell_levels <- c("PMN(7)","PMN(6)","PMN(5)","PMN(4)",                 "PMN(3)","PMN(2)","PMN(1)","PMN(0)")Idents(mouse_data) <- factor(Idents(mouse_data), levels= cell_levels)Split_Vln_stacked(mouse_data, feature = makers, split.by = 'orig.ident',                  split.plot = T, pt.size = 0, size = 10,                   cols = c("limegreen", "navy"),                  sig_label = 'p.signif',test = T,test_method = 't.test')

图片

这样就可以随心所欲展示自己细胞类型顺序了。觉得分享有用的点个赞、分享下再走呗！