2017-05-22 14 views
0

グラフが接続されていないため、各コンポーネントを独立したグラフに変換したい。グラフのコンポーネントを独立したグラフに変換する

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) 

それに任意のアイデア:これは私が結果に達することができなかった例で、私が書いているのですか?

答えて

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) 
+0

これは信じられないほどです。ありがとう。 – minoo

関連する問題