【发布时间】：2014-05-19 11:32:26
【问题描述】：
我有几年的每日价格数据作为动物园对象。在 R 中对“每个”月的最后一周进行子集化的最佳方法是什么？
复制它的方法如下：
set.seed(123)
price <- rnorm(365)
data <- cbind(seq(as.Date("2013-01-01"), by = "day", length.out = 365), price)
zoodata <- zoo(data[,2], as.Date(data[,1]))
我试过这个选项，但它只返回整个数据集的最后一周。
do.call(rbind, lapply(split(zoodata, "months"), last, "1 week"))
结果输出是：
2013-12-30 2013-12-31
1.0246732 0.8176594
我希望得到每个月的最后一周，因此应该有至少 12 周的数据。
提前致谢！
【问题讨论】：
-
请阅读this，了解如何为您的问题制作一个可重现的最小示例。您还应该展示到目前为止您已经尝试过的内容以及不成功的地方。
-
感谢您的耐心等待。我添加了代码以使其可重现。