R tips：使用lapply和do.call读取并合并多个文件

###1. 先模拟几个数据文件，以用于导入###
# 创建6个文件，每个文件有一个数据框，为一行三列数据，列名a,b,c
dir.create("test")
lapply(1:6, function(x){
  df <- data.frame(a=x,b=x,c=x)
  write.table(df, file=paste0("test/",x,".txt"), row.names = F)
})

###2. lapply读入6个文件，并使用do.call来调用rbind去合并6个文件###
library(magrittr)
# 读入数据
file_list <- list.files("test", full.names = T)%>%lapply(function(x){
  read.table(x, header = T)
})
# 使用rbind合并
do.call(rbind, file_list)
#结果如下：
#  a b c
#1 1 1 1
#2 2 2 2
#3 3 3 3
#4 4 4 4
#5 5 5 5
#6 6 6 6

# 更改第一个数据框的列名为"d" "e" "f"
colnames(file_list[[1]])<-c("d","e","f")
do.call(rbind, file_list)
#Error in match.names(clabs, names(xi)) : 
#  names do not match previous names

file_mat <- lapply(file_list, as.matrix)
do.call(rbind, file_mat) #可以运行
#     d e f
#[1,] 1 1 1
#[2,] 2 2 2
#[3,] 3 3 3
#[4,] 4 4 4
#[5,] 5 5 5
#[6,] 6 6 6