visNetwork中去除自环

visNetwork是一个用于创建交互式网络图的R软件包。有时候在网络图中会出现自环，也就是连接一个节点自己的边。有时，这些自环会影响网络图的可视化和解释性。因此，我们需要一种方法来去除这些自环。以下是

1. 使用visNetwork中的rm_edges函数，将所有与节点自身连接的边删除。

library(visNetwork)

# 创建网络图
nodes <- data.frame(id = 1:5)
edges <- data.frame(from = c(1,1,2,2,3), to = c(1,2,1,3,4))
visNetwork(nodes, edges)

# 删除自环
edges <- edges[edges$from != edges$to, ]
visNetwork(nodes, edges)

2. 构建一个函数，在网络图中去除自环。

rm_self_loop <- function(nodes, edges) {
  edges <- edges[edges$from != edges$to, ]
  return(visNetwork(nodes, edges))
}

# 调用函数
rm_self_loop(nodes, edges)

无论是哪种方法，我们可以获得一个没有自环的网络图。