添加两个不同大小和子集的数据帧

Question

我有一堆看起来像这样的过渡矩阵。

> temp 
     31-60 5-30 61-90 Current PaidOff 
5-30  283 317  9  500  9 
Current  0 2935  0 179989 1689 
PaidOff  0 0  0  0  0 

我想，所以我做了一个0矩阵与正确的行和列的名称要规范大小：

> blankMatrix 
        Current 5-30 31-60 61-90 91-120 ChargeOff_Default PaidOff 
Current     0 0  0  0  0     0  0 
5-30     0 0  0  0  0     0  0 
31-60     0 0  0  0  0     0  0 
61-90     0 0  0  0  0     0  0 
91-120     0 0  0  0  0     0  0 
ChargeOff_Default  0 0  0  0  0     0  0 
PaidOff     0 0  0  0  0     0  0 

有没有一种方法可以轻松地第一个矩阵添加到第二。因此，例如283号会自动进入位置（2,3）。我希望避免循环冗长和混乱，我经常迭代并检查行和列名称是否匹配。

谢谢！

Answer 1

可以使用expand.grid创建的行和列指数从温度的行和列名的矩阵，然后blankMatrix[matrix index]将选择从矩阵索引的索引对值;要更改相应索引处的值，只需将值分配给它;

temp <- as.matrix(temp) 
blankMatrix <- as.matrix(blankMatrix) 

matIndex <- as.matrix(expand.grid(rownames(temp), colnames(temp))) 
blankMatrix[matIndex] <- temp 
blankMatrix 
#     Current X5.30 X31.60 X61.90 X91.120 ChargeOff_Default PaidOff 
#Current   179989 2935  0  0  0     0 1689 
#5-30     500 317 283  9  0     0  9 
#31-60     0  0  0  0  0     0  0 
#61-90     0  0  0  0  0     0  0 
#91-120     0  0  0  0  0     0  0 
#ChargeOff_Default  0  0  0  0  0     0  0 
#PaidOff     0  0  0  0  0     0  0