R - 如何在 IGRAPH 中按顶点相关数字缩放边缘相关数字?

Question

我有一个图形数据框，由igraph包中的函数graph.data.frame创建。我的边包含有关"关系强度"的信息，我的节点包含有关"节点强度"的信息。

我想做的是通过它们相关的各个节点的强度来缩放关系的强度。

对于我的可重现示例，我将使用igraph文档中的设置(键入?graph.data.frame并向下滚动)。我绘制了单个参与者之间的关系advice并使用列作为关系强度的指标。出于某种疯狂的原因，我想根据建议的接受者和提供者的年龄平均值来衡量建议质量的值。

我可以在创建图形数据框之前进行缩放(我将边缘和节点作为两个单独的 data.tables，所以我所要做的就是一堆连接 + 一些巫术，因为我的真实情况比下面的示例要复杂一些)，但我很好奇在创建 igraph 数据框后如何做到这一点。

actors <- data.frame(name=c("Alice", "Bob", "Cecil", "David",
"Esmeralda"),
age=c(48,33,45,34,21),
gender=c("F","M","F","M","F"))
relations <- data.frame(from=c("Bob", "Cecil", "Cecil", "David",
"David", "Esmeralda"),
to=c("Alice", "Bob", "Alice", "Alice", "Bob", "Alice"),
same.dept=c(FALSE,FALSE,TRUE,FALSE,FALSE,TRUE),
friendship=c(4,5,5,2,1,1), advice=c(4,5,5,4,2,3))

# create graph data frame
# note that i treat the network as undirected here
g <- graph.data.frame(relations, directed=FALSE, vertices=actors)
print(g, e=TRUE, v=TRUE)
# plot a graph of the network
plot(g,
edge.label = edge_attr(g, 'advice'),
vertex.label = paste0(vertex_attr(g, 'name'),
'nage = ',
vertex_attr(g, 'age')))

Answer 1

您尝试计算的关键是ends函数，它给出了边缘的两端。

E(g)$ScaledAdvice = 0
for(e in E(g)) {
E(g)$ScaledAdvice[e] =  E(g)$advice[e] / mean(V(g)[ends(g, e)]$age)
}