对于每个节点，计算出边缘的加权和

Question

我想在有向加权图中对每个顶点的边的值求和，并将结果作为顶点属性分配给igraph数据帧。

最小例子：

  library(igraph)
  From<-c(rep("CAN",5),rep("AUS",5),rep("BEL",5),"ARE",  "AUT", "CHL")
  To <- c("ARE", "AUS", "AUT", "BEL",  "CHL", "ARE", "AUT", "BEL", "CAN",     "CHL","ARE", "AUS", "AUT", "CAN", "CHL", "BEL","CAN","AUS")
  Value<-c(91797,  3228225,  1304649,    86381,     7448,  1867011,      496547,    79204 ,  645396,  3141317, 18397745,   300065,    28532,      182493,
  159825 , 3069572,   357998,   125969)
  minimal.examp<-data.frame(From,To,Value)
  minimal.graph<-graph_from_data_frame(minimal.examp)