# 注意这个目录下只有txt文档
filename=list.files()
# 用sapply读取
zz<- sapply(filename,function(x) read.table(x,head=T) )
# 合并文件
mergedata = do.call("rbind",zz)

setwd("E:/ccstest/R")                                                                    #设定工作目录为D盘
> a = list.files("data")                                                       #list.files命令将input文件夹下所有文件名输入a
> dir = paste("./data/",a,sep="")                                      #用paste命令构建路径变量dir
> n = length(dir)                                                                 #读取dir长度，也就是文件夹下的文件个数
> merge.data = read.csv(file = dir[1],header=T,sep=",")   #读入第一个文件内容（可以不用先读一个，但是为了简单，省去定义data.frame的时间，我选择先读入一个文件。
> for (i in 2:2){
+     new.data = read.csv(file = dir[i], header=T, sep=",")
+     merge.data = rbind(merge.data,new.data)
+ }
>
> #循环从第二个文件开始读入所有文件，并组合到merge.data变量中
> write.csv(merge.data,file = "./data/merge.csv",row.names=F)  #输出组合后的文件merge.csv到input文件夹

D 换成E ，input换成data