隣接行列
この演習では、ネットワークの1次および2次の隣接行列を抽出して計算します。
スライドで、as_adjaceny_matrix() 関数を使って1次の隣接行列を抽出する方法を確認しました。
2次の隣接行列については、1次の行列を自分自身に掛け、重みなしネットワークのみを扱うため、正の値はすべて1に置き換えます。自己ループは許可しないので、対角成分は必ず0にしてください。
この演習はコースの一部です
R で学ぶネットワークデータの予測分析
演習の手順
as_adjacency_matrix()関数を使ってネットワークの隣接行列を抽出し、行列名をAdjacencyMatrixとします。AdjacencyMatrixを自乗（自分自身と乗算）して2次の隣接行列を計算し、SecondOrderMatrix_adjと名付けます。SecondOrderMatrix_adjを条件に用いて、正の値をすべて 1、対角成分を 0 にした新しい行列SecondOrderMatrixを作成します。SecondOrderMatrixの先頭10行×先頭10列を確認します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Extract the adjacency matrix
AdjacencyMatrix <- as_adjacency_matrix(___)
# Compute the second order matrix
SecondOrderMatrix_adj <- ___ %*% ___
# Adjust the second order matrix
SecondOrderMatrix <- ((___) > 0) + 0
diag(SecondOrderMatrix) <- 0
# Inspect the second order matrix
SecondOrderMatrix[___:___, ___:___]