將圖表的組件轉換爲獨立圖形

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)