不想改ident....
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函數(shù)有妙用呀杖刷!
mac@meta.data$anno.06.12=mac_inno[match(clusters,mac_inno$clusters),'mouse.anno']
head(mac@meta.data$anno.06.12)
#檢查滑燃,成功!