将R中的每月数据系列扩展为每周数据系列

我有一个monhtly数据系列，并希望使用R将其扩展到每周系列

我已经创建了一个空的每周数据框，并将其与带有月度数据的时间序列合并。然后我使用了

na.locf

函数，它用前面的值替换所有

na

值

weekly.data <- merge(monthlyTS, enmptyweekly)

weekly.data <- na.locf(weekly.data)

---

weekly.data我的直接想法是将它扩展到每日，并从那里获得每周平均值。这似乎可行，但可能有更简单/更快的解决方案

library(zoo)
par(mar=c(2, 2, 2, 1), mgp=c(3, 0.6, 0), mfrow=c(3, 1), cex=0.8)

mo <- seq(as.Date(1), as.Date(100), by="month")
zoo.mo <- zoo(seq_along(mo), mo)
plot(zoo.mo, type="b", pch=16, cex=0.5, main="monthly data")

zoo.da <- merge(zoo.mo, zoo(, seq(start(zoo.mo), end(zoo.mo)+15, by="day")))
zoo.da <- na.locf(zoo.da)
plot(zoo.da, type="b", pch=16, cex=0.5, main="daily data, constant interpolation")

zoo.we <- rollapply(zoo.da, 7, mean, by=7)
plot(zoo.we, type="b", pch=16, cex=0.5, main="weekly average")

weekdays(start(zoo.da))

图书馆（动物园）
par（mar=c（2,2,2,1），mgp=c（3,0.6,0），mfrow=c（3,1），cex=0.8）
莫：那么，它成功了吗？成功了，非常感谢：）很高兴听到。当一个答案符合问题的要求，或者是一系列答案中最有帮助的一个时，人们习惯于这样做。单击相关答案左上角向下箭头下方的复选标记即可完成此操作。