将每日 xts 值更改为 R 中的每月期权到期 OHLCV xts答案

【问题标题】：Change daily xts values to monthly option expiration OHLCV xts in R将每日 xts 值更改为 R 中的每月期权到期 OHLCV xts
【发布时间】：2016-07-07 18:38:16
【问题描述】：

我想将 xts 对象的每日值更改为每月到期的 OHLCV 数据。我想我可以使用quantmod::options.expiry 这样做...

library("quantmod")

# get SPX daily values
SPX <- getSymbols("^GSPC",from="2016-01-01",auto.assign=FALSE)

# option expiration rows/dates using options.expiry()
spx_expiry <- SPX[options.expiry(SPX),]

# spx_expiry will only return the closing values for option expiration **day**
# it is missing the OHLCV data in between expiration months. 
# The Close/Adjusted columns are correct but the Open, High, Low, Volumes
# columns are incorrect. 

# Here is what I have tried:
period.apply(SPX,INDEX=options.expiry(SPX),FUN=function(x) to.monthly(x,indexAt='firstof'))

【问题讨论】：

标签： r xts quantmod

【解决方案1】：

您可以自己创建 OHLCV 柱，并仔细考虑汇总的每月数据的时间戳（您想要柱的开始还是结束作为时间戳值等），如下所示：

m2 <- period.apply(SPX,INDEX=options.expiry(SPX),FUN=
                    function(x) {
                      xts(x = matrix(c(coredata(Op(x))[1], max(coredata(Hi(x))), min(coredata(Lo(x))), coredata(Cl(x))[NROW(x)],
sum(coredata(Vo(x)))), nrow =1), order.by= index(x)[1])
                      })

# period.apply operates the `x` data rows between FUN(x[(INDEX[y] + 1):INDEX[y + 1]], ...)
# And you want bar timestamp to be at the start of the interval:

ep_times <- index(SPX[options.expiry(SPX) + 1])
out <- xts(order.by = ep_times[-length(ep_times)], x = m2, dimnames = list(NULL, c("Open", "High", "Low", "Close", "Volume")))

head(out)
              Open    High     Low   Close       Volume
2016-01-19 1888.66 1947.20 1810.10 1917.78 112760980000
2016-02-22 1924.44 2052.36 1891.00 2049.58  90177630000
2016-03-21 2047.88 2087.84 2022.49 2080.73  69548230000
2016-04-18 2078.83 2111.05 2025.91 2052.32  96873130000
2016-05-23 2052.23 2120.55 2047.26 2071.22  68773770000

【讨论】：

正是我想要的。非常感谢！