读取多个分隔文本文件的功能

Question

使用this answer，我创建了一个应该读取目录中所有文本数据集的函数：

read.delims = function(dir, sep = "\t"){

  # Make a list of all data frames in the "data" folder
  list.data = list.files(dir, pattern = "*.(txt|TXT|csv|CSV)")

  # Read them in
  for (i in 1:length(list.data)) {
    assign(list.data[i],
           read.delim(paste(dir, list.data[i], sep = "/"),
                      sep = sep))
  }

}

但是，即使指定目录中有 .txt 和 .csv 文件，也不会创建 R 对象（我猜这是因为我在函数中使用了 read.delim）。如何纠正这个问题？

Answer 1

您可以在分配中添加参数envir，如下所示：

read.delims = function(dir, sep = "\t"){

  # Make a list of all data frames in the "data" folder
  list.data = list.files(dir, pattern = "*.(txt|TXT|csv|CSV)")

  # Read them in
  for (i in 1:length(list.data)) {
    assign(list.data[i],
           read.delim(paste(dir, list.data[i], sep = "/"),
                      sep = sep),
          envir=.GlobalEnv)
  }
}

这样做，您的对象将在全局环境中创建，而不仅仅是在函数环境中

Answer 2

正如我在评论中所说，分配后需要return() 一个值。不过，我并没有真正看到使用 assign() 的意义，所以这里有一个简单的 for 循环，假设您希望输出是数据帧列表。

请注意，为了个人方便，我将阅读功能更改为read.table()。您可能需要调整它。

read.delims <- function(dir, sep = "\t"){

  # Make a list of all data frames in the "data" folder
  list.data <- list.files(dir, pattern = "*.(txt|TXT|csv|CSV)")
  list.out <- as.list(1:length(list.data))

  # Read them in
  for (i in 1:length(list.data)) {
    list.out[[i]] <- read.table(paste(dir, list.data[i], sep = "/"), sep = sep)
  }
  return(list.out)
}

也许您还应该在正则表达式中添加$。

干杯。