有一张表为16万*786，第786列的数据只有1和2两种，我想把为1的每一行提取出来作为一张表，等于2的每一行提取出来组成另外一张表。
我写了这样的代码先用一个例子试，结果只得到最后一条符合条件的数据，求解
     [,1] [,2]
[1,]    1    1
[2,]    2    1
[3,]    3    1
[4,]    4    1
[5,]    5    2
[6,]    6    2
[7,]    7    2
[8,]    8    2


> for(i in 1:nrow(y))
+ { if(y[i,2] == 1)
+ a = rbind(y[i,])
+ }
> a
     [,1] [,2]
[1,]    4    1