다이어그램으로 엣지 크로싱 수를 최소화하는 방법, R?

Question

나는 다음과 같은 장난감의 예와 같이 diagrammer와 네트워크 그래프, 플롯 ...

library(DiagrammeR) 
Dia <- function(edg, nodesd) { 
     nodes <- create_node_df( n=length(nodesd), label=nodesd, 
     width=0.3) 
     edges <- create_edge_df(from = edg$EveFrom, to = edg$EveTo, 
       rel = "leading_to") 
graph <- create_graph( nodes_df = nodes, edges_df = edges) 
render_graph(graph) 
} 


niv <- c("A","B","C","D","E","X","Y") 

temp <- data.table(EveFrom=factor(c("A","A","A","A","B","C","D","E", 
    "X", "B"), levels=niv), 
EveTo=factor(c("B","C","D","E","X","X","Y","Y","Y", "C"), levels=niv)) 

Dia(temp,niv) 

어떻게 자동으로 에지 교차점의 수를 최소화하기 위해 diagrammer 알 수 있습니까?

이 간단한 예에서 C 및 B 위치가 바뀌면 결과에 가장자리가 교차하지 않습니다. 더 복잡한 예에서는 모든 교차점을 제거 할 수는 없지만 최소 교차점은 최소화합니다.

visnetwork으로 나는 노드

을 재배치 할 수 있습니다하지만 당신이 벡터 그래픽으로 수출하지 않는 예를 들어, 다른 단점이 있습니다.

PD는 :

Answer 1

내가 dot 레이아웃이 더 잘 생성 할 것이라고 생각 :이 (숨겨진 레이블) bergant 용액으로 출력됩니다. 이 같은 전역 속성을 추가합니다 (here에서 영감로 만든)

graph <- create_graph( nodes_df = nodes, edges_df = edges) 
graph <- set_global_graph_attrs(graph, "layout", "dot", "graph") 
graph <- add_global_graph_attrs(graph, "rankdir", "LR", "graph") 

Answer 2

사용 dot 레이아웃 옵션

# install.packages(c("DiagrammeR"), dependencies = TRUE) 
library(DiagrammeR) 

grViz(" 
digraph dot { 

graph [layout = dot] # dot, neato, twopi, and circo 

A -> {B C D E} 
B -> {C X} 
C -> {X} 
D -> {Y} 
E -> {Y} 
X -> {Y} 
}")