Question

给出以下示例代码，

library(tidyverse)
library(tidygraph)
library(ggraph)

reprex <- tibble(to = 1:10,
                  from = c(2:10, 1),
                  facet = rep(1:2, each = 5)) %>%
    as_tbl_graph()

reprex_plot <- reprex %>%
    ggraph() +
    geom_node_point() +
    geom_edge_link()

reprex_plot + facet_edges(~ facet)

如何隐藏没有边缘进入或离开节点的节点？

Answer 1

library(tidyverse)
library(tidygraph)
library(ggraph)

reprex2 <- tibble(to = 1:10,
                 from = c(2:10, 1)) %>%
    as_tbl_graph() %>%
    activate(nodes) %>%
    mutate(facet = rep(1:2, each = 5))

reprex_plot <- reprex2 %>%
    ggraph() +
    geom_node_point() +
    geom_edge_link()  +
    geom_node_label(aes(label = name)) +
    theme_graph() + 
    facet_nodes(~ facet)

reprex_plot

我可以理解您的方法，但是tidygraph的{{1}}的智慧会带来困难。您实际上是在传递一个边缘列表，其中facet是仅适用于边缘的变量。您可以通过执行as_tbl_graph()来查看facet列与节点没有关联来验证这一点。

我的解决方案是在节点上显式构造facet列，然后使用reprex %>% activate(nodes) %>% as_tibble()，这与facet_nodes()的相反

如果边缘的终端节点都在面板中，则绘制边缘。

如何在ggraph中隐藏未连接的节点

1 个答案: