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"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Set3"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Pastel2"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Pastel1"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Paired"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Dark2"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Accent"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Spectral"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"RdYlGn"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"RdYlBu"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"RdGy"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"RdBu"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"PuOr"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"PRGn"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"PiYG"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"BrBG"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"YlOrRd"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"YlOrBr"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"YlGnBu"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"YlGn"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Reds"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"RdPu"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Purples"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"PuRd"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"PuBuGn"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"PuBu"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"OrRd"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Oranges"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Greys"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Greens"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"GnBu"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"BuPu"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"BuGn"))
g3 <- make_graph("Cubical")%>%set_vertex_attr("color", value = brewer.pal(8,"Blues"))
Development tool: RStudio
Alt+A screenshot tool
Reference: https://blog.csdn.net/m0_38127487/article/details/132126913?spm=1001.2014.3001.5502