按letter列分组筛选同时含apple和cherry的组：代码问题排查与替代方案

问题根源 #

你写的filter(any(fruit == "apple" & fruit == "cherry"))存在逻辑错误：单个行的fruit字段不可能同时等于"apple"和"cherry"，这个条件的结果永远是FALSE，any()对全为FALSE的向量求值还是FALSE，所以最终筛选不到任何数据。

正确的dplyr实现 #

需要分别判断分组内是否存在"apple"和"cherry"，再用&连接两个条件：

library(dplyr)

df <- data.frame(
  letter = c("A", "A", "B", "B", "C", "C"),
  fruit = c("apple", "banana", "apple", "cherry", "banana", "date")
)

filtered_data <- df %>%
  group_by(letter) %>%
  filter(any(fruit == "apple") & any(fruit == "cherry")) %>%
  ungroup() # 按需取消分组，避免后续操作受分组影响

print(filtered_data)

执行后会保留letter为"B"的所有行，符合你的需求。

替代实现方案 #

1. Base R 方式 #

先提取符合条件的letter列表，再筛选原数据：

# 找出同时包含两种水果的letter
valid_letters <- intersect(
  df$letter[df$fruit == "apple"],
  df$letter[df$fruit == "cherry"]
)

# 筛选目标数据
filtered_data_base <- df[df$letter %in% valid_letters, ]

2. data.table 方式 #

如果处理大数据集，data.table的效率更高：

library(data.table)
dt <- as.data.table(df)

filtered_data_dt <- dt[, if (.SD[, any(fruit == "apple") & any(fruit == "cherry")]) .SD, by = letter]

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