[英]Place nodes explicitly with visNetwork (or an Alternative)
如何在visNetwork
图上显式放置nodes
?
或者:如何使用visNetwork
或替代方法在R中重新创建该图形?
背景:最终目标是代表来自Vensim文件的因果回路图 。 明确地放置节点只是第一步(关键),因为在因果循环图中,节点的可视化映射是信息的一部分(与一般图论不同)。 因此,如果有人对大局有所建议。 “将因果回路图建模引入R”,我会非常高兴。
我试过的
library("visNetwork")
nodes <- data.frame(id = 1:3, label = c("one", "two", "three"))
edges <- data.frame(from = c(1,1,2), to = c(2,3,1))
visNetwork(nodes, edges, width = "100%", title = nodes$labels, stringsAsFactors = FALSE) %>% visEdges(arrows = "to")
绘制类似的内容(由于随机种子,确切的布局会改变):
通过这里的问答,我尝试通过设置x
和y
值来手动放置节点。
library("visNetwork")
nodes <- data.frame(id = 1:3, label = c("one", "two", "three"), x = c(0,1,2), y = c(0,1,2))
edges <- data.frame(from = c(1,1,2), to = c(2,3,1))
visNetwork(nodes, edges, width = "100%", title = nodes$labels, stringsAsFactors = FALSE) %>% visEdges(arrows = "to")
哪些情节:
..我真的不明白x
, y
和屏幕上放置位置之间的对应关系。
另外,我在visLayout
的文档中找不到任何visLayout
。
事实证明, x
和y
args不起作用。 这里是一个解决方案:
library("visNetwork")
nodes <- data.frame(id = 1:3, label = c("one", "two", "three"))
edges <- data.frame(from = c(1,1,2), to = c(2,3,1))
coords <- as.matrix(data.frame(x = c(0,1,2),
y = c(0,1,2),
stringsAsFactors = FALSE))
visNetwork(nodes, edges, width = "100%", title = nodes$labels) %>%
visNodes() %>%
visOptions(highlightNearest = TRUE) %>%
visInteraction(navigationButtons = TRUE,
dragNodes = TRUE, dragView = TRUE,
zoomView = FALSE) %>%
visEdges(arrows = 'to') %>%
visIgraphLayout(layout = "layout.norm", layoutMatrix = coords)
有关历史,请参见此处 。 也许这些链接可能对您想要达到的目标有用: causaleffect和plot.CLD
使用ggraph
而不是visNetwork
简化了事情。
library(ggraph)
library(igraph)
g <- make_graph(edges = c(1,2,2,1,1,3))
V(g)$name <- c('one', 'two', 'three')
ggraph(g, layout = 'manual', node.positions = data.frame(x = c(1,1,2), y = c(2,1,2.1))) +
geom_edge_arc(aes(start_cap = label_rect(node1.name),
end_cap = label_rect(node2.name)),
angle_calc = 'along',
label_dodge = unit(2.5, 'mm'),
arrow = arrow(length = unit(4, 'mm'))) +
geom_node_text(aes(label = name, x = x, y = y))
这是我正在寻找的(除了网格线和颜色)。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.