“i”在for循环中遍历R中的对象列表时表示的对象的访问名称

Question

我有：

• 包含文件的目录（比如说两个：A 和 B）；
• 存储目录的两个字符对象（dir_A、dir_B）；
• 一个将目录作为参数并返回在那里找到的文件名列表的函数（对我来说这是一种方便的方式，不同于list.files()）。

directories <- c(dir_A, dir_B)
read_names <- function(x) {foo}

使用 for 循环，我想创建对象，每个对象都包含 read_names() 给出的不同目录的文件列表。本质上，我想使用一个 for 循环来做相当于：

files_A <- read_names(dir_A)
files_B <- read_names(dir_B)

我写的循环如下：

for (i in directories) {
  assign(paste("files_", sub('.*\\_', '', deparse(substitute(i))), sep = ""), read_names(i))
}

但是，尽管在 for 循环之外 deparse(substitute(dir_A)) 返回“dir_A”（因此，上面编写的 sub() 函数将返回“A”），但在我看来，在 for 循环中 @ 987654330@ 使i 不再是目录之一，而只是i。

因此deparse(substitute(i))返回"i"，上面for循环的输出只有一个名为files_i的对象，它包含迭代最后一个目录中的文件列表，因为那是最后一个在files_i 上被覆盖。

如何让 for 循环读取 i 在那一刻代表的对象的名称（或在我的情况下是名称的一部分，但它是相同的）？

Answer 1

我认为这里有两个问题：

1. 如何引用list 中每个元素的名称（或索引）和值；和
2. 如何将数据从命名list 传输到全局（或任何）环境中。

---

1。引用数据的名称/索引

使用for (i in directories) 编制索引后，directories 内的i 的完整上下文（索引、名称）将丢失。一些替代方案：

for (ix in seq_along(directories)) {
   directories[[ix]]             # the *value*
   names(directories)[ix]        # the *name*
   ix                            # the *index*
   # ...
}

for (nm in names(directories)) {
   directories[[nm]]             # the *value*
   nm                            # the *name*
   match(nm, names(directories)) # the *index*
   # ...
}

如果您愿意使用类似Map 的函数（处理类似事物列表的更惯用方式），那么

out <- Map(function(x, nm) {
  x                              # the *value*
  nm                             # the *name*
   # ...
}, directories, names(directories))

out <- purrr::imap(directories, function(x, nm) {
  x                              # the *value*
  nm                             # the *name*
   # ...
})
# there are other ways to identify the function in `purrr::` functions

注意：虽然在最后两个中使用match 来获取索引很容易，但我更愿意在合理的情况下避免这种轻微的范围违规。它有效，我只是更喜欢替代方法。如果你想要值、名称、和索引，那么

out <- Map(function(x, nm, ix) {
  x                              # the *value*
  nm                             # the *name*
  ix                             # the *index*
   # ...
}, directories, names(directories), seq_along(directories))

---

2。将列表传输到 env

在您的问题中，您这样做是为了将列表中的变量分配到另一个环境中。关于该努力的一些想法：

1. 如果它们都相似（相同的结构，不同的数据），则不要。将它们保存在list 中，并使用lapply 或类似方法对它们进行整体处理。 (How do I make a list of data frames?)

2. 如果您确实需要将它们从列表移动到全局环境，那么list2env 在这里可能很有用。

   # create my fake data
   directories <- list(a=1, b=2)
   # this is your renaming step, rename before storing in the global env
   # ... not required unless you have no names or want/need different names
   names(directories) <- paste0("files_", names(directories))
   # here the bulk of the work; you can safely ignore the return value
   list2env(directories, envir = .GlobalEnv)
   # <environment: R_GlobalEnv>
   ls()
   # [1] "directories" "files_a"     "files_b"    
   files_a
   # [1] 1