R：将一个矩阵的值映射到另一矩阵的阶上

Question

我有两个矩阵。 “ order”是一个矩阵，其中包含我想要数据的顺序（其中1是事件，零是非事件）。 每行给出每个记录的顺序。 但是，我这里不需要1或0，我想要一个值，A或B或其他任何值。

orders <- structure(c("1", "1", "1", "1", "1", "1", "0", "1", "0", "0", 
"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
"1", "1", "1", "0", "0", "0", "0", "0", "1", "0", "0", "0", "1", 
"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"), .Dim = c(6L, 
8L), .Dimnames = list(c("1", "2", "3", "4", "5", "6"), c("1", 
"2", "3", "4", "5", "6", "7", "8")))

“值”矩阵代表我要映射到上述顺序的值。 因此，A和B替换了1。 零保持不变。 因此，如果第i行以AAB ...开头的值，并且第i行的顺序为100101，则结果应为A00A0B。

values <- structure(c("A", "B", "A", "B", "A", "B", "A", "B", "0", "0", 
"A", "B", "A", "B", "0", "0", "0", "B", "0", "B", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"), .Dim = c(6L, 
8L))

所以我希望的输出看起来像这样：

desired <- structure(c("A", "B", "A", "B", "A", "B", "0", "B", "0", "0", 
"0", "0", "0", "0", "0", "0", "A", "0", "0", "0", "0", "0", "0", 
"B", "A", "B", "0", "0", "0", "0", "0", "B", "0", "0", "0", "B", 
"0", "0", "0", "0", "0", "0", "A", "0", "0", "0", "0", "0"), .Dim = c(6L, 
8L), .Dimnames = list(c("1", "2", "3", "4", "5", "6"), c("1", 
"2", "3", "4", "5", "6", "7", "8")))

几个小时以来，我一直在用for循环弄乱，以使其在R中起作用，这真让我发疯。 我强烈怀疑这里有一个非for循环选项，但老实说我不在乎如何获得最终结果。 计算机时间不是一个因素，我的数据集仅在数百行中。 我还应注意，矩阵的大小相同。 谢谢！

Answer 1

好吧，我找到了一个需要循环的简单答案，但这至少是这样：

desired <- orders
for (i in 1:nrow(data)){
  desired[i,which(orders[i,]=="1")] <- values[i,which(values[i,]!="0")]}