Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/77.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在R中为时间相似的行分配一个数字组值_R_Time Series_Grouping - Fatal编程技术网
Fatal编程技术网
  • r/
  • 在R中为时间相似的行分配一个数字组值

在R中为时间相似的行分配一个数字组值

r

在R中为时间相似的行分配一个数字组值,r,time-series,grouping,R,Time Series,Grouping,我有两组时间相似，在早上6:07:45和6:15:25之间休息。我想创建一个附加列并指定一个组值来区分这两个组 原件： Date Time 12/7/2019 6:06:48 12/7/2019 6:06:52 12/7/2019 6:07:12 12/7/2019 6:07:29 12/7/2019 6:07:31 12/7/2019 6:07:39 12/7/2019 6:07:41 12/7/2019 6:07:45 12/7/2019 6

我有两组时间相似，在早上6:07:45和6:15:25之间休息。我想创建一个附加列并指定一个组值来区分这两个组

原件：

Date        Time
12/7/2019   6:06:48
12/7/2019   6:06:52
12/7/2019   6:07:12
12/7/2019   6:07:29
12/7/2019   6:07:31
12/7/2019   6:07:39
12/7/2019   6:07:41
12/7/2019   6:07:45
12/7/2019   6:15:25
12/7/2019   6:18:03
12/7/2019   6:18:05
12/7/2019   6:18:07
12/7/2019   6:18:10
12/7/2019   6:18:22
12/7/2019   6:18:25
12/7/2019   6:19:12
12/7/2019   6:19:16
预期结果：

Date        Time    Group
12/7/2019   6:06:48 1
12/7/2019   6:06:52 1
12/7/2019   6:07:12 1
12/7/2019   6:07:29 1
12/7/2019   6:07:31 1
12/7/2019   6:07:39 1
12/7/2019   6:07:41 1
12/7/2019   6:07:45 1
12/7/2019   6:15:25 2
12/7/2019   6:18:03 2
12/7/2019   6:18:05 2
12/7/2019   6:18:07 2
12/7/2019   6:18:10 2
12/7/2019   6:18:22 2
12/7/2019   6:18:25 2
12/7/2019   6:19:12 2
12/7/2019   6:19:16 2
如果我们有一个阈值，那么使用

library(dplyr)
library(data.table)
df1 %>%
    mutate(Group = cumsum(c(1, diff(as.ITime(Time)) > 180)))
数据 
df1如果我们有一个阈值，那么使用


library(dplyr)
library(data.table)
df1 %>%
    mutate(Group = cumsum(c(1, diff(as.ITime(Time)) > 180)))


数据

df1是否有中断的时间阈值是否有中断的时间阈值阈值阈值通常为3分钟或更长，因此您对180秒的假设是正确的！非常感谢！阈值通常在3分钟左右或更大，因此您对180秒的假设是正确的！非常感谢！