如何在R中计算间隔为2的连续成对行差值？

要实现仅计算第1与第2行、第3与第4行这类连续成对行的差值，你可以通过行号分组或奇偶行判断的方式过滤计算范围，以下是针对mtcars数据集的两种实现方式：

方法1：利用奇偶行判断直接计算 #

通过判断行号是否为偶数（每组的第二行），仅在这些行计算与前一行的差值，其余行设为NA：

library(dplyr)

mtcars <- mtcars %>%
  mutate(diff_mpg = ifelse(row_number() %% 2 == 0, mpg - lag(mpg), NA))

方法2：分组后计算组内差值 #

先将数据按每两行分为一组，再在组内仅保留第二行与第一行的差值：

library(dplyr)

mtcars <- mtcars %>%
  group_by(group = ceiling(row_number() / 2)) %>%
  mutate(diff_mpg = case_when(row_number() == 2 ~ mpg - first(mpg), TRUE ~ NA)) %>%
  ungroup() %>%
  select(-group) # 可选，移除临时分组列

两种方法效果一致：偶数行（第2、4、6…行）会显示与前一行的mpg差值，奇数行则为NA，完全符合你要的「间隔为2的成对行差值」需求，而非所有连续行的差值。

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