library(igraph)
library(ggraph)
g <- sample_gnp(10,0.4)
if (FALSE) {
ggraph(g,layout = "centrality",centrality = degree(g))+
draw_circle(use = "cent")+
geom_edge_link()+
geom_node_point(shape = 21,fill = "grey25",size = 5)+
theme_graph()+
coord_fixed()
}
Run the code above in your browser using DataLab