После преобразования в DateTime, мы извлекаем каждый из компонентов
library(lubridate)
library(dplyr)
df1 %>%
mutate(v1 = mdy_hm(v1),
Year = year(v1),
Month = month(v1),
Date = day(v1),
time = format(v1, "%H:%M:%S"))
# A tibble: 1 x 5
# v1 Year Month Date time
# <dttm> <dbl> <dbl> <int> <chr>
#1 2017-12-25 00:00:00 2017 12 25 00:00:00
data
df1 <- tibble(v1 = "12/25/17 0:00")