R language draws the famous network connectivity graph, each node has a different color

library(igraph)
library(RColorBrewer)
g3 <- make_star(9, mode = "mutual",center = 1)%>%set_vertex_attr("color", value = brewer.pal(9,"Blues"))
V(g3)$name <- letters[1:9]
plot(g3)

%>%set_vertex_attr("color", value = brewer.pal(9,"Set1"))

%>%set_vertex_attr("color", value = brewer.pal(9,"Set3"))

%>%set_vertex_attr("color", value = brewer.pal(9,"Pastel1"))

library(igraph)
library(RColorBrewer)
g3 <-  make_graph("Bull")%>%set_vertex_attr("color", value = brewer.pal(5,"Pastel1"))
V(g3)$name <- letters[1:5]
plot(g3)

g3 <-  make_graph("Bull")%>%set_vertex_attr("color", value = brewer.pal(5,"Pastel2"))

g3 <-  make_graph("Bull")%>%set_vertex_attr("color", value = brewer.pal(5,"Paired"))

library(igraph)
library(RColorBrewer)
g3 <-  make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Set1"))
V(g3)$name <- letters[1:8]
plot(g3)

g3 <-  make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Set2"))

library(igraph)
library(RColorBrewer)
g3 <-  make_graph("Diamond")%>%set_vertex_attr("color", value = brewer.pal(4,"Set2"))
V(g3)$name <- letters[1:4]
plot(g3)

library(igraph)
library(RColorBrewer)
g3 <-  make_graph("House")%>%set_vertex_attr("color", value = brewer.pal(5,"Set3"))
V(g3)$name <- letters[1:5]
plot(g3)

g3 <-  make_graph("HouseX")%>%set_vertex_attr("color", value = brewer.pal(5,"Purples"))

g3 <-  make_graph("Octahedral")%>%set_vertex_attr("color", value = brewer.pal(6,"Dark2"))

g3 <-  make_graph("Octahedral")%>%set_vertex_attr("color", value = brewer.pal(6,"Paired"))

g3 <-  make_graph("Octahedral")%>%set_vertex_attr("color", value = brewer.pal(6,"Accent"))

library(igraph)
library(RColorBrewer)
g3 <-  make_graph("Octahedron")%>%set_vertex_attr("color", value = brewer.pal(6,"Accent"))
V(g3)$name <- letters[1:6]
plot(g3)

library(igraph)
library(RColorBrewer)
g3 <-  make_graph("Smallestcyclicgroup")%>%set_vertex_attr("color", value = brewer.pal(9,"Set1"))
V(g3)$name <- letters[1:9]
plot(g3)

g3 <-  make_graph("Smallestcyclicgroup")%>%set_vertex_attr("color", value = brewer.pal(9,"Set3"))

library(igraph)
library(RColorBrewer)
g3 <-  make_graph("Tetrahedral")%>%set_vertex_attr("color", value = brewer.pal(4,"Set3"))
V(g3)$name <- letters[1:4]
plot(g3)

g3 <-  make_graph("Tetrahedron")%>%set_vertex_attr("color", value = brewer.pal(4,"Set3"))

References: https://blog.csdn.net/m0_38127487/article/details/132123584?spm=1001.2014.3001.5502
Development tools: RStudio and WeChat Alt+A screenshot tool