r - quantmod adjustmentOHLC 函数 - 股息调整价格

Question

我需要帮助来解释使用 quantmod::adjustOHLC 股息调整后价格的差异。

获取 AAPL 调整后和未调整的价格:

library(quantmod)
getSymbols("AAPL")
AAPL.adjusted <- adjustOHLC(AAPL, adjust=c("dividend"), symbol.name="AAPL")

AAPL 的最后一次股息是在 2016 年 8 月 4 日，股息为 0.57 美分。

div <- getDividends("AAPL", from = "1900-01-01")
tail(div)
#            [,1]
# 2015-05-07 0.52
# 2015-08-06 0.52
# 2015-11-05 0.52
# 2016-02-04 0.52
# 2016-05-05 0.57
# 2016-08-04 0.57

在 2016 年 5 月 5 日至 2016 年 8 月 3 日期间，当 adjustOHLC 被要求仅调整股息时，我的预期是从这些日期的 OHLC 价格中扣除 0.57 美分。

但是，在计算时我没有看到 0.57 美分的精确差异未调整收盘价和调整收盘价之间的差异。

div <- coredata(AAPL["2016-05-05/2016-08-03"][,"AAPL.Close"] -
       AAPL.adjusted["2016-05-05/2016-08-03"][,"AAPL.Close"])
hist(div)

在绘制的直方图中，大多数价格都不接近 0.57。

查看adjustOHLC的代码，计算出的调整因子为感兴趣的日期范围相同

div <- getDividends("AAPL", from = "1900-01-01")
splits <- getSplits("AAPL", from = "1900-01-01")
div <- div * 1/adjRatios(splits=merge(splits, index(div)))[, 1]
ratios <- adjRatios(splits, div, Cl(AAPL))
length(ratios["2016-05-05/2016-08-03"][, "Div"])
# [1] 63
table(ratios["2016-05-05/2016-08-03"][, "Div"])
# 0.994611967155573
#                63

为什么未经调整和调整后的收盘价差异如此之大？

Answer 1

quantmod::adjustOHLC 的计算是正确的。差异在于您的假设和期望。

没有理由预期未经调整和调整后的收盘价之间的差异等于股息金额，除非除息日和收盘价与除息日相同的任何其他日期。

您甚至注意到，“计算的调整因素对于感兴趣的日期范围是相同的”(强调是添加的)。调整系数将保持不变，直到再次进行股息或分割。调整后的收盘价是通过将调整因子乘以未调整的收盘价来计算的。

如果您只是从所有之前的收盘价中减去股息金额，您就会改变返回，甚至可能导致收盘价变为负值!