如何使用R语言data.table将季度数据转换为月度数据？

我来帮你搞定这个季度转月度的需求，用data.table的原生语法就能轻松实现，而且效率很高，毕竟data.table处理这种数据扩张场景很拿手。

方法一：纯data.table原生实现 #

不需要额外加载其他包，用base R的日期函数配合data.table的分组操作就能完成：

library(data.table)
set.seed(1)
DT <- data.table(dates=c(as.Date("1983-03-31"), as.Date("1983-06-30"), as.Date("1983-09-30"), as.Date("1983-12-31"), as.Date("1984-03-31"), as.Date("1984-06-30"), as.Date("1984-09-30"), as.Date("1984-12-31"), as.Date("1985-03-31"), as.Date("1985-06-30"), as.Date("1985-09-30")), var=rnorm(11))

# 1. 给每个季度计算对应的季度起始月份最后一天，以及标记季度末日期
DT[, `:=`(
  quarter = dates,  # 用原季度末日期作为季度标识
  qtr_first_month_last = as.Date(paste0(year(dates), "-", (quarter(dates)-1)*3 +1, "-01")) - 1
)]

# 2. 按季度分组，生成该季度对应的三个月月度末日期，并保留原var值
DT_monthly <- DT[, .(month_dates = seq(qtr_first_month_last, dates, by = "month")), by = .(quarter, var)]

# 3. 调整列顺序，让结果更贴合你的期望输出
setcolorder(DT_monthly, c("month_dates", "quarter", "var"))

# 查看结果
DT_monthly

方法二：用lubridate简化日期处理 #

如果你的项目已经在使用lubridate包，用它的日期工具可以让代码更简洁易读：

library(data.table)
library(lubridate)
set.seed(1)
DT <- data.table(dates=c(as.Date("1983-03-31"), as.Date("1983-06-30"), as.Date("1983-09-30"), as.Date("1983-12-31"), as.Date("1984-03-31"), as.Date("1984-06-30"), as.Date("1984-09-30"), as.Date("1984-12-31"), as.Date("1985-03-31"), as.Date("1985-06-30"), as.Date("1985-09-30")), var=rnorm(11))

# 1. 获取每个季度的起始日期
DT[, qtr_start := floor_date(dates, "quarter")]

# 2. 生成季度内的三个月月度末日期，分组保留季度标识和var值
DT_monthly <- DT[, .(month_dates = seq(qtr_start, dates, by = "month") - days(1)), by = .(quarter = dates, var)]

# 调整列顺序
setcolorder(DT_monthly, c("month_dates", "quarter", "var"))

# 查看结果
DT_monthly

结果说明 #

两种方法都会生成你期望的月度数据：每个季度对应的三个月末日期（比如1983-01-31、1983-02-28、1983-03-31对应Q1 1983），同时把原季度的var值填充到这三个月的行里，并且保留了原季度的标识（quarter列）。

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