矩阵加法 - 多个唯一标识符

Question

AM尝试添加来自两个不同矩阵的元素，每个矩阵都有三个唯一标识符，如下所示：

矩阵A：

A  B  C  D  E  F  G  H
1   x    1   2   10 11 12 13 10

2   y    1   2   11 12  14 12 13 

3  y    1   3  12  10 11  12

第二个矩阵看起来像：

    A  B  C  D  E  F  G  H
1   x    1   2   20 14 17 10 10

2   y    1   2   11 12  14 12  13 

3  y    1   3  17  10 19  12

请注意，变量A，B和D形成每个参与者的唯一标识符。 我希望编写一个代码，以便在总结矩阵值时考虑到这一点。

Answer 1

您的数据应该是长格式。

library(reshape2)
dat.l <- melt(dat,id=c('A','B','D'))
dat1.l <- melt(dat1,id=c('A','B','D'))

然后你只需加value：

dat.l$value = dat.l$value + dat1.l$value