突然変異のためのDplyrプログラミングパターン

Question

私は関数内でdplyr mutateを使用するときに標準パターンを使用しています。ここにおもちゃの例があります（ポイントを証明するだけです）：

myFunction = function(colname) { 
    dots <- setNames(list(lazyeval::interp(~ifelse(x>25, x*10, x/10), x = quote(colname))), "my_new_col") 
    mutate_(mtcars, .dots = dots) 
} 

私はこれを毎回入力しない関数にしました。しかしこれはむしろ冗長であり、mutate_への呼び出しをパラメータ化する簡単な方法があるかどうかはわかりません。提案？

Answer 1

私はあなたの関数が既存の列に基づいて新しい列を作成しようとしていると仮定しています。ここには、tidyevalアプローチを使用する関数があります。詳細については、Programming with dplyrを参照してください。

myFunction = function(df, col, new_col) { 
    col <- enquo(col) 
    new_col <- quo_name(enquo(new_col)) 

    df %>% 
     mutate(!!new_col := ifelse((!!col) > 25, (!!col) * 10, (!!col)/10)) 
} 

myFunction(mtcars, mpg, mpg_based_new_col)