## Animations generated in R version 3.5.3 (2019-03-11) using the package animation
library(igraph)
library(animation)
library(Patterns)
POS <- position(net, nv = list_nv[1])
for (i in list_nv) {
    if (fix == TRUE) {
        plot(Omega, nv = i, gr = gr, ini = POS, color.vertex = color.vertex, 
            color.edge = color.edge, label_v = label_v, legend.position = legend.position, 
            frame.color = frame.color, label.hub = label.hub)
    }
    else {
        plot(Omega, nv = i, gr = gr, color.vertex = color.vertex, 
            color.edge = color.edge, label_v = label_v, legend.position = legend.position, 
            frame.color = frame.color, label.hub = label.hub)
    }
    text(-1, 1, round(i, 3))
}
## R version 3.5.3 (2019-03-11)
## Platform: x86_64-apple-darwin15.6.0 (64-bit)
## Other packages: igraph 1.2.4, animation 2.6, Patterns 0.6