1 xm矩阵的尺寸？

Question

R几乎每天都一次又一次地让我感到惊讶：

m <- matrix( 1:6, ncol=2 )
while( dim(m)[1] > 0 ){
  print(m);
  m <- m[-1,]
}

得到：

     [,1] [,2]
[1,]    1    4
[2,]    2    5
[3,]    3    6
     [,1] [,2]
[1,]    2    5
[2,]    3    6
Error in while (dim(m)[1] > 0) { : argument is of length zero

R有1xn矩阵的问题或我的错误在哪里？

> nrow( m[-c(2,3), ] )
NULL
> dim( m[-c(2,3), ] )
NULL
> m[-c(2,3), ][,1]
Error in m[-c(2, 3), ][, 1] : incorrect number of dimensions
> str( m[-c(2,3), ] )
int [1:2] 1 4

知道如何轻松修复最初的例子，这接近我的实际问题吗？ BTW：这个循环是我的算法的瓶颈。 因此，赞赏有效的解决方案。

非常感谢！

Answer 1

[ subsetting]的默认行为是转换为更简单的结构（如果适用）。 换句话说，一旦您将1xn矩阵子集化，该对象就会转换为向量。

要更改此行为，请使用drop=FALSE参数[ ：

m <- matrix( 1:6, ncol=2 )
while( dim(m)[1] > 0 ){
  print(m);
  m <- m[-1, , drop=FALSE]
}

     [,1] [,2]
[1,]    1    4
[2,]    2    5
[3,]    3    6
     [,1] [,2]
[1,]    2    5
[2,]    3    6
     [,1] [,2]
[1,]    3    6

---

有关更多信息，请参阅?"["