使用visNetwork在網絡邊緣顯示信息

Question

我開始學習R中的交互圖，並且我發現圖書館visNetwork非常有幫助。

但是，在鼠標移過邊緣時，我沒有發現如何在短片上顯示比value和title更多信息的彈出窗口。

使用的文檔中的示例中的一個

# data used in visNetwork vignette 
nb <- 10 
nodes <- data.frame(id = 1:nb, label = paste("Label", 1:nb), 
group = sample(LETTERS[1:3], nb, replace = TRUE), value = 1:nb, 
title = paste0("<p>", 1:nb,"<br>Tooltip !</p>"), stringsAsFactors = FALSE) 

edges <- data.frame(from = c(8,2,7,6,1,8,9,4,6,2), 
to = c(3,7,2,7,9,1,5,3,2,9), 
value = rnorm(nb, 10), label = paste("Edge", 1:nb), 
title = paste0("<p>", 1:nb,"<br>Edge Tooltip !</p>")) 

visNetwork(nodes, edges, height = "500px", width = "100%") 

如何可以添加更多的信息來彈出，如，相關的邊緣不同的參數（寬度，頻率，..）？

Answer 1

您必須將所有信息粘貼到標題欄中。

# data used in visNetwork vignette 
nb <- 10 
nodes <- data.frame(id = 1:nb, label = paste("Label", 1:nb), 
        group = sample(LETTERS[1:3], nb, replace = TRUE), value = 1:nb, 
        title = paste0("<p>", 1:nb,"<br>Tooltip !</p>"), stringsAsFactors = FALSE) 

edges <- data.frame(from = c(8,2,7,6,1,8,9,4,6,2), 
        to = c(3,7,2,7,9,1,5,3,2,9), 
        value = rnorm(nb, 10), label = paste("Edge", 1:nb)) 

edges$title <- paste0(edges$label, "<br> value : ", round(edges$value, 2)) 

visNetwork(nodes, edges, height = "500px", width = "100%")