在R中是否有更直接的函数实现定位含指定内容的首行并删除其上方行？

示例数据框 #

sample_df <- structure(list(
  col1 = c(1, 2, 3, 4, 5),
  col2 = c("a", "b", "c", "apple pie:", "e"),
  col3 = c("x", "y", "z", "w", "v"),
  col4 = c(10.5, 20.3, 30.7, 40.1, 50.9),
  col5 = c(FALSE, TRUE, FALSE, TRUE, "apple")
), class = "data.frame", row.names = c(NA, -5L))

数据预览：

col1       col2 col3 col4  col5
1    1          a    x 10.5 FALSE
2    2          b    y 20.3  TRUE
3    3          c    z 30.7 FALSE
4    4 apple pie:    w 40.1  TRUE
5    5          e    v 50.9 apple

需求 #

找到第一个包含单词"apple"的行，删除该行上方的所有行，保留该行及以下内容。

现有实现方法 #

first_apple_row <- min(which(apply(sample_df, 1, function(row) any(grepl("apple", row)))))
result_df <- sample_df[first_apple_row:nrow(sample_df),]

得到结果：

col1       col2 col3 col4  col5
4    4 apple pie:    w 40.1  TRUE
5    5          e    v 50.9 apple

更简洁的实现方式 #

R中没有专门完成该操作的单一函数，但可以把你的原始逻辑压缩成更紧凑的代码，无需单独存储行号变量：

方法1：基础R一行实现 #

利用cummax函数标记需要保留的行：

result_df <- sample_df[cummax(apply(sample_df, 1, function(row) any(grepl("apple", row)))), ]

原理：apply逐行检查是否含"apple"，返回布尔向量；cummax会将第一个TRUE之后的所有值转为TRUE，直接筛选出目标行及后续内容。

方法2：tidyverse风格（dplyr） #

如果你习惯使用tidyverse工具，用dplyr的管道语法更直观：

library(dplyr)

result_df <- sample_df %>%
  filter(cummax(rowSums(grepl("apple", .)) > 0) == 1)

原理：grepl("apple", .)对数据框所有元素检查是否含"apple"，返回布尔矩阵；rowSums统计每行的匹配数量，大于0表示该行有目标单词；cummax实现保留首个匹配行及之后的所有行。

方法3：data.table高效实现（适合大数据） #

处理大型数据集时，data.table的语法更高效：

library(data.table)

setDT(sample_df)
result_df <- sample_df[cummax(rowSums(grepl("apple", sample_df)) > 0)]

这些方法本质上延续了你的核心逻辑，但将多步骤合并为更直接的代码书写形式。

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