# NOT RUN {
# Create a random graph
graph <-
create_random_graph(
10, 22, set_seed = 1)
# Get the group membership values for all nodes
# in the graph through the Walktrap community
# finding algorithm
get_cmty_walktrap(graph)
#> id walktrap_group
#> 1 1 1
#> 2 2 1
#> 3 3 1
#> 4 4 2
#> 5 5 1
#> 6 6 2
#> 7 7 1
#> 8 8 1
#> 9 9 2
#> 10 10 1
# Add the group membership values to the graph
# as a node attribute
graph <-
graph %>%
join_node_attrs(get_cmty_walktrap(.))
# }
Run the code above in your browser using DataLab