如何在Base R中对嵌套列表的同名子元素应用求和函数

这问题我太熟悉了，刚好Base R里有几种灵活的方法，完全能适配你说的子列表数量、元素名称都不固定的场景，给你分享两种实用的实现：

方法1：扁平展开 + 分组求和 #

先把嵌套列表展开成扁平的命名向量，提取出子元素的名称后分组求和，步骤清晰又直观：

# 你的原始列表
l <- list("L1" = list('a' = 1, 'b' = 2), "L2" = list('a'= 2, 'c' = 1, 'd' = 1))

# 1. 展开嵌套列表
unlisted_vec <- unlist(l)
# 2. 提取子元素的名称（去掉父列表的前缀，比如"L1.a"转为"a"）
element_names <- sub(".*\\.", "", names(unlisted_vec))
# 3. 按子元素名称分组求和
res <- tapply(unlisted_vec, element_names, sum)

# 查看结果
res

运行后得到的结果就是你想要的：

a b c d 
3 2 1 1 

方法2：逐个子列表累加 #

如果你不想处理字符串提取，也可以用Reduce逐个合并子列表的元素并求和，这种方法更贴合嵌套结构的处理逻辑：

# 你的原始列表
l <- list("L1" = list('a' = 1, 'b' = 2), "L2" = list('a'= 2, 'c' = 1, 'd' = 1))

# 先把每个子列表转为命名向量，再用Reduce累加
res <- Reduce(function(vec1, vec2) {
  # 获取两个向量的所有唯一名称
  all_names <- union(names(vec1), names(vec2))
  # 对每个名称求和，不存在的元素自动补0（通过na.rm忽略NA）
  sapply(all_names, function(nm) sum(vec1[nm], vec2[nm], na.rm = TRUE))
}, lapply(l, unlist))

# 查看结果
res

这个方法会自动处理那些只在部分子列表里出现的元素，比如例子里的b只在L1里有，c、d只在L2里有，求和时都会保留并正确计算。

两种方法都能完美适配你说的“子列表数量、元素名称均不固定但深度固定”的实际场景，选哪个看你个人习惯就行~

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