Преобразование формата времени из числа в часы

Question

Я хочу преобразовать столбец, содержащий время, например, чтобы преобразовать 13,5 вечера в формат часов, то есть 13:30 вечера. Пожалуйста, помогите

Answer 1

Другой подход

vec <- c("13.5 PM", "12.2 AM")


library( magrittr )  
as.POSIXct( gsub( " .M", "", vec) %>% 
              as.numeric() * 3600,  
            origin = "01-01-1970", 
            tz = "UTC" ) %>% 
  format( "%H:%M" )

[1] "13:30" "12:12"

Вы можете использовать%p для AM/PM (с%I для часов, если ваш язык поддерживает это), но это кажется избыточным, так как ваше время в 24-часовом формате.

без труб:

format( as.POSIXct( as.numeric( gsub( " .M", "", vec) ) * 3600, origin = "01-01-1970", tz = "UTC" ), "%H:%M" )

#[1] "13:30" "12:12"

Answer 2

Вот довольно общий подход с округлением:

x <- c("13.5 PM", "9.003 AM", "23.823 PM", "5.1234 AM")

library(gsubfn)
gsubfn("((?<=.)\\d+(?= ))", function(x, ...)
  sprintf("%02d", round(as.numeric(paste0("0.", x)) * 60)), x, perl = TRUE)
# [1] "13.30 PM" "9.00 AM"  "23.49 PM" "5.07 AM"