如何批量将数据框指定列的首值从该列所有行中减去？

首先修正你原代码里的小问题：创建a向量时，直接写c(a,b,c,d)会报错（变量未定义），应该改为字符向量：

a <- c("a", "b", "c", "d")
b <- 1:4
c <- 1:4
d <- 1:4
df <- data.frame(a, b, c, d)

下面提供几种批量处理b、c、d列的方法：

方法1：Base R 原生实现 #

直接利用R的向量广播特性，一行代码完成：

target_cols <- c("b", "c", "d")
df[target_cols] <- df[target_cols] - df[1, target_cols]

原理：数据框的列子集可视为矩阵，减法操作会自动按列匹配首行的值，实现每列所有元素减去该列第一个值。

也可以用apply函数实现：

df[target_cols] <- apply(df[target_cols], 2, function(x) x - x[1])

apply的第二个参数2表示按列处理，匿名函数完成每列减首值的操作。

方法2：tidyverse/dplyr 风格实现 #

如果你习惯使用tidyverse工具链，用dplyr的across函数（适用于dplyr 1.0.0及以上版本）：

library(dplyr)

df <- df %>%
  mutate(across(c(b, c, d), ~ .x - first(.x)))

其中across(c(b, c, d))指定要处理的列，~ .x - first(.x)定义每列的处理逻辑：当前列值减去该列的第一个值。

如果是旧版dplyr，可使用mutate_at：

df <- df %>%
  mutate_at(vars(b, c, d), ~ .x - first(.x))

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