r - 计算每秒的事务数

Question

如果我有一个日期如下的数据集:

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"

如果每行重新表示"事务",我如何计算每秒的事务数.

日期格式为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"))

Answer 1

这适合你吗？

table(cut(transactionTime, "secs"))

例:

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