使用R按子组计算差值（子组1优先）

我有一个数据集（原提问附图片链接），需要按分组计算子组间的数值差值，计算逻辑是子组1的数值减去子组2的数值（比如10-0=10、0-20=-20、30-31=-1），用R语言实现。我已经有大致的代码框架，但不知道怎么把sub_group纳入逻辑：

library(tidyverse)

df %>% 
    group_by(group) %>% 
    summarise(difference= diff(value))

核心是确保每个group下的sub_group按1、2的顺序处理，从而得到子组1值 - 子组2值的结果，以下是两种可靠实现方式：

方式1：精准匹配子组取值（直观易懂） #

适合明确每个分组下仅存在sub_group=1和sub_group=2的场景，直接提取对应子组的数值做减法：

library(tidyverse)

df %>%
  group_by(group) %>%
  summarise(
    difference = filter(., sub_group == 1)$value - filter(., sub_group == 2)$value
  )

方式2：排序后利用diff计算（灵活通用） #

如果数据中sub_group的顺序不固定，先按sub_group排序，再通过取diff的相反数得到目标差值（因为diff()默认是后项减前项，我们需要前项减后项）：

library(tidyverse)

df %>%
  group_by(group) %>%
  arrange(sub_group) %>% # 强制按sub_group升序排列，确保子组1在前
  summarise(
    difference = -diff(value)
  )

注意事项 #

• 如果部分分组下存在多于2个sub_group，建议先添加filter(sub_group %in% c(1,2))步骤过滤数据，避免计算结果不符合预期
• 若sub_group的取值不是整数1/2，只需将代码中sub_group == 1/sub_group == 2替换为实际的子组标识即可

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