r语言 - 将函数应用于具有不同函数参数的网络对象列表

Question

我有一个igraph网络对象列表和一个函数，我想将其应用于每个网络，每个网络都有一组不同的函数参数。

可重现的示例：

# network
network <- graph(c("1","2","3","4"),directed = FALSE)
# making a list of graph objects
Converted <- list(network)
List <- rep(Converted,10)
# List with different parameters (Function arguments)
Xvalues <- 1:10
# function to add x nodes to the network
AddNode <- function(network,x){
for (i in 1:x){
network <- network + vertex(as.character(length(V(network)) + 1)) 
}
return(network)
}

我想要的是将带有第 i 组参数的函数用作网络列表第 i 个元素上的函数参数。当然，这适用于 for 循环，但我真的很想使用 lapply、mapply、map 等找到一个解决方案，因为它会使脚本的其余部分更容易阅读和并行化(实际脚本中的函数要复杂得多，不涉及 for 循环(。

这是我到目前为止未成功尝试的：

Lapply

ResultList <- lapply(List,AddNode,Xvalues)

Mapply

ResultList <- mapply(AddNode,List,Xvalues)

地图

ResultList <- map(.x = List,.f=AddNode,x=Xvalues)

使用 for 循环的次优解决方案：

ResultList <- list(NA)
ResultList <- rep(ResultList,10)
for (i in Xvalues){
ResultList[[i]] <- map(.x = List[i],.f=AddNode, x = Xvalues[i])
}

Answer 1

您的Xvalues需要与列表长度相同，并且您需要 mapply 中的SIMPLIFY=F参数：

Xvalues <- 1:10
ResultList <- mapply(AddNode,List,Xvalues, SIMPLIFY=F)