如何为列表元素自动分配全局环境中的对应变量名？

方法1：自定义无依赖函数 #

如果你不想依赖额外包，可以自己写一个小函数，通过非标准求值捕获变量名并绑定到列表：

named_list <- function(...) {
  # 捕获传入的变量表达式
  args <- substitute(list(...))[-1]
  # 把每个表达式转为字符串作为名称
  names(args) <- sapply(args, deparse)
  # 构建并求值带名称的列表
  eval(as.call(c(list(list), args)))
}

使用示例：

a <- 1
b <- 2
c <- 3
l <- named_list(a, b, c)
names(l) # 输出: [1] "a" "b" "c"

方法2：使用rlang包的内置函数 #

如果你的项目已经使用tidyverse工具链，rlang::lst可以直接满足需求，它会自动将变量名作为列表元素的名称：

library(rlang)
a <- 1
b <- 2
c <- 3
l <- lst(a, b, c)
names(l) # 输出: [1] "a" "b" "c"

为什么你之前的方法不生效？ #

• names(as.list(.GlobalEnv))会返回全局环境中所有变量的名称，无法精准筛选你需要的特定变量；
• deparse(substitute(a))只能单个处理变量，当你直接写list(a,b,c)时，R会先把变量的值传入列表，原始变量名的信息已经丢失，无法事后补全。必须在传入变量时就捕获它们的名称，这也是上面两种方法的核心逻辑。

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