Skip to main content
Exemplo de dados corrigido.
Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

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 113.25"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 1103:1530:0029 WEST"

Nota: "WEST" deve-se ao meu fuso horário.

Sys.getlocale("LC_TIME")
#[1] "pt_PT.UTF-8"

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 11.25")
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 11:15:00 WEST"

Nota: "WEST" deve-se ao meu fuso horário.

Sys.getlocale("LC_TIME")
#[1] "pt_PT.UTF-8"

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"
Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

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 11.25")
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 11:15:00 WEST"

Nota: "WEST" deve-se ao meu fuso horário.

Sys.getlocale("LC_TIME")
#[1] "pt_PT.UTF-8"