如何在 R 中的滞后操作中使用向量

Question

在R中，我们如何在lag函数中使用向量而不是元素。 即对于 Lag(x，k=2(; 而不是 2 我想使用一个向量，因为我想将每一行滞后一个不同的值。因此，一行的滞后可能是 3，而 1 可能是 0，依此类推。

例：

a #lags d
1 0     1 
2 1     1
4 2     1
3 0     3
1 1     3

Answer 1

我认为您可能需要为此任务编写自己的函数。 我写了一个我认为是你需要的，或者可能为你指明正确的方向：

x1 <- c(75,98,65,45,78,94,123,54) #a fake data set for us to lag
y1 <- c(2,3,1,4,1,2,3,5) #vector of values to lag by
#the function below takes the data, x1, and lags it by y1
dynlag <- function(x,y) {
a1 <- x[length(x)-y]
return(a1)
}
#test out the function
dynlag(x1,y1)

希望这有帮助。 :)

Answer 2

下面是一个索引演算的解决方案：

D <- read.table(header=TRUE, text=
'a lags d
1 0     1 
2 1     1
4 2     1
3 0     3
1 1     3')
i <- seq(length(D$a))
erg <- D$a[i - D$lags]
all.equal(erg, D$d)