在R中如何删除grepl模式匹配行及其下方紧邻行

实现逻辑是先定位所有匹配指定字符串的行索引，再将匹配行本身和其下方紧邻行的索引合并去重，最后排除这些索引对应的行即可，完整实现步骤如下：

1. 定位所有匹配指定字符串的行索引

# 定位V1列包含my_string的所有行号，兼容你原来的grepl匹配逻辑
match_rows <- which(grepl("my_string", df$V1))

2. 生成待删除的行号集合，同时过滤无效索引避免边界报错：

to_remove <- unique(c(match_rows, match_rows + 1))
# 过滤超出数据框行数的索引，避免匹配到最后一行时出现索引越界错误
to_remove <- to_remove[to_remove <= nrow(df)]

3. 筛选后得到结果数据框：

df_new <- df[-to_remove, ]

效果验证 #

我们可以用测试数据确认执行结果，测试数据如下：

df <- data.frame(
  V1 = c("正常行1", "my_string", "匹配行下的紧邻行", "正常行2", "my_string", "匹配行下的紧邻行", "正常行3")
)

执行上述代码后，得到的df_new仅保留正常行1、正常行2、正常行3对应的行，完全符合需求。

简化写法 #

如果希望用更短的代码实现，也可以合并为单行写法：

df_new <- df[!seq(nrow(df)) %in% c(which(grepl("my_string", df$V1)), which(grepl("my_string", df$V1))+1), ]

注意：简化写法可读性较低，更推荐拆分步骤的写法，方便后续排查问题

内容的提问来源于stack exchange，提问作者Emily O'Connor