# NOT RUN {
library(igraph)
library(ggraph)
g <- sample_gnp(10,0.4)
ggraph(g,layout="centrality",cent=closeness(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