創建一個函數取一個向量和列表，並將其送回的每個元素

Question

我想在R這需要一個列表x和矢量y作爲參數，並返回其元素是產品經過列表創建函數f的產品將向量的每個元素乘以列表的每個元素。

x = list(x1 = runif(10), x2 = rnorm(10), x3 = 1:10, x4 = seq(1,.1,-.1)) 
y = c(2, 1, 3) 

我想f(x,y)返回其元素爲x[[i]] * y[j]每個i = 1:length(x) 和j = 1:length(y)

Answer 1

列表這會工作：

lapply(x, function(z) lapply(y, "*", z)) 

但是你需要做一些工作的上述動態與索引相關的事情現在你接近讓我訂購一個功能，你們爲我做。

Answer 2

您可以使用mapply("*", x, y)，但您需要修改「y」，以便每個乘數重複length(x)次。換句話說，以下內容應該有效：

mapply("*", x, rep(y, each = length(x))) 

您可能需要將名稱添加回結果中。

---

如果每個列表項的長度是相同的（在你的例子，它們都包含10個值），下面是@泰勒的回答變化：

lapply(y, "*", do.call(rbind, x)) 

這將導致結果的矩陣列表。

Answer 3

這也應該工作 - 取決於你喜歡什麼形式的結果

lapply(x , outer , y)