R 中的数据转换

我有一个包含 2 列的表格，我想根据第二列绘制值当前行之前的 5 行中第一列中的 N 个值的总和.

如何在 R 中实现这种转换而无需外部预处理？

Example:

文件：数据.csv

7,2
4,8
3,6
7,10
9,3
0,4
8,9
3,4
5,3
4,6

d = read.csv("data.csv", col.names=c("a","b"))
plot(??some_transform??(d$a), d$b)

some_transform应产生以下列：

7 = 7
7+4 = 11
7+4+3 = 14
7+4+3+7 = 21 # Up to this is optional, can start with row 5
7+4+3+7+9 = 30
4+3+7+9+0 = 23
3+7+9+0+8 = 27
7+9+0+8+3 = 27
9+0+8+3+5 = 25
0+8+3+5+4 = 20

所以，绘图输入是

7,2
11,8
14,6
21,10
30,3
23,4
27,9
27,4
25,3
20,6

嵌入函数将根据向量组装一个具有递增滞后的矩阵。看一眼：

 embed(DF[ , ], 5)

因此，如果打算从第 5 行开始工作，那么您可以使用以下结果：

 apply(embed(DF[ , 1], 5), 1,sum)
 plot(apply(embed(DF[ , 1], 5), 1,sum) , DF[-(1:4), 2])

编辑：根据更改的规范，在嵌入参数的开头添加 4 个零。我正在显示使用该方法的结果，以便更容易“可视化”嵌入第一个参数的扩展结果：

> embed( c(0,0,0,0, DF[ ,1 ]), 5)
      [,1] [,2] [,3] [,4] [,5]
 [1,]   80    0    0    0    0
 [2,]   80   80    0    0    0
 [3,]   80   80   80    0    0
 [4,]   81   80   80   80    0
 [5,]   82   81   80   80   80
 [6,]   82   82   81   80   80
 [7,]   83   82   82   81   80
 [8,]   83   83   82   82   81
 [9,]   90   83   83   82   82
[10,]   90   90   83   83   82
[11,]   90   90   90   83   83
[12,]   84   90   90   90   83
[13,]   84   84   90   90   90
[14,]   85   84   84   90   90
[15,]   85   85   84   84   90

（通常使用嵌入（参见上文），人们会得到一个缩短的数组，但我们的提问者愿意接受“导入”现象。）

apply(embed( c(0,0,0,0, DF[ ,1 ]), 5), 1,sum)
 plot( apply(embed( c(0,0,0,0, DF[ ,1 ]), 5), 1,sum), DF[, 2])