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

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包。