用R中的循环处理文件夹中的所有文件

Question

我需要处理文件夹中的所有文件，文件是按顺序命名的，所以我认为现在是循环的好时机。处理单个文件的代码很简单：

df<-read.table("CLIM0101.WTG", skip = 3, header = TRUE)

df<-df[,-1]
df$year<-2014
df$day<-c(1:365)

write.table(df, "clim201401.txt", rownames = "FALSE")

要读取的99个文件是"CLIM0101.WTG“(从"CLIM9901.WTG”到“CLIM9901.WTG”)，它们应该通过“CLIM9901.WTG”写到“livent201401.txt”(通过"clim201499.txt“)。下面是指向文件文件夹的链接：

https://www.dropbox.com/sh/y255e07wq5yj1nd/4dukOLxKgm

那么这里有什么问题呢？我不知道如何编写循环，也没有找到关于如何编写循环的很好的描述。以前的循环问题都有非循环的答案，但这一次似乎正是我所需要的。

Answer 1

我一直都这么做。基本的成语是

 files <- list.files(....)    # possibly with regexp
 reslist <- lapply(files, function(f) { ... some expressions on f ... }

您只需将您的几个步骤编码成以下内容

 myfun <- function(filename) {
      df<-read.table(filename, skip = 3, header = TRUE)
      df<-df[,-1]
      df$year<-2014
      df$day<-c(1:365)
      newfile <- gsub(".WTG", ".txt", filename_
      write.table(df, newfile, rownames = FALSE)  # don't quote FALSE
 }

现在您使用的是myfun (上面的

 files <- list.files(....)        # possibly with regexp
 invisible(lapply(files, myfun))

很明显是未经测试的。