R语言中合并n个列表为2列tibble的更优实现方法

核心思路是先将所有待合并的向量整理为命名列表（列表的键对应来源名称，值对应原向量），再一步展开为目标结构，不需要反复手动构造tibble再拼接。

方案1：tidyverse 最简实现（推荐） #

借助purrr的迭代函数+bind_rows的id参数，仅需少量代码即可完成，适配任意数量的输入向量：

library(tidyverse)

# 手动指定要合并的向量，lst()会自动用变量名作为列表键
lst(List_A, List_B, List_C) %>% 
  map_dfr(~ tibble(Value = .x), .id = "Treatment")

如果待合并的向量数量多、命名有规律，还可以批量抓取工作环境中的对应向量，不用手动逐个列名：

# 示例：抓取所有以List_开头的向量合并
mget(ls(pattern = "^List_")) %>% 
  map_dfr(~ tibble(Value = .x), .id = "Treatment")

也可以用enframe + unnest的写法，逻辑更直观：

lst(List_A, List_B, List_C) %>% 
  enframe(name = "Treatment", value = "Value") %>% 
  unnest(Value)

方案2：纯base R实现（无需加载第三方包） #

用原生stack函数直接展开命名列表，修改列名即可得到结果：

# 构造命名列表传入stack
res <- stack(list(List_A = List_A, List_B = List_B, List_C = List_C))
# 修改列名匹配要求
colnames(res) <- c("Value", "Treatment")
# 如需转tibble格式，额外调用as_tibble(res)即可

两种方案的输出和手动拼接的结果完全一致，代码量随输入向量数量增加的边际成本极低，适合n较大的场景。

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