R: dplyr Rohr bedingte Blei/Verzögerung mit ifelse mit unerwartetem Verhalten

Question

Ich versuche, eine bedingte lead/lag Funktion in einem dplyr Rohr mit ifelse, aber einen Fehler zu erhalten. Mit dem gleichen Ansatz außerhalb der Pipe scheint es jedoch zu funktionieren. Was vermisse ich?

require(dplyr) 

Daten:

test <- data.frame(a = c("b","b","b","b","b","b", 
         "m","m","m","m","m","m", 
         "s","s","s","s","s","s"), 
        b = replicate(1,n=18), 
        stringsAsFactors=F) 

dplyr Rohr:

test %>% 
    mutate(delta = ifelse(a == "s", b + lag(b, n = 2*6), 
         ifelse(a == "m", b + lag(b, n = 1*6), 0))) 

# Error: could not convert second argument to an integer. type=LANGSXP, length = 3 

Ohne das Rohr funktioniert es:

test$delta <- ifelse(test$a == "s", test$b + lag(test$b, n = 2*6), 
        ifelse(test$a == "m", test$b + lag(test$b, n = 1*6), 0)) 

ich einige Hinweise gefunden, dass es ein Problem war mit dplyr lead/lag in Kombination mit gruppierten Datenrahmen. Aber ich gruppiere mich hier nicht.

Versionsinfo: R 3.1.1 und dplyr_0.4.1.

Answer 1

dplyr kann den Ausdruck nicht analysieren. Eine Lösung ist, um die Funktion zu definieren zuerst:

foo <- function(a, b) 
    ifelse(a=="s",b+lag(b,n=2*6), ifelse(a=="m",b+lag(b,n=1*6),0)) 
test %>% mutate(delta = foo(a,b)) 

Answer 2

Dies:

test %>% 
    mutate(delta = ifelse(a=="s",b+lag(b,n=12), 
          ifelse(a=="m",b+lag(b,n=6),0))) 

funktioniert. Dies bedeutet, dass Sie keine Ausdrücke in lag Argumente übergeben können.