[英]How to specify nodes' positions in visNetwork package in R
我想將節點的位置固定在(1,0),(0,1),( - 1,0),(0,-1)和(0,0)。 但是,它不起作用,我的Java知識是零(似乎, 這里是Java代碼的問題)。
有人可以幫忙嗎? 這是一個例子:
require(visNetwork, quietly = TRUE)
nodes <- data.frame(id = 1:5)
# x = c(1, 0, -1, 0, 0),
# y = c(0, 1, 0, -1, 0))
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges, width = "100%") %>%
visNodes(x = c(1, 0, -1, 0, 0),
y = c(0, 1, 0, -1, 0), fixed = TRUE, physics = TRUE) %>%
visOptions(highlightNearest = TRUE) %>%
visInteraction(navigationButtons = TRUE, dragNodes = FALSE,
dragView = FALSE, zoomView = FALSE) %>%
visEdges(arrows = 'from')
你可以做到
coords <- matrix(ncol=2, byrow=T, data=c(
1,0,
0,1,
-1,0,
0,-1,
0,0))
opts <- . %>% visOptions(highlightNearest = TRUE) %>%
visInteraction(navigationButtons = TRUE, dragNodes = FALSE,
dragView = FALSE, zoomView = FALSE) %>%
visEdges(arrows = 'from')
visNetwork(nodes, edges, width = "100%") %>%
visIgraphLayout(layout = "layout.norm", layoutMatrix = coords) %>%
opts
要么
nodes$x <- c(1, 0, -1, 0, 0)*100
nodes$y <- c(0, 1, 0, -1, 0)*100
visNetwork(nodes, edges, width = "100%") %>%
visNodes(fixed = TRUE) %>%
opts
如有必要coords[,2] <- coords[,2]*-1
使用coords[,2] <- coords[,2]*-1
翻轉垂直軸。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.