如何简化R函数中返回命名列表时重复书写元素名的操作？

嘿，我太懂你这种反复敲list(x=x, y=y)的烦躁了！在R里确实有几个简洁又实用的小技巧，能帮你摆脱这种重复劳动，不用再手动重复每个变量名，下面给你分享几个适合日常场景的方案：

方法1：用dplyr的lst()函数 #

如果你已经在使用tidyverse工具链，dplyr::lst()绝对是为这个需求量身打造的！它会自动把传入的变量名直接作为列表的元素名称，完全不用重复书写：

library(dplyr)

func <- function() { 
  x <- rnorm(10) 
  y <- runif(10) 
  out <- lst(x, y)  # 直接写变量名就搞定！
  return(out) 
}

# 验证结果
str(func())

运行后你会发现，返回的列表自动带有x和y的名称，和你之前的写法效果完全一致，但代码简洁了不止一点。

方法2：基础R的mget()函数 #

要是你不想加载额外的包，纯基础R的mget()也能完美解决问题。你只需要把要包含的变量名写成字符向量传给它，它就会返回一个元素名与变量名对应的列表：

func <- function() { 
  x <- rnorm(10) 
  y <- runif(10) 
  out <- mget(c("x", "y"))  # 传入变量名的字符向量
  return(out) 
}

# 看看输出结构
str(func())

这个方法的优势是零外部依赖，适合那些不想引入额外包的场景，代码同样清爽。

方法3：purrr+rlang组合（适合批量/动态场景） #

如果你的变量数量很多，或者是动态生成的变量名，这个组合会更灵活。不过日常简单场景下，前两个方法已经足够好用了，这里也给你做个补充：

library(purrr)
library(rlang)

func <- function() { 
  x <- rnorm(10) 
  y <- runif(10) 
  vars <- c("x", "y")
  out <- map(syms(vars), eval_tidy) %>% set_names(vars)
  return(out) 
}

总的来说，优先推荐dplyr::lst()，它最直观简洁；如果不能加载外部包，mget()就是你的最佳选择，完全能满足日常需求，让你的代码更优雅！

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