r - quantmod中是否有类似于“periodReturn”的函数来计算普通差异？

Question

我需要计算不同周期（每天/每周/每月）的时间序列（例如价格）的差异。在 quantmod（例如 tidyquant 中的 tq_transmute 包装器）中，我可以对算术和对数返回执行类似的操作（使用函数“periodReturn”）。这里的好处是我会自动获得每日/每月/每周的行。是否有一个函数可以为纯粹的差异做类似的事情？

我试图搜索文档并没有找到合适的功能。

Answer 1

可以通过使用库中的endpoints函数来获取差异xts。假设您使用该getSymbols函数创建了一个 AAPL 对象：

getSymbols('AAPL',from='2019-01-01', to = '2019-05-31’)

每月差异：

monthlyDif <- AAPL$AAPL.Adjusted -  lag(AAPL[endpoints(AAPL, on = 'months'),"AAPL.Adjusted"])

monthlyDif
           AAPL.Adjusted
2019-01-31            NA
2019-02-28      7.392303
2019-03-29     16.735565
2019-04-30     10.678879
2019-05-30    -21.600189

请注意，通过使用on参数和k参数的组合，您还可以获得从毫秒到数年的差异或像 2 周差异等倍数。

即获得2周的差异：

    twoWeeksDif <- AAPL$AAPL.Adjusted -  lag(AAPL[endpoints(AAPL, on = 'weeks',k = 2),"AAPL.Adjusted"])

twoWeeksDif
           AAPL.Adjusted
2019-01-04            NA
2019-01-18      8.490769
2019-02-01      9.621521
2019-02-15      4.593429
2019-03-01      4.532547
2019-03-15     11.107224
2019-03-29      3.815307
2019-04-12      8.885773
2019-04-26      5.409180
2019-05-10     -6.336273
2019-05-24    -18.209992
2019-05-30     -0.669998