Question

我在R中有一个包含20,000个条目的数据集。每个条目都有一个特定的时间和日期。我想创建每个6小时的时间间隔，即 - 上午6点 - 下午12点，下午12点 - 下午6点...依此类推，确保数据按相应的顺序排序。不需要日期我只需要根据时间间隔对数据进行排序。

例如如果条目的时间为下午12:35，则将其分类为下午12点至下午6点。

欢迎所有想法。 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中创建时间间隔

1 个答案: