To an existing graph object, add a graph built by adding m
new edges at
each time step (where a node is added).
add_growing_graph(
graph,
n,
m = 1,
citation = FALSE,
type = NULL,
label = TRUE,
rel = NULL,
node_aes = NULL,
edge_aes = NULL,
node_data = NULL,
edge_data = NULL,
set_seed = NULL
)
A graph object of class dgr_graph
.
The number of nodes comprising the generated graph.
The number of edges added per time step.
A logical value (default is FALSE
) that governs whether a
citation graph is to be created. This is where new edges specifically
originate from the newly added node in the most recent time step.
An optional string that describes the entity type for all the nodes to be added.
A logical value where setting to TRUE
ascribes node IDs to the
label and FALSE
yields a blank label.
An optional string for providing a relationship label to all edges to be added.
An optional list of named vectors comprising node aesthetic
attributes. The helper function node_aes()
is strongly recommended for
use here as it contains arguments for each of the accepted node aesthetic
attributes (e.g., shape
, style
, color
, fillcolor
).
An optional list of named vectors comprising edge aesthetic
attributes. The helper function edge_aes()
is strongly recommended for
use here as it contains arguments for each of the accepted edge aesthetic
attributes (e.g., shape
, style
, penwidth
, color
).
An optional list of named vectors comprising node data
attributes. The helper function node_data()
is strongly recommended for
use here as it helps bind data specifically to the created nodes.
An optional list of named vectors comprising edge data
attributes. The helper function edge_data()
is strongly recommended for
use here as it helps bind data specifically to the created edges.
Supplying a value sets a random seed of the
Mersenne-Twister
implementation.
# Create a random, growing
# citation graph with 100
# nodes, adding an edge after
# each node addition
growing_graph <-
create_graph() %>%
add_growing_graph(
n = 100,
m = 1,
citation = TRUE,
set_seed = 23)
# Get a count of nodes
growing_graph %>% count_nodes()
# Get a count of edges
growing_graph %>% count_edges()
Run the code above in your browser using DataLab