重新分配列表中的值而不循环

Question

test <- list(a = list("first"= 1, "second" = 2), 
         b = list("first" = 3, "second" = 4))

在上面的列表中，我想将“第一”元素重新分配给相等的，比方说，五。这个for循环有效：

for(temp in c("a", "b")) {
  test[[temp]]$first <- 5
}

有没有办法使用矢量化操作（lapply等）来做同样的事情？以下提取值，但我无法重新分配它们：

lapply(test, "[[", "first")

Answer 1

以下是使用unlist和relist：

的矢量化单线程

relist((function(x) ifelse(grepl("first",names(x)),5,x))(unlist(test)),test)
$a
$a$first
[1] 5

$a$second
[1] 2


$b
$b$first
[1] 5

$b$second
[1] 4

Answer 2

你可以这样做：

test <- lapply(test, function(x) {x$first <- 5; x})