R语言中如何基于下一行station值为"Bad"的条件过滤行？

相邻行取值的核心方法 #

[-1]是base R按绝对行号删行的语法，无法支持逐行动态判断相邻行取值的场景。R中实现相邻行逐行匹配的两种标准写法：

• dplyr 生态：通过偏移函数取相邻值
  • lead(列名, n=1)：返回每行对应的紧邻下一行的列值
  • lag(列名, n=1)：返回每行对应的紧邻上一行的列值
• base R 原生：通过切片对齐相邻值，例如取当前行的下一列值，等价于把列向量去掉首元素，末尾补边界值

完整可运行代码 #

dplyr 版本（适配你现有filter的使用习惯） #

library(dplyr)

df <- data.frame(station = c("A", "A", "Bad", "A", "B", "Bad", "B", "C"),
  values = c(8.1, 3.3, NA, 9.1, 9.4, 6.5, 15.3, 7.8))

output <- df %>%
  # 过滤规则：排除所有"下一行station为Bad"的行
  filter(!coalesce(lead(station, n = 1) == "Bad", FALSE))

运行后输出和你给出的期望结果完全一致。

base R 无依赖版本 #

# 生成删除标记：标记所有属于"Bad行上一行"的位置
remove_flag <- c(df$station[-1] == "Bad", FALSE)
# 过滤得到结果
output_base <- df[!remove_flag, ]

逻辑拆解 #

1. 需求等价转换：删除"station值为Bad的行的上一行"，本质是逐行判断——若当前行的紧邻下一行station值为"Bad"，则当前行是待删除目标。
2. 边界兼容：数据第一行无前置邻值、最后一行无后置邻值，这类位置不可能是Bad行的相邻行。通过coalesce()（dplyr版本）补默认FALSE值，或手动补边界标记（base R版本），可以避免最后一行被误删。

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