library(igraph)
e1 <- as.popgraph( graph.atlas(716) )
e2 <- as.popgraph( graph.atlas(806) )
e3 <- e1 - e2
par(mfrow=c(1,3))
l <- layout.fruchterman.reingold( e1 )
plot(e1, layout=l)
plot(e2, layout=l)
plot(e3, layout=l)
par(mfrow=c(1,1))
Run the code above in your browser using DataLab