昨日の続き library(igraph) library (plyr) make.v <- function(id=NULL,name="",type=NULL){ list(id=id,name=name,type=type) } shapes <- setdiff(vertex.shapes(), "") g <- graph.empty() Vs <- list() Vs[[1]] <- make.v(1,"フラーレン",1) Vs[[2]] <…