Как объединить дату и время в 1 объект

Мои данные таковы:

structure(list(Date = structure(c(1509408000, 1509408000, 1509408000, 
1509408000, 1509408000, 1509408000), class = c("POSIXct", "POSIXt"
), tzone = "UTC"), Time = structure(c(-2208988860, -2208988920, 
-2208988980, -2208989040, -2208989100, -2208989160), class = c("POSIXct", 
"POSIXt"), tzone = "UTC"), O = c(54.62, 54.62, 54.62, 54.62, 
54.63, 54.63), H = c(54.63, 54.63, 54.62, 54.62, 54.63, 54.63
), L = c(54.62, 54.62, 54.62, 54.62, 54.62, 54.62), C = c(54.62, 
54.62, 54.62, 54.62, 54.62, 54.62), date.time = structure(c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), class = c("POSIXct", 
"POSIXt"), tzone = "")), row.names = c(NA, -6L), class = c("tbl_df", 
"tbl", "data.frame"))

Я хочу, чтобы время либо имело ту же дату, что и в столбце «Дата», либо вообще не имело даты. Для первого решения я попытался взять дату из столбца «Дата» и время из столбца «Время», чтобы создать столбец даты и времени.

Я пробовал следующий код:

data_frame2$date.time <- as.POSIXct(paste0(data_frame2$Date,  data_frame2$Time), format="%Y-%m-%d %H:%M:%S")

но я получаю NA в созданном столбце date.time.

Я также попытался избавиться от даты с помощью:

data_frame2_date_filter$Time <- format(ymd_hms(data_frame2_date_filter$Time), "%H:%M:%S")

atr_results$Time <- parse_date_time(atr_results$Time, "HMS")
atr_results$Time <- times(strftime(atr_results$Time, format="%H:%M:%S"))

но эти тоже не работают.