Fatal编程技术网
  • r/
  • R 将图的组件转换为独立图

R 将图的组件转换为独立图

r

R 将图的组件转换为独立图,r,igraph,R,Igraph,我有一个未连接的图，我想将每个组件转换为一个独立的图。这是一个例子，我写下了我无法达到的结果： gr<- graph( edges=c(1,2, 2,3,3, 1,4, 5), n=5, directed=F ) is.connected(gr) cl <- clusters(gr) f<-induced.subgraph(gr1,which(cl$membership == which.max(cl$csize))) sapply(gr, function(f) f)

我有一个未连接的图，我想将每个组件转换为一个独立的图。这是一个例子，我写下了我无法达到的结果：

gr<- graph( edges=c(1,2, 2,3,3, 1,4, 5), n=5, directed=F ) 
is.connected(gr)

cl <- clusters(gr)
f<-induced.subgraph(gr1,which(cl$membership == which.max(cl$csize)))
sapply(gr, function(f) f)

gr
gr这太不可思议了。谢谢。

gr <- graph( edges = c(1,2, 2,3, 3,1, 4,5), n = 5, directed = F)
is.connected(gr)

cl <- clusters(gr)

graph_splitting <- function(k, gr, cl = clusters(gr)){
    induced.subgraph(gr, cl$membership == k)
}

sapply(1:max(cl$membership), graph_splitting, gr = gr, cl = cl, simplify = FALSE)