R編程-dplyr包

Question

對於要在R中使用dplyr包進行編碼的財務模型，我需要參考lag ged和lead變量值，但我似乎無法獲得按記錄工作的lag函數的代碼。

> library(dplyr) 
> x <- seq(100,500,100) 
> x 
[1] 100 200 300 400 500 
> lead(x,1) 
[1] 200 300 400 500 NA 
> lag(x,1) 
Error in lag(x, 1) : unused argument (1) 
> 

我期待lag(x,1)導致：NA 100 200 300 400。 有什麼建議？謝謝。

Answer 1

lag與R有點奇怪的功能。它只適用於預期與時間序列對象。例如：

cbind(x = ts(1:10), y = lag(1:10, -1)) 

爲您提供：

x y 
    1 NA 
    2 1 
    3 2 
    4 3 
    5 4 
    6 5 
    7 6 
    8 7 
    9 8 
    10 9 
    NA 10 

如果你想快速和骯髒的功能，你想我會用這個東西：

lag_n <- function(x, n) {c(rep(NA, n), x)[1:length(x)])} 

在你的情況下，給出：

lag_n(seq(100,500,100),1) 
[1] NA 100 200 300 400 

編輯：哎呀。這是在談論stats::lag。我得到了預期的結果dplyr::lag。雖然我會在這裏留待未來。