图中的每个节点必须只有6个邻居使用R

Question

我有一个10个节点的随机图（可能可以有1000个以上的节点）。我写了下面的代码。

g <- erdos.renyi.game(10,1,type = "gnp",directed = FALSE)
degree(g)
[1] 9 9 9 9 9 9 9 9 9 9

网络图如下。See the Network Diagram

现在，我要进行更改，每个节点必须具有6度。简而言之，每个节点的度数必须为6，不得大于6或小于6。

我有一个10个节点的随机图（可能可以有1000个以上的节点）。我写了下面的代码。 g

Answer 1

set.seed(1234)
g = sample_degseq(out.deg = rep(6,10), method = "simple.no.multiple")
degree(g)
[1] 6 6 6 6 6 6 6 6 6 6