优化生成日期序列方法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我想定义2个时间变量；BeginTime；EndTime 。
EndTime  要比 BeginTime 少一天；

我写的代码 太复杂 ， 有更简洁的写法吗？

1. #  指定起始时间
   
2. startdate <- as.Date("2018-01-01")
   
3. enddate <- as.Date("2018-03-10")
   
4. ndays <- enddate - startdate + 1
   
5. tt <- ts(1:ndays, frequency =1, start =as.Date("2018-01-01"))
   
6. ss <- as.Date("2018-01-01")
   
7. dates <- seq(from=ss, by=1, length.out=ndays)
   
8. ## 指定结束时间 ##
   
9. startdate_1 <- as.Date("2018-01-01")
   
10. enddate_1 <- as.Date("2018-03-10")
    
11. ndays_1 <- enddate - startdate + 1
    
12. tt_1 <- ts(1:ndays, frequency =1, start =as.Date("2018-01-01"))
    
13. ss_1 <- as.Date("2018-01-02")
    
14. dates_1 <- seq(from=ss_1, by=1, length.out=ndays_1)
    
15. #生成日序列
    
16. BeginTime <- str_c(dates, "00:00:00", sep = " ")
    
17. EndTime <- str_c(dates_1, "00:00:00", sep = " ")

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：begin Start time STAR date

1. format(seq(as.Date("2018-01-01"), as.Date("2018-03-10"), by = 1), "%Y-%m-%d %H:%M:%S")
   
2. format(seq(as.Date("2018-01-02"), as,Date("2018-03-11"), by = 1), "%Y-%m-%d %H:%M:%S")

复制代码