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, "
    }"
  )
)

Answer 2

制作这些内容的代码只是一个文本字符串，所以有很多方法可以动态生成所需的文本

f <- function(a,b,c,d,e,f,g) {
  gr <- sprintf("
    digraph boxes_and_circles {

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

                # several 'node' statements
                node [shape = box,
                fontname = Helvetica]
                %s; %s; %s; %s; %s; %s, %s


                # several 'edge' statements
                %s->%s %s->%s %s->%s %s->%s %s->%s
                %s->%s
      }", a,b,c,d,e,f,g,a,c,b,c,c,d,d,e,e,f,f,g)
  require('DiagrammeR')
  grViz(gr)
}

像这样使用

do.call(f, as.list(letters[1:7]))

f('head1','head2','next','two','three','four','last')

Answer 3

如果您不介意使用图形函数（以及magrittr包），可以试试这个：

devtools::install_github('rich-iannone/DiagrammeR')
library(DiagrammeR)
library(magrittr)

label_a <- "Alpha"
label_b <- "Bravo"
label_c <- "Charlie"

graph <- create_graph() %>%
set_global_graph_attr("graph", "overlap", "true") %>%
set_global_graph_attr("node", "shape", "box") %>%
set_global_graph_attr("node", "fontname", "Helvetica") %>%
add_node_df(create_nodes(LETTERS[1:7])) %>%
add_edges("A", "C") %>%
add_edges("B", "C") %>%
add_edges("C", "D") %>%
add_edges("D", "E") %>%
add_edges("E", "F") %>%
add_edges("F", "G") %>%
select_nodes("A") %>%
set_node_attr_with_selection("label", label_a) %>%
clear_selection() %>%
select_nodes("B") %>%
set_node_attr_with_selection("label", label_b) %>%
clear_selection() %>%
select_nodes("C") %>%
set_node_attr_with_selection("label", label_c) %>%
clear_selection()

render_graph(graph)

该代码创建了这个：

您需要从GitHub安装最近版本的DiagrammeR（使用devtools::install_github），因为其中一些功能在最新的CRAN版本中不可用。

R DiagrammeR Package - 路径图的标签是动态的

3 个答案: