R语言如何无需转置直接删除列名为指定日期及更早日期的列

核心思路是直接对列名做日期格式转换，和指定阈值做比较后直接筛选列即可，不需要对数据集做转置操作。

基础R实现（无需加载第三方包） #

# 1. 定义截止日期
cutoff_date <- as.Date("2019-01-31")

# 2. 转换所有列名为日期格式，非日期格式的列名会转换为NA
col_as_date <- as.Date(names(df))

# 3. 确定要保留的列：非日期列（转换结果为NA）+ 列名日期晚于截止日期的列
keep_cols <- is.na(col_as_date) | col_as_date > cutoff_date

# 4. 筛选得到结果
df_result <- df[, keep_cols]

tidyverse实现（dplyr语法） #

library(dplyr)

cutoff_date <- as.Date("2019-01-31")

df_result <- df %>% 
  select(
    # 保留所有非日期列名的列
    !where(~is.na(as.Date(cur_column()))) |
    # 保留列名日期晚于截止值的列
    where(~as.Date(cur_column()) > cutoff_date)
  )

补充说明 #

如果你的列名日期不是YYYY-MM-DD的标准格式，只需要在as.Date函数中指定对应格式即可，比如列名是月/日/年格式时，改为as.Date(names(df), format = "%m/%d/%Y")即可正常转换。

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