visNetworkパッケージでノードの位置を指定するにはR

Question

（1,0）、（0,1）、（-1,0）、（0、-1）のノードの位置を修正したいと思います。および（0,0）を含む。しかし、それは動作しませんし、私のJavaの知識はゼロです（これは、hereは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') 

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を行うことができます。