visNetworkでエッジのマニュアル凡例を追加

Question

visNetworkを使用してネットワークマップの凡例を作成しようとしています。

私はvisNetworkの伝説は一般的にノードのため、私はエッジの手動で作成する必要があることを理解します。

ここにこの質問は基本的に同じである： Adding a legend in visNetwork for edge color

しかし、私は答えを理解していない、私もそれにまで読んで試したし、これまでの私の結果は次のようになります。

ledges <- data.frame(color = c("teal", "grey", "deeppink"), 
        font.align = "top") 

visNetwork(nodes, links) %>% visGroups(groupname = "WLZ", size=45) %>% visEvents(stabilizationIterationsDone="function() {this.setOptions({ physics: false });}") %>%  visGroups(groupname = "Data", color = "teal") %>% 
    visGroups(groupname = "Location in Common", color = "grey") %>% visGroups(groupname = "Money", color = "deeppink") %>% 
    visLegend(addEdges = ledges) 

私は間違って書いたことがありますか？コモン=グレーとマネー=ディープピンク

のデータ=ティール、場所に感謝：

は基本的に私は関係を言う伝説が欲しいです！

Answer 1

最初にする必要があるのは、リランシップです。それの名前は何ですか？だったら「データ」、「共通で場所」と「お金」である、そして、 はthe answer of: Adding a legend in visNetwork for edge color試しに応じて、このために、あなたの棚を交換する：

ledges <- data.frame(color = c("teal", "grey", "deeppink") 
       label = c("Data","Location in Common", "Money") # relationship's names 
) 

をそれはこのためにあなたの最後のコードを交換した後：

を

visNetwork(nodes, links) %>% 
    visGroups(groupname = "WLZ", size=45) %>% 
    visEvents(stabilizationIterationsDone="function() {this.setOptions({ physics: false });}") %>% 
    visLegend(addEdges = ledges)