在这种情况下，您可以：

result <- lapply(x, function(i) {
  if("b" %in% names(i)) i$b <- append(i$b, y$b); i;
  })

以致

identical(result, z)
#> [1] TRUE

这不是特别优雅，但是你可以用一个循环来完成，这个循环遍历x中的元素，在x中的元素，如果x中有一个元素和y中的元素同名，这两个元素在z中连接在一起，否则，z只是x，根据真实的问题的规模，这可能太慢了，也许有人可以提供一个整洁的替代方案。

z <- vector(mode="list", length = length(x))  
for(i in 1:length(x)){
  for(j in 1:length(y)){
    z[[i]] <- x[[i]]
    if(names(y)[j] %in% names(x[[i]])){
      z[[i]][[names(y)[j]]] <- c(x[[i]][[names(y)[j]]], y[[j]])
    }else{
      
    }
    names(z) <- names(x)
  }
}

使用map_if的替代解决方案：将list_merge应用于原始列表中至少有一个与y相同的子名称的每个元素：

map_if(x, ~any(names(.) %in% names(y)), list_merge, !!!y)

purrr：：list_merge按预期工作，但是当列表被命名时，它使用名称来查找要合并的位置，并且您的y没有正确地使用id 2/id 3来命名，因此无法进行合并。
要使用list_merge：
y <- list(id2 = list(b = list(k = 7)), id3 = list(b = list(k = 7)))
z2 <- list_merge(x, !!!y)
identical(z, z2)
[1]正确