我想爲下面的數據集計算移動差異。

Question

如何添加另一列與移動差異Column2？

比如：我要添加一列在那裏將有以下值：（0，-372706.6，-284087.1，-119883.7等）

Answer 1

這裏有一個方法去它。

## For a small dataset 

x <- data.frame(matrix(nrow=7,ncol=2,c(0,12,1,10,2,9.5,3,8,4,7,5,5,6,2),byrow = T)) 
names(x) <- c("Time","Count") 

x[1,"Diff"] <- NA 
x[2:nrow(x),"Diff"] <- rev(diff(rev(x$Count))) 

有一種方法可以用plyr包來完成。