R语言计算数据框所有列相邻行差值 首行保持原值

核心规则 #

• 所有列第一行保留原始数值
• 从第二行开始，每一行值为「当前行原始值 - 上一行原始值」

方案1：基础R原生实现（无依赖，推荐） #

不需要安装任何第三方包，直接利用数据框的向量运算特性即可完成，执行效率高：

# 复制原数据，避免修改原始对象
result <- book1
# 对第二行到最后一行，统一计算与上一行的差值
result[-1, ] <- book1[-1, ] - book1[-nrow(book1), ]

代码逻辑说明：

• book1[-1, ] 提取原数据第二行到最后一行的全部内容
• book1[-nrow(book1), ] 提取原数据第一行到倒数第二行的全部内容
• 两个维度完全一致的子集直接做减法，即可得到所有行与上一行的差值，赋值给结果集对应位置后，第一行原始值全程保留，完全符合要求。

方案2：dplyr实现（适配tidyverse工作流） #

如果日常使用tidyverse生态做数据处理，可以用跨列计算的方式实现：

library(dplyr)

result <- book1 %>%
  mutate(across(everything(), ~ .x - lag(.x))) %>%
  # 替换第一行因lag产生的NA为原始值
  replace(is.na(.), book1[1, ])

常见踩坑说明 #

之前用for循环搭配lag函数未得到正确结果，大概率是两个原因：

• 未处理lag作用在第一行时返回的NA值，导致首行结果异常
• 循环赋值时索引范围写错，误覆盖了第一行的原始值

计算完成后可以做简单校验：第二行X1列的结果应为434 - 123 = 311，第三行X1列结果应为545 - 434 = 111，和预期结果一致。

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