0

我有一些数据格式如下。我对此进行了一些分析,并希望能够在与分析数据相同的图表中绘制价格发展。这要求我对数据有相同的 x 轴。

所以我想以 150 个增量聚合“shares”列,并在其中添加“finalprice”和“time”。聚合应包括最新的时间和价格,因此如果需要在两行或多行数据上进行聚合,则最后一行应提供价格和时间数据。

我的问题是如何创建一个每行有 150 个共享的新向量。向量的长度将等于 sum(shares)/150。

是否有捷径可寻?提前致谢。

编辑:我考虑过使用 rep(finalprice, share) 扩展观察结果,然后获取扩展向量的每 150 个值。

数据样本:

"date","ord","shares","finalprice","time","stock"
20120702,E,2000,99.35,540.84753333,500
20120702,E,28000,99.35,540.84753333,500
20120702,E,50,99.5,542.03073333,500
20120702,E,13874,99.5,542.29411667,500
20120702,E,292,99.5,542.30191667,500
20120702,E,784,99.5,542.30193333,500
20120702,E,13300,99.35,543.04805,500
20120702,E,16658,99.35,543.04805,500
20120702,E,42,99.5,543.04805,500
20120702,E,400,99.4,546.17173333,500
20120702,E,100,99.4,547.07,500
20120702,E,2219,99.3,549.47988333,500
20120702,E,781,99.3,549.5238,500
20120702,E,50,99.3,553.4052,500
20120702,E,1500,99.35,559.86275,500
20120702,E,103,99.5,567.56726667,500
20120702,E,1105,99.7,573.93326667,500
20120702,E,4100,99.5,582.2657,500
20120702,E,900,99.5,582.2657,500
20120702,E,1024,99.45,582.43891667,500
20120702,E,8214,99.45,582.43891667,500
20120702,E,10762,99.45,582.43895,500
20120702,E,1250,99.6,586.86446667,500
20120702,E,5000,99.45,594.39061667,500
20120702,E,20000,99.45,594.39061667,500
20120702,E,15000,99.45,594.39061667,500
20120702,E,4000,99.45,601.34491667,500
20120702,E,8700,99.45,603.53608333,500
20120702,E,3290,99.6,609.23213333,500
4

1 回答 1

0

我想我已经解决了。

expand <- rep(finalprice, shares) 

Increment <- expand[seq(from = 1, to = length(expand), by = 150)]
于 2012-12-12T12:57:05.050 回答