For 循环返回最后一个结果

Question

我有少量 csv 文件，每个文件包含两列数值。我想编写一个 for 循环来读取文件，对列求和，并将每个 csv 的总和存储在一个数字向量中。这是我最近的一次：

allfiles <- list.files()
for (i in seq(allfiles)) {
     total <- numeric()
     total[i] <- sum(subset(read.csv(allfiles[i]), select=Gift.1), subset(read.csv(allfiles[i]), select=Gift.2))
     total
}

我的结果是所有 NA 保存最后一个文件的值。我知道每次执行 for 循环时我都会覆盖每次迭代，我认为*我需要对索引做一些事情。

Answer 1

第一个问题是您没有预先分配（或正确附加到）total 的正确长度。无论如何，我建议不要使用这种方法。

有几种方法可以做到这一点，但 R-onic（我的术语，基于 pythonic ......我知道，它不能很好地流动）基于向量/列表。

alldata <- sapply(allfiles, read.csv, simplify = FALSE)
totals <- sapply(alldata, function(a) sum(subset(a, select=Gift.1), subset(a, select=Gift.2)))

我经常喜欢这样，将“原始/未更改”数据保存在一个列表中，然后反复从中提取。例如，如果文件很大并且读取它们的时间很长，那么如果您意识到您还需要 Gift.3 并按照您的方式进行操作，那么您需要重新读取整个数据集。但是，使用我的方法，您只需更新第二个 sapply 以包含更改并在已加载的数据上重新运行。 （我的大部分理由是基于不受信任的数据、通常未使用的部分或其他可能不适合您的因素。）

如果您真的想将代码减少到一行，例如：

totals <- sapply(allfiles, function(fn) {
  x <- read.csv(fn)
  sum(subset(x, select=Gift.1), subset(x, select=Gift.2))
})

Answer 2

allfiles <- list.files()
total <- numeric()
for (i in seq(allfiles)) {
 total[i] <- sum(subset(read.csv(allfiles[i]), select=Gift.1), subset(read.csv(allfiles[i]), select=Gift.2))
}
 total

如果可能的话，试着在手头之前给总数一个已知的长度，即total<-numeric(length(allfiles))