以rowum为条件提取矩阵行？

Question

在矩阵中,如何确定具有最大行的行rowsums.例如,在以下矩阵中:

     -  A  P  S  T
  -  1  0  0  0  0
  A  0  0  0  0  1
  C  0  0  0  1  0
  P  0  2  0  2  0
  S  0  0  0 23  3
  T  0  0  1  0  0

S&P行有两个最大的rowsums.

Answer 1

没有必要使用这些名称,您可以轻松地做到:

> Rsum <- rowSums(mat)
>  mat[tail(order(Rsum),2),]
  - A P  S T
P 0 2 0  2 0
S 0 0 0 23 3