如何在R语言中正确筛选每月最后一天对应的向量索引？

问题描述 #

生成2013年全年日期序列的代码：

d1 <- as.Date(paste0("2013-01-","01"), "%Y-%m-%d")
d2 <- as.Date(paste0("2013-12-","31"), "%Y-%m-%d")
dat <- format(seq(d1,d2,by="day"), "%Y-%m-%d")
m <- as.numeric(format(as.Date(dat), "%d"))

尝试筛选每月最后一天索引时使用了以下代码：

i <- (m == c(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31))

但结果中所有日期为30日和31日的位置都被标记为TRUE，不符合预期。

问题原因 #

R的向量回收机制导致了这个问题：当长度不同的向量进行比较时，短向量会被循环重复以匹配长向量的长度。这里m是365个元素的向量，而右侧的月份最后一天向量只有12个元素，所以这个12元素向量会被重复30余次来和m逐元素比较，只要m中的日数等于这12个值里的任意一个（31、28、30），就会返回TRUE，而非对应月份的最后一天。

解决方案 #

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

直接利用日期特性，判断每个日期的下一天是否属于下一个月份，或当前日期是否等于当月最后一天：

# 将字符型日期转回Date类型（保留Date类型更便于日期操作）
dat_date <- as.Date(dat)

# 方式一：计算每个日期对应月份的最后一天，再匹配
month_num <- as.POSIXlt(dat_date)$mon + 1  # 提取月份（1-12）
month_last_days <- c(31,28,31,30,31,30,31,31,30,31,30,31)[month_num]
last_days <- as.Date(paste0(format(dat_date, "%Y-%m-"), month_last_days))
i <- dat_date == last_days

# 方式二：更简洁的判断逻辑——下一天的月份与当前不同，即为当月最后一天
i <- format(dat_date + 1, "%m") != format(dat_date, "%m")

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

lubridate包提供了专门的日期处理函数，可快速获取每月最后一天：

library(lubridate)

dat_date <- as.Date(dat)
# 获取每个日期所在月份的最后一天
last_days <- ceiling_date(dat_date, "month") - days(1)
# 筛选索引
i <- dat_date == last_days

以上两种方法得到的i都会准确标记出2013年每月最后一天的索引，仅对应位置返回TRUE。

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