library(igraph)
g <- sample_gnp(50, 0.2)
xy <- layout_with_eigen(g, type = "adjacency", ev = "largest")
xy <- layout_with_eigen(g, type = "adjacency", ev = "smallest")
xy <- layout_with_eigen(g, type = "laplacian", ev = "largest")
xy <- layout_with_eigen(g, type = "laplacian", ev = "smallest")
Run the code above in your browser using DataLab