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) |
|
来自: 昵称27943849 > 《R》