gpt4 book ai didi

datetime - R:计算2个数字时间之间耗时,例如944和1733是469分钟

转载 作者:行者123 更新时间:2023-12-05 09:00:13 24 4
gpt4 key购买 nike

我正在尝试在 R 中编写一个优雅的函数来计算两个时间戳之间耗时,这两个时间戳存储为整数,格式为 hmm 或 hhmm。我想以分钟的整数形式返回耗时。

到目前为止,这是我的解决方案,可能会得到很大改进:

#Treatment of varous length inputs:
#1 digit = m
#2 digits = mm
#3 digits = hmm
#4 digits = hhmm
#5+ digits = failure

elapsedtime <- function(S,E) {
S<-c(as.character(S))
E<-c(as.character(E))

if (length(S)!=length(E)) {
stop("Invalid input")
}

for (i in seq(1:length(S))) {
if (nchar(S[i])>4) {S[i]<-NA}
if (nchar(E[i])>4) {E[i]<-NA}

while (nchar(S[i])<4) {
S[i]<-paste('0',S[i],sep='')
}

while (nchar(E[i])<4) {
E[i]<-paste('0',E[i],sep='')
}
S[i]<-as.character(as.numeric(substr(S[i],1,2))*60+as.numeric(substr(S[i],3,4)))
E[i]<-as.character(as.numeric(substr(E[i],1,2))*60+as.numeric(substr(E[i],3,4)))

}
S<-as.numeric(S)
E<-as.numeric(E)

return(E-S)
}
elapsedtime(944,1733)
elapsedtime(44,33)
elapsedtime(44,133)
elapsedtime(c(944,44),c(1733,33))
elapsedtime(c(44,44),c(33,133))
elapsedtime(944,17335)
elapsedtime(c(944,945),c(1733,17335))
elapsedtime(c(944,945),c(1733,17335,34))

我不太需要处理 1 位和 2 位数字的情况,但我需要能够处理 3 位或 4 位数字的输入。我在很多日期运行此程序,快速完成 3/4 位数比缓慢完成 1、2、3 或 4 位数要好得多。

/edit:更改代码以在时间向量上正常工作

最佳答案

尝试以下功能:

 # calculate number of minutes of timestamp
mins <- function(x){
floor(x/100)*60+x%%100
}

# calculate difference in minutes
elapsedtime <- function(S,E){
mins(E)-mins(S)
}

这避免了循环,因此被矢量化了。如果小时数大于 99,即 HHHMM,mins 将起作用,或者您可以修改为更高的时间单位。

如果5位时间戳确实有误,可以在mins的第一行添加:

ifelse(x<10000,x,NA)

因此,当其中一个或两个时间戳均为 5 位数时,您将得到一个 NA 差值。

关于datetime - R:计算2个数字时间之间耗时,例如944和1733是469分钟,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5007026/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com