将图表的组件转换为独立图形

Question

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

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) 

有什么想法吗？

Answer 1

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)