如何使用Sys.Date()提取当前年份并自动拆分R语言数据集？

当然可以用Sys.Date()来实现自动化拆分，完全不用每年手动修改年份值！下面给你具体的实现步骤和修改后的代码：

核心思路 #

我们可以通过format(Sys.Date(), "%Y")动态提取当前系统时间的年份，再把它拼接成当年的年初日期（比如202X-01-01），用这个动态生成的日期作为过滤条件，就能自动拆分数据集了。

修改后的代码 #

首先生成动态的当年年初日期：

# 获取当前年份的年初日期，转换成POSIXct类型匹配你的PS_DATE字段
current_year_start <- as.POSIXct(paste0(format(Sys.Date(), "%Y"), "-01-01"))

然后用这个变量来拆分数据集：

data <- discrete_8 %>% filter(PS_DATE >= current_year_start) # 当前年份数据
data2 <- discrete_8 %>% filter(PS_DATE < current_year_start) # 往年数据

额外小提示 #

如果你的PS_DATE字段是Date类型而不是POSIXct，可以把转换函数换成as.Date()，避免类型不匹配的问题：

current_year_start <- as.Date(paste0(format(Sys.Date(), "%Y"), "-01-01"))

这样不管到2022年还是之后的任何年份，脚本都会自动用当前年份来拆分数据，再也不用手动修改年份数值啦！

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