用互易函数转换为无向图后的igraph非互易边

我正在研究R的igraph中的一个有向图。我试图将它转换为一个无向图，其中只有前者的倒数边存在。应该很容易，但我得到了奇怪的结果

首先我是这样做的

    library(igraph)
    load("dmNet.Rdata")
    #http://www.unet.univie.ac.at/~a0406222/dmNet.Rdata

    recNet <- as.undirected(net, mode = "mutual",edge.attr.comb="sum")

    recNet <- as.undirected(net, mode = "mutual",edge.attr.comb="c")

库（igraph）
加载（“dmNet.Rdata”）
#http://www.unet.univie.ac.at/~a0406222/dmNet.Rdata
recNet发生这种情况是因为图形中的某些边是自循环。最终权重为1的所有边都是自循环：

all(which(E(recNet)$weight == 1) %in% which(is.loop(recNet)))
# [1] TRUE

显然，自循环被认为是有向图中的一条互边。如果你想把自循环看作非互连线，那么你可以从图中移除它们。但是要小心，因为有些顶点有多个自循环，您可能不想删除这些自循环