2017-03-07 158 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)