#提取稀疏矩阵
count <- covid46@assays$RNA@counts
#提取metadata
meta46 <- covid46@meta.data
write.table(meta46,file="meta46.txt")
#新建Seurat object
covid <- CreateSeuratObject(counts = count,project = "covid46")
metadata <- read.table("meta46.txt")
#添加meta信息
covid <- AddMetaData(covid,metadata = metadata)