DiagrammeR：如何为流程图箭头添加标签？

你碰到的问题很典型——create_edge_df里的rel参数并不是用来控制箭头上方显示的标签的，它主要是用来定义边的关系类型（属于元数据范畴），默认不会被渲染成可见的文本。要让箭头上方显示a、b、c、d这些标签，我们需要做两个关键调整：

• 用label参数替代rel来定义要显示的文本
• 确保图形的边标签渲染属性是启用的

下面是修改后的完整可复现代码：

library("DiagrammeR")

# 创建节点数据框
ndf <- create_node_df(n = 4, shape = "rectangle")

# 创建边数据框：使用label参数指定箭头上方的标签
edf <- create_edge_df(
  from = c(1, 2, 3, 3),
  to = c(4, 3, 1, 4),
  label = c("a", "b", "c", "d")  # 这里是关键，用label替代rel
)

# 初始化图形
graph <- create_graph(nodes_df = ndf, edges_df = edf)

# 可选：自定义边标签的样式（比如字体大小、颜色）
graph <- graph %>%
  add_global_graph_attrs(
    attr = "fontsize",
    value = "12",
    attr_type = "edge"
  ) %>%
  add_global_graph_attrs(
    attr = "color",
    value = "darkblue",
    attr_type = "edge"
  )

# 导出带标签的流程图到PDF
graph %>% export_graph(file_name = "graph_with_edge_labels.pdf", title = "Flowchart with Edge Labels")

补充说明： #

如果你还需要保留边的关系类型元数据，可以同时在create_edge_df里保留rel参数，比如：

edf <- create_edge_df(
  from = c(1, 2, 3, 3),
  to = c(4, 3, 1, 4),
  rel = c("relation_a", "relation_b", "relation_c", "relation_d"),  # 元数据
  label = c("a", "b", "c", "d")  # 显示的标签
)

这样既可以在后续分析中使用rel的关系类型，又能让箭头上方显示你需要的标签文本。

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