使用 R 对不同时隙中的时间进行分类答案

【问题标题】：Categorising Time in different slots using R使用 R 对不同时隙中的时间进行分类
【发布时间】：2018-09-17 10:18:51
【问题描述】：

处理时差，并希望根据我的数据帧中的不同时间创建时隙。例如，我的数据框中确实有单独的列，其中包含秒数。我想要做的是通过检查这些秒数是否属于任何一个类别，即时隙。

timediff(in Sec)      Waiting_slots
14589                    >= 4 hours
11580                    2 - 4 hours
11940                    2 - 4 hours

 date 
 2018-01-19 15:17:48 UTC--2018-01-19 19:20:57 UTC
 2016-06-26 22:55:00 UTC--2016-06-27 02:08:00 UTC
 2016-05-02 07:47:00 UTC--2016-05-02 11:06:00 UTC

等所以，等待时段就像 4 小时我必须像这样创建等待 _slots 但未能实现这一点，因为我不知道如何在 2 到 4 小时的时间间隔内做到这一点。这个方法我试过了，

# timed <- c(2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3.0,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9)
# AE_subset <- mutate(AE_subset, waiting_slots = ifelse(timediff < 2.0,"Less than 2 hours",
#                                                       ifelse(timediff  %in% timed,"Between 2 - 4 hours",
#                                                              ifelse(timediff > 4.0,"More than 4 hours","check"))))
# AE_subset <- AE_subset %>% mutate(waiting_slots = replace(waiting_hours,waiting_hours== "check","Between 2 - 4 hours"))

我使用 Lubridate 的持续时间将秒转换为小时格式。

> duration(timediff = 14589)
[1] "14589s (~4.05 hours)"

    ae <- ae %>% mutate(wait_slots = cut(ae$time_interval, breaks = c(7199,14400,121918,Inf),labels = c("Less than 2 hours","Between 2 to 4 hours","More than 4 hours")))

使用上述方法会给我错误的分组。谁能帮我解决这个问题！！！

【问题讨论】：

你在找cut吗？
car::recode(timediff, "lo:7199='Less than 2 hours'; 7200:14400='2 to 4 hours';14401:hi='More than 4 hours')
用于分组是的，但我的专栏是以秒为单位的。
@LAP 抱歉切还是车？因为这辆车对我来说很新。
@chinsoon12 如果列包含日期和时间而不是秒怎么办？我会更新我的问题。

标签： r time lubridate dplyr

【解决方案1】：

如果您能提供一个手头数据的最小示例，将会很有帮助。也许这可以帮助你？

# generate data with random timestamps
timeStart <- sort(as.POSIXct(sample(1000:10000,20),origin="1970-01-01"))
timeEnd <- timeStart + as.difftime(seq(0,10,length.out = 20),units="hours")
data <- data.frame(start = timeStart, end = timeEnd)

# function for time categorisation
timeCategory <- function(t0,t1){
  diffTime <- difftime(t1,t0,units = "hours")
  if(diffTime < 2){
    return(1)
  }else if(2<= diffTime && diffTime < 4){
    return(2)
  }else{
    return(3)
  }
}

#apply function to data
timeCat <- apply(data,1,function(t)timeCategory(t[1],t[2]))
timeCat

【讨论】：

【解决方案2】：

这是我用来获取输出的命令：

 DF<- DF %>% mutate(waiting_hours = cut(DF$ELAPSED_MINS_ARRIVAL_TO_DEPARTURE, breaks = c(0,119,239,2031),labels = c("Less than 2 hours","2 to 4 hours","More than 4 hours"),include.lowest = TRUE))

【讨论】：