R 选择唯一的基于时间的数据

我有一个数据框，如下所示

"SERIAL_No.","DATE_","TIME_",
"13606855","2011/08/02","14:15"            

因此，一个拥有特定序列号的人在一天中的不同时间进行特定活动，并且有一年的可用数据。我想选择一个条目，该条目对应于上午5点后的第一个条目。这样，我将有一个特定日期的每个序列号的单一条目。 我尝试了以下方法，但不知道是否有效：

df <- df[df$TIME_ >"5:00", ] 

df“5:00”，]

但这将在早上5点后选择所有条目。我不知道如何做到这一点。请帮助，我是R新手，我想学习这个强大的工具。

这个链接（）中的答案有一个很好的函数，你可以使用

到.time

使用

chron

包。这将有助于比较两次之间的差异

以下是一种方法：

# create toy data 
set.seed(1)
x <- data.frame(SERIAL_No = sample(5, 10, replace = TRUE),
           Date = Sys.Date() - 1:10,
           Time = format(Sys.time() - sample(1000, 10), "%H:%M"))

# Define helper function from link above
library(chron)
to.times <- function(x) times(paste0(x, ":00"))

# Change class of Time column to times
x$Time <- to.times(x$Time)

# Isolate observations past 00:00 (can switch to 5:00 when you use your data)
x <- x[x$Time > to.times("00:00"), ]

# Find observation closest to 00:00 for each serial number
do.call(rbind, lapply(split(x, x$SERIAL_No), 
                      function(a) a[which.min(a$Time - to.times("00:00")), ]))

#创建玩具数据
种子（1）
x此链接（）中的答案有一个很好的函数，您可以使用
到.time
使用
chron
包。这将有助于比较两次之间的差异

以下是一种方法：

# create toy data 
set.seed(1)
x <- data.frame(SERIAL_No = sample(5, 10, replace = TRUE),
           Date = Sys.Date() - 1:10,
           Time = format(Sys.time() - sample(1000, 10), "%H:%M"))

# Define helper function from link above
library(chron)
to.times <- function(x) times(paste0(x, ":00"))

# Change class of Time column to times
x$Time <- to.times(x$Time)

# Isolate observations past 00:00 (can switch to 5:00 when you use your data)
x <- x[x$Time > to.times("00:00"), ]

# Find observation closest to 00:00 for each serial number
do.call(rbind, lapply(split(x, x$SERIAL_No), 
                      function(a) a[which.min(a$Time - to.times("00:00")), ]))

#创建玩具数据
种子（1）
x变量“TIME”的类别是什么？你能提供更多的数据点吗？变量“TIME”的类别是什么？你能提供更多的数据点吗？这很有效。谢谢你这么多的作品。多谢各位