计算指定时间段内值为1的总时间

Question

我有一个包含两列的数据集。我需要计算在00:00至6:00之间该值大于1的总时间（以秒为单位）。我如何在R中以最有效的方式做到这一点？这可以使用dplyr包来完成吗？我需要以一种通用的方式来做到这一点，以便它可以应用于其他持续时间（6至9,9至12）。以下是一些示例数据：

+--------------------------------------+ 
|  Timestamp     Value | 
+--------------------------------------+ 
| 2015-10-01 00:00:00   300 | 
| 2015-10-01 00:00:55   200 | 
| 2015-10-01 00:25:10   0  | 
| 2015-10-01 01:05:40   876 | 
| 2015-10-01 02:05:40   989 | 
| 2015-10-01 04:05:40   0  | 
| 2015-10-01 05:00:00   600 | 
| 2015-10-01 06:00:00   300 | 
+--------------------------------------+ 

因此，预计此处持续时间在00到06之间的输出为15910秒。

Answer 1

首先我解析日期/时间：

dat$Timestamp <- strptime(dat$Timestamp, format="%Y-%m-%d %H:%M:%S") 

然后，我会使用difftime抓住每个观测之间的秒：

secs <- as.numeric(difftime(tail(dat$Timestamp, -1), head(dat$Timestamp, -1), 
          units="secs")) 

最后，我想总结的秒数在每个间隔的值大于1：

sum(secs[head(dat$Value, -1) > 1]) 
# [1] 15910 

假设t他的你感兴趣的时间界限出现在时间戳字段，可以限制到感兴趣的时间范围（开始于begin.time和end.time结束）的东西，如：

dat.subset <- dat[dat$Timestamp >= begin.time & dat$Timestamp <= end.time,] 

数据：

dat <- data.frame(Timestamp = c("2015-10-01 00:00:00", "2015-10-01 00:00:55", "2015-10-01 00:25:10", "2015-10-01 01:05:40", "2015-10-01 02:05:40", "2015-10-01 04:05:40", "2015-10-01 05:00:00", "2015-10-01 06:00:00"), Value = c(300, 200, 0, 876, 989, 0, 600, 300))