有没有办法使用 tidygraph 激活节点的子集？

Question

我对 R 很陌生。

我正在尝试使用 tidygraph 编写以下代码：

V(g)$activated <- F
V(g)[seeds]$activated=T

其中 g 是我的图形，activated 是我要添加的属性，seeds 是预定义的向量。我使用 tidygraph:

成功完成了第一部分

g%<>%activate(nodes)%>%
  mutate(activated=F)

我在想第二部分怎么做。

Answer 1

我不确定您的 seeds 变量是什么样的。此解决方案假定 seeds 是对应于节点名称的数值向量。这是重现图表的代码。

library(igraph)
library(tidygraph)
library(tidyverse)

g <- play_erdos_renyi(10, .2)
seeds <- 1:3
V(g)$activated <- FALSE
V(g)[seeds]$activated <- TRUE
g

# # A tbl_graph: 10 nodes and 16 edges
# #
# # A directed simple graph with 1 component
# #
# # Node Data: 10 x 1 (active)
# activated
# <lgl>    
# 1 TRUE     
# 2 TRUE     
# 3 TRUE     
# 4 FALSE    
# 5 FALSE    
# 6 FALSE    
# # ... with 4 more rows
# #
# # Edge Data: 16 x 2
# from    to
# <int> <int>
# 1     8     1
# 2     4     2
# 3     1     3
# # ... with 13 more rows

这是解决方案。使用 row_number() 是因为节点名称对应于此随机图示例中的行号。如果您有一个节点名称变量，您可以简单地替换 row_number()。在单独的说明中，tidygraph 默认情况下为节点设置活动数据框。所以，不需要激活节点。

g <- play_erdos_renyi(10, .2)
g |> 
  mutate(activated = row_number() %in% seeds)
  
# # A tbl_graph: 10 nodes and 16 edges
# #
# # A directed simple graph with 1 component
# #
# # Node Data: 10 x 1 (active)
# activated
# <lgl>    
# 1 TRUE     
# 2 TRUE     
# 3 TRUE     
# 4 FALSE    
# 5 FALSE    
# 6 FALSE    
# # ... with 4 more rows
# #
# # Edge Data: 16 x 2
# from    to
# <int> <int>
# 1     8     1
# 2     4     2
# 3     1     3
# # ... with 13 more rows

有没有办法使用 tidygraph 激活节点的子集？

Is there a way to activate a subset of nodes using tidygraph?

r

tidygraph