如何将多样本单细胞matrix拆分成单样本Seurat

如何从创建好的seurat（data）里面取出不同处理组的细胞

library(dplyr)
 
cell_8w <- cell %>% filter(condition == "8w") %>% select(CellID) %>% unlist() %>% as.vector()
data_8w <- data[,cell_8w]