# NOT RUN {
library(igraph)
library(sigmaNet)
library(magrittr)
data(lesMis)
l <- layout_nicely(lesMis)
#one color for all nodes
sig <- sigmaFromIgraph(graph = lesMis, layout = l) %>%
addNodeColors(oneColor = '#D95F02')
sig
#color based on attribute (edge betweenness cluster)
clust <- cluster_edge_betweenness(lesMis)$membership
V(lesMis)$group <- clust
sig <- sigmaFromIgraph(graph = lesMis, layout = l) %>%
addNodeColors(colorAttr = 'group', colorPal = 'Set1')
sig
# }
Run the code above in your browser using DataLab