將矩陣輸出轉換為R代碼

Question

假設我在一篇沒有R代碼的論文或教程中找到了幾個類似的矩陣來生成這樣的矩陣。 假設我想使用R重新生成（或什至在不同的功能中使用它們）這些矩陣。因此，有沒有一種簡單的方法可以將矩陣的輸出轉換為R代碼。 那就是如果我有下面的矩陣，我怎么能把它轉換成R代碼。

> Matrix
     [,1] [,2] [,3] [,4] [,5]
[1,]    5    0    0    0    0
[2,]    2    2    0    0    0
[3,]    3    3    3    0    0
[4,]    1    4    4    4    0
[5,]    4    1    1    1    1

Answer 1

我不確定您的目標是什么，但是如果您要復制/粘貼矩陣輸出（例如從教程中）並將其轉換為矩陣對象，則可以執行以下操作

mat_string <- "     [,1] [,2] [,3] [,4] [,5]
[1,]    5    0    0    0    0
[2,]    2    2    0    0    0
[3,]    3    3    3    0    0
[4,]    1    4    4    4    0
[5,]    4    1    1    1    1"

mat_list <- strsplit(strsplit(string,"\n")[[1]][-1],"    ")
mat <- do.call("rbind",mat_list)[,-1]
class(mat) <- "numeric"

mat
     [,1] [,2] [,3] [,4] [,5]
[1,]    5    0    0    0    0
[2,]    2    2    0    0    0
[3,]    3    3    3    0    0
[4,]    1    4    4    4    0
[5,]    4    1    1    1    1