【问题标题】：How to do single column operations in xts如何在xts中进行单列操作
【发布时间】：2015-12-25 06:10:41
【问题描述】：

我想在 xts 数据集中进行单列操作。我有一个非常大的数据集，所以我从中删除了一些数据和日期。下面的数据集是用excel计算的，只显示了从头到尾的一些数据。

  Date      a           b        c
    -       0.023       
    -       0.021   0.0214830   
    -       0.014   0.0142940   0.021483
    -       0.008   0.0081120   0.014294
    -       0.003   0.0030240   0.008112
    -       0.002   0.0020060   0.003024
    -       0       0           0.002006
    -       0       0           0
    -       0       0           0
    -       0       0           0
    -       0.001   0.0010000   0
    -       0.003   0.0030030   0.001
    -       0.005   0.0050150   0.003003
    -       0.001   0.0010050   0.005015
    -       0       0           0.001005
    -       -0.001  -0.0010000  0
    -       0.002   0.0019980   -0.001
    -       0.003   0.0030060   0.001998
    -       .       .            .
    -       .       .            .
    -       .       .            .
    -       .       .            .
    -       .       .            .
    -       .       .            .
    -       .       .
    -       0.019   0.01938     0.02042
    -       0.015   0.0152850   0.01938
    -       0.013   0.0131950   0.015285

在上面的数据集中a是我的初始数据，用于计算b和c。 b 是使用这个公式计算的 b2=(a2*a1)+a2 (eg:(0.021*0.023)+0.021=0.021483) 和 c 是通过移动 b 下一行c3=b2。

我的问题是如何在 R xts 数据集中进行这些操作

已编辑

如何在 xts 中向上移动一列。下面的转换是 d1=a3

 Date         a       d
    -       0.023   0.014
    -       0.021   0.008
    -       0.014   0.003
    -       0.008   0.002
    -       0.003   0
    -       0.002   0
    -       0       0
    -       0       0
    -       0       0.001
    -       0       0.003
    -       0.001   0.005
    -       0.003   0.001
    -       0.005   0
    -       0.001   -0.001
    -       0       0.002
    -       -0.001  0.003
    -       0.002   0.024
    -       0.003   0.015
    -       .       .
    -       .       .
    -       .       .
    -       .       .
    -       .       .
    -       .       0.019
    -       .       0.015
    -       0.019   0.013
    -       0.015   0
    -       0.013   0

我试过这个method

shift <- function(x, n){
  c(x[-(seq(n))], rep(NA, n))
}
d<-shift(df$a,2)

但它给出了这个错误

try.xts(NA) 中的错误：as.xts.logical(x, ..., .RECLASS = 中的错误 TRUE) : order.by 必须是 'names()' 或以其他方式指定

【问题讨论】：

与在 data.frame 上执行此操作的方式相同。

标签： r xts

【解决方案1】：

Pascal 是正确的，您可以像在 data.frame 上操作一样进行操作。这是一个例子：

library(xts)

Ex <- xts(1:10, Sys.Date()+1:10)
names(Ex) <- "a"
Ex$b <- (Ex$a*lag(Ex$a))+Ex$a
Ex$c <- lag(Ex$b)

上面的结果如下：

##             a   b  c
## 2015-12-25  1  NA NA
## 2015-12-26  2   4 NA
## 2015-12-27  3   9  4
## 2015-12-28  4  16  9
## 2015-12-29  5  25 16
## 2015-12-30  6  36 25
## 2015-12-31  7  49 36
## 2016-01-01  8  64 49
## 2016-01-02  9  81 64
## 2016-01-03 10 100 81

编辑：回答已编辑的问题

要创建 d1=a3 的列，只需将函数中的对象更改为矩阵即可。也许有人可以填补空白，但至少现在可以了。

shift <- function(x, n){
  xMat <- as.matrix(x)
  c(xMat[-(seq(n))], rep(NA, n))
}

Ex$d <- shift(Ex$a, 2)

这会产生：

##             a   b  c  d
## 2015-12-26  1  NA NA  3
## 2015-12-27  2   4 NA  4
## 2015-12-28  3   9  4  5
## 2015-12-29  4  16  9  6
## 2015-12-30  5  25 16  7
## 2015-12-31  6  36 25  8
## 2016-01-01  7  49 36  9
## 2016-01-02  8  64 49 10
## 2016-01-03  9  81 64 NA
## 2016-01-04 10 100 81 NA

【讨论】：

虽然该示例使用 dplyr::lag 来滞后时间序列中的值，但有趣的是，使用 dplyr::lead 执行相同操作时会出现错误消息。任何想法为什么会发生这种情况以及如何解决它？
@SNovogoratz 我使用的是内置的 lag 函数，而不是 dplyr。