A seguinte função converte as datas com horas em números com decimais em datas com horas no formato HH:MM:SS
.
dec2hour <- function(x){
d <- sub("(^.*) .*$", "\\1", x)
h <- sub("^.* ", "", x)
h <- as.numeric(h)
m <- h - floor(h)
h <- floor(h)
m <- m*60
s <- m - floor(m)
m <- floor(m)
s <- s*60
y <- paste(h, m, s, sep = ":")
y <- as.POSIXct(paste(d, y))
y
}
x <- c("2013-09-02 8.5", "2013-09-02 10", "2013-09-02 11.5", "2013-09-02 3.508333")
dec2hour(x)
#[1] "2013-09-02 08:30:00 WEST" "2013-09-02 10:00:00 WEST"
#[3] "2013-09-02 11:30:00 WEST" "2013-09-02 03:30:29 WEST"
Nota: "WEST"
deve-se ao meu fuso horário.
Sys.getlocale("LC_TIME")
#[1] "pt_PT.UTF-8"