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)
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/30d777055c69d2bfb613285c93db0370.png)
g3 <- make_graph("Bull")%>%set_vertex_attr("color", value = brewer.pal(5,"Pastel2"))
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/10c5fb223aee97bac3c21bdb2f85e20a.png)
g3 <- make_graph("Bull")%>%set_vertex_attr("color", value = brewer.pal(5,"Set1"))
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/4c6ed0b084b1ce7f380525e6f60971e0.png)
g3 <- make_graph("Bull")%>%set_vertex_attr("color", value = brewer.pal(5,"Set2"))
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/5df82d4ca7d52ff1e1822e538db4090e.png)
g3 <- make_graph("Bull")%>%set_vertex_attr("color", value = brewer.pal(5,"Set3"))
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/f00398ea630806a5b3d4fc341d1ae31e.png)
g3 <- make_graph("Bull")%>%set_vertex_attr("color", value = brewer.pal(5,"Paired"))
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/76c3ad87cfec7d43ea5b083f908aab09.png)
g3 <- make_graph("Bull")%>%set_vertex_attr("c