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) { : 参数长度为零


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