如何在R语言数据框指定行范围内批量删除每4行的第3、4行？

用户有一个较长的DataFrame，示例代码如下（实际Day列填充的是日期而非数字）：

df <- data.frame(Type = c(rep("date", times = 100)),
                 Day = c(1:100))

需要在DataFrame的中间某段行范围（例如第50到70行）内，删除每4行中的第3和第4行，处理后的DataFrame示例如下：

df <- data.frame(Type = c(rep("date", times = 80)),
                 Date = c(1:52,55,56,59,60,63,64,67,68,71:90))

询问是否存在无需手动指定每个待删除行索引的实现方法。

方法1：基础R实现 #

通过拆分数据、按组筛选、合并结果的方式完成，无需手动枚举索引：

# 定义需要处理的行范围
start_row <- 50
end_row <- 70

# 拆分原数据为三部分：处理范围前、处理范围中、处理范围后
pre_segment <- df[1:(start_row - 1), ]
target_segment <- df[start_row:end_row, ]
post_segment <- df[(end_row + 1):nrow(df), ]

# 对目标段按每4行分组，仅保留每组的前2行
group_ids <- ceiling(seq_len(nrow(target_segment)) / 4)
filtered_target <- target_segment[ave(seq_len(nrow(target_segment)), group_ids, 
                                      FUN = function(x) x %in% 1:2) == 1, ]

# 合并所有部分得到最终结果
result_df <- rbind(pre_segment, filtered_target, post_segment)

方法2：dplyr简洁实现 #

利用行号标记和条件筛选，代码更直观：

library(dplyr)

start_row <- 50
end_row <- 70

result_df <- df %>%
  mutate(row_num = row_number()) %>%
  filter(
    # 保留范围外的所有行，或范围内符合"每4行留前2行"条件的行
    row_num < start_row | row_num > end_row |
      (row_num >= start_row & row_num <= end_row & 
         ((row_num - start_row + 1) %% 4) %in% c(1, 2))
  ) %>%
  select(-row_num) # 移除临时行号列

逻辑说明 #

两种方法核心都是对目标行范围重新按每4行一组计数，保留每组的第1、2行，自动过滤第3、4行，完全不需要手动计算或指定待删除的行索引，只需提前定义好处理的起始和结束行号即可。

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