添加一个节点并使用 igraph 连接每个其他节点

Add a node and connect with every other node using igraph

我想添加一个节点并将其与具有 n 个节点的给定图中的每个其他节点连接起来。

我在下面分享一个MWE。

library(igraph)
g <- sample_k_regular(10, 3)
g <- g + vertices(11)

如何以有效的方式将节点 11 与其他所有节点连接起来?此外,当我添加节点 11 并绘制图形时,出于某种原因,节点编号丢失了。我想在添加节点时保留节点编号。

你可以试试

g <- g %>%
  add_vertices(1) %>%
  add_edges(c(rbind(seq(vcount(.) - 1), 11)))

数据

set.seed(1)
g <- sample_k_regular(10, 3)