if (interactive()) {
# Render a graph that's a
# balanced tree
create_graph() %>%
add_balanced_tree(
k = 2, h = 3) %>%
render_graph()
# Use the `tree` layout for
# better node placement in this
# hierarchical graph
create_graph() %>%
add_balanced_tree(
k = 2, h = 3) %>%
render_graph(layout = "tree")
# Plot the same tree graph but
# don't show the node ID values
create_graph() %>%
add_balanced_tree(
k = 2, h = 3) %>%
set_node_attr_to_display() %>%
render_graph(layout = "tree")
# Create a circle graph
create_graph() %>%
add_gnm_graph(
n = 55,
m = 75,
set_seed = 23) %>%
render_graph(
layout = "circle")
# Render the graph using the
# `visNetwork` output option
create_graph() %>%
add_balanced_tree(
k = 2, h = 3) %>%
render_graph(
output = "visNetwork")
}
Run the code above in your browser using DataLab