創建兩個日期之間的所有日期的向量

在R中有沒有簡單的方法來列出在兩個指定日期之間發生的所有有效日期？舉例來說，我想下面的輸入：創建兩個日期之間的所有日期的向量

itemizeDates(startDate="12-30-11", endDate="1-4-12")

爲了生產日期如下：

"12-30-11" "12-31-11", "1-1-12", "1-2-12", "1-3-12", "1-4-12"

我在班級和日期的格式靈活，我只是需要的一種實現概念。

來源

2013-01-22 Jeff Allen

您正在尋找seq

> seq(as.Date("2011-12-30"), as.Date("2012-01-04"), by="days") 
[1] "2011-12-30" "2011-12-31" "2012-01-01" "2012-01-02" "2012-01-03" 
[6] "2012-01-04"

或者，你可以使用:

> as.Date(as.Date("2011-12-30"):as.Date("2012-01-04"), origin="1970-01-01") 
[1] "2011-12-30" "2011-12-31" "2012-01-01" "2012-01-02" "2012-01-03" 
[6] "2012-01-04"

這裏有一個功能，滿足您的具體要求

itemizeDates <- function(startDate="12-30-11", endDate="1-4-12", 
         format="%m-%d-%y") { 
    out <- seq(as.Date(startDate, format=format), 
      as.Date(endDate, format=format), by="days") 
    format(out, format) 
} 

> itemizeDates(startDate="12-30-11", endDate="1-4-12") 
[1] "12-30-11" "12-31-11" "01-01-12" "01-02-12" "01-03-12" "01-04-12"

來源

2013-01-22 02:02:56 GSee

'seq.Date'均勻。我不知道它的存在。 –

的確我是。謝謝你的幫助！ –

我得說，這是我見過的更有效的答案之一 – d8aninja

我更喜歡使用lubridate包來解決日期時間問題。一旦你知道它，它會更直觀，更易於理解和使用。

library(lubridate) 
#mdy() in lubridate package means "month-day-year", which is used to convert 
#the string to date object 
>start_date <- mdy("12-30-11") 
>end_date <- mdy("1-4-12") 
#calculate how many days in this time interval 
>n_days <- interval(start_date,end_date)/days(1) 
>start_date + days(0:n_days) 
[1]"2011-12-30" "2011-12-31" "2012-01-01" "2012-01-02" "2012-01-03" "2012-01-04" 
#convert to original format 
format(start_date + days(0:n_days), format="%m-%d-%y") 
[1] "12-30-11" "12-31-11" "01-01-12" "01-02-12" "01-03-12" "01-04-12"

參考： Dates and Times Made Easy with lubridate

來源

2018-02-03 22:28:45

創建兩個日期之間的所有日期的向量

回答

相關問題