使用dplyr过滤数据时如何排除指定列保留目标列？

需要对数据执行列过滤操作：移除所有单元格值均小于10的列，但必须保留Station（站点）和Elevation（海拔）列。现有两段代码，第一段能移除符合条件的列，但会误删需要保留的列；第二段尝试排除指定列但未成功（误用了行过滤的filter函数，而非列筛选方法）。

现有代码 #

# 尝试移除所有无样本值≥10的列（但会删掉Station和Elevation）
transects1<-transects %>% 
  keep(~ any(. >= 10))

# 错误尝试：用filter过滤行，而非筛选列
transects1<-transects %>%
  filter( if_any(-contains("."), ~ (.>=10)) )

测试数据 #

structure(list(Transect = c("A", "A", "B", "A", "B", "B"), Station = c(1L, 
2L, 1L, 3L, 3L, 4L), Elevation = c(2.528, 1.844, 1.549, 1.335, 
1.015, 1.006), H.w = c(0, 0, 0, 0, 0, 100), E.m = c(0, 0, 0, 
0, 0, 0), T.i = c(0, 0, 0, 0, 100, 0), T.s = c(0, 0, 0, 0, 0, 
0), T.ir = c(0, 0, 0, 0, 0, 0), S.l = c(0, 0, 0, 0, 0, 0), P.m = c(0, 
0, 0, 0, 0, 0), H.m = c(0, 0, 0, 0, 0, 0), Q.sp = c(0, 0, 0, 
0, 0, 0), M.f = c(0, 0, 0, 0, 0, 0), E.spp = c(0, 0, 0, 0, 0, 
0), H.spp = c(0, 0, 0, 0, 0, 0), A.spp = c(0, 0, 0, 0, 0, 0), 
    C.spp = c(0, 0, 0, 0, 0, 0), M.l = c(0, 0, 0, 0, 0, 0), C.i = c(0, 
    0, 0, 0, 0, 0), Cr.spp = c(0, 0, 0, 0, 0, 0), N.spp = c(0, 
    0, 0, 0, 0, 0), Am.spp = c(0, 0, 0, 0, 0, 0), S.m = c(0, 
    0, 0, 0, 0, 0), G.spp = c(0L, 0L, 0L, 0L, 0L, 0L), P.n.spp = c(0, 
    0, 0, 0, 0, 0)), row.names = c(NA, 6L), class = "data.frame")

核心思路：用select明确保留指定列，再筛选出满足"至少有一个值≥10"的其他列。

方法1：结合all_of与where（dplyr管道风格） #

library(dplyr)

transects_clean <- transects %>%
  select(
    # 强制保留指定列（若不需要Transect可移除）
    all_of(c("Station", "Elevation", "Transect")),
    # 筛选其他列：至少存在一个值≥10
    where(~ any(. >= 10))
  )

方法2：先列名筛选再合并（基础R+dplyr结合） #

# 获取所有满足"至少有一个值≥10"的列名
qualified_cols <- names(transects)[sapply(transects, function(col) any(col >= 10))]
# 合并强制保留列与合格列（去重避免重复）
final_cols <- unique(c("Station", "Elevation", "Transect", qualified_cols))

transects_clean <- transects %>% select(all_of(final_cols))

运行后会保留Station、Elevation、Transect，以及满足条件的H.w和T.i列，其余全0的列会被移除。

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