R合并多个格式相同的文件

file_list <- list.files(pattern = "^pleio.*\\.txt$")
data = read.table('pleio_bbj-a-6.txt',header = T, row.names = 1,sep = '\t')
for (i in file_list) {
  data1 = read.table(i,header = T, row.names = 1,sep = '\t')
  data = rbind(data,data1)
}
write.table(data,'./pleio_result.txt',sep = '\t',quote = F)