我正在尝试使用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)
预期输出的是将h20作为节点0,然后它连接到"H2O无人驾驶AI“和H2O.ai.Then H2O无人驾驶AI > DAI。那么DAI>This就是一个机械化的操作跟踪系统。H2O.ai> H2O.H2O>H2O是用于大数据分析的开源软件
如果我说错了,请纠正。
发布于 2019-04-20 06:06:38
考虑到您的数据,您可能应该使用NodeID = "name"
更新:
您还必须设置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)
https://stackoverflow.com/questions/55768068
复制相似问题