web-dev-qa-db-ja.com

2年間にわたる月の最終日のシーケンスを生成する

私は潤滑剤を使用し、これはとても簡単だと考えました

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

しかし、何が得られるか見てください。全部めちゃくちゃです！

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

次に、潤滑剤が間隔、期間、期間などの現象にどのように対応するかを読みます。つまり、1か月は（365 * 4 + 1）/ 48 = 30.438日で定義される日数であることがわかります。だから私はスマートになってそれを次のように書き直そうとしました

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

しかし、それだけでエラーが発生しました。

Error in as.period.default(months(0:23)) : 
  (list) object cannot be coerced to type 'double'
rdatelubridate
38
Farrel

はい、あなたは正しいトリックを見つけました：翌月の最初の日から戻ってください。

以下はベース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>

したがって、 lubridate の必要はありません。これは（素晴らしいパッケージでありながら）このような単純なタスクには必要ありません。さらに、既存の基本関数のオーバーロードは、いくぶん危険であると私に思わせます...

85
Dirk Eddelbuettel

質問を入力することが創造的なエネルギーにどのように集中するかは驚くべきことです。答えはわかったと思います。時間を無駄にしている次の貧しい魂のためにここに投稿するのもよいでしょう。

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

翌月の最初の日を指定し、それからシーケンスを生成しますが、そこから1日を引いて、前月の最終日を取得します。

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

ちなみに、厄介な「UTC」の指定を削除するにはどうすればよいですか。タイムゾーンは、必要なときに命を救うものです。残りの時間は迷惑です。

14
Farrel