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%")