r - 函数内 ddply 未找到对象错误

Question

这确实挑战了我调试 R 代码的能力。

我想使用ddply()将相同的函数应用于按顺序命名的不同列；例如。 a、b、c。为此，我打算将列名作为字符串重复传递，并使用 eval(parse(text=ColName)) 允许函数引用它。我从另一个答案中获取了这项技术。

这工作得很好，直到我将 ddply() 放入另一个函数中。这是示例代码:

# Required packages:
library(plyr)

myFunction <- function(x, y){
    NewColName = "a"
    z = ddply(x, y, summarize,
            Ave = mean(eval(parse(text=NewColName)), na.rm=TRUE)
    )
    return(z)
}

a = c(1,2,3,4)
b = c(0,0,1,1)
c = c(5,6,7,8)
df = data.frame(a,b,c)
sv = c("b")

#This works.
ColName = "a"
ddply(df, sv, summarize,
        Ave = mean(eval(parse(text=ColName)), na.rm=TRUE)
)

#This doesn't work
#Produces error: "Error in parse(text = NewColName) : object 'NewColName' not found"
myFunction(df,sv)

#Output in both cases should be
#  b Ave
#1 0 1.5
#2 1 3.5

有什么想法吗？ NewColName 甚至是在函数内部定义的!

我想这个问题的答案，loops-to-create-new-variables-in-ddply ，可能对我有帮助，但今天我已经够头疼了，是时候举手寻求帮助了。

Answer 1

今天这个问题的解决方案是把summarize变成here(summarize)。例如

myFunction <- function(x, y){
    NewColName = "a"
    z = ddply(x, y, here(summarize),
            Ave = mean(eval(parse(text=NewColName)), na.rm=TRUE)
    )
    return(z)
}

here(f) 于 2012 年 12 月添加到 plyr，捕获当前上下文。