DiagrammeR绘制流程图时水平箭头倾斜如何强制改为水平直线？

原因说明 #

该问题确实由DiagrammeR版本差异导致：0.9.2版本默认内置了适配CONSORT/STROBE流程图的布局规则，1.0+版本重构了底层属性传递逻辑，默认不再强制正交边布局、节点对齐规则，就会出现水平边自动倾斜的情况，无需回退包版本，通过显式指定布局参数即可修复。

修复步骤 #

在原有代码基础上添加3处配置即可实现和示例一致的水平直线箭头效果：

• 节点定义阶段统一添加固定尺寸参数，避免节点大小不一致带动边偏移
  示例配置参考：

  # 原create_node_df参数补充固定大小配置
  nodes <- create_node_df(
    n = [你的实际节点数量],
    label = c([你的节点文本内容]),
    fixedsize = TRUE,
    width = 3, # 可根据文本长度调整数值
    height = 0.8
  )
  

• 边定义阶段对水平引出的排除类边添加constraint = FALSE属性，避免该类边影响节点层级排序
  示例配置参考：

  edges <- create_edge_df(
    from = c([你的边起点ID列表]),
    to = c([你的边终点ID列表]),
    # 所有水平指向排除节点的边对应的位置设为FALSE，垂直向下的边设为TRUE
    constraint = c(FALSE, TRUE, FALSE, TRUE, ...),
    arrowhead = "normal"
  )
  

• 创建流程图时显式传入全局布局参数，强制所有边为正交折线
  示例配置参考：

  graph <- create_graph(
    nodes_df = nodes,
    edges_df = edges,
    attr_theme = NULL, # 禁用默认主题，避免覆盖自定义参数
    graph_attrs = c(
      "rankdir = LR", # 横向布局，和原示例规则一致
      "splines = ortho", # 核心参数：强制所有边为正交折线，禁止倾斜
      "nodesep = 0.5", # 同层级节点固定间距
      "ranksep = 1.2" # 不同层级节点固定间距
    )
  )
  
  # 渲染即可得到水平直线箭头效果
  render_graph(graph)
  

如果仍存在同层级节点纵向不对齐的情况，可以补充同rank声明，将对应节点绑定到同一纵向层级：

在create_graph的graph_attrs参数中追加对应规则即可，示例：

# 假设节点ID为2、3为同一层级的节点
"{rank = same; 2; 3;}"

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