Question

我需要访问lapply函数中的列表名称。我在网上发现了一些线程，据说我应该遍历列表的名称，以便能够在我的函数中获取每个列表元素名称：

> n = names(mylist)
> mynewlist = lapply(n, function(nameindex, mylist) { return(mylist[[nameindex]]) }, mylist)
> names(mynewlist)
NULL
> names(mynewlist) = n

问题是mynewlist丢失了原始的mylist索引，我必须添加last names（）赋值来恢复它们。

有没有办法为lapply函数返回的每个元素提供显式索引名称？或者以不同的方式确保mynewlist元素具有正确的索引名称集？如果lapply没有以与mylist相同的顺序返回列表元素，我觉得mynewlist索引名称可能是错误的。

Answer 1

我相信lapply默认保留你迭代的名字属性。当您在myList中存储n的名称时，该向量不再具有任何“名称”。所以如果你把它添加回via，

names(n) <- names(myList)

和以前一样使用lapply，你应该得到想要的结果。

修改

今天早上我的大脑有点模糊。这是另一个，也许更方便的选择：

sapply(n,FUN = ...,simplify = FALSE,USE.NAMES = TRUE)

我正在摸索，混淆lapply没有USE.NAMES参数，然后我实际看了sapply的代码并意识到我很傻，这个可能是一个更好的方式。

Answer 2

setNames函数是一个有用的快捷方式

mylist <- list(a = TRUE, foo = LETTERS[1:3], baz = 1:5)
n <- names(mylist)
mynewlist <- lapply(setNames(n, n), function(nameindex) {mylist[[nameindex]]})

保留名称

> mynewlist
$a
[1] TRUE

$foo
[1] "A" "B" "C"

$baz
[1] 1 2 3 4 5

Answer 3

您是否从包llply()？

中查看了plyr

它完全符合您的要求。 对于列表的每个元素，应用函数，将结果保存为列表。 llply相当于lapply，除了它会保留标签并且可以显示进度条。来自?llply

mylist <- list(foo1=1:10,foo2=11:20)
>names(mylist)
[1] "foo1" "foo2"
newlist<- llply(mylist, function(x) mean(x))

>names(newlist)
[1] "foo1" "foo2"

Answer 4

以joran的答案为基础，并将其精确化：

sapply(USE.NAMES=T)包装器确实将最终结果的名称设置为您正在迭代的向量的值（而不是其名称属性，如lapply），，但仅限于这些是字符。

因此，传递指数无济于事。如果要使用sapply传递索引，则需要使用某些（丑陋的）转换：

sapply(as.character(c(1,11)), function(i) TEST[[as.numeric(i)]], USE.NAMES = TRUE)

在这种情况下，更简洁的解决方案是直接设置和使用原始对象的名称。以下是一份详尽的解决方案清单：

TEST <- as.list(LETTERS[1:12]) ### lapply ## ## Not working because no name attribute lapply(c(1,11), function(i) TEST[[i]]) ## working but cumbersome index <- c(1,11) names(index) <- index lapply(index, function(i) TEST[[i]]) ### sapply ## ## Not working because vector elements are not strings sapply(c(1,11), function(i) TEST[[i]], simplify = F) ## Working with the casting trick sapply(as.character(c(1,11)), function(i) TEST[[as.numeric(i)]], simplify = F) ## Cleaner, using names with sapply: names(TEST) <- LETTERS[26:15] sapply(names(TEST)[c(1,11)], function(name) TEST[[name]], simplify = F)

Answer 5

<{1}}包中的

imap()对您的问题很有帮助。

purrr

或者您可以使用更紧凑的imap版本：

library(purrr)
mylist <- list(foo1=1:10,foo2=11:20)
imap(mylist, function(x, y) mean(x)) ## x is the value, y is the name

请注意，您可以根据所需的矢量类型使用imap_xxx的变体：

imap(mylist, ~ mean(.x))

Answer 6

也可以在@joran的答案的基础上，编写一个包装函数，以保留如下所示的对象属性：

lapply_preserve_names <- function(list, fun){
  lapply(seq_along(list), function(i) {
    obj = list[i]
    names(obj) = names(list)[i]
    fun(obj)
  })
}

然后不要使用lapply，只需使用lapply_preserve_names(your_list, function)

在lapply函数中访问和保留列表名称

6 个答案: