在 R 中使用 sapply 而不是循环答案

【问题标题】：Using sapply instead of loop in R在 R 中使用 sapply 而不是循环
【发布时间】：2019-03-10 15:01:31
【问题描述】：

我有一个需要 4 个参数的函数：

myFun <- function(a,b,c,d){}

我有一个矩阵，其中每一行都包含参数：

myMatrix = matrix(c(a1,a2,b1,b2,c1,c2,d1,d2), nrow=2, ncol=4)

目前我有一个循环将参数提供给 myFun：

m <- myMatrix
i <- 1
someVector <- c()
while (i<(length(m[,1])+1)){
    someVector[i] <- 
    myFun(m[i,1],m[i,2],m[i,3],m[i,4])
    i = i+1
}
print(someVector)

我想知道的是，有没有更好的方法可以使用 sapply 而不是循环来获得相同的结果。

【问题讨论】：

你可以试试do.call(myFun, as.data.frame(myMatrix))
谢谢，我喜欢这个解决方案

标签： r loops sapply

【解决方案1】：

你可以在这里使用mapply()，它允许你给它向量作为参数，你应该把你的矩阵变成一个数据框。

df <- as.data.frame(myMatrix))

results <- mapply(myFun, df$a, df$b, df$c, df$d)

【讨论】：