批量读取文件

file = list.files(path = "G:\\",pattern = ".txt")

file

RPKM <- lapply(file,function(x) read.table(x, header = T,row.names = 1))

rawdata <-Reduce(cbind, RPKM)