我想去掉visNetwork中的自环,我该怎么做?
library(visNetwork)
nodes <- data.frame(id = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges, width = "100%")
我尝试添加以下代码,但仍然不起作用。
edges$value = 1
edges$value = ifelse(edges$from == edges$to, 0, edges$value)
最佳答案
我们可以在绘图之前删除 from
与 to
相同的边:
library(visNetwork)
visNetwork(nodes = nodes, edges = edges[ edges$from != edges$to, ])
关于消除 visNetwork 中的自循环,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/76153501/