细分亚群后注释重命名

不想改ident....

A5IIUDGMX5{A8)TPRAV@$O2.png

library(readxl)
#读入注释文件
mac_inno <- read_excel("mac.inno.xls")
View(mac_inno)
mac_inno <- as.data.frame(mac_inno)
colnames(mac_inno)

clusters=mac@meta.data$seurat_clusters
#match函数有妙用呀！
mac@meta.data$anno.06.12=mac_inno[match(clusters,mac_inno$clusters),'mouse.anno']
head(mac@meta.data$anno.06.12)
#检查，成功！