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

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

setwd('D:/crn_1')res=list.files(pattern='csv')len=length(res)f irst.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_da ta3)#查看数组的行数first_len=dim(merge_data4)#选取最后20行，以便使所有的文件行数相同，能够按列排列组合first_len1=first_len[1]-19merge_data=merge_data4[first_le n1: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_data 3=new.data[3]new_data4=cbind(new_data1,new_data2,ne w_data3)new_len=dim(new_data4)new_len1=new_len[1]-1 9new_data=new_data4[new_len1:new_len[1],1:3]

merge_data=cbind(merge_data,new_data)}#将数据写出

write.csv(merge_data,file='merge.csv',https://www.360docs.net/doc/9518024451.html,s=FALSE, quote=FALSE)

添加了改变向量列的名字

setwd('D:/crn/r/ra')res=list.files(pattern='csv')len=length(re s)first.data=read.csv(file=res[1],header=T,sep='')#读入第

一个文件

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

merge_data1=first.data[1]merge_data2=first.data[2]#merg e_data3=first.data[3]#将3个一维向量，按列排列，结合成二维数组，共3列

#merge_data4=cbind(merge_data1,merge_data2,merge_d ata3)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,n ew_data2,new_data3)

new_data4=cbind(new_data1,new_data2)new_len=dim(ne w_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',https://www.360docs.net/doc/9518024451.html,s=FALSE, quote=FALSE)