R DiameR Package - 动态路径图的标签

Question

我试图表示每个步骤的算法的输出，经过一番谷歌搜索后发现我可以使用DiagrammeR包。我正在查看如下输出

上面的代码是这样的 -

library('DiagrammeR')
grViz("
  digraph boxes_and_circles {

  # a 'graph' statement
  graph [overlap = true, fontsize = 10]

  # several 'node' statements
  node [shape = box,
  fontname = Helvetica]
  A; B; C; D; E; F, G


  # several 'edge' statements
  A->C B->C C->D D->E E->F
  F->G
  }
  ")

只是我希望标签 A、B 等替换为某些变量的值。这在DiagrammeR 中可能吗？否则，有人可以建议一个不同的包吗？谢谢

Answer 1

希望这能让方法变得清晰，本质上我认为你应该动态构建传递给 grViz() 的函数定义:

library(DiagrammeR)

n <- c("Alpha", "Bravo", "Charlie", "D", "E", "F", "G")

##  Construct your node and edge statements dynamically:
nodes <- paste(n, collapse="; ")

##  Insert parts of edge statements dynamically:
edges <- paste0( 
  n[1], "->", n[3], " ",
  n[2], "->", n[3], " ",
  n[3], "->D ",
  "D->E ",
  "E->F ",
  "F->G "
)

##  Plot graph:
grViz(
  paste0(" digraph boxes_and_circles {

    # a 'graph' statement
    graph [overlap = true, fontsize = 10]

    # several 'node' statements
    node [shape = box,
    fontname = Helvetica]
    ", nodes, "
    # several 'edge' statements
    ", edges, "
    }"
  )
)