循环赋值数据框的问题请教各位

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

i<-0
while(if(i==5)break){
  tt<-1100
  a<-tt*forcost[1,2]
  b<-tt*forcost[1,3]
  c<-tt*forcost[1,4]
  hutt1<-hu1%>%filter(julei==1)
  hutt2<-hu2%>%filter(julei==2)
  hutt3<-hu3%>%filter(julei==3)
  aclu<-hutt1[sample(1:nrow(hutt1),a,replace = T),]
  bclu<-hutt2[sample(1:nrow(hutt2),b,replace = T),]
  cclu<-hutt3[sample(1:nrow(hutt3),c,replace = T),]
  abcclu<-rbind(aclu,bclu,cclu)
  i<-i+1
  #把每一次循环的abcclu结果分别赋给abcclu1,abcclu2,abcclu3,abcclu4,abcclu5
  if (i==1) {
    hs1<-abcclu
  }else if(i==2){
    hs2<-abcclu
  }else if(i==3){
    hs3<-abcclu
  }else if(i==4){
    hs4<-abcclu
  }else {
    hs5<-abcclu
  }
}

然后这个while循环就在报错，但是用repeat就可以但是只会赋值1个数据框
Error in while (if (i == 5) break) { : 参数长度为零


通过判断也无法把每一次循环的结果赋给相应的变量，对这种循环处理数据框特别不熟练请各位懂得大佬指点一二不胜感激

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：数据框

如果我没有看错的话，你的目的是i=5的时候，就停止循环

应该是：  while(i<5){
......
}

绝世涛神 发表于 2020-12-17 16:53
如果我没有看错的话，你的目的是i=5的时候，就停止循环

应该是：  while(i

嗷是的，但是最终想没循环一次把一个值赋到相应得新变量里，但是就没法这样赋值

搞好了已经