使用分配动态更改循环中的列表名称？

Question

最好举个例子：在我看来，这段代码应该生成 10 个列表，每个列表包含 100 个元素。

for (i in 1:10){
assign(paste("List", i, sep="."), vector("list", length=100))
  for (j in 1:100){
    assign(paste("List", i, sep=".")[[j]], j+1)
  }
}

但事实并非如此..第一个分配工作正常，创建一个包含 100 个元素的空列表，但如何在其中填充元素 [[j]] ？谢谢！

Answer 1

与在全局环境中创建 10 个列表不同，只创建一个列表列表会简单得多：

mybiglist <- list()
for(i in 1:10) {
  mybiglist[[i]] <- list()
  for( j in 1:100 ) {
    mybiglist[[i]][[j]] <- j+1
  }
}

您可以将名称添加到任何列表中，或者仅通过数字下标访问各个部分。这也不会污染您的全局环境，并且通常更容易调试。当您想对 10 个列表执行某些操作时，您只需使用 lapply/sapply 即可，而无需再进行另一个循环。您还可以保存/加载/删除/探索/等。一个对象而不是 10 个。

Answer 2

问题是你不能使用 assign 为对象的元素赋值，除非你变得有点棘手。见下文。

for (i in 1:10){
  assign(paste("List", i, sep="."), vector("list", length=100))
  for (j in 1:100){
    assign(paste("List", i, sep="."), 
      {x <- get(paste("List", i, sep=".")) 
       x[[j]] <- j + 1 
       x})
  }
}

rm(i, j, x)

Answer 3

下面的代码生成 10 个列表，每个列表包含 100 个元素。

myList = list()

for (i in 1:10) {
      myList[[i]] = 1:100
}

但是，不确定您是否需要 10 个向量列表 或 10 个列表列表

如果您想要后者，您可以执行以下操作：

myList = list()

for (i in 1:10) {
  myList[[i]] = list()

  for (j in 1:100) {
      myList[[i]][[j]] = j
  }  
}