A =
4 5 8 10
4 0 0 0 0
5 0 0 0 0
8 0 0 0 0
10 0 0 0 0
其中 4, 5, 8, 10 是 A 的列名和行名
edge =
[,1] [,2]
[1,] 4 10
[2,] 5 8
[3,] 5 10
編碼之后，A應該看起來像
A =
4 5 8 10
4 1 0 0 1
5 0 1 1 1
8 0 1 1 0
10 1 1 0 1
我試過 A[edge] = 1，但沒有下標。
我試過 A[edge] = 1，但沒有下標。
uj5u.com熱心網友回復：
只需將您的數字矩陣轉換為字符：
A[array(as.character(edge), dim(edge))] <- 1
A <- A t(A)
diag(A) <- 1
A
4 5 8 10
4 1 0 0 1
5 0 1 1 1
8 0 1 1 0
10 1 1 0 1
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/520906.html
標籤：r矩阵统计数据
上一篇：在R中撰寫一個可變的case_when函式，其中要檢查的案例數量是可變的
下一篇：從串列元素創建標志列