在DiagrammeR图表中实现绿色节点指向底部蓝色节点且无箭头线条交叉的方法

我来帮你调整这段DiagrammeR代码，完美实现绿色节点指向底部蓝色节点且箭头不交叉的需求，主要通过几个小修改就能搞定：

1. 新增蓝色目标节点与颜色定义 #

先添加一个蓝色的颜色变量，然后在图表底部定义一个统一的蓝色目标节点，设置它的样式（比如比普通节点大一点，突出显示），并确保它排在所有数据行的最下方。

2. 开启正交线条避免交叉 #

在图表的全局设置里加上splines = ortho，让所有箭头都变成直角的正交线条，这样能从根源上减少线条交叉的可能，同时让整体布局更规整。

3. 精准连接绿色节点到蓝色节点 #

找到原代码里所有的绿色节点（分别是r2_a、r2_b、r2_c、r4_b），给它们添加指向蓝色节点的边，并且通过设置minlen（边的最小长度）来调整线条的延伸距离，让不同绿色节点的箭头路径错开，彻底避免交叉。

修改后的完整代码 #

library(DiagrammeR)

grn <- '#66BB6A'
red <- '#EF5350'
nvy <- '#1B3A5C'
gry <- '#BBBBBB'
blu <- '#42A5F5' # 新增蓝色变量

lag_diagram <- grViz(paste0("
digraph lag_grid {

  graph [
    rankdir  = TB,
    fontname = 'Arial',
    bgcolor  = 'white',
    nodesep  = 0.50,
    ranksep  = 0.40,
    margin   = 0.3,
    splines  = ortho # 开启正交线条，避免曲线交叉
  ]

  node [
    fontname = 'Arial',
    fontsize = 9,
    style    = 'filled,rounded',
    shape    = box,
    width    = 1.15,
    height   = 0.40,
    penwidth = 0
  ]

  # ===========================================================
  # COLUMN HEADERS
  # ===========================================================
  node [shape = plaintext, fillcolor = 'white', fontsize = 12,
        fontcolor = '", nvy, "', fontname = 'Arial Bold', width = 1.15]

  hdr_a [label = 'A']
  hdr_b [label = 'B']
  hdr_c [label = 'C']
  hdr_d [label = 'D']
  hdr_e [label = 'E']
  hdr_f [label = 'F']

  { rank = same; hdr_a; hdr_b; hdr_c; hdr_d; hdr_e; hdr_f }
  edge [style = invis]
  hdr_a -> hdr_b -> hdr_c -> hdr_d -> hdr_e -> hdr_f

  # ===========================================================
  # ROW 1
  # ===========================================================
  node [shape = box, fontsize = 9, fontcolor = 'white',
        fontname = 'Arial', width = 1.15, height = 0.40]

  r1_a [label = '1', fillcolor = '", red, "']
  r1_b [label = '1', fillcolor = '", red, "']
  r1_c [label = '1', fillcolor = '", red, "']
  r1_d [label = '1', fillcolor = '", red, "']
  r1_e [label = '1', fillcolor = '", red, "']
  r1_f [label = '1', fillcolor = '", red, "']

  { rank = same; r1_a; r1_b; r1_c; r1_d; r1_e; r1_f }
  edge [style = invis]
  r1_a -> r1_b -> r1_c -> r1_d -> r1_e -> r1_f

  # ===========================================================
  # ROW 2
  # ===========================================================
  r2_a [label = '2', fillcolor = '", grn, "']
  r2_b [label = '2', fillcolor = '", grn, "']
  r2_c [label = '2', fillcolor = '", grn, "']
  r2_d [label = '2', fillcolor = '", red, "']
  r2_e [label = '2', fillcolor = '", red, "']
  r2_f [label = '2', fillcolor = '", red, "']

  { rank = same; r2_a; r2_b; r2_c; r2_d; r2_e; r2_f }
  edge [style = invis]
  r2_a -> r2_b -> r2_c -> r2_d -> r2_e -> r2_f

  # ===========================================================
  # ROW 3
  # ===========================================================
  r3_a [label = '3', fillcolor = '", red, "']
  r3_b [label = '3', fillcolor = '", red, "']
  r3_c [label = '3', fillcolor = '", red, "']
  r3_d [label = '3', fillcolor = '", red, "']
  r3_e [label = '3', fillcolor = '", red, "']
  r3_f [label = '3', fillcolor = '", red, "']

  { rank = same; r3_a; r3_b; r3_c; r3_d; r3_e; r3_f }
  edge [style = invis]
  r3_a -> r3_b -> r3_c -> r3_d -> r3_e -> r3_f

  # ===========================================================
  # ROW 4
  # ===========================================================
  r4_a [label = '4', fillcolor = '", red, "']
  r4_b [label = '4', fillcolor = '", grn, "']
  r4_c [label = '4', fillcolor = '", red, "']
  r4_d [label = '4', fillcolor = '", red, "']
  r4_e [label = '4', fillcolor = '", red, "']
  r4_f [label = '4', fillcolor = '", red, "']

  { rank = same; r4_a; r4_b; r4_c; r4_d; r4_e; r4_f }
  edge [style = invis]
  r4_a -> r4_b -> r4_c -> r4_d -> r4_e -> r4_f

  # ===========================================================
  # ROW 5
  # ===========================================================
  r5_a [label = '5', fillcolor = '", red, "']
  r5_b [label = '5', fillcolor = '", red, "']
  r5_c [label = '5', fillcolor = '", red, "']
  r5_d [label = '5', fillcolor = '", red, "']
  r5_e [label = '5', fillcolor = '", red, "']
  r5_f [label = '5', fillcolor = '", red, "']

  { rank = same; r5_a; r5_b; r5_c; r5_d; r5_e; r5_f }
  edge [style = invis]
  r5_a -> r5_b -> r5_c -> r5_d -> r5_e -> r5_f

  # ===========================================================
  # ROW 6
  # ===========================================================
  r6_a [label = '6', fillcolor = '", red, "']
  r6_b [label = '6', fillcolor = '", red, "']
  r6_c [label = '6', fillcolor = '", red, "']
  r6_d [label = '6', fillcolor = '", red, "']
  r6_e [label = '6', fillcolor = '", red, "']
  r6_f [label = '6', fillcolor = '", red, "']

  { rank = same; r6_a; r6_b; r6_c; r6_d; r6_e; r6_f }
  edge [style = invis]
  r6_a -> r6_b -> r6_c -> r6_d -> r6_e -> r6_f

  # ===========================================================
  # 新增底部蓝色目标节点
  # ===========================================================
  node [width = 1.8, height = 0.5, fontsize = 10, fontname = 'Arial Bold']
  final_node [label = 'Target Node', fillcolor = '", blu, "']
  { rank = sink; final_node } # 确保节点在所有行的最底部

  # ===========================================================
  # CHAIN ARROWS
  # ===========================================================
  edge [style = solid, color = '", gry, "', arrowhead = vee,
        arrowsize = 0.4, penwidth = 0.9]

  r1_a -> r2_a -> r3_a -> r4_a -> r5_a -> r6_a
  r1_b -> r2_b -> r3_b -> r4_b -> r5_b -> r6_b
  r1_c -> r2_c -> r3_c -> r4_c -> r5_c -> r6_c
  r1_d -> r2_d -> r3_d -> r4_d -> r5_d -> r6_d
  r1_e -> r2_e -> r3_e -> r4_e -> r5_e -> r6_e
  r1_f -> r2_f -> r3_f -> r4_f -> r5_f -> r6_f

  # ===========================================================
  # 绿色节点指向蓝色节点的箭头（无交叉设置）
  # ===========================================================
  edge [color = '", nvy, "', penwidth = 1.2, arrowsize = 0.5]
  r2_a -> final_node [minlen=2] # 调整最小长度，错开路径
  r2_b -> final_node [minlen=3]
  r2_c -> final_node [minlen=4]
  r4_b -> final_node [minlen=2]

  # ===========================================================
  # VERTICAL ORDERING
  # ===========================================================
  edge [style = invis]
  hdr_a -> r1_a
  r6_a -> final_node [style=invis, minlen=1] # 确保蓝色节点在最下方的垂直间距

}
"))

# 查看图表
lag_diagram

关键修改说明 #

• 开启了正交线条：splines = ortho让所有箭头都走直角路径，避免默认的曲线交叉，整体更整齐。
• 蓝色节点设置：通过{ rank = sink; final_node }强制它排在所有内容的最底部，同时调整了尺寸让它更醒目。
• 绿色节点的箭头：给每个绿色节点的边设置了不同的minlen，让它们的线条延伸长度不同，彻底避免交叉。你可以根据实际需求微调minlen的数值，让布局更贴合你的预期。

备注：内容来源于stack exchange，提问作者stats_noob