У меня есть матрица со столбцами, которые дублируют имена столбцов символов.

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

У меня была игра с простой суммой в агрегатной функции, но мне не повезло. Любой совет? Благодарю.