我想为下面的数据集计算移动差异。

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包来完成。