## Not run:
# # Create a graph, then, create a subgraph of that larger graph
# nodes <-
# create_nodes(nodes = LETTERS,
# type = "letter",
# shape = sample(c("circle", "rectangle"),
# length(LETTERS),
# replace = TRUE),
# fillcolor = sample(c("aqua", "red",
# "pink", "lightgreen",
# "azure", "yellow"),
# length(LETTERS),
# replace = TRUE))
#
# edges <-
# create_edges(from = sample(LETTERS, replace = TRUE),
# to = sample(LETTERS, replace = TRUE),
# rel = "letter_to_letter")
#
# graph <- create_graph(nodes_df = nodes,
# edges_df = edges,
# graph_attrs = "layout = neato",
# node_attrs = c("fontname = Helvetica",
# "style = filled"),
# edge_attrs = c("color = gray20",
# "arrowsize = 0.5"))
#
# # Create a selection of nodes centered around node "U" and
# # including those nodes a depth of 2 edges away
# graph <-
# select_nodes_in_neighborhood(graph = graph,
# node = "U",
# distance = 2)
# ## End(Not run)
Run the code above in your browser using DataLab