外部ベクトル（dplyr）と異なる値を持つデータフレーム列を操作する方法

Question

Rでは、適切な名前の値をvector（またはdata.frameなど）に格納してdata.frame列を操作それが簡単ならば）。

は、私は、変数disp、hp、およびwtmtcarsデータセットから最初のsummariseにしたい、のは、言ってみましょう。

vars <- c("disp", "hp", "wt") 
mtcars %>% 
    summarise_at(vars, funs(sum(.)) 

（ミックスにgroup_by(cyl)を投げる、またはあなたがより多くの行を持っているしたい場合はmutate_atを使用）

今、私は与えられた、特定の値と結果の各列を掛けたいのですがby

multiplier <- c("disp" = 2, "hp" = 3, "wt" = 4) 

summarise_atの機能でこれらを参照することはできますか？

結果は次のようになります（と私はそこに取得しながら、直接変数名を参照する必要がありますする必要はありません）：

disp hp wt 
14766.2 14082 411.808 

UPDATE：

を多分私のMWEはあまりにも最小でした。

cyl disp hp  wt 
1  4 2313.0 2727 100.572 
2  6 2566.4 2568 87.280 
3  8 9886.8 8787 223.956 

UPDATE 2：

たぶん私は十分に明示しなかったのは、私は結果はこのようにする必要がありますcyl

mtcars %>% 
    group_by(cyl) %>% 
    summarise_at(vars, sum) 

でグループ化されたdata.frameと同じ操作をしたいとしましょうここでもどちらかですが、data.frameの列には、ベクトルの各値（ベクトルに記述されている列のみ）が乗算される必要があります。 dispは2でhpを3倍、wtを4倍する必要がありますが、他のすべての変数（例：cyl）は乗算の影響を受けません。

Answer 1

また更新問題についてpurrr

library(purrr) 
mtcars %>% 
    summarise_at(vars, sum) %>% 
    map2_df(multiplier, `*`) 
#  disp hp  wt 
#  <dbl> <dbl> <dbl> 
# 1 14766.2 14082 411.808 

---

からmap機能でこれを行うことができ

d1 <- mtcars %>% 
     group_by(cyl) %>% 
     summarise_at(vars, sum) 
d1 %>% 
    select(one_of(vars)) %>% 
    map2_df(multiplier[vars], ~ .x * .y) %>% 
    bind_cols(d1 %>% select(-one_of(vars)), .) 
# cyl disp hp  wt 
# <dbl> <dbl> <dbl> <dbl> 
#1  4 2313.0 2727 100.572 
#2  6 2566.4 2568 87.280 
#3  8 9886.8 8787 223.956 

---

それともを使用することができます210

library(tidyr) 
mtcars %>% 
    group_by(cyl) %>% 
    summarise_at(vars, sum) %>% 
    gather(var, val, -cyl) %>% 
    mutate(val = val*multiplier[match(var, names(multiplier))]) %>% 
    spread(var, val) 
#  cyl disp hp  wt 
# <dbl> <dbl> <dbl> <dbl> 
#1  4 2313.0 2727 100.572 
#2  6 2566.4 2568 87.280 
#3  8 9886.8 8787 223.956 

Answer 2

がグループ化VARを含める**** **** REDUX ...

library(dplyr) 
library(purrr) 

vars <- c("disp", "hp", "wt") 
multiplier <- c("disp" = 2, "hp" = 3, "wt" = 4) 

mtcars %>% 
    summarise_at(vars, sum) %>% 
    do(. * multiplier) 

    disp hp  wt 
1 14766.2 14082 411.808 

私はあなたがsummarise_at機能でこれを行うことができるかどうかわからないが、これは近い代替手段ですcylをmultiplierに設定し、それを1に設定します。@akrun'smap2_dfここで実際の作業を行います。

vars <- c("disp", "hp", "wt") 
multiplier <- c("cyl" = 1, "disp" = 2, "hp" = 3, "wt" = 4) 

mtcars %>% 
    group_by(cyl) %>% 
    summarise_at(vars, sum) %>% 
    map2_df(multiplier, ~ .x * .y) 


    cyl disp hp  wt 
    <dbl> <dbl> <dbl> <dbl> 
1  4 2313.0 2727 100.572 
2  6 2566.4 2568 87.280 
3  8 9886.8 8787 223.956