Adding sample level Metadata

[Ezoorp]

I was struggling to add metadata to each seurat object or sample. Usually I use AddMetaData(), but this adds the metadata to every cell, and I didn't want this. However, we can append new attributes just like appending to any other list:

data_sample <- append(data_sample, setNames(c("XYZ"), c("Sample_name")))

Note that data_sample$Sample_name <- "XYZ" just creates a new metadata label assigned to all cells.

[rharao]

You can store object-level metadata in the misc slot of the object.

foo <- pbmc_small
Misc(foo, "Sample_name") <- "XYZ"
Misc(foo)
## $Sample_name
## [1] "XYZ"
foo@misc # Another way to access it
## $Sample_name
## [1] "XYZ"
Misc(foo, "healthy") <- TRUE
# Another way to append data
foo@misc <- append(foo@misc, list(taxa = c("Eukaryote", "Animal", "Vertebrate", "Mammal", "Primate", "Human")))
Misc(foo)
## $Sample_name
## [1] "XYZ"
##
## $healthy
## [1] TRUE
## 
## $taxa
## [1] "Eukaryote"  "Animal"     "Vertebrate" "Mammal"     "Primate"    "Human"