In mpatel-cai/chariot2: What the Package Does (One Line, Title Case)

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(chariot2)
library(tidyverse)

# Fetch from Postgres  
nodes_and_edges <-
  fetch_concept_classes()

# # Customize Nodes Attributes  
# nodes_and_edges <-
#   map_node_attributes(nodes_and_edges)
# 
# # Customize Edge Attributes
# nodes_and_edges <-
#   map_edge_attributes(nodes_and_edges)
# 
# # Construct Final Graph
final_graph <-
  construct_graph(nodes_and_edges)
#final_graph$graph

library(DiagrammeR)

final_graph$graph %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  select_nodes(type == "Regimen Class", set_op = "intersect") %>%
  trav_out() %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  transform_to_subgraph_ws() %>%
  render_graph()

final_graph$graph %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  select_nodes(type == "Regimen Class", set_op = "intersect") %>%
  trav_out() %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  set_node_attrs_ws(node_attr = "fontsize", value = 26) %>%
  set_edge_attrs(edge_attr = "fontsize", value = 26) %>%
  transform_to_subgraph_ws() %>%
  render_graph()

final_graph$graph %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  select_nodes(type == "Regimen Class", set_op = "intersect") %>%
  trav_out() %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  set_node_attrs_ws(node_attr = "fontsize", value = 26) %>%
  set_node_attrs_ws(node_attr = "width", value = 4) %>%
  set_node_attrs_ws(node_attr = "height", value = 4) %>%
  set_edge_attrs(edge_attr = "fontsize", value = 26) %>%
  transform_to_subgraph_ws() %>%
  render_graph()

final_graph$graph %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  select_nodes(type == "Regimen Class", set_op = "intersect") %>%
  trav_out() %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  set_node_attrs_ws(node_attr = "fontsize", value = 26) %>%
  set_node_attrs_ws(node_attr = "width", value = 4) %>%
  set_node_attrs_ws(node_attr = "height", value = 4) %>%
  set_edge_attrs(edge_attr = "fontsize", value = 26) %>%
  set_edge_attrs(edge_attr = "len", value = 35) %>%
  transform_to_subgraph_ws() %>%
  render_graph()

final_graph$graph %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  select_nodes(type == "Regimen Class", set_op = "intersect") %>%
  trav_out() %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  set_node_attrs_ws(node_attr = "fontsize", value = 4) %>%
  set_node_attrs_ws(node_attr = "width", value = .5) %>%
  set_node_attrs_ws(node_attr = "height", value = .5) %>%
  set_edge_attrs(edge_attr = "fontsize", value = 4) %>%
  set_edge_attrs(edge_attr = "len", value = .4) %>%
  transform_to_subgraph_ws() %>%
  render_graph("circle")

final_graph$graph %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  select_nodes(type == "Regimen Class", set_op = "intersect") %>%
  trav_out() %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  set_node_attrs_ws(node_attr = "fontsize", value = 3) %>%
  set_node_attrs_ws(node_attr = "width", value = .4) %>%
  set_node_attrs_ws(node_attr = "height", value = .4) %>%
  set_edge_attrs(edge_attr = "fontsize", value = 3) %>%
  set_edge_attrs(edge_attr = "len", value = 6) %>%
  transform_to_subgraph_ws() %>%
  render_graph("kk")

final_graph$graph %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  select_nodes(type == "Regimen Class", set_op = "intersect") %>%
  trav_out() %>%
  select_nodes(vocabulary_id == "HemOnc") %>%
  set_node_attrs_ws(node_attr = "fontsize", value = 3) %>%
  set_node_attrs_ws(node_attr = "width", value = .4) %>%
  set_node_attrs_ws(node_attr = "height", value = .4) %>%
  set_edge_attrs(edge_attr = "fontsize", value = 3) %>%
  set_edge_attrs(edge_attr = "len", value = 6) %>%
  transform_to_subgraph_ws() %>%
  render_graph("fr")

mpatel-cai/chariot2 documentation built on Jan. 8, 2022, 5:18 a.m.