library(dplyr)
library(timeplyr)
library(fastplyr)
library(nycflights13)
library(lubridate)
# Basic usage
hourly_flights <- flights %>%
time_by(time_hour) # Detects time granularity
hourly_flights
monthly_flights <- flights %>%
time_by(time_hour, "month")
weekly_flights <- flights %>%
time_by(time_hour, "week")
monthly_flights %>%
f_count()
weekly_flights %>%
f_summarise(n = n(), arr_delay = mean(arr_delay, na.rm = TRUE))
# To aggregate multiple variables, use time_aggregate
flights %>%
f_count(week = time_cut_width(time_hour, months(3)))
Run the code above in your browser using DataLab