Случайный граф с различной степенью для каждого узла в R - PullRequest
Новая
       38

Случайный граф с различной степенью для каждого узла в R

0 голосов
/ 04 июля 2018

У меня 122 узла, и я хочу создать случайный граф с фиксированной степенью узла для каждого узла. Есть ли способ сделать это в R? Я попробовал igraph, где я могу зафиксировать одинаковую степень для всех узлов, т.е. каждый из 122 узлов будет иметь степень 2. Но я хочу создать случайный граф с фиксированной степенью для каждого узла (т.е. узел A будет иметь степень 4 ; узел B будет иметь степень 5)

Я попробовал следующий код, теперь он работает: 

outdegrees <- c(2, 1, 2, 1, 2)


g <- sample_degseq(outdegrees, method = "Vl")

Спасибо

Priya

Ответы [ 2 ]

0 голосов
/ 11 апреля 2019

Вот один подход:

  1. Составьте список, L.
  2. Для каждого i положить c_i i в список.
  3. Перемешать список.
  4. Соедините L[1] с L[2], L[3] с L[4] и т. Д.
  5. Если у вас получились петли (и вы этого не хотите), переходите к 3.
0 голосов
/ 04 июля 2018

Вы можете использовать sample_degseq для создания графика с заданной последовательностью степеней.

В качестве примера предположим, что вам нужна последовательность градусов 1, 1, 2, 2, ..., 61, 61. Вы можете использовать следующий код: 

> library(igraph)
> deg.seq <- rep(1:61, 2)
> sample_degseq(deg.seq)
IGRAPH 45e3c32 U--- 122 1891 -- Degree sequence random graph
+ attr: name (g/c), method (g/c)
+ edges from 45e3c32:
 [1]  80--121   9-- 82  54--114  57-- 96  52-- 60  16-- 55  38--105  29-- 80
 [9]  69--115   6-- 28  92--111  29-- 49  47-- 67  90--106  49--121  43--114
[17]  40-- 46  47--115 120--122  55--100  98--104  43--109  28-- 98  25--115
[25]  38-- 43  48-- 52  27-- 92  26--107  53--107  60--110  97--110  91--106
[33]  18-- 98 117--119  28-- 51  58--104  61--110  43--105  39-- 51  31-- 95
[41]  84-- 87  94--112  32-- 58  41-- 98  19--113  40-- 47  41-- 50 116--121
[49]  51-- 95  58--118  97--111 100--119  40-- 92  18--114  22--101  46-- 77
[57]  12-- 88  54--109  49-- 58  42-- 61  47-- 53  45--116  31--122  52--102
+ ... omitted several edges
...