R语言绘制无向的、颜色齐全的网络连通图

# Library
library(igraph)
library(RColorBrewer)
# Create data
set.seed(1)
data <- matrix(sample(0:1, 64, replace=TRUE, prob=c(0.8,0.2)), nc=8)
network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", value = brewer.pal(8,"Set3"))%>%set_edge_attr("color", value = brewer.pal(8,"Set3"))

# Default network
par(mar=c(0,0,0,0))
plot(network)

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Set1"))%>%set_edge_attr("color", value = brewer.pal(8,"Set3"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Set2"))%>%set_edge_attr("color", value = brewer.pal(8,"Paired"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Accent"))%>%set_edge_attr("color", value = brewer.pal(8,"Paired"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Accent"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"RdYlBu"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"RdBu"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"PuOr"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"PRGn"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"PiYG"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"BrBG"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Blues"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"BuGn"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"BuPu"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"GnBu"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Greens"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Greys"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Oranges"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"OrRd"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"PuBu"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"PuBuGn"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"PuRd"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Purples"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"RdPu"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"Reds"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"YlGn"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"YlGnBu"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"YlOrBr"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

network <- graph_from_adjacency_matrix(data , 
mode='undirected', 
diag=F )%>%set_vertex_attr("color", 
value = brewer.pal(8,"YlOrRd"))%>%set_edge_attr("color", value = brewer.pal(8,"Dark2"))

开发工具:RStudio
微信Alt+A截屏工具