R language draws the famous network connectivity map of different colors

library(igraph)
g.1 <- make_graph("Zachary")%>%set_vertex_attr("color", value = "red")
g.2 <- make_graph("krackhardt_kite")%>%set_vertex_attr("color", value = "red")
g.3 <- make_graph("Bull")%>%set_vertex_attr("color", value = "red")
g.4 <- make_graph("Chvatal")%>%set_vertex_attr("color", value = "red")
plot(g.1)

g.2 <- make_graph("krackhardt_kite")%>%set_vertex_attr("color", value = "red")
plot(g.2)

g.3 <- make_graph("Bull")%>%set_vertex_attr("color", value = "red")
plot(g.3)

g.4 <- make_graph("Chvatal")%>%set_vertex_attr("color", value = "red")
plot(g.4)

g.1 <- make_graph("Coxeter")%>%set_vertex_attr("color", value = "red")

g.1 <- make_graph("Cubical")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Diamond")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Dodecahedral")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Dodecahedron")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Folkman")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Franklin")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Frucht")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Grotzsch")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Heawood")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Herschel")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("House")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("HouseX")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Icosahedral")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Icosahedron")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Levi")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("McGee")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("McGee")%>%set_vertex_attr("color", value = "Pink")

g.1 <- make_graph("Meredith")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Noperfectmatching")%>%set_vertex_attr("color", value = "Purple")

g.1 <- make_graph("Nonline")%>%set_vertex_attr("color", value = "maroon")

g.1 <- make_graph("Octahedral")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Octahedron")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Petersen")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Robertson")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Smallestcyclicgroup")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Tetrahedral")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Tetrahedron")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Thomassen")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Tutte")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Uniquely3colorable")%>%set_vertex_attr("color", value = "pink")

g.1 <- make_graph("Walther")%>%set_vertex_attr("color", value = "pink")

Reference: http://www.idata8.com/rpackage/igraph/vertex_attr.html
https://blog.csdn.net/m0_38127487/article/details/132089955?spm=1001.2014.3001.5501
《Network Analysis and Visualization》