# NOT RUN {
# Create a random graph
graph <-
create_random_graph(
n = 5, m = 10,
set_seed = 23) %>%
drop_node_attrs(
node_attr = value)
# Add a graph action that sets a node
# attr column with a function; this
# uses the `get_pagerank()` function
# to provide PageRank values in the
# `pagerank` column
graph <-
graph %>%
add_graph_action(
fcn = "set_node_attr_w_fcn",
node_attr_fcn = "get_pagerank",
column_name = "pagerank",
action_name = "get_pagerank")
# Add a second graph action (to be
# executed after the first one) that
# rescales values in the `pagerank`
# column between 0 and 1, and, puts
# these values in the `width` column
graph <-
graph %>%
add_graph_action(
fcn = "rescale_node_attrs",
node_attr_from = "pagerank",
node_attr_to = "width",
action_name = "pgrnk_to_width")
# Add a third and final graph action
# (to be executed last) that creates
# color values in the `fillcolor` column,
# based on the numeric values from the
# `width` column
graph <-
graph %>%
add_graph_action(
fcn = "colorize_node_attrs",
node_attr_from = "width",
node_attr_to = "fillcolor",
action_name = "pgrnk_fillcolor")
# View the graph actions for the graph
# object by using the `get_graph_actions()`
# function
graph %>%
get_graph_actions()
#> # A tibble: 3 x 3
#> action_index action_name
#> <dbl> <chr>
#> 1 1 get_pagerank
#> 2 2 pgrnk_to_width
#> 3 3 pgrnk_fillcolor
#> # ... with 1 more variables:
#> # expression <chr>
# Manually trigger to invocation of
# the graph actions using the
# `trigger_graph_actions()` function
graph <-
graph %>%
trigger_graph_actions()
# Examine the graph's internal node
# data frame (ndf) to verify that
# the `pagerank`, `width`, and
# `fillcolor` columns are present
graph %>%
get_node_df()
#> id type label pagerank width fillcolor
#> 1 1 <NA> 1 0.09912752 0.000 #D7191C
#> 2 2 <NA> 2 0.12019212 0.069 #FDAE61
#> 3 3 <NA> 3 0.15424655 0.179 #FFFFBF
#> 4 4 <NA> 4 0.21980134 0.392 #ABDDA4
#> 5 5 <NA> 5 0.40663247 1.000 #2B83BA
# }
Run the code above in your browser using DataCamp Workspace