ddply에 지정된 변수로 서브 세트

Question

종종 ddply를 적용하는 다른 data.frame을 서브 세트하는 변수로 함수 내에서 data.frame을 서브 세트해야합니다. 이렇게하려면 함수 안에 변수를 명시 적으로 다시 작성하고보다 우아한 방법이 있는지 궁금합니다. 아래에는이 작업을 수행하는 현재의 접근 방식을 보여주기위한 간단한 예제가 포함되어 있습니다.

d1<-expand.grid(x=c('a','b'),y=c('c','d'),z=1:3) 
d2<-expand.grid(x=c('a','b'),y=c('c','d'),z=4:6) 

results<-ddply(d1,.(x,y),function(d) { 
    d2Sub<-subset(d2,x==unique(d$x) & y==unique(d$y)) 
    out<-d$z+d2Sub$z 
    data.frame(out) 
}) 

Answer 1

plyr 패키지는 전체 스플릿/적용/결합 구조를 쉽게 만들 수있는 기능을 제공합니다. 그러나 내 지식으로는 하나만 것을 나눌 수 있습니다 : 목록, data.frame, 배열. 귀하의 경우에는

은, 당신이 뭘 하려는지는 mapply (또는 Map는) 다음 재결합 이 개체를 분할됩니다. 당신까지

# split 
d1.split <- split(d1, list(d1$x, d1$y)) 
d2.split <- split(d2, list(d2$x, d2$y)) 

# apply 
res.split <- Map(function(df1, df2) data.frame(x = df1$x, y = df1$y, 
               out = df1$z + df2$z), 
       d1.split, d2.split, USE.NAMES = FALSE) 

# combine 
res <- do.call(rbind, res.split) 

가있는 경우 결정 : plyr이 더 복잡한 구조를위한 준비가 해결책을 가지고 있지 않기 때문에, 당신은 내가 plyr 밖으로 오기 전에 사람들이 일을하고 가정 방법은 기본 R.에 그것을 할 수 현재 접근 방식보다 더 우아하거나 그렇지 않습니다. 내가 한 과제는 이해력을 높이는 데 도움이되었지만 원하는 경우 전체를 단일 res <- do.call(rbind, Map(FUN, split(d1, ...), split(d2, ...), ...)) 문으로 쓸 수 있습니다.