Ссылки направлены в верхний левый угол в forceNetwork с сетью D3 в R

Question

Я пытаюсь использовать forceNetwork, но ссылки указаны в левом верхнем углу, и ссылки не такие, как ожидалось.

library(tidyverse)
library(networkD3)

nodes <- data.frame(name=c("H2o","H2O Driverless AI ","DAI","This is a Mechanized Operations Tracking System","H2O.ai","H2O","H2O is open-source software for Big Data analysis"),group = 1)

nodes <- nodes %>% rowid_to_column("id")

nodes_d3 <- mutate(nodes, id = id - 1)

links <- data.frame(source=c(0,1,2,0,4,5),target=c(1,2,3,4,5,6))

forceNetwork(Links = links, Nodes = nodes_d3, Source = "source", Target = "target", 
              NodeID = "id",Group = "group", opacity = 0.8,arrows = TRUE, zoom = TRUE)

Ожидается, что в качестве узла 0 будет иметь h20, после чего он подключается к«ИИ без водителя H2O» и H2O.ai. Затем ИИ без водителя> DAI.Тогда DAI> Это механизированная система отслеживания операций.H2O.ai> H2O.H2O> H2O - это программное обеспечение с открытым исходным кодом для анализа больших данных

Пожалуйста, исправьте, если я ошибаюсь.

Answer 1

Учитывая ваши данные, вы, вероятно, должны использовать NodeID = "name"

update:

Вы также должны установить аргумент Value.Вот воспроизводимый пример ...

library(tidyverse)
library(networkD3)

nodes <- data.frame(name=c("H2o","H2O Driverless AI ","DAI","This is a Mechanized Operations Tracking System","H2O.ai","H2O","H2O is open-source software for Big Data analysis"),group = 1)

nodes <- nodes %>% rowid_to_column("id")

nodes_d3 <- mutate(nodes, id = id - 1)

links <- data.frame(source=c(0,1,2,0,4,5),target=c(1,2,3,4,5,6), value = 1)

forceNetwork(Links = links, Nodes = nodes_d3, Source = "source", Target = "target", 
             Value = "value", NodeID = "name", Group = "group", opacity = 0.8,arrows = FALSE, zoom = TRUE)