r - 如何将每列乘以 R 中的每个标量？

Question

我有以下变量Q

a = c(1,2,3,4)
b = c(45,4,3,2)
c = c(34,23,12,45)
Q = cbind(a,b,c)

我还有另一个变量r

r = c(10,20,30)

我想将 的每一列乘以 中Q的每个相应值r（例如，第一列Q乘以 中的第一个值r，第二列Q乘以 中的第二个值r，依此类推）。

特别是对于这个例子，我正在寻找的输出是：

      10   900   1020
      20    80    690
      30    60    360
      40    40   1350

我是 R 新手，正在寻找最佳的方法来做到这一点。

标签： r

Answer 1

尝试这个：

Q %*% diag(r)

给予：

     [,1] [,2] [,3]
[1,]   10  900 1020
[2,]   20   80  690
[3,]   30   60  360
[4,]   40   40 1350

或其中任何一个：

t(t(Q) * r)

Q * r[col(Q)]

sweep(Q, 2, r, "*")

Q * rep(r, each = nrow(Q))

mapply("*", as.data.frame(Q), r)

除了使用除法之外，请参阅同一问题的答案： 如何将矩阵的每一行除以 R 中的向量元素