如何在R语言中将第二个列表元素追加到第一个列表对应元素

这个问题的核心是你需要对嵌套列表的深层子元素进行合并操作，而不是直接在列表x的顶层处理——你之前尝试的list_modify(x, y)和list_merge(x, !!!y)都是作用在x的顶层（也就是id1/id2/id3这一层），自然无法实现给每个id下的b元素添加内容的需求。

下面是两种可行的解决方案，都能生成你预期的列表z：

方法一：使用purrr包的map() + modify_at() #

这种方法更符合tidyverse的风格，精准定位到每个id下的b元素进行合并：

library(purrr)

# 原始数据
x <- list(id1 = list(a = list(t = 5)), id2 = list(a = list(t = 1), b = list(t = 3)), id3 = list(a = list(t = 1), b = list(t = 2)))
y <- list(b = list(k = 7))

# 生成目标列表z
z <- map(x, ~ modify_at(.x, "b", list_merge, y$b))

modify_at(.x, "b", ...)会只对每个id下存在的b元素执行合并操作，如果某个id没有b（比如id1），则会直接保留原样，不会新增多余元素。

方法二：使用Base R的lapply() #

如果你不想依赖purrr包，用Base R也能轻松实现：

# 原始数据
x <- list(id1 = list(a = list(t = 5)), id2 = list(a = list(t = 1), b = list(t = 3)), id3 = list(a = list(t = 1), b = list(t = 2)))
y <- list(b = list(k = 7))

# 生成目标列表z
z <- lapply(x, function(el) {
  # 检查当前id下是否有b元素
  if ("b" %in% names(el)) {
    # 合并b元素的内容
    el$b <- c(el$b, y$b)
  }
  el
})

这个逻辑很直观：遍历每个id子列表，判断是否存在b元素，存在就把y$b的内容合并进去，不存在则直接返回原列表。

验证结果 #

执行完上述任意一种方法后，你可以用str(z)查看结果，会和你预期的完全一致：

str(z)
#> List of 3
#>  $ id1:List of 1
#>   ..$ a:List of 1
#>   .. ..$ t: num 5
#>  $ id2:List of 2
#>   ..$ a:List of 1
#>   .. ..$ t: num 1
#>   ..$ b:List of 2
#>   .. ..$ t: num 3
#>   .. ..$ k: num 7
#>  $ id3:List of 2
#>   ..$ a:List of 1
#>   .. ..$ t: num 1
#>   ..$ b:List of 2
#>   .. ..$ t: num 2
#>   .. ..$ k: num 7

为什么之前的方法无效？ #

• list_modify(x, y)：这个函数是在x的顶层查找并替换元素，但x的顶层是id1/id2/id3，并没有b元素，所以完全不会产生任何变化；
• list_merge(x, !!!y)：同样是在x的顶层执行合并，会给x新增一个顶层的b元素，这显然和你想要的给每个id下的b添加内容的需求不符。

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