R中的IGraph-加权网络

Question

我有一个国家和许多国家之间的双边贸易数据。我想想像一下这在过去四年中的变化。

我的数据集有些奇怪。它由一个与许多国家进行贸易的国家组成。我有一个虚拟变量eu_d，我想用它为某些节点着色。我还想基于导出创建一个加权网络图。

graph_from_data_frame不允许包含权重。

g1 <- graph_from_data_frame(d = gravity_edge, vertices =Gravity_node, directed=TRUE)

is.weighted(g1)
#Set color
V(g1)$color <- ifelse(V(g1)$eu_d=="1", "orange", "dodgerblue")

plot(g1, vertex.label.color="black")

我想看看节点的长度如何随时间变化。