我查看了一些关于矩阵乘法的答案(例如R: matrix by vector multiplication),但仍然找不到我的问题的答案:
我出售四种水果,每个项目的价格都在这个向量中:
prices <- c(2.25, 0.42, 0.85, 1.24)
names(prices) <- c("pomegranate", "banana", "apple", "mango")
> prices
pomegranate banana apple mango
2.25 0.42 0.85 1.24
以下矩阵给出了一周中每一天售出的每件商品的数量:
vv <- c(43, 87, 48, 90, 99, 60, 1, 62, 62, 107, 34, 10, 130, 15, 5, 124, 124, 101, 22, 104)
M <- matrix(vv, nrow=4, ncol=5, dimnames=list(c("banana", "mango", "pomegranate", "apple"), c("M", "Tu", "W", "Th", "F")))
> M
M Tu W Th F
banana 43 99 62 130 124
mango 87 60 107 15 101
pomegranate 48 1 34 5 22
apple 90 62 10 124 104
请注意,矩阵的行与价格向量的顺序不同。
我想为每天的收入生成一个向量,即:
> dailyrevenue
M Tu W Th F
310.44 170.93 243.72 189.85 315.22
有没有什么快速的方法告诉 R 将每个价格乘以其相应的行名?乘法的标准形式假设每个香蕉花费 2.25 美元,而不是正确的金额,即 0.42 美元。
为了得到我想要的,我可以使用以下代码:
OrderOfPrices <- order(match(names(prices), rownames(M))) # per https://stackoverflow.com/a/2117080/8436923
r.prices <- prices[OrderOfPrices]
dailyrevenue <- colSums(r.prices * M)
如果可以避免调用该函数,我也不介意使用%*%
or (返回 1 行矩阵而不是向量)。crossprod
order