我想在另一个函数中使用subset
,但要传递来自顶级函数的非标准求值参数。以下是非工作代码,但概述了这个想法:
foo_1 <- function(x, mysubset)
{
# some deparse, substitute etc. magic here ??
subset(x, subset)
}
foo_1(ansombe, x1 > 5)
我希望这得到与subset(ansombe, x1 > 5)
相同的结果.另外,我希望当参数传递到更深层次时,同样有效,即
foo_2 <- function(x, mysubset)
{
# some deparse, substitute etc. magic here ??
foo_1(x, mysubset)
}
foo_2(ansombe, x1 > 5)
在这里,我也想要与上面相同的结果。
到目前为止我尝试过什么
我尝试了一个substitute
- deparse
,eval
- parse
组合,例如
foo_1 <- function(x, mysubset)
{
tx <- deparse(substitute(mysubset))
subset(x, eval(parse(text=tx)))
}
foo_1(anscombe, x1 >5)
这很好,但是我现在如何继续foo_2
?
另外,我还记得托马斯·拉姆利(Thomas Lumley(的格言:
如果答案是 parse((,你通常应该重新考虑这个问题。 - Thomas Lumley(R-help,2005年2月(
所以,我想知道是否有比eval
- parse
组合更好的方法。?有什么想法吗?
附言。这个问题类似,但不包括更深层次的嵌套:通过函数将子集参数传递到子集
PPS:也许应用plyr
的.
函数是富有成效的,但我不知道如何......
可能有龙。(但那些也藏在subset
里。
foo_1 <- function(x, mysubset)
{
sub <- eval(substitute(mysubset), envir=x, enclos=parent.frame())
x[sub,]
}
foo_1(iris, Sepal.Length == 5 & Species == "setosa")
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#5 5 3.6 1.4 0.2 setosa
#8 5 3.4 1.5 0.2 setosa
#26 5 3.0 1.6 0.2 setosa
#27 5 3.4 1.6 0.4 setosa
#36 5 3.2 1.2 0.2 setosa
#41 5 3.5 1.3 0.3 setosa
#44 5 3.5 1.6 0.6 setosa
#50 5 3.3 1.4 0.2 setosa
只要你尽可能长时间地延迟评估,这样的事情应该可以工作
foo_1 <- function(x, mysubset)
{
do.call("subset", list(quote(x), substitute(mysubset)))
}
foo_2 <- function(x, mysubset)
{
do.call("foo_1", list(quote(x), substitute(mysubset)))
}
data(anscombe)
foo_1(anscombe, x1 > 5)
foo_2(anscombe, x1 > 5)
但是,如果你打算和mysubset
一起胡闹,你需要更加小心。确切地知道你为什么要这样做会有所帮助。
我认为你不能避免eval
,但你可以避免parse
。 只需在函数中重建对subset
的调用:
foo_1 <- function(x, mysubset) {
eval(call("subset", x, substitute(mysubset)), parent.frame())
}
foo_1(mtcars, cyl == 6 & mpg > 20)
# mpg cyl disp hp drat wt qsec vs am gear carb
# Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
# Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
# Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1