如何使用图解器最小化边缘交叉点的数量，R？

当我绘制与制图网络图，像下面的例子玩具...如何使用图解器最小化边缘交叉点的数量，R？

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)

我怎么能告诉制图到自动最小化边交叉的次数？

在这个简单的例子，如果C和B的位置被交换的结果不会有任何边缘交叉。在更复杂的示例中，我们无法删除所有交叉点，但至少将其最小化。

随着visnetwork我可以重新定位节点

但它有其他缺点，例如，它不会让你将其导出为矢量图形。

PD：这是bergant解决方案的输出（带有隐藏标签）：

来源

2017-10-18 skan

我认为dot布局将更好地生产。添加全局属性是这样的：

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")

来源

2017-10-18 13:50:18 bergant

是否也可以模仿我的visnetwork结果呢？（例如，在每个边上添加标签或更改边缘宽度） – skan

10标签：是，在'create_edge_df'（字符串向量）中添加'label'参数。 – bergant

宽度：使用'penwidth' = 3例如 – bergant

使用dot布局选项（从here灵感制造）

# 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} 
}")

来源

2017-10-18 14:03:46

如果我想要一个圆形布局，命令行是什么？或者我怎样才能将它的位置固定在一些坐标上？我见过的唯一选项（create_node_df，x =和y =）似乎只在使用render_graph（graph，output =“visNetwork”）时才起作用，但该输出不能保存为矢量图。 – skan

我建议你问一个新问题。把它做成一件事，然后用这个问题和答案作为参考。 –

如何使用图解器最小化边缘交叉点的数量，R？

回答

相关问题