Классы проникновения монадных стеков со свободными / оперативными монадными трансформаторами?

Вы можете рассчитать связанные компоненты вашего графика, используя:

clusters(g)
# $membership
# [1] 1 1 1 1 1 1 2 2 3 1
# 
# $csize
# [1] 7 2 1
# 
# $no
# [1] 3

Или вы можете создать отдельный график для каждого компонента вашего графика, используя:

dg <- decompose.graph(g) # returns a list of three graphs
plot(dg[[1]]) # plot e.g. the 1st one

[/g0]