Графическая матрица временных рядов

Question

У меня есть вопрос о согласовании R: Я пытался создать набор данных о ежедневных временных рядах товара в R с пакетом ggplot2 и ggfortify в матрицу. Я пытаюсь иметь стандартизированные значения на каждой оси y и даты 1/1/2007, 1/1/2008 ... на оси x. Визуальная концепция должна выглядеть следующим образом:

Кто-нибудь знает, как это работает?

Answer 1

Пакет zoo обеспечивает поддержку временных рядов с гибкими временными индексами, например Date. Пакет также предлагает метод fortify(), который можно использовать для графики ggplot2. Также предлагается метод удобства для autoplot(), см. ?autoplot.zoo для выбора обработанных примеров с различными макетами.

Для примера с 18 временными рядами с Date указателем в макете 3 х 6, я использую подмножество набора данных FXRatesCHF из пакета fxregime. Это дает обменные курсы для разных валют в отношении швейцарского франка (CHF).

library("zoo") 
data("FXRatesCHF", package = "fxregime") 
FX <- window(FXRatesCHF[, c(1:4, 6:19)], start = as.Date("2000-01-01")) 

Затем ggplot() может быть применен к выходу методы fortify():

library("ggplot2") 
ggplot(aes(x = Index, y = Value), data = fortify(FX, melt = TRUE)) + 
    geom_line(color = "darkred") + 
    xlab("Time") + ylab("FX") + 
    theme_bw() + 
    facet_wrap(~ Series, scales = "free_y", ncol = 6) 

Того же самый вид компоновки также может быть легко создан с базовой графикой. Только названия панели находятся на оси у, а не в главном заголовке серо-затененных:

plot(FX, col = "darkred", xlab = "Time", nc = 6, 
    panel = function(...) { grid(col = "lightgray"); lines(...) }) 

Наконец, версия lattice может быть создан

library("lattice") 
trellis.par.set(theme = standard.theme(color = FALSE)) 
xyplot(FX, col = "darkred", xlab = "Time", layout = c(6, 3), 
    panel = function(...) { panel.grid(col = "lightgray"); panel.lines(...) })