R: Hinzufügen von 1 Monat zu einem Datum

Question

Ich möchte die Datumssequenz zwischen einem startDate und endDate durch Hinzufügen von 1 Monat zum startDate erhalten. dh wenn startDate ist 2013.01.31 und endDate ist 2013.07.31, würde ich es vorziehen, diese Daten wie zu sehen:

„2013.01.31“ „2013.02.28“ „2013 -03-31" "2013.04.30" "2013.05.31" "2013.06.30" "2013.07.31"

ich habe seq.Date(as.Date("2013-01-31"),by="month",length.out=7) versucht. Aber der Ausgang dieses Codes ist wie dies

> 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" 

Also, was die einfachste Lösung ist die richtige Ausgabe zu bekommen?

Answer 1

Ich habe mit Daten in R zu arbeiten, und eine der nützlichsten Pakete, die ich für aktuelle Daten gefunden ist lubridate. Für Ihr Problem, können Sie einfach wie folgt vor:

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 auch viele andere Funktionen für Daten hat, und ich sehr empfehlen, einen Blick.

Answer 2

Das funktioniert nicht, weil R nicht sicher ist, was mit dem letzten Tag des Monats zu tun ist :) So habe ich einfache Lösung. Machen Sie dasselbe, aber ersten Tag des nächsten Monats verwenden und dann subtrahieren 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"