试试
<br />
a <- matrix(c(1,1,0,0,1,1,1,0,1), 3)<br />
b <- which(a == 1, arr.ind=T)<br />
split(b[, 1], b[, 2])</p>
<p>$<code>1</code><br />
[1] 1 2</p>
<p>$<code>2</code><br />
[1] 2 3</p>
<p>$<code>3</code><br />
[1] 1 3<br />
</p>
如果矩阵比较大，应该可以用Matrix的那个结构
