stackoverflow.com/questions/48108231/...

ел бы исправить положения узлов в (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')
 shmosel04 дек. 2017 г., 10:46
Какое это имеет отношение к Java?
 fmassica19 июл. 2018 г., 16:27
R-пакет основан на библиотеке Javascript vis.js, а не на Java.
 Christoph04 дек. 2017 г., 10:47
R-пакет основан на Java (что я понял), и я боюсь, что вам нужно понять Java, чтобы это исправить. Смотрите мой Edit ...

Ответы на вопрос(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 перевернуть вертикальную ось при необходимости.

 lukeA04 дек. 2017 г., 11:31
@ Кристоф Не видел этого на самом деле, мой плохой. Похоже, это означает, что вы думаете, что это значит. Добавьте их в свой фрейм данных иvisNodes берет это оттуда: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), Однако я не знаю, каковы ограничения системы координат по умолчанию.
 Christoph04 дек. 2017 г., 11:27
И также кажется, чтоfixed = TRUE, physics = TRUE не нужен
 Christoph04 дек. 2017 г., 11:21
Хорошо. Но ты понимаешь, чтоvisNodes(x =, y=) аргументы значат?
 Ashmin Kaul05 янв. 2018 г., 07:50
@lukeA, пожалуйста, проверьте пост на аналогичные строки, мне нужна помощь здесь.stackoverflow.com/questions/48108231/...

Ваш ответ на вопрос