Générer une séquence du dernier jour du mois sur deux ans

- Je utiliser lubridate et pensé que ce serait si facile

ymd("2010-01-31")+months(0:23)

Mais regardez ce que l'on obtient. Il est tout foiré!

 [1] "2010-01-31 UTC" "2010-03-03 UTC" "2010-03-31 UTC" "2010-05-01 UTC" "2010-05-31 UTC" "2010-07-01 UTC" "2010-07-31 UTC" "2010-08-31 UTC" "2010-10-01 UTC"
[10] "2010-10-31 UTC" "2010-12-01 UTC" "2010-12-31 UTC" "2011-01-31 UTC" "2011-03-03 UTC" "2011-03-31 UTC" "2011-05-01 UTC" "2011-05-31 UTC" "2011-07-01 UTC"
[19] "2011-07-31 UTC" "2011-08-31 UTC" "2011-10-01 UTC" "2011-10-31 UTC" "2011-12-01 UTC" "2011-12-31 UTC"

Puis j'ai lu comment lubridate approvisionne à des phénomènes tels que l'intervalle, la durée et la période. Donc, OK je me rends compte qu'un mois c'est effectivement le nombre de jours défini par (365*4+1)/48 = 30.438 jours. Donc j'ai essayé d'être intelligent et de le réécrire comme 

ymd("2010-01-31")+ as.period(months(0:23))

Mais qui a juste une erreur. 

Error in as.period.default(months(0:23)) : 
  (list) object cannot be coerced to type 'double'
InformationsquelleAutor Farrel | 2011-11-30
  1. 83

    Oui, vous avez trouvé la bonne astuce: pour en revenir un jour à partir de la première de la le mois prochain.

    Est ici comme un one-liner dans la base de R:

    R> seq(as.Date("2010-02-01"), length=24, by="1 month") - 1
 [1] "2010-01-31" "2010-02-28" "2010-03-31" "2010-04-30" "2010-05-31"
 [6] "2010-06-30" "2010-07-31" "2010-08-31" "2010-09-30" "2010-10-31"
[11] "2010-11-30" "2010-12-31" "2011-01-31" "2011-02-28" "2011-03-31"
[16] "2011-04-30" "2011-05-31" "2011-06-30" "2011-07-31" "2011-08-31"
[21] "2011-09-30" "2011-10-31" "2011-11-30" "2011-12-31"
R>

    Donc pas besoin de lubridate qui (tout en étant d'une amende paquet) n'est pas nécessaire pour une tâche simple comme ça. De Plus, sa surcharge de la base existante des fonctions encore, me paraît un peu dangereux...

    InformationsquelleAutor Dirk Eddelbuettel
  2. 13

    Il est étonnant de voir comment, en tapant une question se concentre l'énergie créatrice. Je pense que j'ai la réponse. Me reste plus qu'à le poster ici pour la prochaine pauvre âme qui se retrouve de perdre du temps.

    ymd("2010-02-01")+ months(0:23)-days(1)

    Il suffit de préciser le premier jour du mois suivant et générer une séquence de cela mais de soustraire 1 jours pour le dernier jour du mois précédent.

    [1] "2010-01-31 UTC" "2010-02-28 UTC" "2010-03-31 UTC" "2010-04-30 UTC" "2010-05-31 UTC" "2010-06-30 UTC" "2010-07-31 UTC" "2010-08-31 UTC" "2010-09-30 UTC"
[10] "2010-10-31 UTC" "2010-11-30 UTC" "2010-12-31 UTC" "2011-01-31 UTC" "2011-02-28 UTC" "2011-03-31 UTC" "2011-04-30 UTC" "2011-05-31 UTC" "2011-06-30 UTC"
[19] "2011-07-31 UTC" "2011-08-31 UTC" "2011-09-30 UTC" "2011-10-31 UTC" "2011-11-30 UTC" "2011-12-31 UTC"

    Par la voie, comment puis-je me débarrasser de l'ennuyeux "UTC" désignations. Les fuseaux horaires sont un épargnant de vie quand ils sont nécessaires. Le reste du temps, ils sont une nuisance.

    • utilisation strftime(date) pour se débarrasser de l'horaire. donc strftime('2010-10-31 UTC') serait de vous donner 2010-10-31.
    • Pouvez-vous accepter votre réponse ainsi que pour la prochaine pauvre âme?
    • Stackoverflow ne me permettent d'accepter ma réponse au bout de deux jours. Je suppose que c'est tout à fait intelligent. Il y a peut être une autre solution qui est la plus élégante.
    • strftime me donne la date du jour d'avant, parce que là où j'habite minuit UTC est réellement à 19:00 heures le jour avant. Je suis dans le fuseau horaire de l'est. strftime(ymd("2010-02-01")+ mois(0:23)-jours(1)) [1] "2010-01-30 19:00:00" "2010-02-27 19:00:00" "2010-03-30 20:00:00" etc.
    InformationsquelleAutor Farrel