R语言中如何批量迭代列乘法生成加权列？（NASA TLX场景）

方法1：使用dplyr的across（tidyverse风格） #

这是最简洁的tidyverse方案，利用列名匹配和批量操作一次性生成所有加权列：

library(dplyr)
library(stringr)

nasa <- nasa %>%
  mutate(
    across(
      matches("^r_"),
      ~ . * get(str_replace(cur_column(), "^r_", "w_")),
      .names = "weighted_{str_remove(.col, '^r_')}"
    )
  )

解释：

• matches("^r_") 匹配所有以r_开头的评分列
• str_replace(cur_column(), "^r_", "w_") 将当前评分列的前缀替换为w_，自动找到对应权重列
• .names = "weighted_{str_remove(.col, '^r_')}" 按规则生成weighted_xxx格式的新列名

方法2：Base R循环 #

如果习惯用原生R语法，直接通过循环后缀批量生成列：

# 定义所有后缀（或自动提取：suffixes <- sub("^r_", "", grep("^r_", names(nasa), value = TRUE))）
suffixes <- c("mental", "physical", "temporal", "effort", "performance", "frustration")

for (suf in suffixes) {
  nasa[[paste0("weighted_", suf)]] <- nasa[[paste0("r_", suf)]] * nasa[[paste0("w_", suf)]]
}

解释：

• 循环每个后缀，用[[直接访问对应评分/权重列并计算
• 赋值语句自动创建weighted_xxx命名的新列

方法3：purrr函数式批量处理（tidyverse进阶） #

如果偏好函数式编程风格，用purrr批量生成列后合并：

library(purrr)
library(dplyr)
library(stringr)

suffixes <- str_remove(grep("^r_", names(nasa), value = TRUE), "^r_")

weighted_cols <- map_dfc(suffixes, ~ {
  tibble(!!paste0("weighted_", .x) := nasa[[paste0("r_", .x)]] * nasa[[paste0("w_", .x)]])
})

nasa <- bind_cols(nasa, weighted_cols)

说明：

• map_dfc将每个后缀生成的单列数据框按列合并
• !!和:=用于动态指定新列的名称

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