如何自动将Stores列与后续隔列的列相乘（R语言）

针对你的需求，这里提供几种适用于大数据集的自动化解决方案，无需手动处理每一列：

方法1：基于列位置筛选（推荐，适合固定间隔的列） #

如果目标列是从第3列开始每隔一列（如示例中的Value2、Value4），可以用dplyr的across函数结合列索引批量处理：

library(dplyr)

# 生成目标列的索引：从第3列开始，步长为2
target_col_indices <- seq(3, ncol(df), by = 2)

# 批量计算乘积并添加为新列，新列名格式为原列名_product
df <- df %>%
  mutate(across(all_of(target_col_indices), ~ .x * Stores, .names = "{col}_product"))

方法2：基于列名规则筛选 #

如果你的列名是Value1、Value2这类带数字后缀的格式，且目标列是后缀为偶数的列，可以通过匹配列名来筛选：

library(dplyr)
library(stringr)

# 筛选列名中Value后接偶数的列
target_cols <- str_subset(names(df), "Value(\\d*[02468])")

df <- df %>%
  mutate(across(all_of(target_cols), ~ .x * Stores, .names = "{col}_product"))

方法3：Base R 原生实现（无需额外包） #

如果不想加载dplyr，可以用Base R直接处理：

# 获取目标列索引
target_col_indices <- seq(3, ncol(df), by = 2)
# 计算乘积并生成新列
new_col_names <- paste0(names(df)[target_col_indices], "_product")
df[new_col_names] <- df$Stores * df[, target_col_indices]

以上三种方法都能自动适配50列的大数据集，无需手动逐个列处理。

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