[解決済み] ルブリデートのR配列
2023-04-25 22:54:10
質問
こんにちは、私はlubridateで日付のシーケンスを取得しようとしています。
これは動作しません
seq(ymd('2012-04-07'),ymd('2013-03-22'),by=week(1))
基本コマンド
seq(as.Date('2012-04-7'),as.Date('2013-03-22'),'weeks')
がありますが、lubridateでこれを行うエレガントな方法があるかどうか知りたいのです。
EDIT
無視してください:自分自身を解決したので、後世のために残している。必要であれば、これを削除してもらってもかまいません。
seq(ymd('2012-04-07'),ymd('2013-03-22'),by='weeks')
トリックを行う
どのように解決するのですか?
ymd
は、日付文字列をパースするためのラッパーで
POSIXct
オブジェクトを返します。
で説明されている標準的な用語を使用するだけでよいのです。
?seq.POSIXt
(ただし
lubridate
でなく) を使って週を定義します。
seq(ymd('2012-04-07'),ymd('2013-03-22'), by = '1 week')
seq(ymd('2012-04-07'),ymd('2013-03-22'), by = 'weeks')
は動作します。
というように
seq(ymd('2012-04-07'),ymd('2013-03-22'), by = '2 week')
を強制することができます。
lubridate
Period
クラスオブジェクトを
difftime
に変換する必要がありますが、それはむしろ不要なようです。
seq(ymd('2012-04-07'),ymd('2013-03-22'), by = as.difftime(weeks(1)))
関連
-
R言語エラー:図の余白が大きすぎる 解決方法
-
[解決済み] "エラーです。Rでテーマの書式を保存する際に「Don't know how to add RHS to the theme object」(テーマオブジェクトにRHSを追加する方法がわかりません)と表示されます。
-
[解決済み] R:自然対数を使った方程式をnlsで使う
-
[解決済み] xkcd風のグラフを作るには?
-
[解決済み] パッケージ 'xxx' は利用できません (for R version x.y.z) 」という警告にどのように対処したらよいですか?
-
[解決済み] ベクトル中のxの値を持つ要素の個数を数える
-
[解決済み] なぜ `[`] は `subset` よりも優れているのですか?
-
[解決済み] ggplot2 Rプロットで軸の制限を設定するには?
-
[解決済み] Rで文字列から最後のn文字を抽出する
-
[解決済み] [Solved] data.frameで全てまたは一部のNA(欠損値)を含む行を削除する。
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン