R 你能计算出图形对象列表的平均传递性吗？

我列出了1000个随机网络，与一个网络进行比较。我想计算它们的平均度量，包括及物性（）、互易性（）和平均距离（）。这是我用来列清单的代码

set.seed(1)
nwl <- list()
for (x in seq_len(1000L)) {
    Start = sample(18, 693, replace=TRUE)
    End   = sample(18, 693, replace=TRUE)
    df = data.frame(Start, End)
    nwl[[x]]= graph_from_data_frame(df, directed=TRUE)
}

其中x=列表中的图形编号。有没有一种方法可以计算所有这些的平均值？

您可以使用

sapply(nwl, transitivity)

获取值，以及

mean(sapply(nwl, transitivity))
# [1] 0.9862236

---

获取平均值。

好的，就这样。我道歉

mean(sapply(nwl, transitivity))
# [1] 0.9862236