Componenti connesse

Rileggiamo il grafo diretto scritto nel file graph1.gml e visualizziamolo (non serve rileggerlo se le corrispondenti variabili sono state salvate):

g1 = read.graph(file="graph1.gml", format="gml")
coords1 = layout.fruchterman.reingold(g1)
plot(g1, layout=coords1, vertex.size=10)

Calcoliamo le componenti fortemente connesse:

scc = clusters(g1, mode="strong")
scc

Coloriamo le componenti con colori diversi:

V(g1)$color = "white"
for (i in 1:vcount(g1)) V(g1)[i]$color = scc$membership[i]
plot(g1, layout = coords1, vertex.color = V(g1)$color, vertex.size=10)

Rileggiamo il grafo indiretto scritto nel file graph2.gml e visualizziamolo (non serve rileggerlo se le corrispondenti variabili sono state salvate):

g2 = read.graph(file="graph2.gml", format="gml")
coords2 = layout.fruchterman.reingold(g2)
plot(g2, layout=coords2, vertex.size=10)

Calcoliamo le componenti connesse:

cc = clusters(g2)
cc

Coloriamo le componenti con colori diversi:

V(g2)$color = "white"
for (i in 1:vcount(g2)) V(g2)[i]$color = cc$membership[i]
plot(g2, layout = coords2, vertex.color = V(g2)$color, vertex.size=10)