晚上好,我有一个中等大小的图(42),我需要关于它的信息(例如传递性分数)。所有图形都是iGraph对象。我的目标是将来自我的函数的信息直接写入数据帧。然而,我的图的组成发生了变化:一些节点保持不变,但其他一些节点对于每个wave是不同的。
我目前的方法看起来像这样:
#example graphs:
g1 <- graph.star(n=10, mode="out")
g2 <- graph.star(n=14, mode="out")
g3 <- graph.star(n=12, mode="out")
g4 <- graph.star(n=17, mode="in")
# make a list of graphs:
g_list <- (g1,g2,g3,g4)
# here is the function I wrote:
calc.transitivity <- function(g_list){
g_trans <- (transitivity(g_list))
return(g_trans)
}
# let it run:
info.trans <- lapply(g_list, calc.transitivity)对我来说已经足够公平了。现在,理想情况下,我可以在其中添加更多的东西(例如centralization.betweenness),以及在节点级别上计算事物的函数(例如,哪一个节点在一年中具有最高的学位?)。我想将其写入数据帧,但不确定如何a)尊重每个图的节点组成的变化,b)不知道我是否可以获得关于其中单个节点的信息,并将这些图作为某种“聚合单元”。
提前感谢您的帮助。如果有一种更优雅的方法来编写我的函数,我也很感兴趣。
发布于 2021-01-14 17:35:41
我找到了一个解决方案--不是很优雅,但很管用:
calc.density <- function(g_list){
g_dens <- (edge_density(g_list))
return(g_dens)
}
list_density <- lapply(g_sb, calc.density)
d <- as.data.frame(matrix(0, ncol = 1, nrow = 323))
d$density <- unlist(list_density)https://stackoverflow.com/questions/65704954
复制相似问题