如何在 R 中将一系列列相乘？

Question

我想要做的就是将数字列相乘以创建一个新列。

下面的示例是一个简化，因为我的数字列数远多于 2，因此不能只执行 df$C2 * df$C3。

本质上，如果我有一个看起来像这样的表：

df <- data.frame(C1=c('A','B','C','D'),C2=c(1,2,3,4),C3=c(5,6,7,8))

   C1 C2 C3
1  A  1  5
2  B  2  6
3  C  3  7
4  D  4  8

我想返回 C4 其中：

   C1 C2 C3 C4
1  A  1  5  5
2  B  2  6  12
3  C  3  7  21
4  D  4  8  32

我想以一种比写出每一列更动态的方式来完成它，因为我有远远超过 2 个列，并且它们将继续更改。

如有任何建议，我们将不胜感激！

Answer 1

将 rowwise 与 c_across 结合使用。

最重要的部分可能是指定要选择的列，这可以使用不同的整洁选择助手来完成。这是一个选项，假设所有列都以 C 开头，后跟一个数字：

df %>%
  rowwise() %>%
  mutate(C4 = prod(c_across(num_range('C', 2:3)))) %>%
  ungroup()

# A tibble: 4 x 4
  C1       C2    C3    C4
  <chr> <dbl> <dbl> <dbl>
1 A         1     5     5
2 B         2     6    12
3 C         3     7    21
4 D         4     8    32

Answer 2

如果列数未知但处理从第 2 列

library(dplyr)
df%>%
  rowwise()%>%
  mutate(tmp_prod = prod(dplyr::c_across(2:last_col()),na.rm = T))

输出开始，您可以尝试以下操作：

 C1       C2    C3 tmp_prod
  <chr> <dbl> <dbl>    <dbl>
1 A         1     5        5
2 B         2     6       12
3 C         3     7       21
4 D         4     8       32

Answer 3

x <- c('C2', 'C3')

y <- paste0('df
, x, collapse='*')

df$C4 <- eval(parse(text=y))