group.by = 'seurat_clusters')
## Assigning cell type identity to clusters
new.cluster.ids <- c("Naive CD4 T"..., "CD14+ Mono", "Memory CD4 T", "B", "CD8 T",
"FCGR3A+ Mono", "NK", "DC", "Platelet...,发现了很有意思的现象:
各个细胞亚群,都是有CD4基因表达的
可以看到各个细胞亚群,都是有CD4基因表达的,我们虽然命名了 Naive CD4 T和Memory CD4 T",但是它们并没有特异性的高表达...(sce)
p1=FeaturePlot(sce,'CD4')
p2=DimPlot(sce, reduction = "umap",
label = TRUE, repel = T,..., repel = T,pt.size = 0.5) + NoLegend()
pos=sce@reductions$umap@cell.embeddings
pos=pos[sce@assays$RNA