visIgraphLayout() 函数在多条边时重叠节点之间的边
The visIgraphLayout() function overlaps edges between nodes when edges are more than one
我有下面的代码,它使用 r 包 visNetwork
可视化网络。
library(visNetwork)
id<-c("articaine","benzocaine","etho","esli")
label<-c("articaine","benzocaine","etho","esli")
node<-data.frame(id,label)
from<-c("articaine","articaine","articaine","articaine","articaine","articaine","articaine","articaine","articaine")
to<-c("benzocaine","etho","esli","benzocaine","etho","esli","benzocaine","etho","esli")
title<-c("SCN1A","SCN1A","SCN1A","SCN2A","SCN2A","SCN2A","SCN3A","SCN3A","SCN3A")
edge<-data.frame(from,to,title)
visNetwork(nodes = node,edge)%>%
visOptions(highlightNearest=T, nodesIdSelection = T) %>%
# Specify that hover interaction and on-screen button navigations are active
visInteraction(hover = T, navigationButtons = T) %>%
visIgraphLayout(randomSeed = 997)
如果删除最后一行
%>%
visIgraphLayout(randomSeed = 997)
网络可视化是正确的
但是添加后我失去了一些边缘。
我需要 visIgraphLayout()
函数,因为它使我的真实网络看起来更漂亮,而且复制速度更快。为什么会发生这种情况?可能的解决方案?
一个折衷方案是将平滑的 属性 分配给具有多条边的从-到组合,但不分配给其他组合。在我的例子中,这显着提高了绘图速度。顺便说一句,我正在使用 data.table 和 visNetwork。
##assign smooth property where multiple edges
edge_list[, N := .N, by = c("from", "to")]
edge_list[N > 1, smooth := T]
edge_list[N == 1, smooth := F]
##plot
visNetwork(nodes = node_list,
edges = edge_list[, .(from, to, smooth)]) %>%
visNodes(physics = F) %>%
visIgraphLayout(randomSeed = 951)
对于无法重现的示例,我们深表歉意,但希望有用。
我有下面的代码,它使用 r 包 visNetwork
可视化网络。
library(visNetwork)
id<-c("articaine","benzocaine","etho","esli")
label<-c("articaine","benzocaine","etho","esli")
node<-data.frame(id,label)
from<-c("articaine","articaine","articaine","articaine","articaine","articaine","articaine","articaine","articaine")
to<-c("benzocaine","etho","esli","benzocaine","etho","esli","benzocaine","etho","esli")
title<-c("SCN1A","SCN1A","SCN1A","SCN2A","SCN2A","SCN2A","SCN3A","SCN3A","SCN3A")
edge<-data.frame(from,to,title)
visNetwork(nodes = node,edge)%>%
visOptions(highlightNearest=T, nodesIdSelection = T) %>%
# Specify that hover interaction and on-screen button navigations are active
visInteraction(hover = T, navigationButtons = T) %>%
visIgraphLayout(randomSeed = 997)
如果删除最后一行
%>%
visIgraphLayout(randomSeed = 997)
网络可视化是正确的
但是添加后我失去了一些边缘。
我需要 visIgraphLayout()
函数,因为它使我的真实网络看起来更漂亮,而且复制速度更快。为什么会发生这种情况?可能的解决方案?
一个折衷方案是将平滑的 属性 分配给具有多条边的从-到组合,但不分配给其他组合。在我的例子中,这显着提高了绘图速度。顺便说一句,我正在使用 data.table 和 visNetwork。
##assign smooth property where multiple edges
edge_list[, N := .N, by = c("from", "to")]
edge_list[N > 1, smooth := T]
edge_list[N == 1, smooth := F]
##plot
visNetwork(nodes = node_list,
edges = edge_list[, .(from, to, smooth)]) %>%
visNodes(physics = F) %>%
visIgraphLayout(randomSeed = 951)
对于无法重现的示例,我们深表歉意,但希望有用。