Один из подходов заключается в создании переменной hour
с использованием lubridate::hour(timestamp)
:
library(tidyverse)
library(lubridate)
df %>%
count(hour = hour(timestamp))
. Затем можно выполнить фильтрацию всего за 18 часов:
df %>%
count(hour = hour(timestamp)) %>%
filter(hour == 18)
Более подробный способвыполнить то же самое:
df %>%
mutate(hour = hour(timestamp)) %>%
group_by(hour) %>%
tally() %>%
filter(hour == 18)