library(igraph)
library(sgraph)
data(lesMis)
layout <- layout_nicely(lesMis)
# one size for all nodes
sig <- sigma_from_igraph(igraph = lesMis, layout = layout) %>%
add_node_size(one_size = 3)
sig
# using a vector
custom_size <- log10(degree(lesMis))
sig <- sigma_from_igraph(igraph = lesMis, layout = layout) %>%
add_node_size(size_vector = custom_size)
sig
Run the code above in your browser using DataLab