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

I want to calculate a moving difference for my dataset below.

如何添加另一个具有 Column2 移动差异的列?

例如:我想添加一个包含以下值的列:(0,-372706.6,-284087.1,-119883.7 等)

这是一种解决方法。

## 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 包也有办法做到这一点。