消除 visNetwork 中的自循环

标签 r visnetwork

我想去掉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%")

enter image description here

我尝试添加以下代码,但仍然不起作用。

edges$value = 1
edges$value = ifelse(edges$from == edges$to, 0, edges$value)

最佳答案

我们可以在绘图之前删除 fromto 相同的边:

library(visNetwork)

visNetwork(nodes = nodes, edges = edges[ edges$from != edges$to, ])

enter image description here

关于消除 visNetwork 中的自循环,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/76153501/

相关文章:

r - 评估 R 中函数调用内的代码(在循环内使用 ICC::ICCbare)

r - R Leaflet 标记弹出窗口中的图像

r - Visnetwork 图未保存为 png 图像

r - 如何在 R 中的 visNetwork 包中指定节点的位置

r - 聚类后​​将类分配给数据框

r - 马赛克图(vcd包)-图例的位置

r - R中有字典功能吗

R Markdown : visNetWork not displayed in html output when using for loops (or functions)

r - 为什么 R 中的这个 visNetwork 不显示边缘