R-應用於列表的深層嵌套元素

Question

我有一個很大的列表，用於存儲測量值（其他lapply（）運行的產物）。 我現在想收集這些度量值並計算中位數/均值/標准差等，但我不知道如何訪問它們。 該列表的結構如下：

foo[[i]][[j]][[k]][[1]]
foo[[i]][[j]][[k]][[2]]$bar

我想不出一個函數，該函數將返回例如$ bar的均值（但不是$ x的均值）並使索引i，j，k的值保持聯系。

可以使用以下R代碼生成示例列表：

library(purrr)

metrics <- function(y){

tt10r <- median(y)
list(y, flatten(list(bar = tt10r)))
}


example_list <- list()
for (i in 1:10)
{
  v <- list()
  for (j in 1:10)
  {
    w <- 1:10
    v[j] <- list(w)  
  }
example_list[[i]] <- v
}

foo <- list()
for (i in 1:length(example_list))
{
  u <- list()  
  values <- list()
  for (j in 1:length(example_list[[i]]))
  {
    u[[j]] <- lapply(example_list[[i]][[j]], function(x) mean(x))
    values[[j]] <- lapply(u[[j]], function(x) metrics(x))
  }
foo[[i]] <- values  
}

Answer 1

以下代碼可以很好地工作，但是我不確定它是否有效（循環！）。 給出預期的結果：

final <- matrix(nrow = tail(cumsum(unlist(lapply(foo, function(x) lengths(x) -2))), n=1), ncol = 3) 
final <- data.frame(final)
j=1
i=1

all_js <- c(0, cumsum(lengths(foo)))

starts <- c(0, cumsum(unlist(lapply(foo, function(x) lengths(x) -2)))) + 1
ends <- c(0, cumsum(unlist(lapply(foo, function(x) lengths(x) -2))))

for (i in 1:length(foo))
{
  a <- foo[[i]]

  for (j in 1:length(a))
  {
    b <- a[[j]]

    data <- unlist(lapply(lapply(b[1], '[', 2), '[[', 1))

    for (k in 2:c(length(b)-2))
    {
      data <- rbind(data,unlist(lapply(lapply(b[k], '[', 2), '[[', 1)))
    }    
    row.names(data) <- NULL
    colnames(final) <- c("i", "j", colnames(data))

    first <- starts[all_js[i] + j]
    last <-  ends[all_js[i] + j+1]

    final[first:last,] <- data.frame(cbind(i = i, j = j, data))
  }    
}