R语言如何删除dataframe中整行所有值均为负数的行

核心逻辑 #

删除整行所有值均为负数的行，等价于保留至少存在1个≥0的元素的行，直接对每行所有数值做批量判定即可。

示例数据构造 #

首先用你提供的结构构造测试数据：

df <- structure(list(name = c(1,-2,-6), data1 = c(1,-30,6), 
data3 = c(1,-51,-6), score1 = c(0, -40, 10), 
score2 = c(20, -25, 10)), class = "data.frame", 
row.names = c(NA, -3L))

实现方案 #

方案1：基础R实现 #

用apply逐行判断全负条件，取反后筛选行：

# 保留非全负的行
df_filtered <- df[!apply(df, 1, function(x) all(x < 0)), ]
# 如需重置连续行号，执行以下代码
rownames(df_filtered) <- NULL

方案2：tidyverse（dplyr）实现 #

用filter搭配if_any语法，可读性更高：

library(dplyr)
df_filtered <- df %>%
  # 保留至少有一个元素≥0的行
  filter(if_any(everything(), ~ .x >= 0))

注意：如果数据包含非数值列（如字符型分类列），判定时要仅选中数值列：基础R中把df替换为df[,sapply(df,is.numeric)]，dplyr中把everything()替换为where(is.numeric)即可。

输出结果 #

筛选后的数据和预期完全一致：

name data1 data3 score1 score2
1    1     1     1      0     20
2   -6     6    -6     10     10

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