r - dplyr group_by abs() 过滤数据

Question

假设我有如下数据

A <- c(1,1,1,2,2,2,3,3,3)
B <- c(1,0,0,1,0,0,1,0,0)
C <- c(8,7,6,8,7,8,9,9,11)

D <- data.frame(A,B,C)
D

library(dplyr)

E <- D %>%
  group_by(B) %>%
  filter(abs(diff(C)) <= 1)

删除这些案例，以便删除显示为黄色的案例

换句话说，对于每个 a 身份，当我们评估 b=0 相对于 b=1 时，任何值c 超过 1 的差值。

Answer 1

根据描述，我认为您想要这样的东西:

D %>%
  group_by(A) %>%
  filter(abs(C - C[B == 1]) <= 1)
#Source: local data frame [7 x 3]
#Groups: A
#
#  A B C
#1 1 1 8
#2 1 0 7
#3 2 1 8
#4 2 0 7
#5 2 0 8
#6 3 1 9
#7 3 0 9