使用dplyr包，先将数据按照需要筛选的变量分组，再使用lag函数获取前一行的变量值，通过比较当前行和前一行的变量值是否相等，筛选出需要的行。

代码示例：

library(dplyr)

创建示例数据

df <- data.frame( id = 1:10, val = c(1, 2, 2, 3, 4, 4, 5, 5, 5, 6) )

筛选出两个重复值之间的行

df_filtered <- df %>% group_by(val) %>% # 按照需要筛选的变量分组 filter( val == lag(val) | # 当前行和前一行的变量值相等 val == lead(val) # 当前行和后一行的变量值相等 ) %>% ungroup() # 取消分组

df_filtered # 输出筛选后的数据