从列表列表的元素自动创建变量 R

你没有一个工作的例子，所以我不确定我是否理解你的问题。话虽如此，这里有一些可以尝试的东西。

## Some data to work with
lst <- list(
  date = list(
    train = 2000:2010,
    test  = 2011:2021
  ),
  actualB1 = list(
    train = 2000:2010,
    test  = 2011:2021
  ),
  actualAx = list(
    train = 2000:2010,
    test  = 2011:2021
  )
)
## A function to subset the list at levels 1 and 2.
f <- function(lst, level_1, level_2){
  # l1 <- lst[[level_1]]
  # l1[[level_2]] 
  l1 <- sapply(X = lst, FUN = "[", level_2, simplify = FALSE)
  l1[[level_1]]
}
## testing the function on the list specifying the names of the 2 levels
test <- f(lst = lst, level_1 = 'actualB1', level_2 = 'train')
test

我仍然不确定我是否理解这个问题，但这是我在递归函数中提出的另一个想法。

## Data

lst <- list(
  date = data.frame(
    train = 2000:2005,
    test  = 2005:2010
  ),
  actualB1 = data.frame(
    train = 2010:2015,
    test  = 2015:2020
  ),
  actualAx = data.frame(
    train = 2020:2025,
    test  = 2030:2035
  )
)

# Function

f <- function(lst){
  names_lst <- names(lst)
  lapply(X = names_lst, function(i){
    if(inherits(lst[[i]], what = 'data.frame', which = TRUE)){
      names_i <- names(lst[[i]])
      lapply(X = names_i, function(j){
        obj_name <- paste(i, j, sep = "_")
        assign(obj_name, lst[[i]][[j]], envir = .GlobalEnv)
      })
    } else {
      f (lst)
    }
  })
}

# Function called on Data

test <- f(lst = lst)

我不确定我是否理解您的问题的理由是，我似乎不明白为什么人们想要继续子集列表并将结果分配给新对象。

我认为，如果你想对你正在子集的数据进行进一步的分析，你需要重新考虑你的方法。虽然上面的函数通常会检索列表不同嵌套级别的名称，但它可能会遇到错误，具体取决于您的设置。这可能表明您可能需要重新考虑您的方法。尝试添加更多级别的嵌套，您最终可能会遇到该错误。在我的机器上，以下导致我出现该错误：C stack usage <number> is too close to the limitlst

lst <- list(
  date = data.frame(
    train   = 2000:2005,
    test    = 2005:2010
  ),
  actualB1  = data.frame(
    train   = 2010:2015,
    test    = 2015:2020
  ),
  actualAx  = list(
    up      = data.frame(
      train = 2020:2025,
      test  = 2030:2035
    ),
    sub     = data.frame (
      train = 2040:2045,
      test  = 2045:2050
    )
  )
)
test <- f(lst = lst) # Error: C stack usage  15926032 is too close to the limit