set.seed(111)
ig <- graph_from_data_frame(as.data.frame(matrix(sample(letters,40,rep=TRUE),nc=2)))
set.seed(123)
ig.layout <- layout.fruchterman.reingold(ig)
rownames(ig.layout) <- V(ig)$name
par(bg="white",mar=c(0,0,0,0),oma=c(0,0,0,0))
plot.igraph(ig,layout=ig.layout,vertex.color=adjustcolor("gray",alpha.f=0.5),rescale=FALSE,xlim=c(4,11),ylim=c(4,11))
set.seed(321)
ig.sub <- subgraph(ig,sample(V(ig)$name,5))
plot.igraph(ig.sub,layout=ig.layout[V(ig.sub)$name,],add=TRUE,vertex.color=adjustcolor("orange",alpha.f=0.5),rescale=FALSE)
このコードはグラフを出力します。オレンジ色のノードは後で追加されます。