가장자리 색상에 대한 visNetwork의 범례 추가

Question

그래프를 시각화하기 위해 visNetwork를 사용하고 있지만 가장자리 색상을 기반으로 범례를 소개해야합니다. 에지 컬러는 본질적으로 에지 속성 및 그 다이내믹에 의존한다. 나는 visGroups/visLegend와 함께하려했지만 여러 오류가 발생했습니다. PFB 재현 가능한 예입니다. A, 블루 - - C 등

친절하게 도움

library(igraph) 
    library(visNetwork) 
    gg <- graph.atlas(711) 
    V(gg)$name=1:7 
    gg=set_edge_attr(gg,"Department",E(gg)[1:10],c("A","B","C","A","E","C","G","B","C","A")) 
    E(gg)$label=E(gg)$Department 
    F2 <- colorRampPalette(c("red", "blue","orange","violet","cyan"), bias = length(unique(E(gg)$Department)), space = "rgb", interpolate = "linear") 
    colCodes <- F2(length(unique(E(gg)$Department))) 
    edges_col <- sapply(E(gg)$Department,function(x) colCodes[which(sort(unique(E(gg)$Department)) == x)]) 
    E(gg)$color <-edges_col 
    datatest = toVisNetworkData(gg) 
    visNetwork(datatest$nodes,datatest$edges) %>% visIgraphLayout(layout="layout_in_circle") 

나는 레드와 같은 전설이 필요합니다.

Answer 1

visLegend은 노드 그룹을 기반으로하지만 노드 및/또는 가장자리 범례를 수동으로 설정할 수도 있습니다. 예를 들어 당신을 위해 (?visLegend)

:

# data.frame from edges legend 
ledges <- data.frame(color = unique(edges_col), 
        label = unique(names(edges_col))) 

visNetwork(datatest$nodes,datatest$edges) %>% visIgraphLayout(layout="layout_in_circle") %>% 
    visLegend(useGroups = F, addEdges = ledges)