R语言如何自动批量执行同前缀带数字后缀变量的指定检验函数

完全可以不用逐行手动写重复代码，R 有多种原生/生态包方案可以覆盖这个需求，根据你常用的代码风格选择即可：

1. 基础 Base R 方案（无需安装额外包） #

适合不想依赖第三方包的场景，步骤简单直接：

• 首先生成目标变量名向量，不需要手动列每个变量名：

  # 写法1：已知变量最大序号N时直接拼接，比如有 another_var 到 another_var10 就把N替换为10
  target_vars <- paste0("another_var", 1:N)
  # 写法2：自动从数据框里匹配符合命名规则的列，避免数错序号漏项
  target_vars <- grep("^another_var[0-9]+$", names(dt), value = TRUE)
  

• 批量运行检验，统一把结果存在列表里方便后续查询：

  test_results <- lapply(target_vars, function(col) {
    some_test(dt$some_var, dt[[col]])
  })
  # 给结果加上对应变量名索引，方便单独调取某一项的检验输出
  names(test_results) <- target_vars
  

注意：不要写dt$col，这种写法只会去找名字叫"col"的列，根本取不到循环传入的another_varN对应列，是新手最常踩的坑。
如果不需要留存结构化结果，只是想逐行打印检验输出，直接用for循环即可：

for (col in target_vars) {
  # 可选：打印当前检验的变量名做分隔标记，避免输出混在一起分不清
  cat("=== 检验变量：", col, "===\n")
  some_test(dt$some_var, dt[[col]])
}

2. Data.table 适配方案 #

如果你的dt本身就是data.table对象，可以直接用内置的列匹配规则，写法更简洁：

# 自动匹配所有以another_var开头、结尾带数字的列批量运行检验
test_results <- dt[, lapply(.SD, \(x) some_test(some_var, x)), 
                   .SDcols = patterns("^another_var[0-9]+$")]

不需要提前手动整理目标变量名单，匹配规则自动覆盖所有符合命名逻辑的列，不会漏项。

3. Tidyverse 生态方案 #

如果日常使用purrr/dplyr的语法，可以用风格统一的写法：

library(dplyr)
library(purrr)
# 自动提取同前缀的目标变量名
target_vars <- dt |> 
  select(starts_with("another_var")) |> 
  names()
# 批量运行检验，自动给结果加变量名索引
test_results <- map(set_names(target_vars), 
                    ~some_test(dt$some_var, dt[[.x]]))

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