在列表中解嵌列表，在列表中，在列表中...同时在R中保留id

# 嵌套列表
nested_list <- list(a = list(1, 2, 3), b = list(4, 5, 6))

# 解嵌列表
unnested_list <- unlist(nested_list)

# 输出解嵌后的列表
print(unnested_list)

a1 a2 a3 b1 b2 b3 
1  2  3  4  5  6 

# 嵌套列表
nested_list <- list(a = list(1, 2, 3), b = list(4, 5, 6))

# 解嵌列表并添加id字段
unnested_list <- lapply(names(nested_list), function(x) {
  sublist <- nested_list[[x]]
  sublist$id <- x
  sublist
})

# 输出解嵌后的列表
print(unnested_list)

$a
$a[[1]]
[1] 1

$a[[2]]
[1] 2

$a[[3]]
[1] 3

$a$id
[1] "a"


$b
$b[[1]]
[1] 4

$b[[2]]
[1] 5

$b[[3]]
[1] 6

$b$id
[1] "b"