如何用R dplyr生成每月最后一天的月度数据集？解决RMarkdown报错

错误原因 #

你遇到的max(day)报错，核心是列名day和R内置函数（比如lubridate包的day()）重名。R脚本环境可能未加载lubridate，而RMarkdown通常默认加载tidyverse全家桶（包含lubridate），导致调用max(day)时，R把day识别成函数而非数据列，触发类型错误。

快速修复方案 #

方案1：用.data代词明确指定列 #

在dplyr管道里用.data$day替代直接写day，强制R识别为数据列：

library(tidyverse)

monthly_portfolio <- portfolio %>%
  mutate(year_month = floor_date(date, "month")) %>%
  group_by(year_month) %>%
  filter(day == max(.data$day)) %>%
  ungroup()

方案2：重命名冲突列 #

直接把数据里的day列改成不冲突的名字，比如trading_day：

portfolio <- portfolio %>% rename(trading_day = day)

monthly_portfolio <- portfolio %>%
  mutate(year_month = floor_date(date, "month")) %>%
  group_by(year_month) %>%
  filter(trading_day == max(trading_day)) %>%
  ungroup()

更优的月度最后一天筛选写法 #

不用单独提取day列，直接基于完整日期处理更可靠（避免跨月特殊情况，比如2月28/29日、31日等）：

方法1：按年月分组取最后一行 #

如果每组最后一行就是当月最后交易日，直接用slice_tail()：

library(tidyverse)
library(lubridate)

monthly_portfolio <- portfolio %>%
  mutate(year_month = floor_date(date, "month")) %>%
  group_by(year_month) %>%
  slice_tail(n = 1) %>%
  ungroup()

方法2：筛选等于当月最大日期的行 #

如果数据里可能有非连续交易日，确保取的是当月实际存在的最后一天：

monthly_portfolio <- portfolio %>%
  group_by(year = year(date), month = month(date)) %>%
  filter(date == max(date)) %>%
  ungroup() %>%
  select(-year, -month)  # 按需保留或删除临时分组列

方法3：用ceiling_date匹配当月最后一天 #

monthly_portfolio <- portfolio %>%
  mutate(month_end = ceiling_date(date, "month") - days(1)) %>%
  filter(date == month_end) %>%
  select(-month_end)

这些写法都避免了列名和函数名的冲突，同时更贴合日期处理的规范逻辑，在R脚本和RMarkdown里都能稳定运行。

内容的提问来源于stack exchange，提问作者Rodrigo H. Ozon