使用 dplyr 对选定列进行逐行乘法

Question

对从 daraframe 中选择的所有列执行逐行乘法的方法是什么。 下面的 Mult 列是通过说明要乘以哪些变量来显式创建的。

如果我选择了不同的列怎么办？ 什么代码需要在 mutate 中才能乘以之前选择的所有列？ 注意：所选列的数量并不总是三。

例子：

library(tidyverse)

mtcars %>% 
  select(hp, qsec, disp) %>% 
  mutate(mult = hp * qsec * disp)

Answer 1

一种可能的方式是使用rowProds从包matrixStats ：

mtcars %>% 
  select(hp, qsec, disp) %>% 
  mutate(mult=rowProds(as.matrix(.)))

但我相信有一种更优雅的方式而不使用其他包。

Answer 2

您可以使用Reduce -

library(dplyr)

mtcars %>% 
  select(hp, qsec, disp) %>% 
  mutate(mult = Reduce(`*`, .))

或rowwise与prod -

mtcars %>% 
  select(hp, qsec, disp) %>% 
  rowwise() %>%
  mutate(mult = prod(c_across()))