如何在R中将季度数据转换为每月数据？

Question

我目前正在尝试将季度GDP数据转换为月度数据，并使其成为一个时间序列。我之前想出了一种方法，但是我为此丢失了代码，无法再次解决。我的数据需要跨度为1997年1月1日至2018年12月1日，以及我从Fred数据库中获取的原始数据。

library(pdfetch)
GDP.1 <- pdfetch_FRED("GDP")

我的代码看起来像这样...

GDP.working <- seq(as.Date(GDP.1, "1997/1/1"),
                    by = "month",
                    length.out = 252)

xts.1 <- xts(x = rep(NA,252),
            order.by = seq(as.Date("1997/1/1"), 
                           by = "month", 
                           length.out = 252),
            frequency = 12)

xts.GDP.1 <- merge(GDP.working, xts.1)

GDP.final <- na.locf(xts.GDP.1, fromLast = TRUE)

任何建议/方法将不胜感激。 感谢您的时间。 ERV