xtsオブジェクトを平日(月曜日〜金曜日、土曜日と日曜日は除外)のみに含めるにはどうすればよいですか?RサブセットXTS平日
12
A
答えて
15
は私がやるだろうと何:
library(xts)
data(sample_matrix)
sample.xts <- as.xts(sample_matrix, descr='my new xts object')
x <- sample.xts['2007']
x[!weekdays(index(x)) %in% c("Saturday", "Sunday")]
EDIT: ジョシュア・ウルリッヒコメントで抽出する.indexwday()
、組み込みのアクセス関数のファミリの1つを使用して、よりよい解決策を指摘xts
クラスオブジェクトのインデックスの部分。また、ダークEddelbuettelのソリューションのように、次は、ロケールに依存する必要があります:
x[.indexwday(x) %in% 1:5]
6
日付を指定した曜日を計算し、サブセットする。この例ではDate
タイプを使用しますが、POSIXlt
へのキャストはPOSIXct
の日中のタイムスタンプと同じように動作します。
> mydates <- Sys.Date() + 0:6
> mydates
[1] "2012-01-31" "2012-02-01" "2012-02-02" "2012-02-03" "2012-02-04"
+ "2012-02-05" "2012-02-06"
> we <- sapply(mydates, function(d) { as.POSIXlt(d)$wday}) %in% c(0, 6)
> we
[1] FALSE FALSE FALSE FALSE TRUE TRUE FALSE
> mydates[ ! we ]
[1] "2012-01-31" "2012-02-01" "2012-02-02" "2012-02-03" "2012-02-06"
>
これは実際にはxts
の質問ではなく、基本的な日付の処理です。ここで
関連する問題
- 1. Rとxtsサブセット:開始日と設定範囲の合計
- 2. RのXTSとdata.table
- 3. R data.tableサブセットのサブセット
- 4. R:毎日系列のxts行列を変更する
- 5. Xtsオブジェクトに別のxtsオブジェクトを基にした列をR
- 6. Rないサブセットで
- 7. 複数の日付範囲でデータをサブセット化する - R
- 8. データフレームのサブセットの抽出R
- 9. R:動物園オブジェクトのサブセット?
- 10. 問題サブセット化rデータフレーム
- 11. Python:行のサブセットの行ベース平均
- 12. R月の最後の平日を検索
- 13. xts
- 14. R:データフレーム(混合係数と数値)をXTSに変換するR
- 15. R:コピーせずにサブセットを選択
- 16. サブセット/順序を維持し、R
- 17. R:列名のないdata.frameのサブセット
- 18. R:オブジェクトタイプ 'closure'はサブセットではない
- 19. NSDateComponentsの曜日平日インデックス
- 20. R言語:xtsオブジェクトから重複行を削除する
- 21. XTSシリーズにローリングウィンドウ回帰を適用するR
- 22. Rのパラメトリック平均をプロット
- 23. pmax(平行最大)R
- 24. Rスクリプト - 平均化する
- 25. 平日のJqueryカウントダウンタイマー
- 26. Rのxts経由で細かいデータから日+0日から1日のインデックス時間を抽出/サブセットするにはどうすればよいですか?
- 27. 平日のみ平日を表示する
- 28. 毎月第1金曜日以降(xtsオブジェクトのマージ)
- 29. はXTSオブジェクト
- 30. xtsオブジェクトのポリゴン
私は基本的に同じ答えを示すが、使用されるロケールの、それが独立してレンダリングした数値平日に頼ります。 –
+1 '.indexwday'関数があるので、最後の行は' x [.indexwday(x)%in%1:5] 'となります。 –
@DirkEddelbuettelそれを指摘してくれてありがとう(そして+1 chez vous)。私はそうでなければ違いを理解していないでしょう。 –