# NOT RUN {
# Create a random graph
graph <-
create_random_graph(
n = 10, m = 22,
set_seed = 23)
# Get leverage centrality values for
# all nodes in the graph
get_leverage_centrality(graph)
#> id leverage_centrality
#> 1 1 -0.16498316
#> 2 2 -0.05555556
#> 3 3 -0.16498316
#> 4 4 -0.30000000
#> 5 5 -0.05555556
#> 6 6 0.11111111
#> 7 7 -0.16498316
#> 8 8 -0.47089947
#> 9 9 -0.05555556
#> 10 10 -0.05555556
# Add the leverage centrality values
# to the graph as a node attribute
graph <-
graph %>%
join_node_attrs(
df = get_leverage_centrality(.)) %>%
drop_node_attrs(node_attr = value)
# Display the graph's node data frame
get_node_df(graph)
#> id type label leverage_centrality
#> 1 1 <NA> 1 -0.16498316
#> 2 2 <NA> 2 -0.05555556
#> 3 3 <NA> 3 -0.16498316
#> 4 4 <NA> 4 -0.30000000
#> 5 5 <NA> 5 -0.05555556
#> 6 6 <NA> 6 0.11111111
#> 7 7 <NA> 7 -0.16498316
#> 8 8 <NA> 8 -0.47089947
#> 9 9 <NA> 9 -0.05555556
#> 10 10 <NA> 10 -0.05555556
# }
Run the code above in your browser using DataLab