R：在具有相同列名的矩阵中高效组合列

Question

我有一个矩阵，其中的列可以复制字符列名称。

我想使列名称唯一，并添加具有相同列名的值。

像这样：

   x y  x  y
s1 3 4  6 10
s2 3 9 10  7
s3 7 1  3  2

转移到：

    x  y
s1  9 14
s2 13 16
s3 10  3

我尝试过使用sapply（）函数来完成它。

nms <- colnames(my_mat)
tf_mat_bind <- sapply(unique(my_mat), function(i)rowSums(my_mat[, nms==i, 
drop=FALSE]))

但是因为我的矩阵是2756 x 431975.因此需要花费很长时间来转移。

我正在寻找另一种有效的方法来完成这个过程。