R: aggiunta da 1 mese a una data

Question

Desidero ottenere la sequenza di date tra startDate e endDate aggiungendo 1 mese allo startDate. vale a dire, se è startDate 2013/01/31 e 2013/07/31 endDate è, preferirei vedere le date di questo tipo:

"2013/01/31" "2013/02/28" "2013 -03-31" "2013/04/30" "2013/05/31" "2013/06/30" "2013/07/31"

ho cercato seq.Date(as.Date("2013-01-31"),by="month",length.out=7). Ma l'uscita di questo codice è come questo

> seq.Date(as.Date("2013-01-31"),by="month",length.out=7) 
[1] "2013-01-31" "2013-03-03" "2013-03-31" "2013-05-01" "2013-05-31" "2013-07-01" "2013-07-31" 

Quindi, qual è la soluzione più semplice per ottenere l'output corretto?

Answer 1

devo lavorare con date in R, e uno dei pacchetti più utili che ho trovato per i dati di data è lubridate. Per il vostro problema, si può semplicemente effettuare le seguenti operazioni:

require(lubridate) 
# ymd function parses dates in year-month-day format 
startDate <- ymd('2013-01-31') 
# The %m+% adds months to dates without exceeding the last day 
myDates <- startDate %m+% months(c(0:6)) 

lubridate ha anche molte altre funzioni per le date, e consiglio vivamente di dare un'occhiata.

Answer 2

Questo non funziona, perché R non è sicuro su cosa fare l'ultimo giorno del mese :) Quindi ho una soluzione semplice. Fate lo stesso, ma utilizzare 1 ° giorno del mese successivo e quindi sottrarre 1:

seq(as.Date("2013-02-1"),by="month",length.out=7)-1 
[1] "2013-01-31" "2013-02-28" "2013-03-31" "2013-04-30" "2013-05-31" "2013-06-30" "2013-07-31"