我有一些传感器数据,每秒有 100 个数据条目。最后一列是毫秒,现在都是 10。我怎样才能将毫秒按行加在一起,按时间和日期分组。
testdata <- structure(list(local_date = c("26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017", "26-06-2017"),
local_time = c("13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:23", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24", "13:58:24" ),
ms = c(10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10)),
.Names = c("local_date", "local_time", "ms"), row.names = c(NA, -200L), class = c("data.table", "data.frame"))
前 100 行都共享相同的时间 (13:58:23) 和日期 (26-06-2017),但它们都有 10 毫秒。结果应该只有一个每秒 10 毫秒的条目,然后将后面的毫秒添加到前面的毫秒中。
此代码段将使用序列创建结果:
testdata$ms = rep(seq(from = 10, to = 1000, by = 10), 2)
但由于原始数据不是那么干净,我必须按日期和时间对数据进行分组,然后以逐行方式将毫秒相加。
我更喜欢一个data.table
解决方案,但dplyr
也可以正常工作。