如何增加DiagrammeR中节点之间的距离 [英] How to increase distance between nodes in DiagrammeR R

问题描述

我在R studio中有一个带有DiagrammeR的漂亮图形，但是节点太聚集而无法聚集.我到处搜索过，但找不到找到增加它们之间距离的方法.可以显示给我吗?

I have a nice graph with DiagrammeR in R studio, but the nodes are too clustered togather. I have searched everywhere but I cannot find a way of increasing the distance between them. Can I be shown?

这是我的代码:

library(magrittr)
library(DiagrammeR)

# Create a simple NDF
nodes <- create_nodes(nodes = c("Index", "Surveillance", "Intervention","Lost"),
                     label = TRUE,
                     fontsize=55,
                     type = "lower",
                     style = "filled",
                     color = "aqua",
                     shape = c("circle", "circle",
                               "rectangle", "rectangle"),
                     data = c(30.5, 2.6, 9.4, 2.7))

edges <- create_edges(from = c("Index", "Surveillance","Surveillance","Intervention", "Surveillance", "Index" ), 
                  to = c("Surveillance", "Intervention","Surveillance","Intervention", "Lost", "Lost"),
                  rel = c(99, 6.7, 99, 99, 27, 22),
                  arrowhead = rep("normal", 6),
                  color = c("green", "green", "red", "red", "red", "red"))


graph <-
  create_graph(
    nodes_df = nodes,
    edges_df = edges,
    graph_attrs <-
      c("layout = dot","overlap = FALSE","outputorder = edgesfirst"),
    node_attrs <-
      c("shape = circle",
        "fixedsize = TRUE",
        "width = 100",
        "penwidth = 1",
        "color = DodgerBlue",
        "style = filled",
        "fillcolor = Aqua",
        "alpha_fillcolor = 0.5",
        "fontname = Helvetica",
        "fontcolor = Black"),
    edge_attrs = "color = gray20")

# View the graph
render_graph(graph,layout=constant,output="visNetwork")

推荐答案

您可以设置不同节点之间箭头的长度:

You could just set the length for the arrows between different nodes:

edges <- create_edges(from = c("Index", "Surveillance","Surveillance","Intervention", "Surveillance", "Index" ), 
                      to = c("Surveillance", "Intervention","Surveillance","Intervention", "Lost", "Lost"),
                      rel = c(99, 6.7, 99, 99, 27, 22),
                      arrowhead = rep("normal", 6),
                      color = c("green", "green", "red", "red", "red", "red"), 
                      length = c(200,200,50,50,200,200))

或者您可以为每个节点定义一个精确的点:

Or you could define a precise spot for each node:

nodes <- create_nodes(nodes = c("Index", "Surveillance", "Intervention","Lost"),
                     label = TRUE,
                     fontsize = 55,
                     type = "lower",
                     style = "filled",
                     color = "aqua",
                     shape = c("circle", "circle",
                               "rectangle", "rectangle"),
                     data = c(30.5, 2.6, 9.4, 2.7),
                     x = c(-80,80,-80,80),
                     y = c(-80,80,80,-80))

这篇关于如何增加DiagrammeR中节点之间的距离的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！