3

我正在尝试对大于 24 小时的时间值进行计算。在这个简短的示例中，我试图根据某人的就寝时间和起床时间来计算他们的睡眠时间。但是，如果就寝时间在午夜之后，则数据将作为大于 24 小时的时间值输入。例如，如果有人在凌晨 2 点睡觉，那么他们的就寝时间值为 26:00:00。如何在 R 中处理大于 24 小时的时间值？

这是我的简短示例尝试：

library(chron)

bedtime <- c("22:37:34","23:03:32","24:41:23")
waketime <- c("06:41:23","07:25:18","08:47:08")

bedtimeAsTime <- chron(times=bedtime) #results in error
waketimeAsTime <- chron(times=waketime)

#Add 24 hours
waketimeAsTime <- waketimeAsTime + 1

sleepDuration <- waketimeAsTime - bedtimeAsTime

chron 函数不接受大于 24 小时的时间值，并将其转换为 NA。关于如何处理这个问题的任何想法？

提前致谢！

4

2 回答 2

4

我确定已经有一个包可以做到这一点，但是您可以使用strsplitand将所有这些时间转换为秒as.numeric。

ConvertToSeconds <- function(X)
{
    X <- strsplit(X, ":")
    sapply(X, function(Y) sum(as.numeric(Y) * c(3600, 60, 1)))
}

bedtime <- ConvertToSeconds(bedtime)
waketime <- ConvertToSeconds(waketime) + (86400) #Seconds in 24 hours

sleeptime <- waketime-bedtime
sleeptime
[1] 29029 30106 29145
于 2013-07-26T21:01:43.107 回答
1

你大部分时间都在那里。

我写了一个小辅助函数，调用normTimes来转换你的时间大于 23 小时，然后从 sleepDuration 中减去它超过 1 的时间。

require(chron) 
bedtime <- c("22:37:34","23:03:32","24:41:23")
waketime <- c("06:41:23","07:25:18","08:47:08")

normTimes <- function(Tt)
{
    hourFun <- function(hrs)
    {
        if(nchar(hrs) == 1)
        {
            paste0(0, hrs, substr(tt, 3, 8))
        } else {
            paste0(hrs, substr(tt, 3, 8))
        }
    }
    tt <- Tt[substr(Tt, 1, 2) > 23]
    adjt <- as.numeric(substr(tt, 1, 2)) - 23
    Tt[substr(Tt, 1, 2) > 23]  <- sapply(adjt, hourFun)
    return(Tt)
}

bedtime <- normTimes(bedtime)
bedtimeAsTime <- chron(times=bedtime) #no longer results in an error
waketimeAsTime <- chron(times=waketime)

#Add 24 hours
waketimeAsTime <- waketimeAsTime + 1

sleepDuration <- waketimeAsTime - bedtimeAsTime
sleepDuration[sleepDuration > 1] <- sleepDuration[sleepDuration > 1] - 1

(sleepDuration)
[1] 08:03:49 08:21:46 07:05:45

你有它！

于 2013-07-26T21:52:21.927 回答