создать последовательность месяцев и дней без года - PullRequest
Новая
       61

создать последовательность месяцев и дней без года

0 голосов
/ 13 октября 2018

Добрый день.Я пытаюсь составить последовательность дат месяца.Желаемый результат будет с 1 октября по 31 декабря.Я думаю, что код достаточно прост, чтобы показать мои намерения, но имеет недостатки в его логике.Большое спасибо за любую помощь здесь. 

start <- as.Date("10/1", "m%-d%")
end <- as.Date("12/31", "m%-d%")

seq(start, end, by = "1 Day")

Ответы [ 2 ]

0 голосов
/ 13 октября 2018

или lubridate: 

library(lubridate)

format( seq(ymd('2018-10-01'),ymd('2018-12-31'),by='days'), "%m-%d" )
[1] "10-01" "10-02" "10-03" "10-04" "10-05" "10-06" "10-07" "10-08" "10-09" 
...etc to "12-31"
0 голосов
/ 13 октября 2018

Мы можем создать последовательность дат (любой год будет работать, в моем примере это не обязательно должен быть 2001 год), а затем использовать функцию format. 

format(seq.Date(as.Date("2001-10-31"), as.Date("2001-12-31"), by = 1),
         format = "%m-%d")
# [1] "10-31" "11-01" "11-02" "11-03" "11-04" "11-05" "11-06" "11-07" "11-08" "11-09" "11-10"
# [12] "11-11" "11-12" "11-13" "11-14" "11-15" "11-16" "11-17" "11-18" "11-19" "11-20" "11-21"
# [23] "11-22" "11-23" "11-24" "11-25" "11-26" "11-27" "11-28" "11-29" "11-30" "12-01" "12-02"
# [34] "12-03" "12-04" "12-05" "12-06" "12-07" "12-08" "12-09" "12-10" "12-11" "12-12" "12-13"
# [45] "12-14" "12-15" "12-16" "12-17" "12-18" "12-19" "12-20" "12-21" "12-22" "12-23" "12-24"
# [56] "12-25" "12-26" "12-27" "12-28" "12-29" "12-30" "12-31"
...