如何在R语言中按成对分组计算单列内的数值差值？

嘿，刚好熟悉这个需求！在R里计算单列数值的相邻成对差值（也就是第二个减第一个、第三个减第二个……依次类推）其实有好几种简单直观的方法，我给你详细拆解下，还附示例代码：

方法1：用base R原生的diff()函数（最简洁） #

diff()函数就是专门用来计算向量相邻元素差值的，它直接返回x[2]-x[1], x[3]-x[2], ..., x[n]-x[n-1]的结果序列。如果要把结果和原数据放在一起，只需要补一个NA对应原数据的第一行（因为第一行没有前一个元素可以计算差值）：

# 先构造示例数据
df <- data.frame(values = c(5, 8, 12, 6, 9))

# 计算成对差值并添加到数据框
df$desired_result <- c(NA, diff(df$values))

# 查看结果
df

运行后得到的结果就是：

values desired_result
1      5             NA
2      8              3
3     12              4
4      6             -6
5      9              3

如果只需要纯差值序列，直接调用diff(df$values)就能得到c(3, 4, -6, 3)。

方法2：用dplyr的lag()函数（适合tidyverse工作流） #

如果你平时习惯用tidyverse系列工具处理数据，dplyr里的lag()函数可以轻松实现这个需求——它能把向量的元素向后偏移一位，再用原列减去偏移后的列就得到了相邻差值：

library(dplyr)

# 用管道操作添加差值列
df <- df %>%
  mutate(desired_result = values - lag(values))

这个方法的结果和上面完全一致，而且可以很方便地和其他数据清洗、转换步骤串联起来。

方法3：原生向量索引（无依赖，适合纯base R环境） #

如果不想加载任何包，直接用向量索引也能实现：通过去掉原向量的第一个元素，减去去掉最后一个元素的原向量，就能得到成对差值，再补NA对齐长度即可：

df$desired_result <- c(NA, df$values[-1] - df$values[-nrow(df)])

这里df$values[-1]是去掉第一个元素的数值列，df$values[-nrow(df)]是去掉最后一个元素的数值列，两者长度相同，对应位置相减就是我们要的成对差值。

以上三种方法都能完美满足你的需求，你可以根据自己的工作习惯选择合适的方式～

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