2017-03-07 128 views
0

我想绘制使用visNetwork的网络。但是,边缘没有显示。关于这个,在stackoverflow中有一个非常类似的问题。但是那里提到的解决方案并不适用于我的案例。任何帮助都会很棒。以下是需要绘制的节点和边缘数据集。visNetwork边缘不显示

why doesn't this visNetwork in R show edge

nodes_CTP 

    ID   label 
1 0   order 
2 1  details 
3 2   tab 
4 3  displays 
5 4  profile 
6 5  window 
7 6  status 
8 7   sign 
9 8 powerorders 
10 9  detail 
11 10  button 
12 11 prerequisite 
13 12   icon 
14 13 prerequisites 
15 14   chart 
16 15  control 
17 16   entry 
18 17  encounter 
19 18  change 
20 19  verify 
21 20  purpose  

links_CTP 

    from to value 
1  0 1 0.55 
2  0 2 0.53 
3  0 3 0.50 
4  0 4 0.50 
5  0 5 0.49 
6  0 6 0.48 
7  0 7 0.44 
8  0 8 0.43 
9  0 9 0.42 
10 0 10 0.41 
11 0 11 0.39 
12 0 12 0.39 
13 0 13 0.38 
14 0 14 0.38 
15 0 15 0.38 
16 0 16 0.37 
17 0 17 0.37 
18 0 18 0.37 
19 0 19 0.37 
20 0 20 0.37 

library(visNetwork) 

visNetwork(nodes_CTP, links_CTP, height = "700px", width = "100%") %>% 
    visOptions(selectedBy = "label", 
     highlightNearest = TRUE, 
     nodesIdSelection = TRUE) %>% 
    visPhysics(stabilization = FALSE) 
+0

“关于此问题的计算器中的类似问题” - 请添加web链接。 – zx8754

+1

您是否尝试将链接的帖子中建议的“ID”重命名为“id”? – zx8754

+0

@ zx8754-是的......但无济于事 – NinjaR

回答

0

这项工作对我罚款。验证数据格式(类和名称)。

library(visNetwork) 

nodes_CTP <- data.frame(id = 0:20, label = LETTERS[1:21]) 


links_CTP <- data.frame(from = 0, to = 1:20, 
         value = seq(0.35, 0.5, length.out = 20)) 


visNetwork(nodes_CTP, links_CTP, height = "700px", width = "100%") %>% 
    visOptions(selectedBy = "label", 
      highlightNearest = TRUE, 
      nodesIdSelection = TRUE) %>% 
    visPhysics(stabilization = FALSE)