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

가장 먼저해야 할 일은 relanships입니다. 그것의 이름은 무엇입니까? 인 경우 "데이터", "일반적인 위치"와 "돈"입니다, 다음, 는 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)