# NOT RUN {
library(igraph)
gr <- graph_from_data_frame(highschool)
V(gr)$popularity <- as.character(cut(degree(gr, mode = 'in'), breaks = 3,
labels = c('low', 'medium', 'high')))
ggraph(gr) +
geom_edge_link() +
geom_node_point() +
facet_nodes(~popularity)
# }
Run the code above in your browser using DataLab