R语言中如何从数据框提取季度末日期对应的数据？

1. 先修复日期格式问题 #

你遇到的错误根源是Date_Monthly字段为字符串格式，且不符合lubridate可自动识别的标准格式。第一步必须将其转换为R的日期类型：

假设你的Date_Monthly是YYYY-MM（比如"2023-01"）这种年月格式，先把它转成当月最后一天的标准日期：

library(lubridate)
library(dplyr)

# 转换为当月最后一天的日期对象
df1 <- df1 %>%
  mutate(Date_Monthly = ymd(paste0(Date_Monthly, "-01")) %>% rollback(roll_to_first = FALSE))

如果是MM/YYYY（比如"01/2023"）格式，调整解析方式：

df1 <- df1 %>%
  mutate(Date_Monthly = mdy(paste0("01/", Date_Monthly)) %>% rollback(roll_to_first = FALSE))

2. 提取季度信息并获取季度末日期 #

日期格式正常后，就可以用quarter()函数提取季度，同时用ceiling_date()计算对应季度的最后一天：

df1 <- df1 %>%
  mutate(
    Quarter = quarter(Date_Monthly),  # 提取季度（1-4）
    Quarter_End_Date = ceiling_date(Date_Monthly, unit = "quarter") - days(1)  # 季度末日期
  )

3. 筛选季度末对应的数据 #

如果要直接提取每个季度末当月的数据，用filter()匹配日期即可：

quarter_end_data <- df1 %>%
  filter(Date_Monthly == Quarter_End_Date)

处理混合格式的情况 #

如果你的Date_Monthly存在多种格式混合，用parse_date_time()来兼容：

df1$Date_Monthly <- parse_date_time(df1$Date_Monthly, orders = c("ym", "my", "dmy")) %>%
  rollback(roll_to_first = FALSE)

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