Wie eine "komplizierte" benutzerdefinierte Funktion auf jedes Element eines tibble anwenden

Question

Ich habe hoch und niedrig für die Antwort auf dieses (scheinbar einfache) Problem gesucht, aber kam leer, so hoffe ich, jemand kann mir helfen oder mich zeigen in die richtige Richtung.

Ich habe ein ziemlich kompliziertes Submodell, das ich auf ein Dataset anwenden möchte, aber wenn ich nur muate benutze, bekomme ich einen Fehler Variables must be length 1 or 21. Hinzufügen von rowwise() scheint es nicht zu beeinflussen.

Lassen Sie mich folgendes dumme Darstellung des Problems verwenden:

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)) 

Ich hoffe jemand mir erklären kann, was ich hier falsch mache.

Vielen Dank im Voraus!

Sylvain

Answer 1

Sie können es tun, indem Sie eine neue Funktion partial mit der Erstellung:

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