用空文件夹装好需要合并的文件。

rm(list=ls())

library(plyr)

setwd("文件夹路径")

a = list.files()

dir = paste("文件夹路径\\",a,sep="")

n = length(dir)

merge.data = read.table(file = dir[1],header=T,sep=",")

#colnames(merge.data) <- c("A","B","C")encoding="UTF-8"

#merge.data<-merge.data[,-4]

#colnames(merge.data)

for (i in 2:n){

  new.data = read.table(file = dir[i], header=T, sep=",")

  merge.data = data.frame(join(merge.data,new.data,by='P'))

}

write.table(merge.data,file="merge.csv",sep=',',quote = F,row.names=F)

容易遇到的问题：

1.在导入文件时，可能会出现第一列列名为“X.U.FEFF.xx”。这可能是文件类型或编码方式导致，本人解决方法是将csv（utf-8）文件另存为csv文件。“X.U.FEFF.xx”字样消除。

2.在数据合并时参数type=“full”容易导致数据合并不成功。
参考网站：http://blog.sina.com.cn/s/blog_46d621c00101l66x.html