Question

我有一个日期的向量，如下所示：

"2017-01-05 08:40:00 COT" "2017-01-05 08:50:00 COT" "2017-01-05 09:00:00 COT" "2017-01-05 09:10:00 COT" "2017-01-05 10:30:00 COT" "2017-01-05 10:40:00 COT" "2017-01-05 10:50:00 COT" "2017-01-05 11:00:00 COT" "2017-01-05 11:10:00 COT" "2017-01-05 11:20:00 COT" "2017-01-05 11:30:00 COT" "2017-01-05 11:40:00 COT""2017-01-05 11:50:00 COT" "2017-01-05 12:00:00 COT" "2017-01-05 12:10:00 COT" "2017-01-05 12:20:00 COT" "2017-01-05 12:30:00 COT" "2017-01-05 12:40:00 COT" "2017-01-05 12:50:00 COT" "2017-01-05 13:00:00 COT" "2017-01-05 13:10:00 COT" "2017-01-05 13:20:00 COT" "2017-01-05 13:30:00 COT" "2017-01-05 13:40:00 COT""2017-01-05 13:50:00 COT" "2017-01-05 14:00:00 COT" "2017-01-05 14:10:00 COT" "2017-01-05 14:20:00 COT" "2017-01-05 14:30:00 COT" "2017-01-05 14:40:00 COT" "2017-01-05 14:50:00 COT" "2017-01-05 15:00:00 COT"

并声明为POSIXct。我需要在这个向量中找到不同时间间隔的开始和结束时间。对于此日期，有两个时间间隔：从"2017-01-05 08:40:00 COT"到"2017-01-05 09:10:00 COT"以及从"2017-01-05 10:30:00 COT"到"2017-01-05 15:00:00 COT"。

我已经尝试了命令范围（数据），但是我得到了整个向量的开始日期和结束日期，而不是不同的间隔。希望有人可以提供帮助

Answer 1

假设您将所有日期都放在一个名为＆＃39; dates＆＃39;你可以做类似下面的事情

Ranges <- cut(dates, breaks = "2 hours")

Answer 2

如果您在此输入策略中替换文本，则会得到一个日期时间向量：

 dat <- as.POSIXct( scan(text=' ... ',quote="\"",what="") )
 # Don't use spaces flanking the ellipsis

然后你可以使用findInterval对日期进行分类，并选择一个你想要的区间指定，在你的情况下为1和3。

 Breaks <- scan(text='"2017-01-05 08:40:00 COT","2017-01-05 09:10:00 COT","2017-01-05 10:30:00 COT" , "2017-01-05 15:00:00 COT"', sep=",", what="")
# Read 4 items
findInterval(dat,  as.POSIXct(Breaks ) )
# [1] 1 1 1 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4

Answer 3

使用时间之间的一些差异来查找向量中的断点，我称之为tx（下面要创建的代码）：如您所见，结果分为8:40到9:10然后10:30到最后。

diff(tx)
#Time differences in mins
#[1] 10 10 10 80 10 10 10

cumsum(c(FALSE, diff(tx)!=10))
#[1] 0 0 0 0 1 1 1 1

split(tx, cumsum(c(FALSE, diff(tx)!=10)))
#$`0`
#[1] "2017-01-05 08:40:00 COT" "2017-01-05 08:50:00 COT" "2017-01-05 09:00:00 COT" "2017-01-05 09:10:00 COT"
#
#$`1`
#[1] "2017-01-05 10:30:00 COT" "2017-01-05 10:40:00 COT" "2017-01-05 10:50:00 COT" "2017-01-05 11:00:00 COT"

tx的位置：

tx <- structure(c(1483623600, 1483624200, 1483624800, 1483625400, 1483630200, 
1483630800, 1483631400, 1483632000), class = c("POSIXct", "POSIXt"
), tzone = "America/Bogota")

如何在r中找到不同的时间间隔

3 个答案: