树状图中连接节点的数量

Question

最近刚开始使用 tidygraph 和 ggraph 包，遇到了一个相对简单的问题，但奇怪的是，似乎找不到简单的解决方案。 在一个网络中，有多少节点从单个父节点向下连接？ 似乎是一个相当简单的问题，但一直在努力得出答案，尤其是当有多个“父/子”关系需要展开时。

# reproducible example -----------------

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

parent_child <- tribble(
  ~parent, ~child,
        "a", "b",
        "b", "c",
        "b", "d",
        "d", "e",
        "d", "f",
        "d", "g",
        "g", "z"
)

# converted to a dendrogram ------------

parent_child %>% 
  as_tbl_graph() %>% 
  ggraph(layout = "dendrogram") +
  geom_node_point() +
  geom_node_text(aes(label = name),
                 vjust = -1,
                 hjust = -1) +
  geom_edge_elbow()

这个结果是一个网络

我想知道的； 移出/向下时（忽略节点“a”）有多少个节点连接到点“b”？ 我期望的答案是 6，或者，包括“b”，然后是 7。

我在大约 5000 个人的网络上运行它，所以按名称过滤单个节点不是一个很好的解决方案。 我办公室里没有其他人熟悉网络分析，所以我只能自己解决这个问题。 真的希望有人有见地！ 同时将继续审查问题和可能的解决方案:) 谢谢大家！

Answer 1

一种方法是使用igraph包中的ego_size() 。 它需要一个order参数，但您可以使用边数来捕获邻域的最大可能顺序。

library(igraph)

g <- graph_from_data_frame(parent_child)

ego_size(g, order = ecount(g), nodes = "b", mode = "out", mindist = 1)

[1] 6

对于多个节点，只需传递感兴趣节点的向量：

ego_size(g, order = ecount(g), nodes = c("b", "d", "g"), mode = "out", mindist = 1)

[1] 6 4 1