R语言使用dplyr筛选最大日期至最大日期减7天的最近7天数据

报错原因 #

你代码的问题主要有三点：

• 区间逻辑写反：你需要的是日期大于等于最大日期减7天，小于等于最大日期，原代码的不等式方向完全相反，不存在符合条件的区间
• 运算顺序错误：max(date -7)是先对全表所有日期减7再取最大值，你实际需要的是先取全表最大日期，再减7天得到7天前的分界点
• 潜在问题：如果date列未转换为R的Date类型，直接做数值运算会触发类型错误；如果date列存在空值，max()计算会返回NA导致筛选失效

正确代码 #

最简写法（无需额外依赖包） #

因为全表所有日期天然小于等于最大日期，所以可以省略右侧边界判断：

%>%
  filter(date >= max(date, na.rm = TRUE) - 7)

如果要完整写全区间的写法如下，逻辑更清晰：

%>%
  filter(
    date >= max(date, na.rm = TRUE) - 7,
    date <= max(date, na.rm = TRUE)
  )

更稳妥的lubridate写法（避免跨月/跨年日期运算异常） #

如果已经安装lubridate包，用时间类型运算更规范，可读性也更强：

library(lubridate)

%>%
  filter(date >= max(date, na.rm = TRUE) - days(7))

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