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
微信Alt+A截屏工具