毎日の時系列（動物園）からのサブセット冬（Dez、1月、2月）

Question

次の形式で数十年のデータを備えた毎日の動物園（XTS）があります。

head(almorol)
1973-10-02 1973-10-03 1973-10-04 1973-10-05 1973-10-06 1973-10-07
     183.9      208.2      153.7       84.8       52.5       35.5

そして、私は冬のデータだけをプロットしたいと思います（12月、1月、2月の全ヶ月）。 XTSのサブセットを見つけたので、以下を使用してすべてのDecembersを抽出できると思いました。

x<-apply.yearly(almorol, FUN=last(almorol, "1 month"))

そして、1月と2月に同様のことをしますが、次のエラーが発生します。

Error in get(as.character(FUN), mode = "function", envir = envir) :
object 'FUN' of mode 'function' was not found

使用できます apply.yearly と last(almorol, "1 month") 別々にしかし、私がそれらを組み合わせるとき、それは機能しません。誰もが、これらの3か月間の時系列をサブセットする方法を知っていますか？助けてくれてありがとう！

Answer 1

これを試して：

z.winter <- z[months(time(z), TRUE) %in% c("Dec", "Jan", "Feb")]
plot(z.winter)