如何在R语言中自动实现数据框列的成对减法并添加新列？

针对你的需求，这里提供几种在R中自动化计算指定列差值并添加为新列的方法：

方法1：基础R循环实现 #

这种方法完全依赖基础R，适合偏好原生语法的场景：

# 定义原始数据
m="
id X1 X2 X3
A  1  0  4
B  2  2  2
C  3  4  1"

data <- read.table(text = m, h = T)

# 提取以X开头的数值列名
num_cols <- grep("^X\\d", names(data), value = TRUE)
# 生成所有需要计算的两两列组合（后列 - 前列）
col_combos <- combn(num_cols, 2)

# 循环计算差值并添加新列
for (idx in 1:ncol(col_combos)) {
  col_right <- col_combos[2, idx]
  col_left <- col_combos[1, idx]
  new_col <- paste0(col_right, "-", col_left)
  data[[new_col]] <- data[[col_right]] - data[[col_left]]
}

# 查看结果
print(data)

运行后输出：

id X1 X2 X3 X2-X1 X3-X1 X3-X2
1  A  1  0  4    -1     3     4
2  B  2  2  2     0     0     0
3  C  3  4  1     1    -2    -3

方法2：tidyverse 简洁实现 #

如果你习惯使用tidyverse生态，这种方法更简洁高效，尤其适合列数较多的场景：

library(dplyr)

# 定义原始数据
m="
id X1 X2 X3
A  1  0  4
B  2  2  2
C  3  4  1"

data <- read.table(text = m, h = T)

# 提取数值列名
num_cols <- grep("^X\\d", names(data), value = TRUE)
# 生成组合并批量添加差值列
data <- data %>%
  mutate(
    !!!set_names(
      combn(num_cols, 2, function(x) .data[[x[2]]] - .data[[x[1]]]),
      combn(num_cols, 2, function(x) paste(x[2], x[1], sep = "-"))
    )
  )

# 查看结果
print(data)

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