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

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)