如何通过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]))
      }