函数foo1
可以通过请求的变量对列表进行子集化(例如,by = type == 1
)。否则,foo1
将简单地输出输入的列表本身。
出于我的目的,我需要在名为 foo2
的新函数中使用 foo1
。
在下面的代码中,我想要的输出是这样获得的: foo2(data = D, by = G[[1]]) ; foo2(数据 = D, by = G[[2]]) ; foo2(data = D, by = G[[3]])
.
但是,我想知道为什么当我使用 lapply
循环 G
时,我收到错误如下所示?
foo1 <- function(data, by){
L <- split(data, data$study.name) ; L[[1]] <- NULL
if(!missing(by)){
L <- lapply(L, function(x) do.call("subset", list(x, by)))
}
return(L)
}
foo2 <- function(data, by){
eval(substitute(foo1(data = data, by = by)))
}
## EXAMPLE OF USE:
D <- read.csv("https://raw.githubusercontent.com/izeh/i/master/k.csv", h = T) ## Data
G <- lapply(unique(na.omit(D$type)), function(i) bquote(type == .(i)))# all levels of `type`
foo2(data = D, by = G[[1]]) # Works fine without `lapply` :-)
lapply(1:3, function(i) foo2(data = D, by = G[[i]])) # Doesn't work with `lapply`! :-(
# Error in do.call("subset", list(x, by)) : object 'i' not found
最佳答案
您的 foo2
函数尝试计算表达式
foo1(data = D, by = G[[i]])
但它没有可用的i
。您需要在传递给 lapply
的匿名函数中计算 G[[i]]
以获取定义子集的表达式,然后在 中计算该子集>foo2
。我建议命名该函数而不是使用匿名函数;它使调试变得更加容易。
以下是一些似乎有效的重新编码:
将 foo2
重新定义为
foo2 <- function(data, by){
by <- eval(by, envir = data)
foo1(data = data, by = by)
}
和
foo3 <- function(i) {
expr <- G[[i]]
foo2(data = D, by = expr)
}
然后
lapply(1:3, foo3)
我不确定这是否完全符合您的要求,但它应该足够接近,您可以修复它。
关于r - 第二级 R 函数中的子集化,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/58474393/