为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

您需要做的第一件事是标记为实现。它的名字是什么？是＆＃34;数据＆＃34;，＆＃34;位置在共同＆＃34;和＆＃34;金钱＆＃34;如果是，那么， 根据{{​​3}}尝试替换你的壁架：

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)