在R中的tidyverse（dplyr）中选择性地行求和

Question

我有一个快速的tidyverse 问题。在gg:

如何将行 (1 - 3) 和 (2 - 4) 的 salary 值相减，然后将它们相减。总体而言，即：行 (1 - 3) - (2 - 4)

library(tidyverse)
data <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/salary.csv')

gg <- data %>% dplyr::select(female,over10,salary) %>% group_by(over10,female) %>% 
summarise(across(.fns = mean), n = n())

Answer 1

您在帖子中没有提到这一点，但我认为为什么要减去行 c(1, 3) 和 (2, 4) 是因为 female 列中的 (0, 1) 值。如果是这样，您可以 group_by female 列并使用 diff 计算差异。

library(dplyr)
gg %>%
  group_by(female) %>%
  summarise(salary = diff(salary)) %>%
  summarise(salary = -diff(salary))

# salary
#   <dbl>
#1  13891.

如果您真的想根据行号执行此操作：

diff(gg$salary[c(1, 3)] - gg$salary[c(2, 4)])
#[1] 13891.