Вы можете удалить все после двоеточия (:
)
finaldat$HOUR <- sub(':.*', '', finaldat$TIME)
Например,
sub(':.*', '', '23:45')
#[1] "23"
Другой вариант - преобразовать в POSIXct
и извлечь час.
finaldat$HOUR <- format(as.POSIXct(finaldat$TIME, format = "%H:%M"), "%H")
Вы можете добавить as.numeric
/ as.integer
, чтобы преобразовать HOUR
в число.