R语言中如何将数据框指定列与给定向量对应元素相乘

方法一：利用R的广播机制（最简洁高效） #

R的向量化操作支持自动广播，当数据框列数与向量长度一致时，直接用*运算符即可完成逐列与对应向量元素的相乘，这是大规模数据下效率最高的方式，兼容整数和浮点数：

df <- data.frame(a=c(2,2,7),b=c(1,4,3),c=c(9,5,3))
v <- c(1,2,3)

result <- df * v
print(result)

输出结果：

a b  c
1 2 2 27
2 2 8 15
3 7 6  9

方法二：使用sapply遍历列 #

如果需要对列做额外逻辑处理，可通过sapply遍历每一列并与对应向量元素相乘，最后转回数据框：

result <- sapply(seq_along(df), function(i) df[[i]] * v[i])
result <- as.data.frame(result)
colnames(result) <- colnames(df)

方法三：tidyverse风格实现（dplyr） #

若习惯使用tidyverse工具链，可通过dplyr的mutate+across组合完成：

library(dplyr)

result <- df %>% 
  mutate(across(everything(), ~ .x * v[match(cur_column(), colnames(df))]))

以上三种方法均适用于包含整数、浮点数的大规模数据集，其中方法一的向量化操作性能最优。

内容的提问来源于stack exchange，提问作者user20334608