r - 在 R 中查找双连通分量的大小

我正在分析 R 中的一个无向图。我试图(最终)编写一个函数来获得最大连通分量的大小(顶点数)与最大双连通分量的大小之比 - 任何随机图.我能够提取最大连通分量的大小，但在最大双连通分量的大小方面遇到问题。我开始在图 g 上使用 igraph 函数 biconnected_components:

bicomponent_list <- biconnected_components(g)
bicomponent_list$components # lists all of the components, including size and vertex names
length(bicomponent_list$components[[1]]) # returns number of vertices of first bicomponent

library(igraph)

# generating sample graph
g1 <- barabasi.game(100, 1, 5)
V(g1)$name <- as.character(1:100)

g2 <- erdos.renyi.game(50, graph.density(g1), directed = TRUE)
V(g2)$name <- as.character(101:200)

g3 <- graph.union(g1, g2, byname = TRUE)

# analyzing the bicomponents
bicomponent_list <- biconnected_components(g3)
bi_list <- as.list(bicomponent_list$components)
bi_list <- lapply(bi_list, length) # lists the sizes of all of the components that I want to reorder

最佳答案

components 属性是一个包含顶点列表的列表。您可以遍历它们并像这样找到它们的长度

sapply(bicomponent_list$components, length)

如果您只想要最大的，请将其包装在 max() 中

max(sapply(bicomponent_list$components, length))

关于r - 在 R 中查找双连通分量的大小，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/33966826/