在矩陣中保持數據結構替換值

Question

我有一個矩陣，看起來像這樣：

 [,1] [,2] 
[1,] 1 4 
[2,] 1 3 
[3,] 2 4 
[4,] 3 4 
[5,] 3 6 
[6,] 3 5 
[7,] 6 7 

structure(c(1, 1, 2, 3, 3, 3, 6, 4, 3, 4, 4, 6, 5, 7), .Dim = c(7L, 2L)) 

和12000個數字組成的向量：

n <- seq_along(1:12000) 

我想在sample值矢量，並將它們替換爲矩陣中的值，但保持相同的結構。以下是期望輸出的兩個例子

>example1 

    [,1] [,2] 
[1,] 10 25 
[2,] 10 3 
[3,] 122 25 
[4,] 300 25 
[5,] 300 15 
[6,] 300 89 
[7,] 15 1253 

>example2 

    [,1] [,2] 
[1,] 9 2 
[2,] 9 30 
[3,] 22 2 
[4,] 30 2 
[5,] 30 5 
[6,] 30 58 
[7,] 5 253 

Answer 1

你可以使用[]運營商，以取代矩陣中的所有值，例如：

your_matrix[] = sample(12000, length(your_matrix), replace=FALSE) 
your_matrix 
#  [,1] [,2] 
#[1,] 3051 11110 
#[2,] 11003 1606 
#[3,] 7518 1196 
#[4,] 11621 9585 
#[5,] 11044 9931 
#[6,] 9717 5835 
#[7,] 3577 9329 

編輯：對不起，我誤解你的問題。要使用相同的新值替換老值，您可以使用類似的代碼：

# create 1:max_element random values (e.g. 1:7) 
s = sample(12000, max(your_matrix), replace=FALSE) 
# replace the complete matrix with the random values 
# (s[your_matrix] is the same as s[c(1, 1, 2, 3, 3, 3, 6, 4, 3, 4, 4, 6, 5, 7)]) 
# some values are chosen twice or triple times 
m[] = s[your_matrix] 
m 
#  [,1] [,2] 
#[1,] 8781 11348 
#[2,] 8781 11033 
#[3,] 10051 11348 
#[4,] 11033 11348 
#[5,] 11033 7637 
#[6,] 11033 1754 
#[7,] 7637 8995