r - 在 R 中生成命名列表

Question

如果我想创建一个命名列表，我可以在其中命名文字，我可以这样做:

list(foo=1,bar=2,baz=3)

如果我想用任意计算创建一个列表，我可以使用 lapply，例如:

lapply(list(1,2,3), function(x) x)

但是，lapply 生成的列表将始终是常规编号列表。有没有一种方法可以使用带有名称的 lapply 之类的函数生成列表。

我的想法是:

lapply(list("foo","bar","baz), function(key) {key=5}

==>

list(foo=5,bar=5,baz=5)

这样我就不必将键和值作为文字。

我知道我可以做到:

res = list()
for(key in list("foo","bar","baz") {
    res[key] <- 5;
}

但我不喜欢必须创建一个空列表并修改它以填充它的方式。

编辑:我还想根据 key 进行一些计算。像这样:

lapply(c("foo","bar","baz"), function(key) {paste("hello",key)=5})

Answer 1

如果

sapply 是字符向量，它将使用它的参数作为名称，因此您可以尝试:

sapply(c("foo","bar","baz"), function(key) 5, simplify=F)

产生:

$foo
[1] 5

$bar
[1] 5

$baz
[1] 5