使用dplyr筛选：移除指定站点下全为0的物种观测记录

我明白你的需求啦——你要针对每个站点，删除那些在该站点下所有观测的frequency均为0的物种记录，而不是全局删除所有站点都无有效数据的物种。你之前的方法之所以失效，是因为pivot_wider后列是全局共享的，只要某个物种在任意站点有非0值，整列就会被保留，导致目标站点的无效物种记录依然存在。

正确的dplyr筛选思路 #

核心是按site和species的组合分组，判断该组合下是否存在非0的frequency，只保留符合条件的组合记录：

方法一：一步到位筛选

这是最简洁的写法，直接在分组后过滤：

library(dplyr)

df_cleaned <- df %>%
  # 按站点+物种的组合分组
  group_by(site, species) %>%
  # 筛选出该组内存在非0频率的所有记录
  filter(any(frequency != 0)) %>%
  # 取消分组，恢复普通数据框结构
  ungroup()

方法二：先标记有效组合再过滤（更直观）

如果想清晰看到哪些是有效组合，可以先生成有效列表，再用半连接过滤原数据：

# 生成每个站点下有非0频率的物种列表
valid_site_species <- df %>%
  group_by(site, species) %>%
  summarise(has_valid_data = any(frequency != 0), .groups = "drop") %>%
  filter(has_valid_data)

# 用半连接过滤原数据，只保留有效组合的记录
df_cleaned <- df %>%
  semi_join(valid_site_species, by = c("site", "species"))

验证结果 #

针对你提供的示例数据，运行后会精准移除站点Z的clover记录（该组合下所有frequency都是0），同时完整保留站点X的clover（存在非0值），完全符合你的需求。

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