if("dplyr" %in% rownames(installed.packages()) == F) {
install.packages("dplyr")
}
library(dplyr)
dataframe <- dataframe %>% mutate(Group = ifelse(grepl("-01", Sample_ID), "TumorP",
ifelse(grepl("-11", Sample_ID), "Tumor", "Other")))
如果Sample_ID
其他位置出现-01
和-11
文本的话会比较麻烦,可能需要设定更精准的regex处理。