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

我有以下变量 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 的新手，正在寻找执行此操作的最佳方法。

最佳答案

试试这个:

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 - 如何将每列乘以 R 中的每个标量？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/51110216/