通过数据帧中的字符向量对我的R列表进行分组

Question

我有一个r对象，即列表d。 我希望引用此列表的子集的数据框作为函数“ myfunction”的变量。 该函数将使用rslurm调用数千次，每次使用d的不同子集。

示例：d [['1']] [[3]]引用列表中的数据矩阵。

myfunction(d[['1']][[3]]) 

工作正常，但我希望能够从数据框中调用这些子集。

我希望能够有一个包含所有子集引用的数据框“ ds”。

>ds
              d
1 d[['1']][[3]]
2 d[['1']][[4]]

>myfunction(get(ds[1,1]))
Error in get(ds[1, 1]) : object 'd[['1']][[3]]' not found

是否有类似“ get”的东西可以让我调用对象的子集d？ 或者我可以在“ myfunction”中添加一些内容来阐明此字符串引用了d的子集吗？

stack_overflow'获取'

Answer 1

清单 ：

my_list <- c('peanut', 'butter', 'is', 'amazing')

包含子集引用的数据框 ：

my_dataframe <- data.frame(keys=c("my_list[[1]]", "my_list[[2]]", "my_list[[3]]", "my_list[[4]]"), stringsAsFactors=F)

一个基于传递的值从列表中提取值的函数 ：

my_function <- function(key, my_list) {
    from_list <- eval(parse(text=key))
    print(from_list)
}

通过传入数据框行选择和列表来从列表中获取值 ：

my_function(my_dataframe[1,1], my_list)

Answer 2

我通过将myfunction更改为采用两个变量c和w并在更新函数的第一行中使用方括号表示法定义d来解决了此问题。 我的ds现在有两个变量c和w，其中变量c定义为as.character，它可以工作！

myfunction(c,w) {
d<-d[[c]][[w]]
....rest of function}

>ds
 c w
1 1 3
2 1 4

>test <- myfunction(ds[1,1],ds[1,2])