Background: I have a large data frame data_2014, containing ~ 1,000,000 rows like this
data_2014
library(tidyverse) tibble( date_time = &