2017-01-24 14 views

回答

1

使用R和igraph包:

library(igraph) 
g <- make_graph(~ B -- A:C:D, A-E, C-F, D-G) 
plot(g) 

enter image description here

node <- "B" 
g_2 <- 
    g %>% 
    union(connect(make_ego_graph(g, 1, node)[[1]], 2)) %>% 
    delete_vertices(node) 
plot(g_2) 

enter image description here