如何根据某列下一行的值筛选数据框行？dplyr lag函数使用遇阻

嘿，我明白你的需求啦——你想从数据框里挑出那些当前行的b列等于1，同时下一行的b列等于2的行，对吧？之前用lag没成功是因为搞反了方向，lag()是取上一行的值，而我们需要的是下一行的值，应该用lead()函数才对！

接下来直接上解决方案代码：

首先加载dplyr包（如果还没装的话先安装）：

# 如果没安装dplyr先安装
# install.packages("dplyr")
library(dplyr)

# 你的原始数据框
df <- data.frame(t = c(1,2,3,4,5,6,7,8), b = c(1,2,1,0,1,0,1,2))

# 筛选符合条件的行
result_df <- df %>%
  filter(b == 1, lead(b) == 2)

# 查看结果
result_df

运行这段代码后，你会得到预期的结果：

t b
1 1 1
2 7 1

为什么用lead而不是lag？ #

简单说：

• lag(b)：获取当前行的上一行b列的值
• lead(b)：获取当前行的下一行b列的值

你的需求是检查当前行的下一行，所以lead(b)才是正确的选择。之前用lag的话，相当于检查上一行是否满足条件，自然得不到想要的结果啦。

如果不用dplyr，用基础R也能实现，比如：

# 基础R方法
result_df_base <- df[df$b == 1 & c(df$b[-1], NA) == 2, ]

这里c(df$b[-1], NA)是把b列去掉第一个元素，再补个NA，这样就对应了每一行的下一行值，然后和当前行的b==1做逻辑判断，也能得到同样的结果。

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