按组筛选满足var2>=14条件的全部行——R语言数据框操作

嘿，这个需求本质就是要保留所有包含至少一条var2 >=14记录的分组的全部数据对吧？我给你两种常用的实现方式，都是R生态里很实用的方案：

首先明确原始数据 #

dat <- data.frame(date = c("2017-02-23", "2017-02-22", "2017-02-15", "2017-02-05","2018-05-23", "2018-02-22"), 
                  grp = c(1,1,6,7,7,7), 
                  var2 = c(1,3,18,15,25,5))

方法一：Base R 原生实现 #

不用额外装包，用基础函数就能搞定，思路是先定位符合条件的分组，再筛选这些分组的所有行：

# 第一步：提取所有存在var2>=14的分组ID
valid_groups <- unique(dat$grp[dat$var2 >= 14])
# 第二步：筛选出属于这些分组的全部行
result_base <- dat[dat$grp %in% valid_groups, ]

# 查看结果
print(result_base)

运行后得到的结果就是你要的目标数据框。

方法二：dplyr（Tidyverse风格）实现 #

如果你平时习惯用tidyverse系列工具，这种链式写法会更直观易读，适合复杂数据处理流程：

# 先安装/加载dplyr包（如果还没装的话）
# install.packages("dplyr")
library(dplyr)

result_dplyr <- dat %>%
  group_by(grp) %>%  # 按grp分组
  filter(any(var2 >= 14)) %>%  # 保留那些组内存在var2>=14的所有行
  ungroup()  # 取消分组状态，回到普通数据框

# 查看结果
print(result_dplyr)

这里的any(var2 >=14)会检查当前分组里是否有至少一条记录满足条件，filter会自动保留整个分组的所有行，非常方便。

验证结果匹配度 #

你可以用下面的代码确认结果和你期望的完全一致：

expected <- data.frame(date = c("2017-02-15", "2017-02-05","2018-05-23", "2018-02-22"), 
                       grp = c(6,7,7,7), 
                       var2 = c(18,15,25,5))

# 检查两个数据框是否完全相等
all.equal(result_base, expected)  # 返回TRUE
all.equal(result_dplyr, expected) # 返回TRUE

内容的提问来源于stack exchange，提问作者s157