R 言語は、完全な色の組み合わせで有名な雄牛のネットワーク接続図を描画します

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,"Set1"))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

開発ツール: RStudio
WeChat Alt+A スクリーンショット ツール
参考: https://blog.csdn.net/m0_38127487/article/details/132126913?spm=1001.2014.3001.5502