Add code to reorder cells in tSNE (especially in NE)
Modify from:
ss10x.DPrPz <- SetAllIdent(object = ss10x.DPrPz, id = "samples")
Background <- NULL
for (i in c('D17PrPzF_FMSt','D17PrPzF_LE','D17PrPzF_OE','D17PrPzF_Via','D17PrTzF_Via')){
Background <- c(Background,names(ss10x.DPrPz@ident[ss10x.DPrPz@ident==i]))
}
ss10x.DPrPz <- SetIdent(ss10x.DPrPz, Background,'Background')
ss10x.DPrPz@ident <- factor(ss10x.DPrPz@ident,levels=c("D17PrPzF_BE","Background"))
ss10x.DPrPz.test@data <- ss10x.DPrPz@data[,c(Background,colnames(ss10x.DPrPz.test@data)[!colnames(ss10x.DPrPz@data) %in% Background])]