visNetwork 패키지에서 노드의 위치를 ​​지정하는 방법 R

Question

(1,0), (0,1), (-1,0), (0, -1)에 노드의 위치를 ​​고정하고 싶습니다. 및 (0, 0). 그러나 그것은 작동하지 않으며 Java 지식은 0입니다 (Java 코드에 대한 질문은 here입니다).

아무도 도와 줄 수 있습니까? 다음은 그 예이다 :

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') 

Answer 1

당신은 필요한 경우 수직 축 플립

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을 할 수 있습니다.