在 lapply 中使用被迭代的对象的名称答案

【问题标题】：Using the names of the objects being iterated upon in lapply在 lapply 中使用被迭代的对象的名称
【发布时间】：2014-04-25 15:45:51
【问题描述】：

我想访问作为 lapply 输入的列表中对象元素的名称。以下是预期行为的人为示例，我将在其中粘贴对象的名称及其内容：

x <- list(a=1,b=2)
lapply(x, FUN) 
$a
[1] "a1"

$b
[1] "a2"

总是可以在列表名称上使用lapply()，然后在函数体中使用x[[name_element]]，但我认为这会使代码不太清晰。

【问题讨论】：

由于它的构造方式，lapply() 永远无法访问它当前正在操作的列表元素的名称。这意味着，如果您想以这种方式使用lapply()，我认为您只需要硬着头皮使用名称来索引元素。

标签： r lapply

【解决方案1】：

mapply上方列表和列表名称：

x <- list(a = 1, b = 2)
y <- mapply(paste0, names(x), c(x), SIMPLIFY = FALSE)

y
$a
[1] "a1"

$b
[1] "b2"

【讨论】：

【解决方案2】：

不是 100% 你的一般问题是什么，但这是玩具问题的另一种解决方案。

fun <- function(x) {
  lapply(x, function(elem) paste0(names(x)[[elem]], x[[elem]]))
}

fun(x)
$a
[1] "a1"

$b
[1] "b2"

【讨论】：