在R中，计算滞后值的时间序列差

Question

你好，我的数据框架看起来是这样的很多年和产品:

product<-c(1,2,3)
yr1<-c(109,213,30)
yr2<-c(613,488,125)
yr3<-c(729,494,127)
df<-data.frame(product,yr1,yr2,yr3)

我需要对它进行转换，使第一个年份之后的值是当前值与前一个(滞后)值的差，因此它看起来像这样:

yr2<-c(504,275,95)
yr3<-c(116,6,2)
df<-data.frame(product,yr1,yr2,yr3)

以613-109= 504,729 -613=116等

我该怎么做?

Answer 1

dplyr选项与cur_data，它使数据的副本减去每一列与它的前一列:

library(dplyr)
df %>% 
mutate(cur_data()[,c(-2)] - cur_data()[-ncol(.)]) %>%
mutate(product = df$product)

输出:

product yr1 yr2 yr3
1       1 109 504 116
2       2 213 275   6
3       3  30  95   2

Answer 2

Try

df[,tail(grep("yr",colnames(df)),-1)]-df[,head(grep("yr",colnames(df)),-1)]
yr2 yr3
1 504 116
2 275   6
3  95   2

Answer 3

另一种dplyr方法:

library(dplyr)
df %>% 
mutate(yr1 = NULL, across(-product, ~ .x-df[which(cur_column() == names(df))-1]))
#>   product yr1 yr2
#> 1       1 504 116
#> 2       2 275   6
#> 3       3  95   2