R-合并表示行元素公共列位置的矩阵的多行？

我想在一行中合并多行，其中这些行具有相同的列元素位置

输入：

      one two three four five
[1,]   1   1    1    0     0
[2,]   2   2    2    0     0
[3,]   0   0    3    3     3
[4,]   4   4    4    0     0
[5,]   0   0    5    5     5
[6,]   6   0    6    0     6

输出矩阵必须如下所示：

       one two three four five
[1,]   1   1    1    0     0
[2,]   0   0    3    3     3
[3,]   6   0    6    0     6

---

请注意，合并行表示合并行之间的最小值。

给定矩阵

m

，可以执行以下操作：

m[!duplicated(m==0),]
#     one two three four five
#[1,]   1   1     1    0    0
#[3,]   0   0     3    3    3
#[6,]   6   0     6    0    6

m==0

返回一个逻辑矩阵，

duplicated

返回一个指示重复行的逻辑向量，该向量用于将矩阵

m

子集