如何在R中高效对编号匹配的A列与B列执行减法运算？

针对你的需求——自动对编号相同的A列和B列执行减法（比如A1-B1、A2-B2），这里有两种高效的方法，尤其适合大型数据集：

方法1：Base R 原生实现 #

这种方法不需要额外安装包，直接用原生函数就能搞定：

# 首先创建示例数据
df <- data.frame(
  A1 = c(3,5,4,4),
  A2 = c(4,6,5,7),
  A3 = c(3,6,4,3),
  B1 = c(1,0,2,1),
  B2 = c(0,0,2,0),
  B3 = c(1,1,0,1)
)

# 提取所有A开头和B开头的列的位置
cols_a <- grep("^A", names(df))
cols_b <- grep("^B", names(df))

# 批量执行减法，新增结果列（命名为C1、C2、C3）
df[paste0("C", seq_along(cols_a))] <- df[cols_a] - df[cols_b]

运行后你的数据集会新增对应结果列，示例输出如下：

df
A1 A2 A3 B1 B2 B3 C1 C2 C3
1 3 4 3 1 0 1 2 4 2
2 5 6 6 0 0 1 5 6 5
3 4 5 4 2 2 0 2 3 4
4 4 7 3 1 0 1 3 7 2

方法2：dplyr 简洁实现（推荐tidyverse用户） #

如果你习惯使用tidyverse生态，dplyr的across函数能让代码更简洁易懂：

library(dplyr)

df <- df %>%
  mutate(
    # 对所有以A开头的列执行操作
    across(
      starts_with("A"), 
      # 用当前列名替换A为B，找到对应B列做减法
      ~ .x - get(gsub("A", "B", cur_column())),
      # 结果列命名：把原列名的A换成C
      .names = "{gsub('A', 'C', .col)}"
    )
  )

这个方法的优势是代码可读性更强，而且如果后续新增A4/B4这类列，代码不需要修改就能自动处理。

两种方法都能高效处理大型数据集，不需要手动逐列编写减法逻辑，完全满足你的需求！

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