R语言判断date2大于date1时删除对应数量DR前缀列的实现方法

先运行你提供的测试数据集代码生成df对象，再执行以下逻辑：

基础R实现（无额外依赖） #

直接封装为可复用函数，支持传入任意指定的date2参数：

filter_dr_cols <- function(df, selected_date2) {
  # 提取固定的date1并转日期格式
  date1_fixed <- as.Date(unique(df$date1))
  selected_date2 <- as.Date(selected_date2)
  
  # date2不大于date1时直接返回原数据集
  if (selected_date2 <= date1_fixed) {
    return(df)
  }
  
  # 计算待删除列数
  X <- as.integer(selected_date2 - date1_fixed) + 1
  # 提取所有DR为前缀的列名
  dr_cols <- grep("^DR", names(df), value = TRUE)
  # 取前X个待删除列，兼容X超过DR列总数的边界场景
  to_remove <- head(dr_cols, n = min(X, length(dr_cols)))
  # 生成删除后的新数据集
  df[, !names(df) %in% to_remove, drop = FALSE]
}

测试验证 #

使用你给的示例参数调用：

new_df <- filter_dr_cols(df, "2021-07-01")

运行后new_df会保留date1、date2、Week字段，以及DR05_PV、DR06_PV、DR07_PV三个DR列，和示例要求完全一致。

可选tidyverse版本（dplyr语法） #

如果你习惯使用tidyverse生态，可以用以下写法：

library(dplyr)

filter_dr_cols_tidy <- function(df, selected_date2) {
  date1_fixed <- as.Date(unique(df$date1))
  selected_date2 <- as.Date(selected_date2)
  
  if (selected_date2 <= date1_fixed) return(df)
  
  X <- as.integer(selected_date2 - date1_fixed) + 1
  dr_cols <- grep("^DR", names(df), value = TRUE)
  to_remove <- head(dr_cols, min(X, length(dr_cols)))
  
  df %>% select(-all_of(to_remove))
}

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