如何解决通过条件和R中的相关结果生成一系列时间戳记
我希望获得一系列时间戳,从'2020-08-31 09:00:00'开始,到'2020-10-30 21:00:00'结束。我想将结果变量与之相关联,以使结果每30分钟100个,接下来5分钟1000个,接下来30分钟100个,依此类推。该系统的值在30分钟内为100,在接下来的5分钟内为1000,然后在30分钟内再次为100。
预先感谢
#Example OUTPUT
TIMESTAMP OUTCOME
'2020-08-31 09:00:00' 100
'2020-08-31 09:30:00' 1000
'2020-08-31 09:35:00' 100
'2020-08-31 10:05:00' 1000
'2020-08-31 10:10:00' 100
'2020-08-31 10:40:00' 1000
非常感谢
解决方法
我们可以使用seq
library(lubridate)
start <- as.POSIXct('2020-08-31 09:00:00')
timestamp <- c(start,start + minutes(cumsum(rep(c(30,5),2500))))
timestamp <- timestamp[timestamp <= '2020-10-30 21:00:00']
out <- data.frame(TIMESTAMP = timestamp,OUTCOME = rep(c(100,1000),length.out = length(timestamp)))
head(out)
# TIMESTAMP OUTCOME
#1 2020-08-31 09:00:00 100
#2 2020-08-31 09:30:00 1000
#3 2020-08-31 09:35:00 100
#4 2020-08-31 10:05:00 1000
#5 2020-08-31 10:10:00 100
#6 2020-08-31 10:40:00 1000
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。