鏈接R中兩個不同隨機網絡中的兩個節點

Question

我使用R（和igraph軟件包）創建了兩個隨機（Erdos-Renyi）網絡，每個節點都有10個節點。每個節點上，同時在網絡中，已用隨機的0或1

這裏的屬性分配是我的代碼來做到這一點：

# Creates the first Erdos-Renyi graph, graph_a, with 10 nodes and edges with 
# p=0.2 
num_nodes <- 10 
prob <- 0.2 
graph_a <- erdos.renyi.game(num_nodes, prob, type=c("gnp", "gnm"), 
    directed=FALSE, loops=FALSE) 

# Randomly sets the attributes of the nodes of graph_a to either 0 or 1 
graph_a <- set.vertex.attribute(graph_a, "value", 
    value = sample(0:1, num_nodes, replace=TRUE)) 


# Creates the second Erdos-Renyi graph, graph_b, with 10 nodes and edges with 
# p=0.2 
graph_b <- erdos.renyi.game(num_nodes, prob, type=c("gnp", "gnm"), 
    directed=FALSE, loops=FALSE) 

# Randomly sets the attributes of the nodes of graph_b to either 0 or 1 
graph_b <- set.vertex.attribute(graph_b, "value", 
    value = sample(0:1, num_nodes, replace=TRUE)) 

我需要以某種方式從鏈接隨機選擇的節點第一個圖，從第二個圖中隨機選擇一個節點。因此，如果第一個圖中選定節點的0或1屬性值發生更改，則第二個圖中選定節點的屬性值也會發生更改（反之亦然）。

任何人都可以提出解決方案，如何實現這一目標？

非常感謝。

Answer 1

定義從a中的節點到b中的節點的映射 - 它不必是排列，只要這是具有條目的長度爲10的向量< =將應用的b中的節點的數量：在曲線圖中的

> perm=sample(10) 
> perm 
[1] 7 6 1 8 5 10 2 9 3 4 

所以節點1與隨機圖形b，A圖的節點2的b等節點6的節點7相關聯。

挑graph_a隨機節點：

> i=sample(10,1) 
> i 
[1] 7 # 7 was picked 

目前其：

> V(graph_a)$value[i] 
[1] 0 

所以我們將其翻轉：

> V(graph_a)$value[i] = 1 - V(graph_a)$value[i] 
> V(graph_a)$value[i] 
[1] 1 

其中B中一個是這個映射到？

> perm[7] 
[1] 2 

目前：

> V(graph_b)$value[2] 
[1] 1 

所以翻轉：

> V(graph_b)$value[perm[i]] = 1 - V(graph_b)$value[perm[i]] 
> V(graph_b)$value[perm[i]] 
[1] 0 

完成任務。