细分亚群后注释重命名
2022-06-12 本文已影响0人
一只小脑斧
不想改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)
#检查，成功！
