列iにある行列/データフレームの値をベクトルのi番目の要素に置き換えます。

Question

3×3の行列mに1つ以上のゼロがあり、各ゼロを所定の数で置き換えたいとします。

交換は、この規則に従わなければならない：ゼロmの最初の列に見つかった場合

をゼロmの2列目に発見された場合、それは、ベクターvの最初の要素と置き換えなければなりませんそれはベクトルvの第2の要素と置き換えられ、第3の列/ベクトル要素についても同じでなければなりません。

行列及びベクトルである。もちろん

m <- matrix(c(0,2,3,4,0,6,0,8,0), 3, 3, byrow = TRUE) 
v <- c(1,5,9) 

、vのlengthはmの列の数と一致しなければなりません。だから、マトリックスは、このようなものです：最終的な結果はなるよう

0 2 3 
4 0 6 
0 8 0 

私は、そうでRはmの最初の列にゼロを見つけた時はいつでも、それはベクトルvの最初の要素でそれを置き換えることをしたい、と：

1 2 3 
4 5 6 
1 8 9 

私は多くの研究を行い、この問題の解決策は見つかりませんでした。誰かが助けてくれますか？

Answer 1

私はあなたの提案されたソリューションが間違っていると、ここで、あなたのテキストで説明クルンテープ問題を解決すると思いました。 whichが.arr.ind=TRUEで呼び出されると、2つの列行列が返されます。これは、i、iの参照として、行列またはデータフレームの索引付けに使用できます。この場合、2番目の列をvオブジェクトのインデックスとして使用することもできます。

> m[ which(m==0, arr.ind=TRUE) ] <- v[ which(m==0, arr.ind=TRUE)[,2] ] 
> m 
    [,1] [,2] [,3] 
[1,] 1 2 3 
[2,] 4 5 6 
[3,] 1 8 9 

Answer 2

m + t((t(m) == 0) * v) 
#  [,1] [,2] [,3] 
# [1,] 1 2 3 
# [2,] 4 5 6 
# [3,] 1 8 9 

または

m + sweep(m == 0, 2, v, `*`) 
#  [,1] [,2] [,3] 
# [1,] 1 2 3 
# [2,] 4 5 6 
# [3,] 1 8 9