将NN和AA两个Sheet相同列的数据放到一个表格中

 

#0读取数据

df1<- read_excel("all_data.xlsx",sheet="NN")

df2<- read_excel("all_data.xlsx",sheet="AA")

#1处理为每一年一个csv文件

for (i in 1:3) {

  dd1<-df1[,i]

  dd2<-df2[,i]

  ddall<-cbind(dd1,dd2)

 #names(ddall)<-c('NN','AA')#重命名

  csvfile=paste(i,".csv",sep="")#i is name

  flie=paste("F:/A_TEST/", csvfile ,sep = "")

  write.csv(fcxall,file = flie )}