#转工作目录###提取一个，将数据框nameList <- list.files("./")#确认目录下文件数location <- which(naid_df==nameList[1],arr.ind = TRUE) ##which函数有一个已知value返回坐标的功能TCGA_id <- as.character(naid_df[location[1],2]) ##通过坐标，获取TCGA_idexpr_df<- read.table(paste0("./",nameList[1]),stringsAsFactors = F, header = F)#读入第一个文件，保存为data.framenames(expr_df)
