如何在R语言的lapply函数中提取列表元素名称？

要在lapply()内部获取当前处理的列表元素名称，直接遍历列表元素本身是做不到的——因为lapply()默认只把元素的值传给匿名函数，函数里的参数（比如你代码里的x）只是元素的副本，它的名称就是参数名，而非原列表的元素名。这也是你用envnames::get_obj_name(x)得到"x"的原因。

下面提供两种base R的解决方案，均满足在lapply()中完成操作的要求：

方法1：遍历列表的名称集合 #

直接对names(myList)进行遍历，匿名函数的参数就是元素名称，同时可以通过myList[[name]]获取对应的元素值（如果需要处理元素的话）：

A <- c("z", "y", "x", "v")
B <- c("q", "j", "k", "r")
C <- c("n", "e", "d", "f")

myList <- list(A = A,B = B, C = C)

names_list <- lapply(names(myList), function(name) {
  # 若需要处理元素，可在此处用 myList[[name]] 获取当前元素
  name
})

# 转换为向量输出
unlist(names_list)
# 输出："A" "B" "C"

方法2：遍历列表的索引位置 #

通过seq_along(myList)生成列表的索引序列，再通过索引获取对应的元素名称：

names_list <- lapply(seq_along(myList), function(idx) {
  current_name <- names(myList)[idx]
  # 对应的元素可通过 myList[[idx]] 获取
  current_name
})

unlist(names_list)
# 输出："A" "B" "C"

如果你的场景需要同时处理元素值和它的名称，第一种方法更直观；若需要依赖索引做额外操作，第二种方法更灵活。

内容的提问来源于stack exchange，提问作者Olivier Grimard