如何通過igraph計算加權度中心性？

Question

我有一個國際出口網絡，數據框如下：

第一列是焦點“Ego”國家，第二列是焦點國家出口貨物的“Alter”國家。 第三列“PercentOfImports”記錄了重點國家對該國出口的百分比

在此處輸入圖像描述...

我想計算加權度中心性來決定哪個國家是最有影響力的（出口商品的百分比最高）。

export.gra<-graph_from_edgelist(cbind(export$Ego, export$Alter))
E(export.gra)$weight.poe<-export$PercentOfImports

我使用 strength() 來創建加權中心性。

deg.ex.poe<-strength(export.gra, mode="in", weights = E(export.gra)$weight.poe)

但是，我發現結果是有問題的。 在我的例子中，一些節點沒有中心度，沒有焦點國家出口商品。 所以我預計deg.ex.poe的向量中會出現一些0。 但是，結果（下圖中）顯示所有 0 都在這個向量的后面。 我檢查了我的數據，發現應該為0的元素被后面的非0元素填充。例如，export$Alter中的第二個元素是export$Alter中第5個國家的度中心性，因為度數中心性export$Alter 中的第 2 個、第 3 個和第 4 個元素都為 0。

在此處輸入圖像描述

希望你能幫忙！ 謝謝！

Answer 1

我使用這個循環來重新排序 deg.ex.poe。 211 是節點數。

for (i in 2:211){
    ifelse(TF[i]=="TRUE",
           deg.ex.poe[i]<-deg.ex.poe[i],
           deg.ex.poe<-c(deg.ex.poe[1:i-1],0,deg.ex.poe[i:211]))
      }