升级至R 4.4.2后DiagrammeR的set_node_position函数报错求助

问题原因 #

升级R至4.4.2后，DiagrammeR的set_node_position函数参数逻辑发生变化：该函数不再支持一次性传入多个节点的ID向量，当传入长度大于1的node参数时，内部的逻辑判断（!use_labels && !(node %in% graph$nodes_df[,1])）会因向量长度不匹配抛出类型转换错误。

解决方案 #

方案1：循环逐个设置节点位置 #

通过遍历每个节点，单独调用set_node_position来设置坐标：

g2 <- g %>%
  add_global_graph_attrs(attr = "width", value = 0.5, attr_type = "node") %>%
  add_global_graph_attrs(attr = "penwidth", value = 2, attr_type = "edge")

# 循环设置每个节点的位置
for(i in seq_len(nrow(nodesdat))){
  g2 <- g2 %>%
    set_node_position(node = nodesdat$id[i], 
                      x = positionsdat$x[i], 
                      y = positionsdat$y[i])
}

render_graph(g2)

方案2：创建节点时直接包含位置信息（更高效） #

在初始的节点数据框中加入x和y列，无需后续调用set_node_position：

# 合并节点数据与位置数据，保留需要的列
nodes_with_pos <- nodesdat %>%
  left_join(positionsdat %>% select(id, x, y), by = "id")

# 创建包含位置的图对象
g <- create_graph(nodes_df = nodes_with_pos, edges_df = edgesdat, directed = TRUE)

g2 <- g %>%
  add_global_graph_attrs(attr = "width", value = 0.5, attr_type = "node") %>%
  add_global_graph_attrs(attr = "penwidth", value = 2, attr_type = "edge")

render_graph(g2)

验证说明 #

两种方案均可在R4.4.2环境下正常运行，方案2避免了循环操作，更适合节点数量较多的场景。

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