R language draws the famous cubic network connectivity graph with complete color combinations

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)

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here

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

insert image description here
Development tool: RStudio
Alt+A screenshot tool
Reference: https://blog.csdn.net/m0_38127487/article/details/132126913?spm=1001.2014.3001.5502

Guess you like

Origin blog.csdn.net/m0_38127487/article/details/132134630