###肿瘤样本提取
Idents(seurat_obj) <- "orig.ident" ##Idents函数定义要取的类别
sub_tumor<- subset(seurat_obj,idents=c("sample1a","sample1b","sample2b","sample3a","sample3b","sample4at"), do.clean=T)
###肿瘤样本提取
Idents(seurat_obj) <- "orig.ident" ##Idents函数定义要取的类别
sub_tumor<- subset(seurat_obj,idents=c("sample1a","sample1b","sample2b","sample3a","sample3b","sample4at"), do.clean=T)