- 处理源数据 如图:
红框位置得得ID如果不存在就手动加上,后面需要用到ID做筛选
-
R代码
library("dplyr") #导入dplyr 包 如果未安装dplyr ,请使用install.packages("dplyr") 进行安装 data <- read.csv("TCGA11111.csv",header = T) #导入数据文件 data <- data.frame(data) #调用data.frame 方法 处理数据 #指定要提取的行名称 get1 <- data %>% filter( ID == 'SRF'|ID == "NR3C1"|ID == "NF1"|ID == "TBP"|ID == "RXRA"|ID == "WT1"|ID == "ETV4"|ID == "PAX5"|ID == "TP53"|ID == "FOXA1"|ID == "FOXP3"|ID == "MYB"|ID == "IRF1"|ID == "LEF1"|ID == "IKZF1"|ID == "STAT1"|ID == "NFYA"|ID == "EBF1"|ID == "E2F1"|ID == "ELK1"|ID == "POU2F1"|ID == "NR2F1") write.csv(get1,"newName.csv") #把筛选出来的数据保存到文件newName.csv文件
-
最后导出的结果