# NOT RUN {
library(igraph)
library(ggraph)
g <- sample_gnp(10,0.4)
ggraph(g,layout = "focus",v = 1)+
draw_circle(use = "focus", max.circle = max(distances(g,1)))+
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