使用 dplyr 提取数据

【问题标题】：extracting data using dplyr使用 dplyr 提取数据
【发布时间】：2015-03-22 05:04:43
【问题描述】：

假设我有以下数据

set.seed(123)

a <- c(rep(1,30),rep(2,30))
b <- rep(1:30)
c <- sample(20:60, 60, replace = T)
data <- data.frame(a,b,c)
data

现在我想提取数据：

对于a 的每个唯一值，提取/匹配b 值相同且c 值在+-5 范围内的数据

因此应产生所需的输出：

【问题讨论】：

标签： r dplyr

【解决方案1】：

您想比较内每个不同的b 组（因为它们在每个a 中都是唯一的），因此您应该按b 进行分组。也无法按a 分组并比较它们之间的，因此可能的解决方案是

data %>% 
  group_by(b) %>% 
  filter(abs(diff(c)) <= 5)

使用data.table 包，这将类似于

library(data.table)
setDT(data)[, .SD[abs(diff(c)) <= 5], b]

或者

data[, if (abs(diff(c)) <= 5) .SD, b]

或者

data[data[, abs(diff(c)) <= 5, b]$V1]

在基础 R 中，它会类似于

data[with(data, !!ave(c, b, FUN = function(x) abs(diff(x)) <= 5)), ]

【讨论】：