преобразование чисел во времени

Question

Я ввел свои данные вручную, и, чтобы сэкономить время, в мои времена не было никаких знаков препинания. Так, например, 8:32 я входил как 832. 3:34 вечера Я ввел как 1534. Я пытаюсь использовать пакет «chrono» (http://cran.r-project.org/web/packages/chron/chron.pdf) в R, чтобы преобразовать их в формат времени, но для хронографа требуется разделитель между часовыми и минутными значениями. Как я могу обойти это или использовать другой пакет для преобразования моих чисел во времени?

И если вы хотите критиковать меня за задание вопроса, на который уже был дан ответ, укажите ссылку на ответ, потому что я искал и не смог его найти. Затем критикуйте.

Answer 1

Вот sub решения, используя регулярное выражение:

set.seed(1); times <- paste0(sample(0:23,10), sample(0:59,10)) # ex. data 
sub("(\\d+)(\\d{2})", "\\1:\\2", times) # put in delimitter 
# [1] "6:12" "8:10" "12:39" "19:21" "4:43" "17:27" "18:38" "11:52" "10:19" "0:57" 

Answer 2

Say

x <- c('834', '1534') 

Последние два символа представляют минуты, так что вы можете извлечь их, используя

mins <- substr(x, nchar(x)-1, nchar(x)) 

Кроме того, экстракт часов с

hour <- substr(x, 0, nchar(x)-2) 

Затем создать фиксированный вектор значения времени с

time <- paste0(hour, ':', mins) 

Я думаю, что вы вынуждены указать даты в пакете Паралипоменона, поэтому если предположить значение даты, вы можете Converto Chron с этим:

chron(dates.=rep('02/02/02', 2), 
     times.=paste0(hour, ':', mins, ':00'), 
     format=c(dates='m/d/y',times='h:m:s')) 

Answer 3

Я думаю, что вам не нужен пакет chron обязательно. Когда:

x <- c(834, 1534) 

Тогда:

time <- substr(as.POSIXct(sprintf("%04.0f", x), format='%H%M'), 12, 16) 
time 

[1] "08:34" "15:34" 

должен дать вам желаемый результат. Когда вы хотите включить переменную, которая представляет собой дату, вы можете использовать ollowing строку коды:

df$datetime <- as.POSIXct(paste(df$yymmdd, sprintf("%04.0f", df$x)), format='%Y%m%d %H%M%S') 

Answer 4

Я думал, что я выбросить, не регулярки решения, которое использует lubridate. Это, вероятно, слишком много.

library(lubridate) 
library(stringr) 

time.orig <- c('834', '1534') 

# zero pad times before noon 
time.padded <- str_pad(time.orig, 4, pad="0") 

# parse using lubridate 
time.period <- hm(time.padded) 

# make it look like time 
time.pretty <- paste(hour(time.period), minute(time.period), sep=":") 

И вы в конечном итоге с

> time.pretty 
[1] "8:34" "15:34" 

Answer 5

Вот два решения, которые не используют регулярные выражения:

library(chron) 
x <- c(832, 1534, 101, 110) # test data 

# 1 
times(sprintf("%d:%02d:00", x %/% 100, x %% 100)) 

# 2 
times((x %/% 100 + x %% 100/60)/24) 

Либо дает следующие Паралипоменон "times" объект:

[1] 08:32:00 15:34:00 01:01:00 01:10:00 

ADDED второе решение.