使用套用功能而无需返回

Question

我有一个像这样的数组：1：4;我将使用写函数与数组的长度相同的时间。

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

还有其他功能吗？我不会使用for循环。使用apply返回错误：dim（X）的长度必须为正。

Answer 1

apply用于矩阵和数组，对于原子向量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 = ""))
})