在DiagrammeR中的节点中安装标签

Question

我需要绘制具有双向边缘和节点标签的定向网络。节点名的长度有时短，有时长。数据是动态生成的，所以每次都是随机的。

下面是我的数据示例：

library(DiagrammeR)

# create data:
links=data.frame(
    source=c("AAAAAAAAAAAAAAAAAAAAAAAA","AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA","J", "BBBBBBBBB",
             "BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCC", "CCCCCCCCCCC", "D","IIIIIIII"),
    target=c("BBBBBBBBBBBBBBBBBBBBB","BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCC", "D", 
             "J","AAAAAAAAAAAAAAAAAAAAAAAA","E", "F", "G", "H", "IIIIIIII","IIIIIIII")
)


labels <- unique(c(links$source,links$target))

nodes <- data.frame (id = labels, label = labels )

i_graph_1 <-
    DiagrammeR::create_graph() %>% 
    DiagrammeR::add_nodes_from_table(
        table = nodes,
        label_col = label) %>% 
    DiagrammeR::add_edges_from_table(
        table = links,
        from_col = source,
        to_col = target,
        from_to_map = id_external)%>% 
    select_nodes_by_id(nodes = 1:length(labels)) %>% 
    set_node_attrs_ws(
        node_attr = shape,
        value = "rectangle") %>% 
    clear_selection()

gr <- i_graph_1 %>% DiagrammeR::render_graph()

writeLines(
    export_svg(gr), "c:\\temp\\n1.svg"
    )

我的结果图片：

​

​

1. 是否有可能使A<->B，A<->J链接双向而不是2个单向链接？
2. 是否可以在节点中安装标签而不是重叠节点边框？

更新：

如果我使用fixedsize = False，结果仍然不太好。节点重叠。

i_graph_1 <-
    DiagrammeR::create_graph() %>% 
    DiagrammeR::add_nodes_from_table(
        table = nodes,
        label_col = label) %>% 
    DiagrammeR::add_edges_from_table(
        table = links,
        from_col = source,
        to_col = target,
        from_to_map = id_external)%>% 
    select_nodes_by_id(nodes = 1:length(labels)) %>% 
    set_node_attrs(node_attr = "fixedsize",values = FALSE) %>% 
    set_node_attrs_ws(
        node_attr = shape,
        value = "rectangle") %>% 
    clear_selection()

​

​

Answer 1

关键是使用graphviz属性layout = 点，layout= 真的。

和node_attr = "fixedsize"，value= FALSE。

library(DiagrammeR)

# create data:
links=data.frame(
    source=c("AAAAAAAAAAAAAAAAAAAAAAAA","AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA", "AAAAAAAAAAAAAAAAAAAAAAAA","J", "BBBBBBBBB",
             "BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCC", "CCCCCCCCCCC", "D","IIIIIIII"),
    target=c("BBBBBBBBBBBBBBBBBBBBB","BBBBBBBBBBBBBBBBBBBBB", "CCCCCCCCCCC", "D", 
             "J","AAAAAAAAAAAAAAAAAAAAAAAA","E", "F", "G", "H", "IIIIIIII","IIIIIIII")
)

# Turn it into igraph object


labels <- unique(c(links$source,links$target))

nodes <- data.frame (id = labels, label = labels )

i_graph_1 <-
    DiagrammeR::create_graph() %>% 
    add_global_graph_attrs("layout", "dot", "graph") %>%
    add_global_graph_attrs("concentrate", "true", "graph") %>%
    DiagrammeR::add_nodes_from_table(
        table = nodes,
        label_col = label) %>% 
    DiagrammeR::add_edges_from_table(
        table = links,
        from_col = source,
        to_col = target,
        from_to_map = id_external)%>% 
    select_nodes_by_id(nodes = 1:length(labels)) %>% 
    set_node_attrs(node_attr = "fixedsize",values = FALSE) %>% 
    set_node_attrs_ws(
        node_attr = shape,
        value = "rectangle") %>% 
    clear_selection()


gr <- i_graph_1 %>% DiagrammeR::render_graph( )
gr

结果如下：

​

​

Answer 2

不确定在1左右，但2是可能的。您只需使用edge_aes(dir="both")属性即可。aes.html

library(DiagrammeR)
library(dplyr)

graph <-
  create_graph() %>%
  add_path(
    n = 3,
    type = "path",
    edge_aes = edge_aes(
      style = "dot",
      color = c("red", "blue"),
      dir="both"))


graph %>%
  get_edge_df()

my_graph <- graph %>% DiagrammeR::render_graph()
my_graph