如何在R中移除day_beep列与相邻行差值大于1的行？

核心思路 #

利用day_beep变量的特性（日数×10+蜂鸣编号，蜂鸣编号最大为7，跨天的day_beep差值至少为3），通过判断每行与前后行的day_beep差值是否为1，筛选出同一天内相邻蜂鸣编号连续的记录。

代码实现（基于dplyr包） #

假设你的数据框名为df，包含day（日期）和beep（蜂鸣编号）两列，操作步骤如下：

1. 先加载dplyr包（未安装则先执行install.packages("dplyr")）：

library(dplyr)

2. 生成day_beep并筛选有效行：

cleaned_df <- df %>%
  mutate(day_beep = day * 10 + beep) %>%
  # 判断当前行与前后行是否连续
  mutate(
    continuous_prev = ifelse(is.na(lag(day_beep)), FALSE, day_beep - lag(day_beep) == 1),
    continuous_next = ifelse(is.na(lead(day_beep)), FALSE, lead(day_beep) - day_beep == 1)
  ) %>%
  # 保留至少与前/后一行连续的记录
  filter(continuous_prev | continuous_next) %>%
  # 移除临时判断列
  select(-continuous_prev, -continuous_next)

逻辑说明 #

• 首尾行分别仅判断与相邻的下/上一行是否连续；中间行只要与前一行或后一行的day_beep差值为1，就会被保留——这恰好对应“同一天内相邻蜂鸣编号差值为1”的要求（跨天的day_beep差值必然大于1）。
• 你的示例数据经过处理后，会自动移除第3行（day_beep=24），保留其余连续记录。

替代方案（Base R） #

若不想使用dplyr，可直接用Base R实现：

# 生成day_beep变量
df$day_beep <- df$day * 10 + df$beep

# 计算前后行的差值
diff_prev <- c(NA, diff(df$day_beep))
diff_next <- c(diff(df$day_beep), NA)

# 筛选符合条件的行
keep_rows <- (diff_prev == 1) | (diff_next == 1)
cleaned_df <- df[keep_rows, ]

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