cluster_letters <- LETTERS[Idents(object = pbmc_small)]
names(cluster_letters) <- colnames(x = pbmc_small)
pbmc_small <- AddMetaData(
object = pbmc_small,
metadata = cluster_letters,
col.name = 'letter.idents'
)
head(x = pbmc_small[[]])
Run the code above in your browser using DataLab