找不到对象 - 嵌套函数 - R

Question

我仍然习惯于使用函数。我查看了环境文档，但我无法弄清楚如何解决该错误。让我们看看我到现在为止的尝试：

我有一份文件清单。让我们假设它是“核心”

library(dplyr)
table_1 <- data.frame(replicate(10,sample(0:1,1000,rep=TRUE)))
table_2 <- data.frame(replicate(10,sample(0:1,1000,rep=TRUE)))

core <- list(table_1, table_2) 

然后，我必须为列表的每个元素运行函数documents_。该函数提供了一些参数，以便在另一个嵌套函数中执行：

documents_ <- function(i) {

  core_processed <- as.data.frame(core[[i]])

  x <- 1:nrow(core_processed)
  y <- 1:ncol(core_processed)

  temp <- sapply(x, function(x) mapply(calc_dens_,x,y))

  return(temp)

}

里面有calc_dens这个函数，就是：

calc_dens_ <- function(x, y) {

  core_temp <- core_processed %>%
    filter(X2 == x & X3 == y)

   return(core_temp)
}

然后，为了迭代列表的每个元素，我尝试了但没有成功：

calc <- lapply(c(1:2), function(i) documents_(i))

Error in eval(lhs, parent, parent) : object 'core_processed' not found

calc_dens 函数没有得到documents_ 的结果（环境问题。有没有办法解决这个问题，或者其他更好的方法？我的函数比这更复杂，但主要元素在这个例子。提前谢谢你。

Answer 1

正如其他评论者所说，问题在于您引用的变量 core_processed 不在范围内。您可以将其设为全局变量，但在这样的闭包中使用它可能更明智：

table_1 <- data.frame(replicate(10,sample(0:1,1000,rep=TRUE)))
table_2 <- data.frame(replicate(10,sample(0:1,1000,rep=TRUE)))
cores <- list(table_1, table_2)

documents_ <- function(core_processed) {
    x <- 1:nrow(core_processed)
    y <- 1:ncol(core_processed)
    calc_dens <- function(x, y) core_processed %>% filter(X2 == x & X3 == y)
    sapply(x, function(x) mapply(calc_dens, x, y))
}

calc <- lapply(cores, documents_)

如果cores 是数据框列表，则不需要使用as.data.frame，并且由于使用lapply，因此无需应用索引然后索引到列表中。所以我在这里写的代码被简化了，但和你的代码一样。

不过，我不得不怀疑，这真的是你想要的吗？ sapply over x 然后mapply over x 和 y -- 其中x 是来自sapply 的那个，而不是你在documents_ 中构建的那个 - 看起来很奇怪对我来说。