R语言新手求助：编写函数计算数据框第二列与后续列差值

这里提供两种适合R语言新手的实现方式：

方法一：基础R语法实现 #

先构造示例数据：

# 创建示例数据框
df <- data.frame(
  obs = 1:4,
  var1 = 5:8,
  var2 = 10:13,
  var3 = 14:17
)

编写计算差值的函数：

calc_diff <- function(data) {
  # 提取第二列作为基准列
  base_col <- data[, 2]
  # 提取第三列及之后的所有列
  target_cols <- data[, 3:ncol(data)]
  # 计算每列与基准列的差值
  diff_cols <- target_cols - base_col
  # 给差值列重命名为「原列名_1」格式
  colnames(diff_cols) <- paste0(colnames(target_cols), "_1")
  # 合并obs列与差值列，生成结果数据框
  result <- cbind(data[, 1, drop = FALSE], diff_cols)
  return(result)
}

# 调用函数得到结果
calc_diff(df)

运行后输出：

obs var2_1 var3_1
1   1     -5     -9
2   2     -5     -9
3   3     -5     -9
4   4     -5     -9

方法二：tidyverse风格（dplyr包） #

如果习惯使用tidyverse工具链，代码会更简洁：

library(dplyr)

calc_diff_dplyr <- function(data) {
  data %>%
    # 批量处理第三列到最后一列，计算与var1的差值并命名
    mutate(across(3:last_col(), ~ .x - var1, .names = "{col}_1")) %>%
    # 只保留obs和新生成的差值列
    select(obs, ends_with("_1"))
}

# 调用函数
calc_diff_dplyr(df)

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