我有两个无向图

library(igraph)
g1 <- make_graph( edges=c("A", "B", "B", "C", "C", "A"), directed=F ) 

g2 <- make_graph( edges=c("A", "B", "B", "C", "A", "C", "C", "D"), directed=F ) 

我想比较 g1 和 g2 图的边。我想计算完全相同的边的数量，以及反转的边的数量(例如 A->C 更改为 C->A，因为在无向网络中都暗示为相似的边)，以及数量额外的边缘。

是否有一个简单的函数可以进行这种边缘比较？谁能帮我解决这个问题。

最佳答案

g1 <- make_graph(edges=c("A", "B",
                         "B", "C",
                         "C", "A"),
                 directed=F) 
g2 <- make_graph(edges=c("A", "B",
                         "B", "C",
                         "A", "C",
                         "C", "D"),
                 directed=F)
E(g1 %s% g2)

给予:

+ 3/3 edges from 43be050 (vertex names):
[1] B--C A--C A--B

https://stackoverflow.com/questions/63726493/