如何在R中制作时间片

你们会帮我制作一段我的数据吗？如何在R中制作时间片

我有以下数据集

Name  Arrival Time 
Ron  00:30 
John  16:45 
Sam  14:59

我要包括的每个到货时间为时隙，

Name  Arrival Time  Time Slot 
Ron  00:30    00:00-01:00 
John  16:45    16:00-17:00 
Sam  14:59    14:00-15:00

怎么办呢R中？

来源

2013-10-09 Ravee

这里有一个策略：

arrival <- c('00:30','16:45','14:59') 
a2 <- as.POSIXlt(arrival,'%H:%M',tz='') 
paste(format(a2,'%H:00'),format(a2+3600,'%H:00'),sep='-') 
[1] "00:00-01:00" "16:00-17:00" "14:00-15:00"

来源

2013-10-09 11:25:30 Thomas

看一看as.Date和strftime

a <- "00:15" 
astart <- paste(
    strftime(
     as.Date(
     a, 
     "%H:%M" 
    ), 
     "%H" 
    ), 
    ":00", 
    sep = "" 
) 

a <- "00:15" 
aend <- paste(
    as.integer(
     strftime(
     as.Date(
     a, 
     "%H:%M" 
    ), 
     "%H" 
    ) 
    ) + 1, 
":00", 
sep = "" 
)

输出：

> astart 
[1] "00:00" 
> aend 
[1] "1:00"

来源

2013-10-09 11:19:48 TheComeOnMan

另一种方法，我把时间作为全datetime和保持他们的格式如下：

arrivalString <- c("00:30", "16:45", "14:59") 
arrival <- strptime(arrivalString, format = "%H:%M") 
names <- c("Ron", "John", "Sam") 
df <- data.frame(names, arrival) 

slotbegin <- as.POSIXlt(df$arrival) 
slotbegin$min <-rep(0, length(slotbegin)) 
df <- cbind(df, slotbegin) 

slotend <- as.POSIXlt(df$arrival) 
slotend$min <- rep(0, length(slotend)) 
slotend$hour <- slotend$hour + 1 
df <- cbind(df, slotend)

输出：

names    arrival   slotbegin    slotend 
1 Ron 2013-10-09 00:30:00 2013-10-09 00:00:00 2013-10-09 01:00:00 
2 John 2013-10-09 16:45:00 2013-10-09 16:00:00 2013-10-09 17:00:00 
3 Sam 2013-10-09 14:59:00 2013-10-09 14:00:00 2013-10-09 15:00:00

来源

2013-10-09 11:35:32 Christian

如何在R中制作时间片

回答

相关问题