来自具有多个条件的数据帧的条件子集

Question

在下面的 data.frame 中，我想对所有包含 group == 0 和 2017、2018 和 2019 年的所有 3 年的行进行子集化。

所需输出在下面的示例中是第 4、5 和 6 行的信息。

我尝试了以下解决方案，但没有成功。 BASE R 中是否有快速修复？

dat <- data.frame(group = c(0,0,1, 0,0,0, 1, 1, 1), 
       year = rep(2017:2019, 3))

subset(dat, group == 0 & year == 2017 & year == 2018 & year == 2019)

Answer 1

如果 OP 想要处理“组”相邻的唯一性

library(dplyr)
library(data.table)
dat %>%
   group_by(grp = rleid(group)) %>%
   filter(all(2017:2019 %in% year), group == 0) %>%
   ungroup %>%
   select(-grp)
# A tibble: 3 x 2
#  group  year
#  <dbl> <int>
#1     0  2017
#2     0  2018
#3     0  2019

---

或者在base R 和rle

grp <- with(rle(dat$group), rep(seq_along(values), lengths))
subset(dat, as.logical(ave(year,  grp, FUN = 
    function(x) all(2017:2019 %in% x)) ) & group == 0)
#  group year
#4     0 2017
#5     0 2018
#6     0 2019