R语言：如何高效将矩阵/数据框/数据表的每一行与向量相乘？

嘿，我来帮你搞定这个问题！你想要实现的是让矩阵（或数据框、data.table）b的每一行和向量a的对应元素相乘，其实利用R的向量化运算就能高效完成，完全不用写繁琐的循环~

先拆解下你的输入：你定义的a <- data.table(t(1:4))本质是1行4列的data.table，我们可以先把它转换成普通向量，方便后续运算：

a_vec <- as.numeric(a)

下面是几种高效的实现方式：

1. Base R 矩阵直接运算（最推荐，效率最高） #

R的矩阵和向量运算支持自动广播机制：当你用一个列数等于向量长度的矩阵和向量相乘时，R会自动把向量和矩阵的每一行做对应元素相乘，代码非常简洁：

# 直接相乘，得到矩阵结果
result_matrix <- b * a_vec

运行后你会得到期望的输出：

[,1] [,2] [,3] [,4]
[1,]    2    4    6    8
[2,]    2    4    6    8
[3,]    2    4    6    8

2. 输出为data.table格式 #

如果需要结果是data.table类型，直接把上面的矩阵转成data.table即可，这种方式依然保留了矩阵运算的高效性：

library(data.table)
result_dt <- as.data.table(result_matrix)

如果你想直接基于data.table操作，也可以这样写（但效率略低于矩阵运算）：

b_dt <- as.data.table(b)
result_dt <- b_dt[, Map(`*`, .SD, a_vec)]

3. 用apply函数（适合理解，但大矩阵不推荐） #

虽然不推荐用于大矩阵，但apply函数也能实现需求，它本质是隐式循环：

result_matrix <- t(apply(b, 1, function(row) row * a_vec))

这种方法的运算效率不如直接向量相乘，所以优先选第一种方法。

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