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