在R语言中按8天间隔对DateTime序列进行年度分组的方法

需求说明 #

需要为DateTime序列按年度内8天间隔分配分组：

• 每年1月1日-1月8日为第1组，1月9日-1月16日为第2组，依此类推
• 全年共约46组，平年最后一组包含5天，闰年包含6天

示例数据 #

先构造示例日期序列（从2022年1月1日起，依次添加指定天数）：

x <- as.POSIXct("2021-12-31") + as.difftime(c(1:10,50,100,350,364,470), units="days")

实现方法 #

方法1：使用lubridate包（更直观）

借助lubridate::yday()提取日期在当年的天数，再通过向上取整计算分组：

# 加载lubridate包（若未安装先运行install.packages("lubridate")）
library(lubridate)

# 计算当年天数
day_of_year <- yday(x)
# 分配分组
group <- ceiling(day_of_year / 8)

方法2：基础R实现（无需额外包）

用strftime()提取当年天数的字符串，转成整数后计算分组：

# 提取当年天数并转成整数
day_of_year <- as.integer(strftime(x, "%j"))
# 分配分组
group <- ceiling(day_of_year / 8)

查看结果 #

将日期与分组绑定，验证结果：

data.frame(Date = x, Group = group)

原理说明 #

• yday()或strftime(x, "%j")能准确获取每个日期在当年的第几天（1到365/366）
• ceiling(day_of_year / 8)会把1-8天映射为第1组，9-16天映射为第2组……最后一组自动包含剩余的5/6天，完全符合规则

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