Arrays 使用apply函数而不返回

我有这样一个数组：1:4；我将使用写函数的次数与数组的长度相同

 apply(1:4,2,function(i){
         example <- functionexample(i)
         write.table(example, file="C:\\Users\\example")
        }

应用（1:4,2，函数（i）{
示例
apply
用于矩阵和数组，对于Atomices vector
1:4
，您可以使用
lapply
。请参见下面的代码，该代码将创建四个包含随机内容的csv文件：

functionexample <- function(i) {
  data.frame(x = sample(10), y = rnorm(10))
}

lapply(1:4, function(i){
  example <- functionexample(i)
  write.table(example, file = paste0("example", i, ".csv", sep = ""))
})

函数示例这正是
for
的目的。为什么不使用它呢？因为应用函数（lappy，sapply，…）在内部实现得更好，但事实并非如此。它们是
for
循环使用
lappy（1:4，函数（x）…