问题补充说明:假如我要定义100个对象,一个一个改数字太麻烦了,请教一下能不能写一个循环把红色框内的数字从1到100。(P.S.num1~num100已有)... 假如我要定义100个对象,一个一个改数字太麻烦了,请教一下能不能写一个循环把红色框内的数字从1到100。(P.S. num1~num100已有) 展开
我的建议是可能要大改整个程序:用一个list(比如叫data.list)把所有来自dataframe或者之类的东西装起来,用的时候用data.list360问答[[i]]来取出第i个dataframe。用sqldf的时候,第一个和第三斯查个可以用paste来写命令,第二个和第四个可能需要先用一新损鲜硫弱脸裂军永使整个dataframe(比如叫data)来暂时存储data.list里的一个dataframe再操作sqldf。总的来说像这样(没怎么用过SQL易见宜,可能有问题):
王杨迅dataold_list<-dataold.list<-datanew_list<-datanew.list<-vect笑夫城右卷怎收or("list",100)for(i in 1:100){ dataold_list[[i]]<-sqldf(paste("select * from Dataold a,num",i," bwhere a.LOAN_NO=b.LOAN_NO",sep=""))
dataold_list[[按践滑建应见本i]]<-dataold_list[[i]][,-1]
data<-d重ataold_list[[i]]
datao护ld.list[[i]]<-sqldf("select * f相苦济绿土命棉云rom a,data b
w语here a.LOAN_NO=b.L把酸若远技对介OAN_NO")
datanew_list[[i]]<-sqldf(paste("select * from Datanew a,num",i," b
where a.LOAN_NO=b.LO史评应AN_NO",sep=""))
dat质怀刚光求促复当选类龙anew_list[[i]]<-dataold_list[[i]][,-某修们丝律理搞蛋1]
data<-datanew_list[[i]]
datanew.list[[i]]<-sqldf("select * from a,data b
where a.LOAN_NO=b.LOAN_NO")
}
标签:循环,语言