R：从滚动窗口创建一个数据框
假设我有一个具有以下结构的数据框：
DF <- data.frame(x = 0:4, y = 5:9)
> DF
x y
1 0 5
2 1 6
3 2 7
4 3 8
5 4 9
w x y
1 0 5
1 1 6
2 1 6
2 2 7
3 2 7
3 3 8
4 3 8
4 4 9
w x y
1 0 5
1 1 6
1 2 7
2 1 6
2 2 7
2 3 8
3 2 7
3 3 8
3 4 9
没有找到相关结果
已邀请:
1 个回复
抚驰
函数。首先要做的是在向量中创建一个滚动的索引序列。采取数据框架：df <- data.frame(x = 0:4, y = 5:9) nr <- nrow(df) w <- 3 # window size i <- 1:nr # indices of the rows iw <- embed(i,w)[, w:1] # matrix of rolling-window indices of length w > iw [,1] [,2] [,3] [1,] 1 2 3 [2,] 2 3 4 [3,] 3 4 5 wnum <- rep(1:nrow(iw),each=w) # window number inds <- i[c(t(iw))] # the indices flattened, to use below dfw <- sapply(df, '[', inds) dfw <- transform(data.frame(dfw), w = wnum) > dfw x y w 1 0 5 1 2 1 6 1 3 2 7 1 4 1 6 2 5 2 7 2 6 3 8 2 7 2 7 3 8 3 8 3 9 4 9 3