## Animations generated in R version 3.4.0 (2017-04-21)
##   using the package animation
library(animation)
library(readxl)
library(igraph)
for (year.i in year.unique) {
    e.year <- E(g.rhodes)$date.f < as.numeric(year.i) + 1
    g.rhodes.year[[year.i]] <- subgraph.edges(g.rhodes, which(e.year))
    g.rhodes.year[[year.i]]$layout <- g.rhodes$layout[match(V(g.rhodes)[inc(which(e.year))], 
        V(g.rhodes)), ]
    plot(g.rhodes.year[[year.i]], xlim = c(-10, 10), ylim = c(-10, 
        10), rescale = FALSE, main = year.i)
}
## R version 3.4.0 (2017-04-21)
## Platform: x86_64-apple-darwin15.6.0 (64-bit)
## Other packages: animation 2.5, readxl 1.0.0, igraph 1.1.2