igraphで複数のネットの生産を自動化するにはどうしたらいいですか？

Question

igraphで使用する予定のデータがあります。各サンプルには、リンクリストとノードリストの2つのデータフレームがあります。 IGRAPHは、ネットなどを生産するためにこれらのデータフレームを使用しています。：

sample1linksと sample1nodesが異なるデータフレームです

net1 <- graph_from_data_frame(d=sample1links, vertices=sample1nodes) 

。

私はさまざまなサンプルを持っていますので、このプロセスを自動化できればいいと思います。上記のプロセスを実行してサンプルのすべてのネットを生成するために使用できる方法はありますか（つまり、net1-netn、nはサンプルの数です）？

お手数をおかけしていただきありがとうございます。

Answer 1

ここでは例です：

library(igraph) 

# 2 example graphs as data frames 
sample1nodes <- read.table(text = "a\nb\n\nc\nd\ne") 
sample1links <- read.table(text = "a c\n\nb c\nc d") 
sample2nodes <- read.table(text = "A\nB\n\nc\nd\ne") 
sample2links <- read.table(text = "A c\n\nB c\nc d") 

# create igraph objects from data frames in a list 
glst <- Map(graph_from_data_frame, d=mget(ls(pattern = "sample\\d+links")), vertices=mget(ls(pattern = "sample\\d+nodes"))) 
names(glst) <- paste0("net", sub("sample(\\d+)links", "\\1", names(glst))) # rename list objects 

# Store list elements in the global environment under their names 
list2env(glst, envir = .GlobalEnv) 

# plot 
par(mfrow = c(1,2)) 
plot(net1) 
plot(net2)