我有一个未连接的图表,我想将每个组件转换为独立的图形。这是一个例子,我写了一些我无法达到的结果:
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)
有什么想法吗?
答案 0 :(得分: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)