2012-10-11 54 views
0

我試圖對基於時間的高/低點聚類進行研究。我設法實現上述通過使用關於盤中數據to.daily並使用合併兩個:當日高/低集羣

intraday.merge <- merge(intraday,daily) 
intraday.merge <- na.locf(intraday.merge) 
intraday.merge <- intraday.merge["T08:30:00/T16:30:00"] # remove record at 00:00:00 

接着,我試圖獲得其中高== daily.high /低==使用daily.low的記錄:

intradayhi <- test[test$High == test$Daily.High] 
intradaylo <- test[test$Low == test$Daily.Low] 

數據結果如下所示:使用子集

     Open High Low Close Volume Daily.Open Daily.High Daily.Low Daily.Close Daily.Volume 
2012-06-19 08:45:00 258.9 259.1 258.5 258.7 1424  258.9  259.1  257.7  258.7  31523 
2012-06-20 13:30:00 260.8 260.9 260.6 260.6 1616  260.4  260.9  259.2  260.8  35358 
2012-06-21 08:40:00 260.7 260.8 260.4 260.5 493  260.7  260.8  257.4  258.3  31360 
2012-06-22 12:10:00 255.9 256.2 255.9 256.1 626  254.5  256.2  253.9  255.3  50515 
2012-06-22 12:15:00 256.1 256.2 255.9 255.9 779  254.5  256.2  253.9  255.3  50515 
2012-06-25 11:55:00 254.5 254.7 254.4 254.6 1589  253.8  254.7  251.5  253.9  65621 
2012-06-26 08:45:00 253.4 254.2 253.2 253.7 5849  253.8  254.2  252.4  253.1  70635 
2012-06-27 11:25:00 255.6 256.0 255.5 255.9 973  251.8  256.0  251.8  255.2  53335 
2012-06-28 09:00:00 257.0 257.3 256.9 257.1 601  255.3  257.3  255.0  255.1  23978 
2012-06-29 13:45:00 253.0 253.4 253.0 253.4 451  247.3  253.4  246.9  253.4  52539 

有重複的結果,我該如何實現既當天的第一條記錄?然後我可以繪製當天的記錄數。

另外,是否有替代方法來獲得我想要的結果?提前致謝。

編輯:

樣本輸出應該是這樣的,算上可能要麼是天第一個結果或聚集(超過1起發生在那一天):

Time  Count 
08:40:00 60 
08:45:00 54 
08:50:00 60 
... 
14:00:00 20 
14:05:00 12 
14:10:00 30 
+0

如果您顯示您的理想解決方案,它可能會有所幫助。在你給出的樣本數據中,是否希望擺脫「2012-06-22 12:15:00」行?或者將它與「2012-06-22 12:10:00」行合併?或者是其他東西? –

回答

0

你可以先觀察通過每一天:

y <- apply.daily(x, first) 

然後,你可以簡單地彙總根據小時和分鐘數:

z <- aggregate(1:NROW(y), by=list(Time=format(index(y),"%H:%M")), sum) 
+0

感謝您的回覆,肯定會跳過我的解決方案: 'lo < - transform(as.POSIXlt(index(intradaylo))$ hour * 60 + as.POSIXlt(index(intradaylo))$ min,foo = 1)' 然後在繪圖之前對結果進行裝箱。但是,我這樣做,因爲我沒有使用上述聚合函數得到行的總和下面介紹一個新的列: 'LO $計數< - 1 LO < - 骨料(LO $計數,通過=名單(時間=格式(指數(LO), 「%H:%M」)),總和)' – mrkre