# NOT RUN {
library(igraph)
library(ggraph)
g <- sample_islands(9,20,0.4,9)
g <- simplify(g)
V(g)$grp <- as.character(rep(1:9,each=20))
bb <- layout_as_backbone(g,keep=0.4)
E(g)$col <- FALSE
E(g)$col[bb$backbone] <- TRUE
ggraph(g,layout="manual",node.positions=data.frame(x=bb$xy[,1],y=bb$xy[,2]))+
geom_edge_link(aes(col=col),width=0.1,n=2)+
geom_node_point(aes(col=grp))+
scale_color_brewer(palette = "Set1")+
scale_edge_color_manual(values=c(rgb(0,0,0,0.3),rgb(0,0,0,1)))+
theme_graph()+
theme(legend.position = "none")
# }
Run the code above in your browser using DataLab