在 R 中创建时间间隔

Question

我在 R 中有一个包含 20,000 个条目的数据集。每个条目都有具体的发生时间和日期。我想创建每个 6 小时的时间间隔，即 - 上午 6 点至下午 12 点，下午 12 点 - 下午 6 点......等等，并确保数据被相应地分类。不需要日期我只需要根据时间间隔对数据进行排序。

例如如果一个条目的时间为 12:35 PM，它将被分类到 12 PM - 6 PM 间隔中。

欢迎所有想法。 S.

Answer 1

# create a dataframe with a column that represents a time
df <- data.frame(MyTimes = c("02:50:00","06:00:00", "11:10:30", "13:15:50", "17:00:00", "23:45:20"), 
                 stringsAsFactors=FALSE)

# create a "time interval" column
df$Interval <- NA
df$Interval[df$MyTimes %between% c("00:00:00", "06:00:00")] <- "0 AM - 6 AM"
df$Interval[df$MyTimes %between% c("06:00:00", "12:00:00")] <- "6 AM - 12 PM"
df$Interval[df$MyTimes %between% c("12:00:00", "18:00:00")] <- "12 PM - 6 PM"
df$Interval[df$MyTimes %between% c("18:00:00", "24:00:00")] <- "6 PM - 0 AM"
df
#    MyTimes     Interval
# 1 02:50:00  0 AM - 6 AM
# 2 06:00:00 6 AM - 12 PM
# 3 11:10:30 6 AM - 12 PM
# 4 13:15:50 12 PM - 6 PM
# 5 17:00:00 12 PM - 6 PM
# 6 23:45:20  6 PM - 0 AM

一种更有效的方法是首先转换为秒，然后使用 findInterval()

   df$seconds <- period_to_seconds(hms(df$MyTimes))
    myIntervals <- c("0 AM - 6 AM", "6 AM - 12 PM", "12 PM - 6 PM", "6 PM - 0 AM")
    df$Interval<- myIntervals[findInterval(df$seconds, c(0, 6, 12, 18, 24) * 3600)]
    #    MyTimes     Interval seconds
    # 1 02:50:00  0 AM - 6 AM   10200
    # 2 06:00:00 6 AM - 12 PM   21600
    # 3 11:10:30 6 AM - 12 PM   40230
    # 4 13:15:50 12 PM - 6 PM   47750
    # 5 17:00:00 12 PM - 6 PM   61200
    # 6 23:45:20  6 PM - 0 AM   85520

在 R 中创建时间间隔

Creating Time Intervals in R

r

data-science