为所有嵌套索引嵌套列表中的某些元素

Question

我有一个包含更多列表的列表：

results <- sapply(c(paste0("cv_", seq(1:50)), "errors"), function(x) NULL)

## Locations for results to be stored
step_results <- sapply(c("myFit", "forecast", "errors"), function(x) NULL)
step_errors <- sapply(c("MAE", "MSE", "sign_accuracy"), function(x) NULL)
final_error <- sapply(c("MAE", "MSE", "sign_accuracy"), function(x) NULL)

for(i in 1:50){results[[i]] <- step_results}
for(i in 1:50){results[[i]][[3]] <- step_errors}
results$errors <- final_error

现在在整个结构中，我想总结sign_accuracy中的所有值并将它们保存在results$errors$sign_accuracy中

我也许可以用一个 for 循环来做到这一点，用 i 进行索引：

## This is just an example - it won't actually work!
sign_acc <- matrix(nrow = 50, ncol = 2)
for (i in 1:50){
     sign_acc[i, ] <- `results[[i]][[3]][[3]]`
     results$errors$sign_accuracy <- sign_acc
}

如果我没记错的话，在 Matlab 中有类似 list(:) 的东西，表示所有元素。 In Python我见过类似list(0:-1)的东西，也就是所有元素的意思。

什么是优雅的 R 等价物？我不太喜欢循环。

我见过methods using the apply 系列函数。使用 apply(data, "[[", 2) 之类的东西，但无法让它用于更深的列表。

Answer 1

你试过c(..., recursive)吗？

这是一个选项，末尾有一个简短的示例：

sumList <- function(l, label) {
    lc <- c(l, recursive=T)
    filter <- grepl(paste0("\\.",label, "$"), names(lc)) | (names(lc) == label)
    nums <- lc[filter]
    return(sum(as.numeric(nums)))
}

ex <- list(a=56,b=list("5",a=34,list(c="3",a="5")))
sumList(ex,"a")

Answer 2

在这种情况下，你可以做你想做的事

results$errors$sign_accuracy <- do.call(sum, lapply(results, function(x){x[[3]][[3]]}))

lapply循环遍历results的第一层，并为每个元素拉出第三个元素的第三个元素。 do.call(sum 捕获所有结果并将它们相加。

当嵌套更不规则时，或者当您需要遍历多个索引时，列表的真正问题就会出现。它总是可以用同样的方式完成，但它很快就会变得非常丑陋。