使用sapply移除循环

Question

在下面的代码中，作为使用sapply删除for循环的学习练习，我尝试使用sapply返回向量的最小值：

f3 <- function(nv) {
    min(nv)
}

myv = c(1:10)
y <- sapply(myv, f3)
y

正如预期的那样，不是将min函数应用于整个fector返回1，而是对返回1 2 3 4 5 6 7 8 9 10的向量中的每个元素计算min。

如何使用sapply处理整个向量，从而返回1？

Answer 1

您可以将min应用于整个向量，如下所示

myv <- 1:10
min(myv)
#> [1] 1

min将返回给它的任意数量的参数的最小值。如果您的数据结构比向量(如dataframe )更复杂，并且您希望为每一列提供最小值，那么您可能希望使用sapply，尽管还有其他的替代方法。下面是一个示例，说明使用sapply可能是有意义的：

mydf <- data.frame(x = 1:10, y = 11:20, z = 21:30)
min(mydf)
#> [1] 1
sapply(mydf, min)
#>  x  y  z 
#>  1 11 21