# NOT RUN {
library(igraph)
library(ggraph)
g <- sample_gnp(10,0.5)
E(g)$attr <- 1:ecount(g)
ggraph(g,layout="stress")+
geom_edge_link(aes(col=attr))+
geom_node_point()+
theme_graph()+
theme(legend.position="none")
gn <- reorder_edges(g,"attr")
ggraph(gn,layout="stress")+
geom_edge_link(aes(col=attr))+
geom_node_point()+
theme_graph()+
theme(legend.position="none")
# }
Run the code above in your browser using DataLab