複製一個列表來創建一個列表中，列出了

Question

我想創建一個列表具有以下（嵌套）結構：

l <- list() 
for(i in seq(5)) l[[i]] <- list(a=NA,b=NA) 
> str(l) 
List of 5 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 

我想通過rep或類似做到這一點，因爲我創建一大堆空白列表，我將在後面填寫。（我知道我可以通過引用下一個索引來擴展列表，但在索引兩個深度時不起作用）。

我以爲rep爲此工作，但它似乎並沒有。 ?rep給出了下面的例子：

fred <- list(happy = 1:10, name = "squash") 
rep(fred, 5) 

將返回：

> str(rep(fred, 5)) 
List of 10 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 

換句話說，它展平列表。

我也試過list(rep(fred,5))，這同樣失敗。

如何複製列表清單？

Answer 1

我認爲這是與代表的行爲做的，你想窩在你面前代表：

rep(list(fred),5) 

的str輸出：

List of 5 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 

Answer 2

您可以使用replicate：

l <- replicate(5, list(a=NA,b=NA), simplify=FALSE)