R中的循环（时间间隔）

Question

我想使用 R 语言将我的数据（时间）转换为相应的时间间隔。我的数据框如下所示：

Date,Time,Lots,Status
"10-28-15","00:04:13","13-09","1"
"10-28-15","00:04:16","13-10","1"
"10-28-15","00:04:30","13-11","1"
"10-28-15","00:04:44","13-12","1"
"10-28-15","00:04:48","13-13","1"
"10-28-15","00:04:50","13-14","1"
"10-28-15","00:04:57","13-15","0"
"10-28-15","00:04:57","13-16","0"
"10-28-15","00:05:04","13-17","0"
"10-28-15","00:05:04","13-18","0"

我想输出这样的间隔（每小时/每 15 分钟有 4 个间隔）

Date,Time,Lots,Status,*interval*
"10-28-15","00:04:13","13-09","1",*"00:04:00"*
"10-28-15","00:04:16","13-10","1","00"04"15"
"10-28-15","00:04:30","13-11","1","00:04:30"
"10-28-15","00:04:44","13-12","1","00:04:45"
"10-28-15","00:04:48","13-13","1","00:04:45"
"10-28-15","00:04:50","13-14","1","00:04:45"
"10-28-15","00:04:57","13-15","0","00:04:45"
"10-28-15","00:04:57","13-16","0","00:04:45"
"10-28-15","00:05:04","13-17","0","00:05:00"
"10-28-15","00:05:04","13-18","0","00:05:00"

如果我使用for循环，比如

for(i=0,i<=60,i+15)
} for(if(i>i && i<=i+15)
}

我如何在 R 语言中做到这一点？谢谢大家的帮助，编程新手..

sample$int<- strptime(paste(sample$V1,sample$V2),format="%m-%d-%y %H:%M:%S")
min_V2<-trunc(min(strptime("28-10-2015 00:00:20", "%d-%m-%y %H:%M:%S")),"min")
max_V2<-trunc(max(strptime("28-10-2015 23:59:59", "%d-%m-%y %H:%M:%S")),"min") + 900
out <- cut(sample$int, breaks = seq(min_V2, max_V2, by = "15 min"))

Answer 1

我假设您在描述您想要的内容时指的是 秒，而不是 分钟。

这是一个基本示例，说明我们如何将您的输入数据转换为 15 秒间隔：

首先，将“日期”和“时间”列转换为实际的日期/时间对象：

x <- strptime(paste(mydf$Date, mydf$Time), 
              format = "%m-%d-%y %H:%M:%S")

其次，找出您的值范围内的最小值和最大值。由于这些值似乎来自同一天，但分钟数不定，因此我选择了“min”来截断。对于max 值，我添加了 60 秒以四舍五入到下一分钟。

min_x <- trunc(min(x), "min")
max_x <- trunc(max(x), "min") + 60

第三，我们可以使用seq 每 15 秒创建一个断点序列。我们可以在cut 中使用这些断点：

out <- cut(x, breaks = seq(min_x, max_x, by = "15 sec"))
out
#  [1] 2015-10-28 00:04:00 2015-10-28 00:04:15 2015-10-28 00:04:30
#  [4] 2015-10-28 00:04:30 2015-10-28 00:04:45 2015-10-28 00:04:45
#  [7] 2015-10-28 00:04:45 2015-10-28 00:04:45 2015-10-28 00:05:00
# [10] 2015-10-28 00:05:00
# 8 Levels: 2015-10-28 00:04:00 ... 2015-10-28 00:05:45

第四，如果您只对时间间隔感兴趣，您可以将cut 的输出重新格式化为日期/时间对象，并使用format 仅提取小时/分钟/秒部分。

format(as.POSIXct(out), "%H:%M:%S")
#  [1] "00:04:00" "00:04:15" "00:04:30" "00:04:30" "00:04:45" "00:04:45"
#  [7] "00:04:45" "00:04:45" "00:05:00" "00:05:00"