R DiagrammeR 包 - 动态更新关系图

Question

我正在尝试在 for 循环的每一步更新 R Studio 查看器中的图表。

在循环结束时，我想获得这个：

愿望结果

但我得到这个：

结果不好

上面的代码是这样的：

library(tidyverse)
library(DiagrammeR)
a_graph <-
create_graph() %>%
add_node(label = 'Start', type = 'actif', node_aes = node_aes(fillcolor = "orange",shape = "rectangle"
) ) 
a_graph %>% render_graph()

update_my_graph <- function(label, label_from){
from_id <- which( (a_graph %>% get_node_df())$label==label_from )
a_graph <<- a_graph %>% 
select_nodes(
conditions = 
type == 'actif') %>%
set_node_attrs_ws(
node_attr = fillcolor,
value = "blue") %>%
clear_selection() %>% 
add_node(label = label, from = from_id, type = 'actif', node_aes = node_aes(fillcolor = "orange",shape = "rectangle",fixedsize = FALSE))
a_graph %>% render_graph(layout = "tree")
}
for(i in 1:5) update_my_graph(i,'Start')

R 版本 3.4.1 (2017-06-30) -- "单根蜡烛" 整洁 1.2.1 图目 1.0.0 RStudio 1.1.383

Answer 1

你的函数是正确的，真的。"坏结果"实际上是您在第 7 行中的第一个a_graph %>% render_graph()，并且没有调用进一步的情节，因此结果。要看到这一点，您可以在进行for(i in 1:5) update_my_graph(i,'Start')之前擦除情节。您将看到没有绘图输出。完成五次更新后，您可以再次调用a_graph %>% render_graph(layout = "tree")，您将看到它为您提供了所需的结果。函数本身不打印绘图。

因此，执行以下操作很简单：

update_my_graph <- function(label, label_from){
from_id <- which((a_graph %>% get_node_df())$label==label_from)
a_graph <<- a_graph %>% 
select_nodes(conditions = type == 'actif') %>%
set_node_attrs_ws(node_attr = fillcolor, value = "blue") %>%
clear_selection() %>% 
add_node(label = label, from = from_id, type = 'actif', 
node_aes = node_aes(fillcolor = "orange", 
shape = "rectangle", 
fixedsize = FALSE))
print(a_graph %>% render_graph(layout = "tree"))
}

也就是说，只需将print放在a_graph %>% render_graph(layout = "tree")周围即可。您也可以执行return(a_graph %>% render_graph(layout = "tree"))然后调用存储的绘图。