library(dplyr)
sessions_timecycles <- california_ev_sessions %>%
sample_frac(0.05) %>%
divide_by_timecycle(
months_cycles = list(1:12),
wdays_cycles = list(1:5, 6:7)
)
# The column `Timecycle` has been added
names(sessions_timecycles)
library(ggplot2)
plot_points(sessions_timecycles) +
facet_wrap(vars(Timecycle))
Run the code above in your browser using DataLab