library(igraph)
library(sgraph)
data(lesMis)
df_nodes = cbind.data.frame(name = igraph::vertex_attr(lesMis, 'label'),
log10_degree = degree(lesMis))
igraph = add_igraph_info(lesMis, df_nodes)
sig <- sigma_from_igraph(lesMis) %>%
add_node_size(size_vector = 'log10_degree')
Run the code above in your browser using DataLab