在R中组合具有相似名称的嵌套列表项

combine_similar_names <- function(lst) {
  result <- list()
  
  for (i in seq_along(lst)) {
    if (is.list(lst[[i]])) {
      sublist <- combine_similar_names(lst[[i]])
      result <- c(result, sublist)
    } else {
      name <- names(lst)[i]
      if (is.null(name)) {
        result <- c(result, lst[[i]])
      } else {
        if (name %in% names(result)) {
          result[[name]] <- c(result[[name]], lst[[i]])
        } else {
          result[[name]] <- lst[[i]]
        }
      }
    }
  }
  
  return(result)
}

# 嵌套列表
nested_list <- list(
  a = list(
    a1 = 1,
    a2 = 2
  ),
  b = list(
    b1 = 3,
    b2 = 4
  ),
  c = list(
    c1 = 5,
    c2 = 6
  ),
  a = list(
    a3 = 7,
    a4 = 8
  )
)

# 组合具有相似名称的嵌套列表项
combined_list <- combine_similar_names(nested_list)

# 打印结果
print(combined_list)

$a
$a$a1
[1] 1

$a$a2
[1] 2

$a$a3
[1] 7

$a$a4
[1] 8

$b
$b$b1
[1] 3

$b$b2
[1] 4

$c
$c$c1
[1] 5

$c$c2
[1] 6