如何在R中基于列名后缀自动配对并计算V1与V2的差值？

方法一：基础R实现（无需额外包） #

先提取列名中的后缀（ABC、WXYZ这类标识），再循环配对计算差值：

# 提取所有非Date列的列名
cols <- setdiff(colnames(df), "Date")
# 提取列名的后缀部分（去掉V1_/V2_前缀）
suffixes <- unique(sub("V[12]_", "", cols))

# 循环每个后缀，计算V1减V2的差值并新增列
for (s in suffixes) {
  v1_col <- paste0("V1_", s)
  v2_col <- paste0("V2_", s)
  df[[paste0("dif_", s)]] <- df[[v1_col]] - df[[v2_col]]
}

运行后df会自动新增dif_ABC和dif_WXYZ列，结果如下：

Date V1_ABC V2_ABC V1_WXYZ V2_WXYZ dif_ABC dif_WXYZ
1 2001      1      2     10     11      -1       -1
2 2002      2      3     11     12      -1       -1
3 2003      3      4     12     13      -1       -1
4 2004      4      5     13     14      -1       -1

方法二：tidyverse工具包实现（更简洁） #

用dplyr的across函数批量处理，无需手动提取后缀，适合大规模数据集：

library(dplyr)
library(stringr)

df <- df %>%
  mutate(across(starts_with("V1_"), 
                # 对每个V1列，匹配对应的V2列并计算差值
                ~ .x - get(str_replace(cur_column(), "V1_", "V2_")),
                # 自动命名新列为dif_后缀格式
                .names = "dif_{str_remove(.col, 'V1_')}"))

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