dplyrとlubridateを使ったサブセット

Question

待ち行列に入っている人の数が、机への電話を待っているかどうかを判断する必要があります（銀行支店、郵便局など）。日付（年、月、日）、各人の到着時刻（年、月、日、時、分、秒）、各人の机上通話時間（年、月、日、時、分、秒）。

私の考えは、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

ちょうど：Date - クラス "POSIXct"の列ですか？私。それはデートですか？あなたはそれを日付に対してもフィルタリングする必要があります。

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"))