2011-05-18 88 views
2

交易如果我有一個日期作爲這樣的數據集:的R - 計算每秒

head(ds$TransStartTmdte) 

[1] "2011-05-09 08:50:12" "2011-05-09 09:03:46" "2011-05-09 09:06:49" "2011-05-09 09:13:05" "2011-05-09 14:21:58" "2011-05-09 14:23:00" 

每一行repressents「事務」我怎麼能計算每秒事務。

日期格式爲POSIXt

dput(head(ds$TransStartTmdte)) 

structure(list(sec = c(0.007, 0.013, 0.018, 0.012, 0.043, 0.039 
), min = c(34L, 34L, 34L, 34L, 34L, 34L), hour = c(14L, 14L, 
14L, 14L, 14L, 14L), mday = c(9L, 9L, 9L, 9L, 9L, 9L), mon = c(4L, 
4L, 4L, 4L, 4L, 4L), year = c(111L, 111L, 111L, 111L, 111L, 111L 
), wday = c(1L, 1L, 1L, 1L, 1L, 1L), yday = c(128L, 128L, 128L, 
128L, 128L, 128L), isdst = c(1L, 1L, 1L, 1L, 1L, 1L)), .Names = c("sec", 
"min", "hour", "mday", "mon", "year", "wday", "yday", "isdst" 
), class = c("POSIXlt", "POSIXt")) 
+0

你的問題有點含糊不清。你能澄清你的意思嗎?平均每秒交易次數?每個獨特秒數的交易數量?對於每個條目,最近1000微秒內的交易數量是多少? – Andrie 2011-05-18 08:44:27

+0

我在tpc.org尋找「transactiosns per second」的定義我想繪製每秒交易的「運行平均值」。 – oluies 2011-05-18 08:50:24

+3

有趣,但你給的投入,不符合你在帖子中顯示的頭部(ds $ TransStartTmdte)。 – 2011-05-18 09:22:33

回答

5

這是對你的作品?

table(cut(transactionTime, "secs")) 

例子:

plot(table(cut(ds$TransStartTmdte, "secs")), main=mydataset ,xlab="date ", ylab="Trans",pch=20) 

enter image description here

+0

是的,它會「削減它」。 :) – oluies 2011-05-18 12:48:15