difftime
- отличная маленькая функция, которая, если вы объедините здесь с trunc
, даст вам ответ:
x <- as.POSIXct(c("2015-09-01 09:00:00", "2015-09-01 09:30:00", "2015-09-01 10:00:00"))
difftime(x, trunc(x, units="days"), units="hours")
#Time differences in hours
#[1] 9.0 9.5 10.0
Очевидно, что это аккуратно и легко изменить, если вы хотите, чтобы ваш вывод units=
в "mins"
"days"
и т.д ...