R：將長久動物園時間系列分成日曆

Question

我有一個長達數年的動物園對象。

這是一個時間序列，每天的報價（第一列：日期，第二欄：行情）

我要拆分這漫長的時間序列爲歷年子集，其最終目標是繪製在這些數據單個圖表，其橫軸爲一年的長度。

（我不想將我的源日常數據轉換爲月度數據或任何其他時間步...）。

謝謝。

Answer 1

這裏有一種方法

library(quantmod) 
getSymbols("SPY", src='yahoo', from='2000-01-01', to='2012-01-01') 
SPY <- as.zoo(Ad(SPY)) 
# Now I have zoo data with a single value for each day (like you say you have) 
# Convert it to xts so that I can use xts' split method 
mydata <- as.xts(SPY) 
# Split data by years. Give them rownames that are day of year instead of 
# specific dates. cbind data together and plot 
ts.plot(do.call(cbind, lapply(split(mydata, 'years'), function(x) { 
    zoo(x, 1:NROW(x)) 
})), col=rainbow(nyears(mydata))) 

另外，

tapply(SPY, format(index(SPY), "%Y"), c) 

將逐年分裂，並且不需要轉換爲xts