R 言語は、完全な色の組み合わせで有名なダイヤモンド ネットワーク接続グラフを描画します

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)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

開発ツール: RStudio
WeChat Alt+A スクリーンショット ツール