如何在 getSymbols 中返回从星期一开始的每周数据

【问题标题】：How to return weekly data starting from Monday in getSymbols如何在 getSymbols 中返回从星期一开始的每周数据
【发布时间】：2021-05-22 12:28:44
【问题描述】：

如果在星期六运行此 getSymbols 函数，它将仅返回完整周的数据，即它将省略当前周数据，并且仅返回 2021 年 5 月 15 日之前的数据

 d <- as.data.frame(
      getSymbols(
        paste("WIPRO" , ".NS", sep = ""),
        from ="2000-01-01", 
        periodicity = "weekly",
        return.class = 'zoo',
        env = NULL
      )
    )

如果我想让这个函数返回今天或最新的数据，我该如何修改这个函数？

如果我添加to = "2021-05-22"参数，它会返回记录但它是用NA填充的。

【问题讨论】：

标签： r quantmod stockquotes

【解决方案1】：

您可以通过使用每日数据然后将其汇总到每周来解决此问题。

library(quantmod)

daily.x <- getSymbols(
  paste("WIPRO" , ".NS", sep = ""),
  from ="2000-01-01", 
  auto.assign = FALSE
)

weekly.x <- to.period(daily.x, period = "weeks")
tail(weekly.x)
           x.Open x.High  x.Low x.Close  x.Volume x.Adjusted
2021-04-16 450.00 473.65 412.60  469.20 171627114     469.20
2021-04-23 463.00 494.50 461.10  475.70 117757478     475.70
2021-04-30 479.40 511.80 477.00  492.75  62896349     492.75
2021-05-07 487.95 516.55 477.80  515.25  67638876     515.25
2021-05-14 517.60 528.50 492.75  498.45  34864957     498.45
2021-05-21 498.45 517.80 495.00  512.70  34113599     512.70

【讨论】：