if (FALSE) {
library(igraph)
library(ggraph)
g <- sample_gnp(1000, 0.005)
ggraph(g, layout = "sparse_stress", pivots = 100) +
geom_edge_link0(edge_colour = "grey66") +
geom_node_point(shape = 21, fill = "grey25", size = 5) +
theme_graph()
}
Run the code above in your browser using DataLab