1

我有这个函数，它返回给定图形对象 igraph_obj（在计算后存储权重）的图形上链接的边权重（在这种情况下如何使用 apply 函数不需要任何 igraph 库知识） node1 和 node2（存储在数据帧 df 中）：

dweight <- function(igraph_obj, node1, node2){
    return(E(igraph_obj)[node1 %->% node2]$weight)
}

我想将此功能应用于具有以下结构的数据框：

Node1 Node2 other_column1 other_column2 ...
a     b        1                2       ...
c     d        3                7       ...
...

我已经阅读了有关 apply 函数的文档和教程，到目前为止，我尝试将函数 dweight 应用于每个 node1、node2 等都没有奏效。如果我必须编写一个循环来执行此操作，它会执行类似这样的操作: dweight(igraph_obj = g, df$Node1[i], df$Node2[i]) 对于 df 的每一行 i。

因此，apply 函数应该如下所示：

apply(df, 1, dweight, igraph_obj=g)

但是随后，dweight 不知道将 df 的哪一列用作 node1、node2。这也不起作用：

apply(df, 1, dweight, igraph_obj=g, node1 = df$Node1, node2 = df$Node1)
4

1 回答 1

3

尝试： 

  mapply(dweight, node1=df$Node1, node2=df$Node2, MoreArgs=list(igraph_obj=g))

这应该可行，但我现在无法测试它。如果没有，请尝试：

  mapply(function(n1, n2) dweight(igraph_obj=g, n1, n2), df$Node1, df$Node2)

或者，如果您想稍微修改您的功能：

dweight <- function(nodes, igraph_obj){
    node1 <- nodes$Node1
    node2 <- nodes$Node2
    return(E(igraph_obj)[node1 %->% node2]$weight)
}

然后您可以像第一次尝试一样使用您的应用功能：

 apply(df, 1, dweight, igraph_obj=g)
于 2013-02-28T04:15:21.310 回答