如何用DiagrammeR实现路径图线条平直并解决路径重叠问题？

问题背景 #

我想用DiagrammeR绘制路径图，初始代码生成的图表存在部分曲线。参考相关帖子添加splines = ortho后，图表布局变得混乱；后续新增4条路径后，又出现线条重叠的情况，需要实现所有线条平直且布局整洁的效果。

初始代码（存在曲线问题） #

my_graph <- grViz("digraph{rankdir = LR
                     node[shape = rectangle]  
                     A1[label = '1']
                     A2[label = '2']
                     M1[label = '3']
                     M2[label = '4']
                     M3[label = '5']
                     M4[label = '6']
                     M5[label = '7']
                     T1[label = '8']
                     T2[label = '9']
                     O1[label = '10']
                     O2[label = '11']
                     edge[color = black]
                     A1 -> M1 [label = '0.6']
                     A1 -> M2 [label = '0.6']
                     A1 -> M3 [label = '0.6']
                     A1 -> M4 [label = '0.6']
                     A1 -> M5 [label = '0.6']
                     A2 -> M1 [label = '0.6']
                     A2 -> M2 [label = '0.6']
                     A2 -> M3 [label = '0.6']
                     A2 -> M4 [label = '0.6']
                     A2 -> M5 [label = '0.6']
                     M1 -> T1 [label = '0.6']
                     M2 -> T2 [label = '0.6']
                     M3 -> T1 [label = '0.6']
                     M4 -> T1 [label = '0.6']
                     M5 -> T2 [label = '0.6']
                     T1 -> O1 [label = '0.6']
                     T1 -> O2 [label = '0.6']
                     T2 -> O1 [label = '0.6']
                     T2 -> O2 [label = '0.6']
                    }")

my_graph 

添加splines=ortho后的代码（布局混乱） #

my_graph2 <- grViz("digraph{rankdir = LR
                    splines = ortho
                     node[shape = rectangle]  
                     A1[label = '1']
                     A2[label = '2']
                     M1[label = '3']
                     M2[label = '4']
                     M3[label = '5']
                     M4[label = '6']
                     M5[label = '7']
                     T1[label = '8']
                     T2[label = '9']
                     O1[label = '10']
                     O2[label = '11']
                     edge[color = black]
                     A1 -> M1 [label = '0.6']
                     A1 -> M2 [label = '0.6']
                     A1 -> M3 [label = '0.6']
                     A1 -> M4 [label = '0.6']
                     A1 -> M5 [label = '0.6']
                     A2 -> M1 [label = '0.6']
                     A2 -> M2 [label = '0.6']
                     A2 -> M3 [label = '0.6']
                     A2 -> M4 [label = '0.6']
                     A2 -> M5 [label = '0.6']
                     M1 -> T1 [label = '0.6']
                     M2 -> T2 [label = '0.6']
                     M3 -> T1 [label = '0.6']
                     M4 -> T1 [label = '0.6']
                     M5 -> T2 [label = '0.6']
                     T1 -> O1 [label = '0.6']
                     T1 -> O2 [label = '0.6']
                     T2 -> O1 [label = '0.6']
                     T2 -> O2 [label = '0.6']
                    }")

my_graph2

新增路径后的代码（线条重叠） #

my_graph3 <- grViz("digraph{
  rankdir = LR
  splines=line  
  ranksep=2
  nodesep=1
  node[shape = rectangle]
  A1[label = '1']
  A2[label = '2']
  M1[label = '3']
  M2[label = '4']
  M3[label = '5']
  M4[label = '6']
  M5[label = '7']
  T1[label = '8']
  T2[label = '9']
  O1[label = '10']
  O2[label = '11']
  edge[color = black]
  edge [labelfloat=true] 
  A1 -> M1 [xlabel = '0.6']
  A1 -> M2 [headlabel = '0.6']
  A1 -> M3 [xlabel = '0.6']
  A1 -> M4 [xlabel = '0.6']
  A1 -> M5 [xlabel = '0.6']
  A2 -> M1 [xlabel = '0.6']
  A2 -> M2 [xlabel = '0.6']
  A2 -> M3 [xlabel = '0.6']
  A2 -> M4 [xlabel = '0.6']
  A2 -> M5 [taillabel = '0.6']
  M1 -> T1 [taillabel = '0.6']
  M2 -> T2 [taillabel = '0.6']
  M3 -> T1 [taillabel = '0.6']
  M4 -> T1 [taillabel = '0.6']
  M5 -> T2 [taillabel = '0.6']
  T1 -> O1 [headlabel = '\n0.6']
  T1 -> O2 [taillabel = '\n0.6']
  T2 -> O1 [taillabel = '0.6']
  T2 -> O2 [headlabel = '\n0.6']
  A1 -> T1 [headlabel = '0.6']
  A1 -> T2 [headlabel = '0.6']
  A2 -> T1 [taillabel = '\n0.6']
  A2 -> T2 [xlabel = '0.6']
}")

my_graph3

解决方案 #

通过以下调整可实现线条平直、布局整洁的效果：

关键调整要点 #

• 强制直线线条：使用splines=line替代splines=ortho，既能保证线条平直，又不会打乱原有布局逻辑。
• 明确节点层级：用{rank=same; 节点名; ...}指定同层级节点，确保图表按业务逻辑分层排列。
• 增大间距参数：调整ranksep（层级间距离）和nodesep（同层级节点距离），为线条和标签预留足够空间。
• 优化标签位置：结合labelfloat=true，使用xlabel/headlabel/taillabel替代默认label，并通过labeldistance调整标签与线条的距离，避免遮挡和重叠。

调整后的完整代码 #

my_graph_final <- grViz("digraph{
  rankdir = LR
  splines=line  
  ranksep=2.5  # 增大层级间间距
  nodesep=1.2  # 增大同层级节点间距
  node[shape = rectangle]
  
  # 明确各层级节点，保证布局逻辑清晰
  {rank=same; A1; A2;}
  {rank=same; M1; M2; M3; M4; M5;}
  {rank=same; T1; T2;}
  {rank=same; O1; O2;}
  
  A1[label = '1']
  A2[label = '2']
  M1[label = '3']
  M2[label = '4']
  M3[label = '5']
  M4[label = '6']
  M5[label = '7']
  T1[label = '8']
  T2[label = '9']
  O1[label = '10']
  O2[label = '11']
  
  edge[color = black, labelfloat=true] 
  
  # A到M的边，统一用xlabel避免标签遮挡线条
  A1 -> M1 [xlabel = '0.6']
  A1 -> M2 [xlabel = '0.6']
  A1 -> M3 [xlabel = '0.6']
  A1 -> M4 [xlabel = '0.6']
  A1 -> M5 [xlabel = '0.6']
  A2 -> M1 [xlabel = '0.6']
  A2 -> M2 [xlabel = '0.6']
  A2 -> M3 [xlabel = '0.6']
  A2 -> M4 [xlabel = '0.6']
  A2 -> M5 [xlabel = '0.6']
  
  # M到T的边，用taillabel放置在节点侧
  M1 -> T1 [taillabel = '0.6']
  M2 -> T2 [taillabel = '0.6']
  M3 -> T1 [taillabel = '0.6']
  M4 -> T1 [taillabel = '0.6']
  M5 -> T2 [taillabel = '0.6']
  
  # T到O的边，区分headlabel和taillabel避免重叠
  T1 -> O1 [headlabel = '0.6']
  T1 -> O2 [taillabel = '0.6']
  T2 -> O1 [taillabel = '0.6']
  T2 -> O2 [headlabel = '0.6']
  
  # 新增A到T的边，调整标签位置和距离避免线条重叠
  A1 -> T1 [headlabel = '0.6', labeldistance=2]
  A1 -> T2 [xlabel = '0.6']
  A2 -> T1 [xlabel = '0.6']
  A2 -> T2 [taillabel = '0.6', labeldistance=2]
}")

my_graph_final

效果说明 #

• 所有线条保持平直，无曲线或斜向线条。
• 节点按层级整齐排列，布局逻辑清晰。
• 线条无重叠，标签位置合理，不遮挡关键路径。

内容的提问来源于stack exchange，提问作者NessD