Добавить дату класса персонажа с другой датой

Question

Можем ли мы добавить дату класса Character к другой дате (отставание от указанной c date). Я хочу уменьшить на 05: 30: 00

df
Date
12:48:36
12:48:37
13:48:36

Требуемый срок

df
Date
07:48:36
07:48:37
08:48:36

df <- structure(list(Date = structure(1:3, .Label = c("12:48:36", "12:48:37", 
"13:48:36"), class = "factor")), class = "data.frame", row.names = c(NA, 
-3L))

Answer 1

Вы можете использовать as.ITime из data.table

library(data.table)
setDT(df)

df[, Date := as.ITime(Date) - as.ITime('05:00:00')]

df
#        Date
# 1: 07:48:36
# 2: 07:48:37
# 3: 08:48:36

Редактировать: Если вы сохранили дату как фактор (как в этом примере), вам нужно сначала преобразовать в символ

df[, Date := as.character(Date)]