DiagrammeR

DiagrammeR new version

graph <- structure(list(graph_info = structure(list(graph_id = "i4wrALpq", 
                                           graph_name = "graph_i4wrALpq", graph_time = structure(1482058166.83195, class = c("POSIXct", 
                                                                                                                             "POSIXt")), graph_tz = NA_character_, write_backups = FALSE), .Names = c("graph_id", 
                                                                                                                                                                                                      "graph_name", "graph_time", "graph_tz", "write_backups"), row.names = c(NA, 
                                                                                                                                                                                                                                                                              -1L), class = "data.frame"), nodes_df = structure(list(id = 1:11, 
                                                                                                                                                                                                                                                                                                                                     type = c(NA_character_, NA_character_, NA_character_, NA_character_, 
                                                                                                                                                                                                                                                                                                                                              NA_character_, NA_character_, NA_character_, NA_character_, 
                                                                                                                                                                                                                                                                                                                                              NA_character_, NA_character_, NA_character_), label = c("Acme Inc.", 
                                                                                                                                                                                                                                                                                                                                                                                                      "Accounting", "New Software", "New Accounting Standards", 
                                                                                                                                                                                                                                                                                                                                                                                                      "Research", "New Product Line", "New Labs", "IT", "Outsource", 
                                                                                                                                                                                                                                                                                                                                                                                                      "Go agile", "Switch to R"), style = c("", "", "", "", "", 
                                                                                                                                                                                                                                                                                                                                                                                                                                            "", "", "", "", "", ""), shape = c("", "", "egg", "egg", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "", "egg", "egg", "", "egg", "egg", "egg"), fillcolor = c("", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         "Thistle", "", "", "", "", "", "LightBlue", "LightBlue", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         "LightBlue", "LightBlue"), fontname = c("", "", "", "", "", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 "", "", "", "", "", ""), tooltip = c("- name: Acme Inc.", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      "This is the accounting department", "- cost: 1e+06\n- p: 0.5", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      "- cost: 5e+05\n- p: 0.75", "- name: Research", "- cost: 2e+06\n- p: 0.25", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      "- cost: 750000\n- p: 0.9", "- name: IT", "- cost: 4e+05\n- p: 0.2", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      "- cost: 250000\n- p: 0.05", "- cost: 50000\n- p: 1"), fontcolor = c("", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "Firebrick", "", "", "", "", "", "", "", "", ""), penwidth = c("", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          "", "", "", "", "", "", "5px", "5px", "5px", "5px")), .Names = c("id", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "type", "label", "style", "shape", "fillcolor", "fontname", "tooltip", 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           "fontcolor", "penwidth"), row.names = c(NA, -11L), class = "data.frame"), 
               edges_df = structure(list(id = 1:10, from = c(1L, 1L, 1L, 
                                                             2L, 2L, 5L, 5L, 8L, 8L, 8L), to = c(2L, 5L, 8L, 3L, 4L, 6L, 
                                                                                                 7L, 9L, 10L, 11L), rel = c(NA_character_, NA_character_, 
                                                                                                                            NA_character_, NA_character_, NA_character_, NA_character_, 
                                                                                                                            NA_character_, NA_character_, NA_character_, NA_character_
                                                                                                 ), arrowhead = c("", "", "", "", "", "", "", "", "", ""), 
                                         color = c("", "", "", "", "", "", "red", "", "", ""), 
                                         penwidth = c("", "", "", "", "", "", "3", "", "", ""), 
                                         label = c("", "", "", "", "", "", "Focus!", "", "", ""
                                         ), fontcolor = c("", "", "", "", "", "", "red", "", "", 
                                                          "")), .Names = c("id", "from", "to", "rel", "arrowhead", 
                                                                           "color", "penwidth", "label", "fontcolor"), row.names = c(NA, 
                                                                                                                                     -10L), class = "data.frame"), global_attrs = structure(list(
                                                                                                                                       attr = c("rankdir", "style", "shape", "fillcolor", "fontname", 
                                                                                                                                                "arrowhead", "color", "penwidth"), value = c("TB", "filled,rounded", 
                                                                                                                                                                                             "box", "GreenYellow", "helvetica", "vee", "grey35", "2"
                                                                                                                                                ), attr_type = c("graph", "node", "node", "node", "node", 
                                                                                                                                                                 "edge", "edge", "edge")), class = "data.frame", .Names = c("attr", 
                                                                                                                                                                                                                            "value", "attr_type"), row.names = c(NA, -8L)), directed = TRUE, 
               last_node = 11L, last_edge = 10L, node_selection = structure(list(
                 node = integer(0)), class = "data.frame", .Names = "node", row.names = integer(0)), 
               edge_selection = structure(list(edge = integer(0), from = integer(0), 
                                               to = integer(0)), class = "data.frame", .Names = c("edge", 
                                                                                                  "from", "to"), row.names = integer(0)), graph_log = structure(list(
                                                                                                    version_id = 1:2, function_used = c("create_graph", "set_global_graph_attrs"
                                                                                                    ), time_modified = structure(c(1482058166.83195, 1482058166.83696
                                                                                                    ), class = c("POSIXct", "POSIXt")), duration = c(0.00407314300537109, 
                                                                                                                                                     0.000627756118774414), nodes = c(11L, 11L), edges = c(10L, 
                                                                                                                                                                                                           10L)), .Names = c("version_id", "function_used", "time_modified", 
                                                                                                                                                                                                                             "duration", "nodes", "edges"), row.names = c(NA, -2L), class = "data.frame")), .Names = c("graph_info", 
                                                                                                                                                                                                                                                                                                                       "nodes_df", "edges_df", "global_attrs", "directed", "last_node", 
                                                                                                                                                                                                                                                                                                                       "last_edge", "node_selection", "edge_selection", "graph_log"), class = "dgr_graph")

library(DiagrammeR)
render_graph(graph)