함수 안에 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

:

myFunction <- function(x,y){ 
NewColName <- "a" 
z <- do.call("ddply",list(x, y, summarize, Ave = call("mean",as.symbol(NewColName),na.rm=TRUE))) 
return(z) 
} 

myFunction(d.f,sv) 
    b Ave 
1 0 1.5 
2 1 3.5 

Answer 2

환경 문제가있는 것 같습니다. 글로벌 할당 문제를 해결하지만, 하나의 영혼의 비용 :

library(plyr) 

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

ColName = "a" 
ddply(d.f, sv, summarize, 
     Ave = mean(eval(parse(text=ColName)), na.rm=TRUE) 
) 

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

myFunction(x=d.f,y=sv) 

eval는 parent.frame 찾고있다 (1). 글로벌로 curenv 전달하는 데 여전히 한

가 이전 환경에서 my.parse을 꺼내 get을 사용하여

rm(NewColName) 
NewColName <- "a" 
myFunction <- function(x, y){ 

    z = ddply(x, y, summarize, 
      Ave = mean(eval(parse(text=NewColName)), na.rm=TRUE) 
    ) 
    return(z) 
} 
myFunction(x=d.f,y=sv) 

, 우리는 훨씬 더 가까이 올 수 있지만 : 대신의 MyFunction 외부 NewColName을 정의 그래서 경우에 작동합니다

myFunction <- function(x, y){ 
    NewColName <- "a" 
    my.parse <- parse(text=NewColName) 
    print(my.parse) 
    curenv <<- environment() 
    print(curenv) 

    z = ddply(x, y, summarize, 
      Ave = mean(eval(get("my.parse" , envir=curenv)), na.rm=TRUE) 
    ) 
    return(z) 
} 

> myFunction(x=d.f,y=sv) 
expression(a) 
<environment: 0x0275a9b4> 
    b Ave 
1 0 1.5 
2 1 3.5 

나는 ddply이 parent.frame() 및 sys.frame() 전략의 모든 I 실패 시도 이유입니다, 이미 .GlobalEnv에 평가하는 것으로 의심.

Answer 3

내가 옆 단계에 문제를 단순히 summarize를 사용하지 않음으로써 경향이 다양한 환경을 탐색의 기능과 아웃을 신성 할만큼 똑똑하지, summarize 또는 transform 또는 뭔가 ddply을 결합하고 때 가끔이 같은 문제로 실행

분명히

myFunction <- function(x, y){ 
    NewColName <- "a" 
    z <- ddply(x, y, .fun = function(xx,col){ 
          c(Ave = mean(xx[,col],na.rm=TRUE))}, 
       NewColName) 
    return(z) 
} 

myFunction(df,sv) 

이 '수동'이 물건을에 비용이이지만, 종종 ddply 및 summarize을 결합에서 오는 평가 문제를 다루는의 두통을 피할 수 : 대신 내 자신의 익명 함수를 사용하여. 즉 ... 해들리 해결책으로 표시되지 않습니다 물론 것은 아니다

NewColName가 계속 표시입니다 당신은 환경에서 호출을 구성 do.call 및 call의 조합으로이 작업을 수행 할 수 있습니다

Answer 4

문제는 plyr 패키지 자체의 코드에 있습니다. 요약 함수에는 eval(substitute(...),.data,parent.frame()) 행이 있습니다. parent.frame()이 꽤 펑키하고 예기치 않은 것을 할 수 있다는 것은 잘 알려져 있습니다. T

그는 @James의 해결책은 매우 좋은 해결 방법 인 입니다.하지만 그 전에는 해들리 자신이 plyr 패키지가 기능 내에서 사용되도록 의도되지 않았다고 말한 것을 기억한다면.

죄송합니다. 여기 잘못되었습니다. 그것은 현재 알려져 있지만, plyr 패키지는 이러한 상황에서 문제를 일으 킵니다. 이 질문에

myFunction <- function(x, y){ 
    NewColName = "a" 
    z = aggregate(x[NewColName],x[y],mean,na.rm=TRUE) 
    return(z) 
} 
> myFunction(df,sv) 
    b a 
1 0 1.5 
2 1 3.5 

Answer 5

오늘의 솔루션은 here(summarize)에 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)

는 12 월 2012 년 현재 컨텍스트를 캡처 plyr 첨가.