magrittrリバースパイプを使用して非標準評価構文を書く

Question

私はコードを単純化する簡単な方法を検討しています。

例

はsqrt関数は簡単以下の列のサブセットに適用することができます。

require(magrittr) 
mtcars[,-which(colnames(mtcars) %in% 
       c("mpg", "cyl", "drat", "wt", "carb", 
        "hp", "qsec", "vs", "am", "gear"))] %<>% 
    sqrt 

問題

私はなしサブセットに再び全体のサブセットのシーケンスを入力する必要性を他の変換を適用するに興味があります。

例えばコード：.を使用して、構文と同じ

Error in function_list[[k]](value) : could not find function ".data" 

：

mtcars[,-which(colnames(mtcars) %in% 
       c("mpg", "cyl", "drat", "wt", "carb", 
        "hp", "qsec", "vs", "am", "gear"))] %<>% 
    .data * 1000 

はエラーを返します。私の質問は：構文上、sqrt関数と同じ効果を得ることができますが、渡されたサブセットに長い関数を適用する方法はありますか？

Answer 1

sel_cols <- setdiff(colnames(mtcars), 
        c("mpg", "cyl", "drat", "wt", "carb", 
         "hp", "qsec", "vs", "am", "gear")) 
mtcars[, sel_cols] %<>% {sqrt(.) %>% `*`(1000)} 

またはdata.tableアプローチですか？

library(data.table) 
sel_cols <- setdiff(colnames(mtcars), 
        c("mpg", "cyl", "drat", "wt", "carb", 
         "hp", "qsec", "vs", "am", "gear")) 

dt <- as.data.table(mtcars) 
dt[, (sel_cols) := lapply(.SD, sqrt), .SDcols = sel_cols][] 

とパイプと組み合わせる：

dt <- as.data.table(mtcars) 
dt[, (sel_cols) := lapply(.SD, function(x) {sqrt(x) %>% `*`(1000)}), .SDcols = sel_cols][]