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

我目前正在尝试将季度GDP数据转换为月度数据，并将其作为时间序列。我以前找到了一种方法，但是，我丢失了它的代码，无法再找到它。我的数据需要从1997-01-01到2018-12-01，以及我从Fred数据库中获取的原始数据

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

库（pdfetch）
GDP.1欢迎来到SO！如果您愿意使用库，我通常会发现
lubridate
和
zoo
的日期/时间函数非常有用。我不知道有谁会马上处理25美分硬币，但我认为可能有一个函数只是为了满足您的需要。您可以使用dput（）提供一些数据集吗？以下是部分代码，整个代码太长，无法发布<代码>结构（c（164.164、245.968、245.968、249.58585、259.745、265.745、2652.567、279.196、280.366、280.366、280.164、280.164、245.164、245.1644.1644、245.1644.1647、279.567、280.366、280.366、280.366、280.366、280.366、280.366、280.366、280.366、2757、2757、280.367、280.367、2757、2750.367、2757、2757、2750.367、2750.367、2757、2750.367、2757、2750.034、2757、2757、2750.287、2750.287、2710.357、2710.357、2710.357、2710.2844800、1475193600、14831424014309918400、149880800、1506729600、1514678400、1522454400、1530316800、1538265600、1546214400、1553990400、1561852800、15698801600）、tzone=“UTC”、tclass=“Date”、class=c（“xts”、“zoo”）、.indexCLASS=“Date”、tclass=“Date”、.indexTZ=“UTC”、tzone=“UTC”、.Dimnames=list（NULL，“GDP”）``请使用dput（头（您的数据框，10））仅获取前10行，然后粘贴到此处
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)