перевод строки в дату и час

Question

У меня есть фрейм данных со строкой date and hour, например.2013-12-25_00 в виде YYYY-MM-DD_H.Я пытаюсь преобразовать эту строку в дату и час, но до сих пор мне не удалось.

Мой код до сих пор:

test = "2013-12-25_06"
t1 = gsub("_", " ", test, fixed=TRUE)
z <- as.POSIXct(t1,format="%Y-%m-%d %H")

Это дата и час возврата, как показано ниже

"2013-12-25 06:00:00 IST"

Я хочу это как "2013-12-25 06"

Я буду признателен за любую помощь в этом отношении.