ggraph在边缘移除后保持布局

Question

我想在删除边后保持图形布局(顶点位置)。举个例子：

library(igraph)
library(ggraph)

# create sample graph
g <- structure(list(from = c(1, 1, 2, 2, 3, 3), 
               to = c(2, 3, 4, 5, 6, 7)), 
          class = "data.frame", row.names = c(NA, 6L))

g <- graph_from_data_frame(g)

# plot with all edges 
ggraph(g, layout = 'tree') + 
  geom_edge_diagonal() +
  geom_node_point(size = 10) +
  theme_void()

​

​

现在删除几条边并重新绘制

g2 <- delete.edges(g, c(3,5))

ggraph(g2, layout = 'tree') + 
  geom_edge_diagonal() +
  geom_node_point(size = 10) +
  theme_void()

​

​

而这是所需的输出：

​

​

有没有一种简单的方法可以在删除边后保持顶点的位置？

Answer 1

写出问题后，你只需要使用igraph::layout_as_tree保存第一张图的布局(或任何其他布局)，它可以用于第二张图：

l <- igraph::layout_as_tree(g)

ggraph(g2, layout = l) + 
  geom_edge_diagonal() +
  geom_node_point(size = 10) +
  theme_void()

​

​

希望这能为别人节省一点时间。