单细胞分析

1 如何将10X矩阵转换成常规矩阵

library(Seurat)

library(tidyverse)

PRO<-Read10X('/RNA_10X/outs/filtered_feature_bc_matrix')

write.table (PRO, file ="DRIF2_matrix.tsv", sep ="\t", row.names =TRUE, col.names =NA, quote =FALSE)

2 Seurat如何重新命名cluster

方法一：

Idents(rds) <- "需要改的列名"

current_ident <- c('1','2')需要改的列里边的元素

new_ident <- c('T','B')需要改成的名字

PRO@active.ident <- plyr::mapvalues(x = PRO@active.ident, from = current_ident, to = new_ident)##PRO是RDS的名字，需要改成你自己的

PRO[["new_ORIG"]] <- Idents(object = PRO)

方法二

Idents(rds) <- "需要改的列名"

sub.cluster <- c('Monocytes','Macrophages','Monocytes','Microglialcells','Neutrophils','Macrophages','Erythroblasts','Monocytes')按照原来命名的顺序来写

names(sub.cluster) <- levels(Myloid)

Myloid <- RenameIdents(Myloid, sub.cluster)

DimPlot(object = Myloid, reduction = "umap",label = TRUE)