使用 dplyr 和 lubridate 进行子集化

Question

我需要确定有多少人在排队等候服务台呼叫（想想服务：银行分行、post 办公室等）。我有以下相关数据：日期（年、月、日）、每个人的到达时间（年、月、日、小时、分钟、秒）和每个人的服务台呼叫时间（年、月、日、小时、分钟） , 第二).

我的想法是：借助 dplyr 和 lubridate 派生一个子集。我采用特定时间点（例如特定日期的 7.43）并考虑有多少人正在等待考虑客户到达但未被叫到办公桌。我的代码是：

subset <- df %>%
  filter(day(Date) == 5 & arrival_time < "2017-06-05 07:43:00" & 
  call_time > "2017-06-05 07:43:00")

没有错误（有效），但结果为零，我清楚地看到这个子集不为空。我的代码有什么问题？非常感谢

Answer 1

只是猜测：class "POSIXct" 的 Date 列是什么？ IE。这是约会吗？比您还需要根据日期过滤它。使用 lubridate，您可以按如下方式执行此操作：

library(lubridate)
subset <- df %>%
  filter(day(Date) == 5 & arrival_time < ymd_hms("2017-06-05 07:43:00") & 
    call_time > ymd_hms("2017-06-05 07:43:00"))

使用 dplyr 和 lubridate 进行子集化

Subsetting with dplyr and lubridate

r

lubridate

dplyr