时间戳

首页 > 解决方案 > 基于组的行长度对分组变量进行条件过滤

r - 基于组的行长度对分组变量进行条件过滤

问题描述

一个我无法理解的简单查询：

样本数据集：

   ACH_DATE   CODE
1 31OCT2018 A81001
2 31JAN2019 A81001
3 31OCT2018 A81002
4 31JAN2019 A81002
5 31OCT2018 A81003
6 31JAN2019 A81004

我想group_by在CODE变量上过滤ACH_DATE，如果一个组有不止一行，则删除其中的行ACH_DATE == "31OCT2018"。

样本数据：

df <- structure(list(ACH_DATE = c("31OCT2018", "31JAN2019", "31OCT2018", 
"31JAN2019", "31OCT2018", "31JAN2019"), CODE = c("A81001", "A81001", 
"A81002", "A81002", "A81003", "A81004")), row.names = c(NA, 6L
), class = "data.frame")

标签： rgroup-bydplyrsubsetdo.call

解决方案

我们按“CODE”分组，创建一个包含行数和“ACH_DATE”的逻辑向量

library(dplyr)
df %>%
  group_by(CODE) %>% 
  filter((n() > 1 &  ACH_DATE != "31OCT2018") | n() == 1)

推荐阅读