将所有的csv文件，放到一个csv文件中，并按列排列

setwd('D:/crn_1')

res=list.files(pattern='csv')

len=length(res)

first.data=read.csv(file=res[1],header=T,sep='')#读入第一个文件

#文件为frame，总共列，故分别将每一列都单独赋值给一个向量

merge_data1=first.data[1]

merge_data2=first.data[2]

merge_data3=first.data[3]

#将3个一维向量，按列排列，结合成二维数组，共3列

merge_data4=cbind(merge_data1,merge_data2,merge_data3)

#查看数组的行数

first_len=dim(merge_data4)

#选取最后20行，以便使所有的文件行数相同，能够按列排列组合

first_len1=first_len[1]-19

merge_data=merge_data4[first_len1:first_len[1],1:3]

for(i in 2:len){

new.data=read.csv(file=res[i],header=T,sep='')

new_data1=new.data[1]

new_data2=new.data[2]

new_data3=new.data[3]

new_data4=cbind(new_data1,new_data2,new_data3)

new_len=dim(new_data4)

new_len1=new_len[1]-19

new_data=new_data4[new_len1:new_len[1],1:3]

merge_data=cbind(merge_data,new_data)}

#将数据写出

write.csv(merge_data,file='merge.csv',row.names=FALSE,quote=FALSE)

添加了改变向量列的名字

setwd('D:/crn/r/ra')

res=list.files(pattern='csv')

len=length(res)

first.data=read.csv(file=res[1],header=T,sep='')#读入第一个文件

#文件为frame，总共3列，故分别将每一列都单独赋值给一个向量

merge_data1=first.data[1]

merge_data2=first.data[2]

#merge_data3=first.data[3]

#将3个一维向量，按列排列，结合成二维数组，共3列

#merge_data4=cbind(merge_data1,merge_data2,merge_data3)

merge_data4=cbind(merge_data1,merge_data2)

#查看数组的行数

first_len=dim(merge_data4)

#选取最后20行，以便使所有的文件行数相同，能够按列排列组合

first_len1=first_len[1]-19

#merge_data=merge_data4[first_len1:first_len[1],1:3]

merge_data=merge_data4[first_len1:first_len[1],1:2]

#colnames(merge_data)=c('year',res[1],'samp.depth')

colnames(merge_data)=c('year',res[1])

for(i in 2:len){

new.data=read.csv(file=res[i],header=T,sep='')

new_data1=new.data[1]

new_data2=new.data[2]

#new_data3=new.data[3]

#new_data4=cbind(new_data1,new_data2,new_data3)

new_data4=cbind(new_data1,new_data2)

new_len=dim(new_data4)

new_len1=new_len[1]-19

#new_data=new_data4[new_len1:new_len[1],1:3]

new_data=new_data4[new_len1:new_len[1],1:2]

colnames(new_data)=c('year',res[i])

#colnames(new_data)=c('year',res[i],'samp.depth')

merge_data=cbind(merge_data,new_data)}

#将数据写出

write.csv(merge_data,file='merge.csv',row.names=FALSE,quote=FALSE)