r - 在 R 中，如何在节点之间随机生成边？

Question

所以目前我使用下面的代码随机生成30个节点和151个连接。

g <- erdos.renyi.game(30, 151 , type = "gnm" , directed = F , loops = F)

但是，我想生成一个空图然后随机生成 151 条边。我该怎么做呢？是否有我可以添加到下面的代码？

g <- g <- graph.empty(30, directed = F)

Answer 1

您可以按照说明执行以下操作 at the bottom of this page

g <- graph.empty(30, directed = F)
number_of_edges = 151

g <- g + edges(sample(V(g), number_of_edges*2, replace = T), color = "red")

但是，您似乎想要排除循环。您可以通过对 2 个节点进行 151 次采样而不进行替换来做到这一点，例如如下:

my_edges <- sapply(seq(number_of_edges),function(x) {sample(V(g),2,replace=F)})
g <- g + edges(my_edges, color = "red")

希望这对您有所帮助!

EDIT: no duplicates edges.

要创建没有重复边的图，您可以先创建所有组合，然后从中采样:

x <- combn(V(g),2)
my_edges <- x[,sample(seq(dim(x)[2]),number_of_edges,replace=F)]
g <- g + edges(my_edges, color = "red")