如何通过igraph计算加权度中心性？

Question

我有一个国际出口网络，数据框如下：

第一列是焦点“Ego”国家，第二列是焦点国家出口货物的“Alter”国家。第三列“PercentOfImports”记录了重点国家对该国出口的百分比

enter image description here ...

我想计算加权度中心性来决定哪个国家最有影响力（总出口百分比最高的商品）。

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。

enter image description here

希望您能提供帮助！谢谢！

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]))
      }