###add new metadata column indicating each celline CellsMeta <- Astsaver2.seurat[[]] CellsMeta["CellLine"] <- CellsMeta["Age"] table(Astsaver2.seurat$SampleName2) #add cellline to each samplename CellsMeta[CellsMeta$SampleName2 == "4mFB_337VM1_05",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VM1_07",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VM1_13",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VM2_06",]$CellLine <- "V337M2" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VV1_05",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VV1_07",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VV1_13",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VV2_06",]$CellLine <- "V337M2" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VM1_07",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VM1_15",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VM2_08",]$CellLine <- "V337M2" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VM3_14",]$CellLine <- "V337M3" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VV1_07",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VV1_15",]$CellLine <- "V337M1" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VV2_08",]$CellLine <- "V337M2" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VV3F02_14",]$CellLine <- "V337M3" CellsMeta[CellsMeta$SampleName2 == "6mFB_406RR1_06",]$CellLine <- "R406W1" CellsMeta[CellsMeta$SampleName2 == "6mFB_406RR1_14",]$CellLine <- "R406W1" CellsMeta[CellsMeta$SampleName2 == "6mFB_406RW1_06",]$CellLine <- "R406W1" CellsMeta[CellsMeta$SampleName2 == "6mFB_406RW1_14",]$CellLine <- "R406W1" CellsMeta[CellsMeta$SampleName2 == "8mFB_406RR1_10",]$CellLine <- "R406W1" CellsMeta[CellsMeta$SampleName2 == "8mFB_406RW1_10",]$CellLine <- "R406W1" #randomly sample new matadata to verify samplenames are correct and repeat until you are convinced library(dplyr) sample_n(CellsMeta, 1) #now extract SampleName column and add to seurat object CellsMetaTrim <- subset(CellsMeta, select = c("CellLine")) Astsaver2.seurat <- AddMetaData(Astsaver2.seurat, CellsMetaTrim) ###add new metadata column indicating each isogenic pair CellsMeta <- Astsaver2.seurat[[]] CellsMeta["IsoPair"] <- CellsMeta["Age"] table(Astsaver2.seurat$SampleName2) #add isogenic pair name to each samplename CellsMeta[CellsMeta$SampleName2 == "4mFB_337VM1_05",]$IsoPair <- "4mFB_337VM1_05" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VM1_07",]$IsoPair <- "4mFB_337VM1_07" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VM1_13",]$IsoPair <- "4mFB_337VM1_13" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VM2_06",]$IsoPair <- "4mFB_337VM2_06" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VV1_05",]$IsoPair <- "4mFB_337VM1_05" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VV1_07",]$IsoPair <- "4mFB_337VM1_07" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VV1_13",]$IsoPair <- "4mFB_337VM1_13" CellsMeta[CellsMeta$SampleName2 == "4mFB_337VV2_06",]$IsoPair <- "4mFB_337VM2_06" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VM1_07",]$IsoPair <- "6mFB_337VM1_07" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VM1_15",]$IsoPair <- "6mFB_337VM1_15" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VM2_08",]$IsoPair <- "6mFB_337VM2_08" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VM3_14",]$IsoPair <- "6mFB_337VM3_14" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VV1_07",]$IsoPair <- "6mFB_337VM1_07" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VV1_15",]$IsoPair <- "6mFB_337VM1_15" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VV2_08",]$IsoPair <- "6mFB_337VM2_08" CellsMeta[CellsMeta$SampleName2 == "6mFB_337VV3F02_14",]$IsoPair <- "6mFB_337VM3_14" CellsMeta[CellsMeta$SampleName2 == "6mFB_406RR1_06",]$IsoPair <- "6mFB_406RW1_06" CellsMeta[CellsMeta$SampleName2 == "6mFB_406RR1_14",]$IsoPair <- "6mFB_406RW1_14" CellsMeta[CellsMeta$SampleName2 == "6mFB_406RW1_06",]$IsoPair <- "6mFB_406RW1_06" CellsMeta[CellsMeta$SampleName2 == "6mFB_406RW1_14",]$IsoPair <- "6mFB_406RW1_14" CellsMeta[CellsMeta$SampleName2 == "8mFB_406RR1_10",]$IsoPair <- "8mFB_406RW1_10" CellsMeta[CellsMeta$SampleName2 == "8mFB_406RW1_10",]$IsoPair <- "8mFB_406RW1_10" #now extract SampleName column and add to seurat object CellsMetaTrim <- subset(CellsMeta, select = c("IsoPair")) Astsaver2.seurat <- AddMetaData(Astsaver2.seurat, CellsMetaTrim)