合并矩阵中具有相同列名的列

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

set.seed(1)
m <- matrix(sample(1:10,12,replace=TRUE), nrow = 3, ncol = 4, byrow = TRUE,
       dimnames = list(c("s1", "s2", "s3"),c("x", "y","x","y")))

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

我需要将具有相同列名的所有列汇总为一列，即

m <- matrix(c(9,14,13,16,10,3), nrow = 3, ncol = , byrow = TRUE,dimnames = list(c("s1", "s2", "s3"),c("x", "y")))

    x  y
s1  9 14
s2 13 16
s3 10  3

我尝试过聚合函数中的简单求和，但没有任何运气。有什么建议吗？谢谢。

好吧，这个解决方案不会因代码透明度而赢得任何奖项，但我更喜欢它：

nms <- colnames(m)
m %*% sapply(unique(nms),"==", nms)
#     x  y
# s1  9 14
# s2 13 16
# s3 10  3

它的工作原理是构建一个矩阵，形成适当的线性组合m的专栏。要了解其工作原理，请将第二行分成两个分量矩阵，然后使用以下命令将它们相乘%*%， 像这样：

 -          -      -   -
|  3 4  6 10 |    | 1 0 |
|  3 9 10  7 |    | 0 1 |
|  7 1  3  2 |    | 1 0 |
 -          -     | 0 1 |
                   -   -