tibble의 각 요소에 "복잡한"사용자 정의 함수를 적용하는 방법

Question

나는 (겉으로보기에는 단순한)이 문제에 대한 답을 찾기 위해 높고 낮음을 찾았지만 아무 것도 나에게 도움을 주거나 나를 가리켜 주길 빈다. 올바른 방향으로

데이터 세트에 적용하려는 상당히 복잡한 서브 모델을 사용하지만, 단지 mutate를 사용하면 Variables must be length 1 or 21. 오류가 발생하여 영향을 미치지 않습니다.

나에게 다음과 같은 문제의 어리석은 그림을 사용하자 :

myData <- tibble(x=10:20, y=c("a", "b","a", "b","a", "b","a", "b","a", "b","a")) 

staticData <- tibble(x=0:100, y=c("a"),f=x/100) %>% union (tibble(x=0:100, y=c("b"),f=x/1000)) 

ComplicatedFunction <- function(mystaticData, myx, myy) { 
    #make the base table 
    myBaseTable <- tibble(
    y = myy, 
    x = c(myx:(myx + 20)) 
) 
    #add f rates 
    myBaseTable <- left_join(myBaseTable,mystaticData) 
    #add stuff 
    myBaseTable <- myBaseTable %>% 
    mutate(z = 1 - (f * 0.8)) %>% 
    mutate(zCumulative = cumprod(z)) 
    #Calculate the thing 
    myCalculatedThing <- sum(myBaseTable$zCumulative) 

    return(myCalculatedThing) 
} 

#This is what I want to do 
myData %>% mutate(newcol = ComplicatedFunction(mystaticData = staticData, 
               myx = x, 
               myy = y)) 
#this works 
ComplicatedFunction(mystaticData = staticData, 
        myx = 19, 
        myy = "b") 
ComplicatedFunction(mystaticData = staticData, 
        myx = 20, 
        myy = "a") 

#This works (but would be silly as I want the function to be evaluated for each line) 
myData %>% mutate(newcol = ComplicatedFunction(mystaticData = staticData, 
               myx = 15, 
               myy = "a")) 

#This no longer works, but I dont understand what I am doing wrong 
myData %>% mutate(newcol = ComplicatedFunction(mystaticData = staticData, 
               myx = x, 
               myy = "a")) 

#I tried rowwise(), but this doesnt seem to work either 
myData %>% rowwise() %>% mutate(newcol = ComplicatedFunction(mystaticData = staticData, 
               myx = x, 
               myy = y)) 

누군가가 내가 잘못 여기서 뭐하는 거지 나에게 설명 할 수 있기를 바랍니다.

미리 감사드립니다.

실뱅

Answer 1

당신은 partial를 사용하여 새로운 기능을 작성하여이를 수행 할 수 있습니다

library(purrr) 
newCF <- partial(ComplicatedFunction, mystaticData = staticData) 
myData %>% rowwise() %>% mutate(newcol = newCF(myx = x, 
              myy = y))