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("c