从向量中的字符串使用列表的指定名称

Question

我有一些清单：

my_list1 <- list("data" = list(c("a", "b", "c")), "meta" = list(c("a", "b")))
my_list2 <- list("data" = list(c("x", "y", "z")), "meta" = list(c("x", "y")))

我希望能够对这些列表执行一些操作，但我需要使用存储在向量中的列表名称，因为我是通过 API 调用动态创建它们的。这样的向量可能是：

list_vec <- c("my_list1", "my_list2")

我在将向量中的字符串评估为列表名称时遇到了问题。我知道已经涵盖了这个主题，但我特别坚持的部分是在assign 中运行函数时能够仅提取data 子列表。基本上是这样的情况：

library(purrr)
for(i in seq_along(1:length(list_vec))){
  assign(list_vec[[i]], map_df(list_vec[[i]][["data"]], unlist))
}

这将给出以下结果：

# A tibble: 3 x 1
  data 
  <chr>
1 a    
2 b    
3 c    

我也可以这样做：

my_list1$meta <- NULL

与

list_vec[[1]][["meta"]] <- NULL

要将列表减少到仅data 子列表，但我不能在动态分配的名称中。

我也用eval 包装了一些东西，但无法让它工作。

所以具体来说，我需要从字符串中评估列表的名称，以便从中提取子列表。

Answer 1

我们可以将向量list_vec 传递给mget，它返回一个嵌套列表。我们使用lapply 提取（[[）data 元素并使用unlist 将此嵌套列表转换为列表。

unlist(lapply(mget(list_vec), `[[`, "data"), recursive = FALSE)

结果

#$my_list1
#[1] "a" "b" "c"

#$my_list2
#[1] "x" "y" "z"