library(dplyr)
sessions_disconnection <- california_ev_sessions %>%
sample_frac(0.05) %>%
divide_by_disconnection(
start = 2, division_hour = 5
)
# The column `Disconnection` has been added
names(sessions_disconnection)
library(ggplot2)
sessions_disconnection %>%
tidyr::drop_na() %>%
plot_points() +
facet_wrap(vars(Disconnection))
Run the code above in your browser using DataLab