R语言：如何从外部参数文件自动批量赋值变量？

问题背景 #

我们的参数数据通过外部文件读取，格式如下（用tribble构造示例）：

param_file <- tribble(
  ~model, ~variable, ~value,
  "BAX", "year", "2023",
  "BAX", "version", "Saint_XL, Sinner_XY",
  "BAX", "metric", "ATE, OFCE",
  "LAX", "time", "2024",
  "LAX", "model2", "Saint_XX, Sinner_XW",
  "LAX", "method", "TEA, CEOF")

先通过以下代码拆分多值、去除空格并筛选目标模型（如BAX）：

param_file2 <- param_file %>% 
  separate_rows(value, sep = ",") %>% 
  mutate(value = trimws(value)) %>% 
  filter(model == "BAX")

处理后的数据结构：

model variable value    
  <chr> <chr>    <chr>    
1 BAX   year     2023     
2 BAX   version  Saint_XL 
3 BAX   version  Sinner_XY
4 BAX   metric   ATE      
5 BAX   metric   OFCE   

目前需要手动为每个variable编写赋值代码，例如：

year <- param_file2 %>% filter(variable == "year") %>% pull(value)
version <- param_file2 %>% filter(variable == "version") %>% pull(value)
metric <- param_file2 %>% filter(variable == "metric") %>% pull(value)

但新增variable时必须重复编写赋值逻辑，希望实现自动将variable列内容作为变量名，对应value转为字符向量赋值的效果。比如新增以下参数：

param_file <- tribble(
  ~model, ~variable, ~value,
  "BAX", "pasta", "sauce",
  "BAX", "jalapenos", "are, spicy")

能自动生成变量：

> pasta
[1] "sauce"
> jalapenos
[1] "are"   "spicy"

解决方案 #

方法1：list2env快速批量赋值 #

先将处理后的数据按variable分组，把每组的value整理成向量并转为命名列表，再通过list2env将列表元素映射为全局环境变量：

# 整理为命名列表：变量名 -> 对应value向量
param_list <- param_file2 %>%
  group_by(variable) %>%
  summarise(value = list(value)) %>%
  tibble::deframe()

# 将列表转为全局变量
list2env(param_list, envir = .GlobalEnv)

方法2：purrr::walk循环控制赋值 #

如果需要添加额外处理逻辑（比如类型转换、校验），可以用purrr的walk函数遍历每个变量：

library(purrr)

# 获取所有唯一的变量名
unique_vars <- unique(param_file2$variable)

# 遍历赋值到全局环境
walk(unique_vars, function(var) {
  assign(
    x = var,
    value = param_file2 %>% filter(variable == var) %>% pull(value),
    envir = .GlobalEnv
  )
})

两种方法都能实现自动赋值，新增variable后无需修改代码，重新运行处理逻辑即可自动生成对应变量。

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