如何循环访问列表并访问名称和属性？

Question

我正在对列表的元素应用一个函数。

列表有names，因此从某种意义上说，每个元素都有自己的名称，但是一旦lapply 函数已经从列表中提取/分离了元素，我该如何访问它？

一些虚构的数据（作为内部函数我在这里滥用dput）：

r <- list(a=structure(1:4, unit="test"), b='abc')
lapply(r, dput)

我在这里观察到dput 接收列表中的对象，就像使用[[ 访问一样，被剥夺了它们在包含列表中的名称。

所以我想我会放弃使用 apply 系列中的函数并编写一个循环的想法，但我并不特别喜欢这个想法，它迫使我构造完整函数的结果。

result <- list()
for (name in names(r)) {
  print(name)
  result[[name]] <- dput(r[[name]])
}
result

有什么深刻的想法吗？

Answer 1

您可以在仍然使用lapply 的同时模拟循环背后的想法，方法是将一个数字向量传递给lapply，然后使用它作为索引从您想要的列表中提取元素。这可能没有意义，但希望这个例子能说明我的意思：

lapply(seq_along(r), function(i)dput(r[i]))

structure(list(a = structure(1:4, unit = "test")), .Names = "a")
structure(list(b = "abc"), .Names = "b")
[[1]]
[[1]]$a
[1] 1 2 3 4
attr(,"unit")
[1] "test"



[[2]]
[[2]]$b
[1] "abc"

---

关键思想是seq_along(x) 返回一个与x 长度相同的序列。例如：

> seq_along(r)
[1] 1 2

更多详情请参阅?seq_along。

---

编辑

这似乎比按名称索引要快一点：

library(rbenchmark)
benchmark(
  xx <- lapply(names(r), function(i)dput(r[i])),
  yy <- lapply(seq_along(r), function(i)dput(r[i])),
  replications=10000)

                                                test replications elapsed relative user.self
1     xx <- lapply(names(r), function(i) dput(r[i]))        10000    1.95 1.026316      1.70
2 yy <- lapply(seq_along(r), function(i) dput(r[i]))        10000    1.90 1.000000      1.66
  sys.self user.child sys.child
1     0.00         NA        NA
2     0.01         NA        NA

Answer 2

你可以使用mapply:

dummy <- function(value, name) {
    list(
        name_of_element = name,
        value_of_element = value
    )
}
str(mapply(dummy, r, names(r), SIMPLIFY=FALSE))
# List of 2
 # $ a:List of 2
  # ..$ name_of_element : chr "a"
  # ..$ value_of_element: atomic [1:4] 1 2 3 4
  # .. ..- attr(*, "unit")= chr "test"
 # $ b:List of 2
  # ..$ name_of_element : chr "b"
  # ..$ value_of_element: chr "abc"