x<-c(1:12)
y<-rep(c("a","b","c","d"),3)

deal<-data.frame(x,y)
deal

for (i in 1:12){deali<- deal[c(which(i==x)),]}
   
deali
本人希望得到12个结果，可是循环后只出现最后一个，不知道拿错了？