How to highlight the giant component of a graph using igraph

highlight_giant.r

# highlight communities and clusters in an igraph plot

library(igraph)

g <- erdos.renyi.game(50, .02)

# plot regular

plot(g)

# get the components of the graph

comps <- components(g)

# which is biggest?

giant_id <- which.max(comps$csize)

# now plot again marking the largest component

plot(g, mark.groups = list(comps$membership == giant_id), mark.col = 'green')