計算導數diff（）並保持長度 - 添加NA

Question

如何計算數據框中某列的數值導數（使用diff（）） 並通過添加NA值來保持長度？

Answer 1

從這個answer到我的問題在哪裏。

如果你正在尋找一種通用的方法前面加上NA

pad <- function(x, n) { 
    len.diff <- n - length(x) 
    c(rep(NA, len.diff), x) 
} 

x <- 1:10 
dif <- pad(diff(x, lag=1), length(x)) 

，但如果你不害怕在zoo庫把它更好地做：

library(zoo) 
x <- 1:5 
as.vector(diff(zoo(x), na.pad=TRUE)) # convert x to zoo first, then diff (that invokes zoo's diff which takes a na.pad=TRUE) 
# NA 1 1 1 1 (same length as original x vector) 

Answer 2

不明確的正是你想要NA的，但你可以正確的Concat他們。

dif <- c(NA, diff(dfrm$id, lag=1))