# Create a node data frame (ndf)
nodes <-
create_nodes(
nodes = LETTERS,
label = TRUE,
type = c(rep("a_to_g", 7),
rep("h_to_p", 9),
rep("q_to_x", 8),
rep("y_and_z", 2)))
# Create an edge data frame (edf)
edges <-
create_edges(
from = sample(LETTERS, replace = TRUE),
to = sample(LETTERS, replace = TRUE),
rel = c(rep("rel_a", 7),
rep("rel_b", 9),
rep("rel_c", 8),
rep("rel_d", 2)))
# Create a graph using the ndf and edf
graph <-
create_graph(
nodes_df = nodes,
edges_df = edges)
# Get a total count of edges in the graph
edge_count(graph, rel = FALSE)
#> [1] 26
# Get a count of edges that have the relationship
# `rel_a`
edge_count(graph, rel = "rel_a")
#> [1] 7
# Get a count of edges with relationships
# `rel_a` and `rel_b`
edge_count(graph, rel = c("rel_a", "rel_b"))
#> [1] 16
Run the code above in your browser using DataLab