data(UKfaculty, package="igraphdata")
col <- make_vertex_colors(UKfaculty, "Group")
if (require(magrittr)) {
nplot(UKfaculty) %>%
set_vertex_gpar("core", fill = col, col=col) %>%
set_vertex_gpar("frame", fill = col, col=col, alpha=.7) %>%
set_edge_gpar(col="gray50", fill="gray50", alpha=.5)
}
Run the code above in your browser using DataLab