循环 dfs 的命名列表，df 列上的测试条件，如果为 true，则返回列表元素的名称

Question

我有一个 data.frame 对象的命名列表 (training_data)。每个 data.frame 对象都将基于“x”列进行测试，如果测试通过，则应该返回该 data.frame 对象的名称。

在下面的情况下，应该返回“a”和“b”：

df <- data.frame(x=1:10, y=1:10)
df1 <- data.frame(x=11:20, y=11:20)
training_data <- list(df, df, df1, df1)
names(training_data) <- c("a", "b", "c", "d")

pos <- lapply(training_data, function(data) {
                                 if(data$x==1)
                                    ["return the name of the data.frame object in hand"]
                              })

我的问题是如何准确地确定在 lapply 的任何迭代中当前正在处理的对象的名称，以及如何返回该名称以使其进入“pos”列表。

问候

Answer 1

此处无需使用lapply，您可以访问您的列表，例如：

training_data[['pos']] 

这将使您能够访问名为 'pos' 或 posxx 的 data.frame...

编辑在 OP 澄清后

我在列表名称中使用 lapply ，我和我使用与上面相同的方式访问主列表

pos <- lapply(names(training_data), function(data) {
  if(training_data[[data]]$x==1)        ## here your condition is not correct
    data

})

  [[1]]
[1] "a"

[[2]]
[1] "b"

[[3]]
NULL

[[4]]
NULL

您可以使用类似

的方式删除 NULL 元素

unlist(pos)
[1] "a" "b"

但我认为如果您使用返回命名列表的sapply，您会在这里获得更好的输出。